diff --git a/src/basic_mod.F90 b/src/basic_mod.F90 index 58e1540758433a363c4880b0f1f9e5599899b67c..ece5f9b1ea99b56b5a2c0dedfa2b3a9074972ab5 100644 --- a/src/basic_mod.F90 +++ b/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 diff --git a/src/control.F90 b/src/control.F90 index 5c2571dab7d84eed66235b0852314e2d34f9531c..9420880fac83cf2809746b1fd554b92c68c41633 100644 --- a/src/control.F90 +++ b/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 diff --git a/src/ghosts_mod.F90 b/src/ghosts_mod.F90 index 8f0f43650eecc52fbbb6777dbad7143594e33f40..bea0f5c41c5e996b6c4ce4ef004fbf970f374c8b 100644 --- a/src/ghosts_mod.F90 +++ b/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