info for tests.

nens · Apr 30, 2024 · ffcd00d · ffcd00d
1 parent c967451
commit ffcd00d
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/libthreedigrid/cells.f90 b/libthreedigrid/cells.f90
@@ -78,7 +78,7 @@ subroutine set_2d_computational_nodes_lines(origin, lgrmin, kmax, mmax, nmax, dx
             deallocate(area_mask_padded)
         endif
         write(*,*) '** INFO: Number of 2D nodes is: ', nod - 1
-        write(*,*) '** INFO: Number of 2D lines is: ', l_u + l_v
+        write(*,*) '** INFO: Number of 2D lines is: ', l_u + (l_v - l_u)
         write(*,*) '** INFO: Done setting 2D calculation cells.'
 
     end subroutine set_2d_computational_nodes_lines
@@ -254,6 +254,8 @@ subroutine set_quarter_admin(nodk, nodm, nodn, line, kcu, quarter_line, quarter_
         integer :: nu
         integer :: nb
 
+        write(*,*) "liutot: ", liutot, "livtot: ", livtot, "n2dtot: ", n2dtot, "n2dobc: ", n2dobc, "line: ", shape(line), "kcu: ", shape(kcu)
+
 
         !!!!!!!!!!!!!!!!
         !!  3  !!  4  !!