Changeset 3222

Timestamp:

2011-12-14T21:29:40+01:00 (12 years ago)

Author:

rblod

Message:

Correct a bug in timing with more than 2 levels of imbrication

File:

• branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/timing.F90 (modified) (2 diffs)

branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/timing.F90

@@ -129 +129 @@
       INTEGER  :: ifinal_count, iperiods    
       REAL(wp) :: zcpu_end, zmpitime
+      !
+      s_wrk => NULL()
 
       ! clock time collection
@@ -158 +160 @@
       
       ! Correction of parent section
-      IF( ASSOCIATED(s_timer%parent_section) .AND. .NOT. PRESENT(csection) ) THEN
-         s_timer%parent_section%tsub_cpu   = s_timer%parent_section%tsub_cpu   + s_timer%t_cpu 
-         s_timer%parent_section%tsub_clock = s_timer%parent_section%tsub_clock + s_timer%t_clock 
+      IF( .NOT. PRESENT(csection) ) THEN
+         s_wrk => s_timer
+         DO WHILE ( ASSOCIATED(s_wrk%parent_section ) )
+            s_wrk => s_wrk%parent_section
+            s_wrk%tsub_cpu   = s_wrk%tsub_cpu   + s_timer%t_cpu 
+            s_wrk%tsub_clock = s_wrk%tsub_clock + s_timer%t_clock              
+         END DO
       ENDIF
-      
+            
       ! time diagnostics 
       s_timer%tsum_clock = s_timer%tsum_clock + s_timer%t_clock