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 1228 – NEMO

Changeset 1228


Ignore:
Timestamp:
2008-12-01T07:56:13+01:00 (15 years ago)
Author:
smasson
Message:

cleanning related to lim2 namelist, prepare changeset: 1229, see ticket:258

Location:
trunk/NEMO/LIM_SRC_2
Files:
10 edited

Legend:

Unmodified
Added
Removed

  • trunk/NEMO/LIM_SRC_2/dom_ice_2.F90

    r1156 r1228  
    1818 
    1919   LOGICAL, PUBLIC ::   l_jeq     = .TRUE.     !: Equator inside the domain flag 
    20    LOGICAL, PUBLIC ::   ln_limini = .FALSE.    !: Ice initialization state 
    21    LOGICAL, PUBLIC ::   ln_limdmp = .FALSE.    !: Ice damping 
    2220 
    2321   INTEGER, PUBLIC ::   njeq , njeqm1          !: j-index of the equator if it is inside the domain 

  • trunk/NEMO/LIM_SRC_2/ice_2.F90

    r1156 r1228  
    2020   PRIVATE 
    2121 
     22   !!* Share parameters namelist (namicerun read in iceini) * 
     23   LOGICAL               , PUBLIC ::   ln_limdyn     = .TRUE.             !: flag for ice dynamics (T) or not (F) 
     24   LOGICAL               , PUBLIC ::   ln_limdmp     = .FALSE.            !: Ice damping 
     25   REAL(wp)              , PUBLIC ::   hsndif        = 0.e0               !: computation of temp. in snow (0) or not (9999) 
     26   REAL(wp)              , PUBLIC ::   hicdif        = 0.e0               !: computation of temp. in ice (0) or not (9999) 
     27   REAL(wp), DIMENSION(2), PUBLIC ::   acrit = (/ 1.e-06 , 1.e-06 /)      !: minimum fraction for leads in  
     28   !                                                                      !: north and south hemisphere 
    2229   !!* ice-dynamic namelist (namicedyn) * 
    2330   INTEGER , PUBLIC ::   nbiter = 1         !: number of sub-time steps for relaxation 

  • trunk/NEMO/LIM_SRC_2/iceini_2.F90

    r1156 r1228  
    3030   PRIVATE 
    3131 
    32    PUBLIC   ice_init_2               ! called by opa.F90 
     32   PUBLIC   ice_init_2               ! called by sbcice_lim_2.F90 
    3333 
    34    LOGICAL , PUBLIC               ::   ln_limdyn = .TRUE.   !: flag for ice dynamics (T) or not (F) 
    35    REAL(wp), PUBLIC               ::   hsndif = 0.e0        !: computation of temp. in snow (0) or not (9999) 
    36    REAL(wp), PUBLIC               ::   hicdif = 0.e0        !: computation of temp. in ice (0) or not (9999) 
    37    REAL(wp), PUBLIC, DIMENSION(2) ::   acrit  = (/ 1.e-06 , 1.e-06 /)    !: minimum fraction for leads in  
    38       !                                                                  !  north and south hemisphere 
    3934   !!---------------------------------------------------------------------- 
    4035   !!   LIM 2.0,  UCL-LOCEAN-IPSL (2005)  

  • trunk/NEMO/LIM_SRC_2/limdyn_2.F90

    r1156 r1228  
    2222   USE ice_oce        ! 
    2323   USE dom_ice_2      ! 
    24    USE iceini_2       ! 
    2524   USE limistate_2    ! 
    2625   USE limrhg_2       ! ice rheology 

  • trunk/NEMO/LIM_SRC_2/limistate_2.F90

    r1156 r1228  
    3434   PUBLIC lim_istate_2      ! routine called by lim_init_2.F90 
    3535 
    36    REAL(wp) ::           &  !!! ** init namelist (namiceini) ** 
    37       ttest  = 2.0  ,    &  ! threshold water temperature for initial sea ice 
    38       hninn  = 0.5  ,    &  ! initial snow thickness in the north 
    39       hginn  = 3.0  ,    &  ! initial ice thickness in the north 
    40       alinn  = 0.05 ,    &  ! initial leads area in the north 
    41       hnins  = 0.1  ,    &  ! initial snow thickness in the south 
    42       hgins  = 1.0  ,    &  ! initial ice thickness in the south 
    43       alins  = 0.1          ! initial leads area in the south 
    44  
    45    REAL(wp)  ::          &  ! constant values 
    46       zzero   = 0.e0  ,  & 
    47       zone    = 1.e0 
     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 
     45    
     46   REAL(wp) ::   zero      = 0.e0     ! constant value = 0 
     47   REAL(wp) ::   zone      = 1.e0     ! constant value = 1 
    4848   !!---------------------------------------------------------------------- 
    4949   !!   LIM 2.0,  UCL-LOCEAN-IPSL (2006)  

  • trunk/NEMO/LIM_SRC_2/limsbc_2.F90

    r1226 r1228  
    2222   USE ice_oce          ! sea-ice variable 
    2323   USE ice_2            ! LIM sea-ice variables 
    24    USE iceini_2         ! ??? 
    2524   USE dynspg_oce       ! choice of the surface pressure gradient scheme  
    2625 

  • trunk/NEMO/LIM_SRC_2/limthd_2.F90

    r1218 r1228  
    2626   USE thd_ice_2       ! LIM thermodynamic sea-ice variables 
    2727   USE dom_ice_2       ! LIM sea-ice domain 
    28    USE iceini_2 
    2928   USE limthd_zdf_2 
    3029   USE limthd_lac_2 

  • trunk/NEMO/LIM_SRC_2/limthd_lac_2.F90

    r1156 r1228  
    1313   USE ice_oce          ! ice variables 
    1414   USE thd_ice_2 
    15    USE iceini_2 
     15   USE ice_2 
    1616   USE limistate_2  
    1717      

  • trunk/NEMO/LIM_SRC_2/limthd_zdf_2.F90

    r1218 r1228  
    1919   USE ice_oce          ! ice variables 
    2020   USE thd_ice_2 
    21    USE iceini_2 
     21   USE ice_2 
    2222   USE limistate_2 
    2323   USE in_out_manager 

  • trunk/NEMO/LIM_SRC_2/limtrp_2.F90

    r1156 r1228  
    1919   USE dom_ice_2 
    2020   USE ice_2 
    21    USE iceini_2 
    2221   USE limistate_2 
    2322   USE limadv_2 
Note: See TracChangeset for help on using the changeset viewer.