- Timestamp:
- 2017-09-08T19:53:20+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/ice.F90
r8514 r8516 163 163 CHARACTER(len=256), PUBLIC :: cn_icerst_indir !: ice restart input directory 164 164 CHARACTER(len=256), PUBLIC :: cn_icerst_outdir!: ice restart output directory 165 166 ! !!** ice-itd namelist (namice_itd) ** 167 REAL(wp), PUBLIC :: rn_himin !: minimum ice thickness 165 168 166 ! !!** ice-diagnostics namelist (namice_dia) ** 167 LOGICAL , PUBLIC :: ln_icediachk !: flag for ice diag (T) or not (F) 168 LOGICAL , PUBLIC :: ln_icediahsb !: flag for ice diag (T) or not (F) 169 LOGICAL , PUBLIC :: ln_icectl !: flag for sea-ice points output (T) or not (F) 170 INTEGER , PUBLIC :: iiceprt !: debug i-point 171 INTEGER , PUBLIC :: jiceprt !: debug j-point 172 173 ! !!** ice-dynamics namelist (namicedyn) ** 169 ! !!** ice-dynamics namelist (namice_dyn) ** 174 170 LOGICAL , PUBLIC :: ln_icedyn !: flag for ice dynamics (T) or not (F) 175 171 INTEGER , PUBLIC :: nn_icedyn !: flag for ice dynamics 176 172 REAL(wp), PUBLIC :: rn_uice !: prescribed u-vel (case nn_icedyn=0) 177 173 REAL(wp), PUBLIC :: rn_vice !: prescribed v-vel (case nn_icedyn=0) 178 ! -- iceadv -- ! 179 LOGICAL , PUBLIC :: ln_adv_Pra !: Prather advection scheme 180 LOGICAL , PUBLIC :: ln_adv_UMx !: Ultimate-Macho advection scheme 181 INTEGER , PUBLIC :: nn_UMx !: order of the UMx advection scheme 182 ! -- icerdgrft -- ! 174 REAL(wp), PUBLIC :: rn_ishlat !: lateral boundary condition for sea-ice 175 REAL(wp), PUBLIC :: rn_cio !: drag coefficient for oceanic stress 176 LOGICAL , PUBLIC :: ln_landfast !: landfast ice parameterization (T or F) 177 REAL(wp), PUBLIC :: rn_gamma !: fraction of ocean depth that ice must reach to initiate landfast ice 178 REAL(wp), PUBLIC :: rn_icebfr !: maximum bottom stress per unit area of contact (landfast ice) 179 REAL(wp), PUBLIC :: rn_lfrelax !: relaxation time scale (s-1) to reach static friction (landfast ice) 180 ! 181 ! !!** ice-rdige/raft namelist (namice_rdgrft) ** 183 182 LOGICAL , PUBLIC :: ln_str_H79 !: ice strength parameterization (Hibler79) 184 183 REAL(wp), PUBLIC :: rn_pstar !: determines ice strength, Hibler JPO79 … … 186 185 LOGICAL , PUBLIC :: ln_str_R75 !: ice strength parameterization (Rothrock75) 187 186 REAL(wp), PUBLIC :: rn_perdg !: ridging work divided by pot. energy change in ridging 188 ! -- icerhg --!189 REAL(wp), PUBLIC :: rn_ishlat !: lateral boundary condition for sea-ice190 REAL(wp), PUBLIC :: rn_cio !: drag coefficient for oceanic stress187 ! 188 ! !!** ice-rheology namelist (namice_rhg) ** 189 LOGICAL , PUBLIC :: ln_rhg_EVP !: EVP rheology 191 190 REAL(wp), PUBLIC :: rn_creepl !: creep limit : has to be under 1.0e-9 192 191 REAL(wp), PUBLIC :: rn_ecc !: eccentricity of the elliptical yield curve 193 192 INTEGER , PUBLIC :: nn_nevp !: number of iterations for subcycling 194 193 REAL(wp), PUBLIC :: rn_relast !: ratio => telast/rdt_ice (1/3 or 1/9 depending on nb of subcycling nevp) 195 LOGICAL , PUBLIC :: ln_landfast !: landfast ice parameterization (T or F) 196 REAL(wp), PUBLIC :: rn_gamma !: fraction of ocean depth that ice must reach to initiate landfast ice 197 REAL(wp), PUBLIC :: rn_icebfr !: maximum bottom stress per unit area of contact (landfast ice) 198 REAL(wp), PUBLIC :: rn_lfrelax !: relaxation time scale (s-1) to reach static friction (landfast ice) 199 194 ! 195 ! !!** ice-advection namelist (namice_adv) ** 196 LOGICAL , PUBLIC :: ln_adv_Pra !: Prather advection scheme 197 LOGICAL , PUBLIC :: ln_adv_UMx !: Ultimate-Macho advection scheme 198 INTEGER , PUBLIC :: nn_UMx !: order of the UMx advection scheme 199 ! 200 200 ! !!** ice-thermodynamics namelist (namice_thd) ** 201 201 LOGICAL , PUBLIC :: ln_icethd !: flag for ice thermo (T) or not (F) … … 221 221 REAL(wp), PUBLIC :: rn_vfraz !: threshold drift speed for collection of bottom frazil ice 222 222 REAL(wp), PUBLIC :: rn_Cfraz !: squeezing coefficient for collection of bottom frazil ice 223 ! -- iceitd_th -- ! 224 REAL(wp), PUBLIC :: rn_himin !: minimum ice thickness 225 ! -- -- ! 223 ! -- icethd -- ! 226 224 INTEGER , PUBLIC :: nn_iceflx !: Redistribute heat flux over ice categories 227 225 ! ! =-1 Do nothing (needs N(cat) fluxes) … … 254 252 REAL(wp), PUBLIC :: rn_hpnd !: prescribed pond depth (0<rn_hpnd<1), only if nn_pnd_scheme = 0 255 253 ! END MV MP 2016 254 ! !!** ice-diagnostics namelist (namice_dia) ** 255 LOGICAL , PUBLIC :: ln_icediachk !: flag for ice diag (T) or not (F) 256 LOGICAL , PUBLIC :: ln_icediahsb !: flag for ice diag (T) or not (F) 257 LOGICAL , PUBLIC :: ln_icectl !: flag for sea-ice points output (T) or not (F) 258 INTEGER , PUBLIC :: iiceprt !: debug i-point 259 INTEGER , PUBLIC :: jiceprt !: debug j-point 256 260 257 261 ! !!** some other parameters
Note: See TracChangeset
for help on using the changeset viewer.