Changeset 3222 for branches/2011/dev_NEMO_MERGE_2011
- Timestamp:
- 2011-12-14T21:29:40+01:00 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/timing.F90
r3140 r3222 129 129 INTEGER :: ifinal_count, iperiods 130 130 REAL(wp) :: zcpu_end, zmpitime 131 ! 132 s_wrk => NULL() 131 133 132 134 ! clock time collection … … 158 160 159 161 ! Correction of parent section 160 IF( ASSOCIATED(s_timer%parent_section) .AND. .NOT. PRESENT(csection) ) THEN 161 s_timer%parent_section%tsub_cpu = s_timer%parent_section%tsub_cpu + s_timer%t_cpu 162 s_timer%parent_section%tsub_clock = s_timer%parent_section%tsub_clock + s_timer%t_clock 162 IF( .NOT. PRESENT(csection) ) THEN 163 s_wrk => s_timer 164 DO WHILE ( ASSOCIATED(s_wrk%parent_section ) ) 165 s_wrk => s_wrk%parent_section 166 s_wrk%tsub_cpu = s_wrk%tsub_cpu + s_timer%t_cpu 167 s_wrk%tsub_clock = s_wrk%tsub_clock + s_timer%t_clock 168 END DO 163 169 ENDIF 164 170 165 171 ! time diagnostics 166 172 s_timer%tsum_clock = s_timer%tsum_clock + s_timer%t_clock
Note: See TracChangeset
for help on using the changeset viewer.