Changeset 4624 for trunk/NEMOGCM/NEMO/OPA_SRC/step.F90
- Timestamp:
- 2014-04-28T14:09:03+02:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/OPA_SRC/step.F90
r4491 r4624 312 312 ENDIF 313 313 IF( kstp == nit000 ) THEN 314 CALL iom_close( numror ) ! close input ocean restart file315 CALL FLUSH ( numond ) ! flush output namelist oce316 CALL FLUSH ( numoni ) ! flush output namelist ice314 CALL iom_close( numror ) ! close input ocean restart file 315 IF(lwm) CALL FLUSH ( numond ) ! flush output namelist oce 316 IF(lwm) CALL FLUSH ( numoni ) ! flush output namelist ice 317 317 ENDIF 318 318 IF( lrst_oce ) CALL rst_write ( kstp ) ! write output ocean restart file
Note: See TracChangeset
for help on using the changeset viewer.