Changeset 8683


Ignore:
Timestamp:
2017-11-09T12:32:27+01:00 (4 years ago)
Author:
dancopsey
Message:

Add flush statement in between the write and rewind statements.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_flush_time_step_file/NEMOGCM/NEMO/OPA_SRC/stpctl.F90

    r8682 r8683  
    6666         CALL ctl_opn( numstp, 'time.step', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp, narea ) 
    6767      ENDIF 
    68  
    69       IF(lwp) WRITE ( numstp, '(1x, i8)' )   kt      !* save the current time step in numstp 
    70       IF(lwp) REWIND( numstp )                       !  -------------------------- 
     68       
     69      IF(lwp) THEN 
     70         WRITE ( numstp, '(1x, i8)' )   kt      !* save the current time step in numstp 
     71         CALL FLUSH( numstp ) 
     72         REWIND( numstp ) 
     73      ENDIF 
    7174 
    7275      !                                              !* Test maximum of velocity (zonal only) 
Note: See TracChangeset for help on using the changeset viewer.