Changeset 834 for trunk/NEMO/LIM_SRC_3/thd_ice.F90
- Timestamp:
- 2008-03-07T18:11:35+01:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/LIM_SRC_3/thd_ice.F90
r825 r834 17 17 PRIVATE 18 18 19 !!--------------------------- 19 20 !! * Share Module variables 21 !!--------------------------- 20 22 REAL(wp) , PUBLIC :: & !!! ** ice-thermo namelist (namicethd) ** 21 hmelt = -0.15 , & !: maximum melting at the bottom 22 hicmin = 0.2 , & !: ice th. corr. to max. ener. in brine pocket 23 hmelt = -0.15 , & !: maximum melting at the bottom; active only for 24 !: one category 25 hicmin = 0.2 , & !: (REMOVE) 23 26 hiclim = 0.05 , & !: minimum ice thickness 24 27 amax = 0.999 , & !: maximum lead fraction 25 sbeta = 1.0 , & !: numerical scheme for diffusion in ice 26 parlat = 0.0 , & !: percent. of energy used for lateral ablation27 hakspl = 0.5 , & !: slope of distr. for Hakkinen-Mellro's lat. melt28 hibspl = 0.5 , & !: slope of distribution for Hibler's lat. melt29 exld = 2.0 , & !: exponent for leads-closure rate30 hakdif = 1.0 , & !: coefficient for diffusions of ice and snow31 thth = 0.2 , & !: thick. for comp. of eq. thermal conduct28 sbeta = 1.0 , & !: numerical scheme for diffusion in ice (REMOVE) 29 parlat = 0.0 , & !: (REMOVE) 30 hakspl = 0.5 , & !: (REMOVE) 31 hibspl = 0.5 , & !: (REMOVE) 32 exld = 2.0 , & !: (REMOVE) 33 hakdif = 1.0 , & !: (REMOVE) 34 thth = 0.2 , & !: (REMOVE) 32 35 hnzst = 0.1 , & !: thick. of the surf. layer in temp. comp. 33 36 parsub = 1.0 , & !: switch for snow sublimation or not … … 41 44 hiccrit = (/0.3,0.3/) !: ice th. for lateral accretion in the NH (SH) (m) 42 45 43 REAL(wp) , PUBLIC :: & !: 44 uscomi !: inverse of minimum lead fraction 46 !!----------------------------- 47 !! * Share 1D Module variables 48 !!----------------------------- 49 !: In ice thermodynamics, to spare memory, the vectors are folded 50 !: from 1D to 2D vectors. The following variables, with ending _1d (or _b) 51 !: are the variables corresponding to 2d vectors 45 52 46 53 INTEGER , PUBLIC, DIMENSION(jpij) :: & !: 47 54 npb , & !: number of points where computations has to be done 48 npac !: correspondance between the points 55 npac !: correspondance between the points (lateral accretion) 49 56 50 57 REAL(wp), PUBLIC, DIMENSION(jpij) :: & !: … … 123 130 q_s_b !: Snow enthalpy per unit volume 124 131 125 ! goes to trash, just for conservation checks 126 REAL(wp), PUBLIC, DIMENSION(jpij,jpl) :: & !: ! goes to trash 132 ! Clean the following ... 133 ! These variables are coded for conservation checks 134 REAL(wp), PUBLIC, DIMENSION(jpij,jpl) :: & ! 127 135 qt_i_in , & !: ice energy summed over categories (initial) 128 136 qt_i_fin , & !: ice energy summed over categories (final)
Note: See TracChangeset
for help on using the changeset viewer.