Changeset 576 for trunk/NEMO/OPA_SRC
- Timestamp:
- 2006-11-14T09:04:54+01:00 (17 years ago)
- Location:
- trunk/NEMO/OPA_SRC/TRD
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/TRD/trdmld.F90
r557 r576 231 231 !! 232 232 INTEGER :: ji, jj, jk, jl, ik, it 233 LOGICAL :: lldebug = . FALSE.233 LOGICAL :: lldebug = .TRUE. 234 234 REAL(wp) :: zavt, zfn, zfn2 235 235 REAL(wp) ,DIMENSION(jpi,jpj) :: & … … 248 248 !!---------------------------------------------------------------------- 249 249 250 ! ======================================================================251 ! 0. open restart trend when needed (at kt == nitrst-1)252 ! ======================================================================253 IF( kt == nitrst-1 ) THEN254 clname = TRIM(cexper)//"_"//TRIM(ADJUSTL(clkt))//"_restart_mld"255 IF(lwp) WRITE(numout,*) ' open ocean restart_mld NetCDF file: '//clname256 CALL iom_open( clname, nummldw, ldwrt = .TRUE., kiolib = jprstlib )257 ENDIF258 250 259 251 ! ====================================================================== -
trunk/NEMO/OPA_SRC/TRD/trdmld_rst.F90
r557 r576 13 13 USE daymod ! calendar 14 14 USE iom ! I/O module 15 USE restart ! only for lrst_oce 15 16 16 17 IMPLICIT NONE … … 103 104 ENDIF 104 105 ! 105 CALL iom_close( nummldw ) ! close the restart file (only at last time step) 106 IF( kt == nitrst ) THEN 107 CALL iom_close( nummldw ) ! close the restart file (only at last time step) 108 lrst_oce = .FALSE. 109 ENDIF 106 110 ! 107 111 !
Note: See TracChangeset
for help on using the changeset viewer.