Changeset 1229 for trunk/NEMO/LIM_SRC_3/limrst.F90

Timestamp:

2008-12-01T08:04:11+01:00 (15 years ago)

Author:

smasson

Message:

define restart names in the namelist, see ticket:258

File:

• trunk/NEMO/LIM_SRC_3/limrst.F90 (modified) (2 diffs)

trunk/NEMO/LIM_SRC_3/limrst.F90

@@ -65 +65 @@
          ENDIF
          ! create the file
-         clname = TRIM(cexper)//"_"//TRIM(ADJUSTL(clkt))//"_restart_ice"
+         clname = TRIM(cexper)//"_"//TRIM(ADJUSTL(clkt))//"_"//TRIM(cn_icerst_out)
          IF(lwp) THEN
             WRITE(numout,*)
@@ -405 +405 @@
       ENDIF
 
-      CALL iom_open ( 'restart_ice_in', numrir, kiolib = jprstlib )
+      CALL iom_open ( cn_icerst_in, numrir, kiolib = jprstlib )
 
       CALL iom_get( numrir, 'nn_fsbc', zfice )