Changeset 1317 for trunk/NEMO/OPA_SRC/DIA/diaptr.F90
- Timestamp:
- 2009-02-17T17:31:42+01:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/DIA/diaptr.F90
r1316 r1317 245 245 !!---------------------------------------------------------------------- 246 246 247 IF( kt == nit000 .OR. MOD( kt , nf_ptr ) == 0 ) THEN247 IF( kt == nit000 .OR. MOD( kt - nit000 + 1, nf_ptr ) == 0 ) THEN 248 248 249 249 zsverdrup = 1.e-6 … … 551 551 ENDIF 552 552 553 554 553 CALL histend( numptr ) 555 554 556 555 ENDIF 557 556 558 IF( MOD( kt, nf_ptr ) == 0 ) THEN557 IF( MOD( it, nf_ptr ) == 0 ) THEN 559 558 560 559 IF(lwp) THEN … … 565 564 ENDIF 566 565 567 ! define time axis568 it= kt - nit000 + 1569 566 ndex(1) = 0 570 567 CALL histwrite( numptr, "zotemglo", it, tn_jk , jpj*jpk, ndex )
Note: See TracChangeset
for help on using the changeset viewer.