Changeset 15639
- Timestamp:
- 2022-01-12T18:13:02+01:00 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_package_flush/NEMOGCM/NEMO/OPA_SRC/stpctl.F90
r12233 r15639 84 84 IF(lwm .AND. ll_wrtstp) THEN 85 85 WRITE ( numstp, '(1x, i8)' ) kt !* save the current time step in numstp 86 CALL FLUSH( numstp ) 86 87 REWIND( numstp ) ! -------------------------- 87 88 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.
