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 3901 for branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/LIM_SRC_2/limistate_2.F90 – NEMO

Ignore:
Timestamp:
2013-05-03T14:35:21+02:00 (11 years ago)
Author:
clevy
Message:

Configuration Setting/Step2, see ticket:#1074

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/LIM_SRC_2/limistate_2.F90

    r3875 r3901  
    3434   PUBLIC lim_istate_2      ! routine called by lim_init_2.F90 
    3535 
    36    !!! ** init namelist (namiceini) ** 
    37    LOGICAL  ::   ln_limini = .FALSE.  !: Ice initialization state 
    38    REAL(wp) ::   ttest     = 2.0      ! threshold water temperature for initial sea ice 
    39    REAL(wp) ::   hninn     = 0.5      ! initial snow thickness in the north 
    40    REAL(wp) ::   hginn     = 3.0      ! initial ice thickness in the north 
    41    REAL(wp) ::   alinn     = 0.05     ! initial leads area in the north 
    42    REAL(wp) ::   hnins     = 0.1      ! initial snow thickness in the south 
    43    REAL(wp) ::   hgins     = 1.0      ! initial ice thickness in the south 
    44    REAL(wp) ::   alins     = 0.1      ! initial leads area in the south 
     36   !!! ** namelist (namiceini) ** 
     37   LOGICAL  ::   ln_limini   !: Ice initialization state 
     38   REAL(wp) ::   ttest       ! threshold water temperature for initial sea ice 
     39   REAL(wp) ::   hninn       ! initial snow thickness in the north 
     40   REAL(wp) ::   hginn       ! initial ice thickness in the north 
     41   REAL(wp) ::   alinn       ! initial leads area in the north 
     42   REAL(wp) ::   hnins       ! initial snow thickness in the south 
     43   REAL(wp) ::   hgins       ! initial ice thickness in the south 
     44   REAL(wp) ::   alins       ! initial leads area in the south 
    4545    
    4646   REAL(wp) ::   zero      = 0.e0     ! constant value = 0 
Note: See TracChangeset for help on using the changeset viewer.