- Timestamp:
- 2008-12-01T07:56:13+01:00 (15 years ago)
- Location:
- trunk/NEMO/LIM_SRC_2
- Files:
-
- 10 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/LIM_SRC_2/dom_ice_2.F90
r1156 r1228 18 18 19 19 LOGICAL, PUBLIC :: l_jeq = .TRUE. !: Equator inside the domain flag 20 LOGICAL, PUBLIC :: ln_limini = .FALSE. !: Ice initialization state21 LOGICAL, PUBLIC :: ln_limdmp = .FALSE. !: Ice damping22 20 23 21 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 20 20 PRIVATE 21 21 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 22 29 !!* ice-dynamic namelist (namicedyn) * 23 30 INTEGER , PUBLIC :: nbiter = 1 !: number of sub-time steps for relaxation -
trunk/NEMO/LIM_SRC_2/iceini_2.F90
r1156 r1228 30 30 PRIVATE 31 31 32 PUBLIC ice_init_2 ! called by opa.F9032 PUBLIC ice_init_2 ! called by sbcice_lim_2.F90 33 33 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 in38 ! ! north and south hemisphere39 34 !!---------------------------------------------------------------------- 40 35 !! LIM 2.0, UCL-LOCEAN-IPSL (2005) -
trunk/NEMO/LIM_SRC_2/limdyn_2.F90
r1156 r1228 22 22 USE ice_oce ! 23 23 USE dom_ice_2 ! 24 USE iceini_2 !25 24 USE limistate_2 ! 26 25 USE limrhg_2 ! ice rheology -
trunk/NEMO/LIM_SRC_2/limistate_2.F90
r1156 r1228 34 34 PUBLIC lim_istate_2 ! routine called by lim_init_2.F90 35 35 36 REAL(wp) :: &!!! ** init namelist (namiceini) **37 ttest = 2.0 , & ! threshold water temperature for initial sea ice38 hninn = 0.5 , & ! initial snow thickness in the north39 hginn = 3.0 , & ! initial icethickness in the north40 alinn = 0.05 , & ! initial leads areain the north41 hnins = 0.1 , & ! initial snow thickness in the south42 hgins = 1.0 , & ! initial icethickness in the south43 alins = 0.1 ! initial leads areain the south44 45 REAL(wp) :: & ! constant values46 zzero = 0.e0 , &47 zone = 1.e036 !!! ** 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 48 48 !!---------------------------------------------------------------------- 49 49 !! LIM 2.0, UCL-LOCEAN-IPSL (2006) -
trunk/NEMO/LIM_SRC_2/limsbc_2.F90
r1226 r1228 22 22 USE ice_oce ! sea-ice variable 23 23 USE ice_2 ! LIM sea-ice variables 24 USE iceini_2 ! ???25 24 USE dynspg_oce ! choice of the surface pressure gradient scheme 26 25 -
trunk/NEMO/LIM_SRC_2/limthd_2.F90
r1218 r1228 26 26 USE thd_ice_2 ! LIM thermodynamic sea-ice variables 27 27 USE dom_ice_2 ! LIM sea-ice domain 28 USE iceini_229 28 USE limthd_zdf_2 30 29 USE limthd_lac_2 -
trunk/NEMO/LIM_SRC_2/limthd_lac_2.F90
r1156 r1228 13 13 USE ice_oce ! ice variables 14 14 USE thd_ice_2 15 USE ice ini_215 USE ice_2 16 16 USE limistate_2 17 17 -
trunk/NEMO/LIM_SRC_2/limthd_zdf_2.F90
r1218 r1228 19 19 USE ice_oce ! ice variables 20 20 USE thd_ice_2 21 USE ice ini_221 USE ice_2 22 22 USE limistate_2 23 23 USE in_out_manager -
trunk/NEMO/LIM_SRC_2/limtrp_2.F90
r1156 r1228 19 19 USE dom_ice_2 20 20 USE ice_2 21 USE iceini_222 21 USE limistate_2 23 22 USE limadv_2
Note: See TracChangeset
for help on using the changeset viewer.