Changeset 13
- Timestamp:
- 02/10/12 15:54:21 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/OPA_SRC/step.F90
r7 r13 47 47 !!---------------------------------------------------------------------- 48 48 !! NEMO/OPA 3.3 , NEMO Consortium (2010) 49 !! $Id: step.F90 32 94 2012-01-28 16:44:18Z rblod $49 !! $Id: step.F90 3217 2011-12-13 09:07:25Z cbricaud $ 50 50 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 51 51 !!---------------------------------------------------------------------- … … 77 77 INTEGER :: jk ! dummy loop indice 78 78 INTEGER :: indic ! error indicator if < 0 79 80 INTEGER :: inb_period_initial, inb_period_final, inb_period_sec, inb_period_max, inb_period 79 81 !! --------------------------------------------------------------------- 80 82 83 CALL SYSTEM_CLOCK(count_rate=inb_period_sec, count_max=inb_period_max) 84 CALL SYSTEM_CLOCK(count=inb_period_initial) 81 85 #if defined key_agrif 82 86 kstp = nit000 + Agrif_Nb_Step() … … 266 270 IF( nn_timing == 1 .AND. kstp == nit000 ) CALL timing_reset 267 271 ! 272 CALL SYSTEM_CLOCK(count=inb_period_final) 273 inb_period = inb_period_final - inb_period_initial 274 IF( inb_period_final < inb_period_initial ) inb_period = inb_period + inb_period_max 275 IF( lwp ) WRITE(numout,'(a, i6, f10.5)') 'step timing', kstp, REAL(inb_period,wp) / REAL(inb_period_sec,wp) 276 ! 268 277 END SUBROUTINE stp 269 278
Note: See TracChangeset
for help on using the changeset viewer.