Changeset 579
- Timestamp:
- 2006-11-14T10:38:52+01:00 (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/restart.F90
r557 r579 27 27 USE zpshde ! partial step: hor. derivative (zps_hde routine) 28 28 USE eosbn2 ! equation of state (eos bn2 routine) 29 USE trdmld_oce ! ocean active mixed layer tracers trends variables 29 30 30 31 IMPLICIT NONE … … 36 37 37 38 LOGICAL, PUBLIC :: lrst_oce !: logical to control the oce restart write 38 INTEGER, PUBLIC :: numror, numrow , nummldw!: logical unit for cean restart (read and write)39 INTEGER, PUBLIC :: numror, numrow !: logical unit for cean restart (read and write) 39 40 40 41 !! * Substitutions … … 161 162 IF( kt == nitrst ) THEN 162 163 CALL iom_close( numrow ) ! close the restart file (only at last time step) 163 lrst_oce = .FALSE.164 IF( .NOT. lk_trdmld ) lrst_oce = .FALSE. 164 165 ENDIF 165 166 !
Note: See TracChangeset
for help on using the changeset viewer.