Changeset 1317 for trunk/NEMO/OPA_SRC/DIA/diagap.F90
- Timestamp:
- 2009-02-17T17:31:42+01:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/DIA/diagap.F90
r1312 r1317 198 198 ! ---------------------- 199 199 200 IF( MOD( kt, ngap ) == 0 ) THEN 200 it = kt - nit000 + 1 ! define time axis 201 IF( MOD( it, ngap ) == 0 ) THEN 201 202 202 203 ! initialization … … 239 240 ! ----------------------------====== 240 241 241 IF( MOD( kt, nprg ) == 0 ) THEN242 IF( MOD( it, nprg ) == 0 ) THEN 242 243 IF(lwp) THEN 243 244 WRITE(numout,*) 'dia_gap: time step = ', kt, 'model - data' … … 259 260 260 261 IF (lwp ) THEN ! Ok even in mpp after the call to mpp_sum 261 it = kt - nit000 + 1 ! define time axis262 262 CALL histwrite( numgap, "motempda", it, tdtag, jpk, ndex ) 263 263 CALL histwrite( numgap, "mosalida", it, sdtag, jpk, ndex )
Note: See TracChangeset
for help on using the changeset viewer.