Fixed time profiler that was not initialized properly anymore

src/basic_mod.F90

@@ -86,9 +86,10 @@ CONTAINS
     READ(lu_in,basic)
 
     !Init cumulative timers
-    tc_rhs       = 0.;tc_adv_field = 0.; tc_poisson  = 0.
-    tc_Sapj      = 0.; tc_diag     = 0.; tc_checkfield = 0.
-
+    tc_rhs       = 0.; tc_adv_field = 0.; tc_poisson    = 0.
+    tc_Sapj      = 0.; tc_diag      = 0.; tc_checkfield = 0.
+    tc_ghost     = 0.; tc_coll      = 0.; tc_process    = 0.
+    tc_clos      = 0.; tc_step      = 0.;
   END SUBROUTINE basic_data
 
 

src/control.F90

@@ -66,7 +66,8 @@ SUBROUTINE control
 
      CALL diagnose(step)
 
-    CALL cpu_time(t1_step); tc_step = tc_step + (t1_step - t0_step)
+    CALL cpu_time(t1_step);
+    tc_step = tc_step + (t1_step - t0_step)
 
   END DO
 

src/ghosts_mod.F90

@@ -27,6 +27,7 @@ SUBROUTINE update_ghosts_moments
     CALL update_ghosts_z_i
   ENDIF
 
+  CALL cpu_time(t1_ghost)
   tc_ghost = tc_ghost + (t1_ghost - t0_ghost)
 END SUBROUTINE update_ghosts_moments