Changeset 4624 for trunk/NEMOGCM/NEMO/TOP_SRC/trcstp.F90
- Timestamp:
- 2014-04-28T14:09:03+02:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/TOP_SRC/trcstp.F90
r4306 r4624 97 97 IF( kt == nittrc000 ) THEN 98 98 CALL iom_close( numrtr ) ! close input tracer restart file 99 CALL FLUSH ( numont )! flush namelist output99 IF(lwm) CALL FLUSH( numont ) ! flush namelist output 100 100 ENDIF 101 101 IF( lrst_trc ) CALL trc_rst_wri ( kt ) ! write tracer restart file
Note: See TracChangeset
for help on using the changeset viewer.