- Timestamp:
- 2019-05-16T15:23:56+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/stpctl.F90
r10888 r10986 78 78 WRITE(numout,*) 'stp_ctl : time-stepping control' 79 79 WRITE(numout,*) '~~~~~~~' 80 IF(lflush) CALL FLUSH(numout) 80 81 ! ! open time.step file 81 82 IF( lwm ) CALL ctl_opn( numstp, 'time.step', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp, narea ) … … 133 134 IF( ll_wrtruns ) THEN 134 135 WRITE(numrun,9500) kt, zmax(1), zmax(2), -zmax(3), zmax(4) 136 IF(lflush) CALL flush(numrun) 135 137 istatus = NF90_PUT_VAR( idrun, idssh, (/ zmax(1)/), (/kt/), (/1/) ) 136 138 istatus = NF90_PUT_VAR( idrun, idu, (/ zmax(2)/), (/kt/), (/1/) )
Note: See TracChangeset
for help on using the changeset viewer.