Changeset 1283 for trunk/NEMO/TOP_SRC/TRP/trdmld_trc_rst.F90
- Timestamp:
- 2009-02-03T14:15:21+01:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/TOP_SRC/TRP/trdmld_trc_rst.F90
r1258 r1283 51 51 WRITE(clkt,'(i8.8)') nitrst 52 52 ENDIF 53 clname = TRIM(cexper)//"_"//TRIM(ADJUSTL(clkt))//"_ restart_mld_trc"53 clname = TRIM(cexper)//"_"//TRIM(ADJUSTL(clkt))//"_"//TRIM(cn_trdrst_trc_out) 54 54 IF(lwp) WRITE(numout,*) ' open ocean restart_mld_trc NetCDF '//clname 55 55 CALL iom_open( clname, nummldw_trc, ldwrt = .TRUE., kiolib = jprstlib ) … … 140 140 ENDIF 141 141 142 CALL iom_open( 'restart_mld_trc', inum, kiolib = jprstlib )142 CALL iom_open( cn_trdrst_trc_in, inum, kiolib = jprstlib ) 143 143 144 144 IF( ln_trdmld_trc_instant ) THEN
Note: See TracChangeset
for help on using the changeset viewer.