Changeset 1229 for trunk/NEMO/LIM_SRC_2
- Timestamp:
- 2008-12-01T08:04:11+01:00 (15 years ago)
- Location:
- trunk/NEMO/LIM_SRC_2
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/LIM_SRC_2/ice_2.F90
r1228 r1229 21 21 22 22 !!* Share parameters namelist (namicerun read in iceini) * 23 CHARACTER(len=32) , PUBLIC :: cn_icerst_in = "restart_ice_in" !: suffix of ice restart name (input) 24 CHARACTER(len=32) , PUBLIC :: cn_icerst_out = "restart_ice" !: suffix of ice restart name (output) 23 25 LOGICAL , PUBLIC :: ln_limdyn = .TRUE. !: flag for ice dynamics (T) or not (F) 24 26 LOGICAL , PUBLIC :: ln_limdmp = .FALSE. !: Ice damping -
trunk/NEMO/LIM_SRC_2/iceini_2.F90
r1228 r1229 88 88 !! ** input : Namelist namicerun 89 89 !!------------------------------------------------------------------- 90 NAMELIST/namicerun/ ln_limdyn, ln_limdmp, acrit, hsndif, hicdif90 NAMELIST/namicerun/ cn_icerst_in, cn_icerst_out, ln_limdyn, ln_limdmp, acrit, hsndif, hicdif 91 91 !!------------------------------------------------------------------- 92 92 ! -
trunk/NEMO/LIM_SRC_2/limrst_2.F90
r1156 r1229 65 65 ENDIF 66 66 ! create the file 67 clname = TRIM(cexper)//"_"//TRIM(ADJUSTL(clkt))//"_ restart_ice"67 clname = TRIM(cexper)//"_"//TRIM(ADJUSTL(clkt))//"_"//TRIM(cn_icerst_out) 68 68 IF(lwp) THEN 69 69 WRITE(numout,*) … … 181 181 ENDIF 182 182 183 CALL iom_open ( 'restart_ice_in', numrir, kiolib = jprstlib )183 CALL iom_open ( cn_icerst_in, numrir, kiolib = jprstlib ) 184 184 185 185 CALL iom_get( numrir, 'kt_ice' , ziter )
Note: See TracChangeset
for help on using the changeset viewer.