Context Navigation

timestep_unstructured.F90

Timestamp:

12/30/17 02:00:38 (7 years ago)

Author:

dubos

Message:

devel/unstructured : updated kernels

File:

-                      r652
+                      r658
+    !
     INTEGER :: l, ij
+    CALL enter_trace(id_update, 8*sz*(j+1) )
     !  PRINT *, clj(1:j,j)
     SELECT CASE(j)
 …
        END DO
     END SELECT
+    CALL exit_trace()
   END SUBROUTINE update

Note: See TracChangeset for help on using the changeset viewer.