Changeset 521 for trunk/NEMO/OPA_SRC/restart.F90
- Timestamp:
- 2006-10-11T16:45:09+02:00 (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/restart.F90
r508 r521 24 24 USE in_out_manager ! I/O manager 25 25 USE iom ! I/O module 26 USE trdmld_oce ! ! ocean active mixed layer tracers trends variables 26 27 27 28 IMPLICIT NONE … … 32 33 PUBLIC rst_read ! routine called by opa module 33 34 34 LOGICAL, PUBLIC :: lrst_oce !: logical to control the oce restart write35 INTEGER, PUBLIC :: nitrst !: time step at which restart file should be written36 INTEGER, PUBLIC :: numror, numrow !: logical unit for cean restart (read and write)35 LOGICAL, PUBLIC :: lrst_oce !: logical to control the oce restart write 36 INTEGER, PUBLIC :: nitrst !: time step at which restart file should be written 37 INTEGER, PUBLIC :: numror, numrow, nummldw !: logical unit for cean restart (read and write) 37 38 38 39 !! * Substitutions … … 82 83 IF(lwp) WRITE(numout,*) ' open ocean restart.output NetCDF file: '//clname 83 84 CALL iom_open( clname, numrow, ldwrt = .TRUE. ) 85 IF( lk_trdmld ) THEN 86 clname = TRIM(cexper)//"_"//TRIM(ADJUSTL(clkt))//"_restart_mld" 87 IF(lwp) WRITE(numout,*) ' open ocean restart_mld NetCDF file: '//clname 88 CALL iom_open( clname, nummldw, ldwrt = .TRUE. ) 89 ENDIF 84 90 lrst_oce = .TRUE. 85 91 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.