New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 1229 for trunk/NEMO/LIM_SRC_2 – NEMO

Changeset 1229 for trunk/NEMO/LIM_SRC_2


Ignore:
Timestamp:
2008-12-01T08:04:11+01:00 (15 years ago)
Author:
smasson
Message:

define restart names in the namelist, see ticket:258

Location:
trunk/NEMO/LIM_SRC_2
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMO/LIM_SRC_2/ice_2.F90

    r1228 r1229  
    2121 
    2222   !!* 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) 
    2325   LOGICAL               , PUBLIC ::   ln_limdyn     = .TRUE.             !: flag for ice dynamics (T) or not (F) 
    2426   LOGICAL               , PUBLIC ::   ln_limdmp     = .FALSE.            !: Ice damping 
  • trunk/NEMO/LIM_SRC_2/iceini_2.F90

    r1228 r1229  
    8888      !! ** input   :   Namelist namicerun 
    8989      !!------------------------------------------------------------------- 
    90       NAMELIST/namicerun/ ln_limdyn, ln_limdmp, acrit, hsndif, hicdif 
     90      NAMELIST/namicerun/ cn_icerst_in, cn_icerst_out, ln_limdyn, ln_limdmp, acrit, hsndif, hicdif 
    9191      !!------------------------------------------------------------------- 
    9292      !                     
  • trunk/NEMO/LIM_SRC_2/limrst_2.F90

    r1156 r1229  
    6565         ENDIF 
    6666         ! create the file 
    67          clname = TRIM(cexper)//"_"//TRIM(ADJUSTL(clkt))//"_restart_ice" 
     67         clname = TRIM(cexper)//"_"//TRIM(ADJUSTL(clkt))//"_"//TRIM(cn_icerst_out) 
    6868         IF(lwp) THEN 
    6969            WRITE(numout,*) 
     
    181181      ENDIF 
    182182 
    183       CALL iom_open ( 'restart_ice_in', numrir, kiolib = jprstlib ) 
     183      CALL iom_open ( cn_icerst_in, numrir, kiolib = jprstlib ) 
    184184 
    185185      CALL iom_get( numrir, 'kt_ice' , ziter ) 
Note: See TracChangeset for help on using the changeset viewer.