Changeset 8683

Timestamp:

2017-11-09T12:32:27+01:00 (6 years ago)

Author:

dancopsey

Message:

Add flush statement in between the write and rewind statements.

File:

• branches/UKMO/dev_r5518_flush_time_step_file/NEMOGCM/NEMO/OPA_SRC/stpctl.F90 (modified) (1 diff)

branches/UKMO/dev_r5518_flush_time_step_file/NEMOGCM/NEMO/OPA_SRC/stpctl.F90

@@ -66 +66 @@
          CALL ctl_opn( numstp, 'time.step', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp, narea )
       ENDIF
-
-      IF(lwp) WRITE ( numstp, '(1x, i8)' )   kt      !* save the current time step in numstp
-      IF(lwp) REWIND( numstp )                       !  --------------------------
+      
+      IF(lwp) THEN
+         WRITE ( numstp, '(1x, i8)' )   kt      !* save the current time step in numstp
+         CALL FLUSH( numstp )
+         REWIND( numstp )
+      ENDIF
 
       !                                              !* Test maximum of velocity (zonal only)