- Timestamp:
- 2012-02-25T16:50:01+01:00 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2012/dev_r3309_LOCEAN12_Ediag/NEMOGCM/NEMO/OPA_SRC/IOM/restart.F90
r3294 r3318 18 18 USE oce ! ocean dynamics and tracers 19 19 USE dom_oce ! ocean space and time domain 20 USE trd_oce ! ocean trend diagnostics 20 21 USE phycst ! physical constants 21 22 USE in_out_manager ! I/O manager … … 136 137 IF( kt == nitrst ) THEN 137 138 CALL iom_close( numrow ) ! close the restart file (only at last time step) 138 IF( .NOT. l k_trdmld ) lrst_oce = .FALSE.139 IF( .NOT. ln_tra_mld ) lrst_oce = .FALSE. 139 140 ENDIF 140 141 !
Note: See TracChangeset
for help on using the changeset viewer.