- Timestamp:
- 2017-12-12T00:32:40+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_CNRS_2017/NEMOGCM/NEMO/LIM_SRC_3/ice.F90
r8933 r8984 154 154 !!---------------------------------------------------------------------- 155 155 ! !!** ice-generic parameters namelist (nampar) ** 156 INTEGER , PUBLIC :: jpl !: number of ice categories157 INTEGER , PUBLIC :: nlay_i !: number of ice layers158 INTEGER , PUBLIC :: nlay_s !: number of snow layers159 INTEGER , PUBLIC :: nn_monocat !: virtual ITD mono-category parameterizations (1-4) or not (0)160 LOGICAL , PUBLIC :: ln_icedyn !: flag for ice dynamics (T) or not (F)161 LOGICAL , PUBLIC :: ln_icethd !: flag for ice thermo (T) or not (F)162 REAL(wp) , PUBLIC :: rn_amax_n !: maximum ice concentration Northern hemisphere163 REAL(wp) , PUBLIC :: rn_amax_s !: maximum ice concentration Southern hemisphere164 CHARACTER(len=256), PUBLIC :: cn_icerst_in !: suffix of ice restart name (input)165 CHARACTER(len=256), PUBLIC :: cn_icerst_out !: suffix of ice restart name (output)166 CHARACTER(len=256), PUBLIC :: cn_icerst_indir !: ice restart input directory167 CHARACTER(len=256), PUBLIC :: cn_icerst_outdir !: ice restart output directory156 INTEGER , PUBLIC :: jpl !: number of ice categories 157 INTEGER , PUBLIC :: nlay_i !: number of ice layers 158 INTEGER , PUBLIC :: nlay_s !: number of snow layers 159 INTEGER , PUBLIC :: nn_monocat !: virtual ITD mono-category parameterizations (1-4) or not (0) 160 LOGICAL , PUBLIC :: ln_icedyn !: flag for ice dynamics (T) or not (F) 161 LOGICAL , PUBLIC :: ln_icethd !: flag for ice thermo (T) or not (F) 162 REAL(wp) , PUBLIC :: rn_amax_n !: maximum ice concentration Northern hemisphere 163 REAL(wp) , PUBLIC :: rn_amax_s !: maximum ice concentration Southern hemisphere 164 CHARACTER(len=256), PUBLIC :: cn_icerst_in !: suffix of ice restart name (input) 165 CHARACTER(len=256), PUBLIC :: cn_icerst_out !: suffix of ice restart name (output) 166 CHARACTER(len=256), PUBLIC :: cn_icerst_indir !: ice restart input directory 167 CHARACTER(len=256), PUBLIC :: cn_icerst_outdir !: ice restart output directory 168 168 169 169 ! !!** ice-itd namelist (namitd) ** … … 192 192 ! ! =-1 Do nothing (needs N(cat) fluxes) 193 193 ! ! = 0 Average N(cat) fluxes then apply the average over the N(cat) ice 194 ! ! = 1 Average N(cat) fluxes then redistribute over the N(cat) ice 195 ! ! using T-ice and albedo sensitivity 194 ! ! = 1 Average N(cat) fluxes then redistribute over the N(cat) ice using T-ice and albedo sensitivity 196 195 ! ! = 2 Redistribute a single flux over categories 197 198 INTEGER , PUBLIC :: nice_jules !: Choice of jules coupling 199 ! ! Associated indices 200 INTEGER , PUBLIC, PARAMETER :: np_jules_OFF = 0 !: no Jules coupling (ice thermodynamics forced via qsr and qns) 201 INTEGER , PUBLIC, PARAMETER :: np_jules_EMULE = 1 !: emulated Jules coupling via icethd_zdf.F90 (BL99) (1st round compute qcn and qsr_tr, 2nd round use it) 202 INTEGER , PUBLIC, PARAMETER :: np_jules_ACTIVE = 2 !: active Jules coupling (SM0L) (compute qcn and qsr_tr via sbcblk.F90 or sbccpl.F90) 196 INTEGER , PUBLIC :: nice_jules !: Choice of jules coupling 197 INTEGER , PUBLIC, PARAMETER :: np_jules_OFF = 0 !: no Jules coupling (ice thermodynamics forced via qsr and qns) 198 INTEGER , PUBLIC, PARAMETER :: np_jules_EMULE = 1 !: emulated Jules coupling via icethd_zdf.F90 (BL99) (1st round compute qcn and qsr_tr, 2nd round use it) 199 INTEGER , PUBLIC, PARAMETER :: np_jules_ACTIVE = 2 !: active Jules coupling (SM0L) (compute qcn and qsr_tr via sbcblk.F90 or sbccpl.F90) 200 201 ! !!** ice-vertical diffusion namelist (namthd_zdf) ** 202 LOGICAL , PUBLIC :: ln_cndi_U64 !: thermal conductivity: Untersteiner (1964) 203 LOGICAL , PUBLIC :: ln_cndi_P07 !: thermal conductivity: Pringle et al (2007) 204 REAL(wp), PUBLIC :: rn_kappa_i !: coef. for the extinction of radiation Grenfell et al. (2006) [1/m] 205 REAL(wp), PUBLIC :: rn_cnd_s !: thermal conductivity of the snow [W/m/K] 203 206 204 207 ! !!** ice-salinity namelist (namthd_sal) ** … … 211 214 REAL(wp), PUBLIC :: rn_simin !: minimum ice salinity [PSU] 212 215 213 ! !!** namelist namthd_pnd216 ! !!** ice-ponds namelist (namthd_pnd) 214 217 LOGICAL , PUBLIC :: ln_pnd_H12 !: Melt ponds scheme from Holland et al 2012 215 218 LOGICAL , PUBLIC :: ln_pnd_fwb !: melt ponds store freshwater … … 255 258 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: wfx_snw !: snow-ocean mass exchange [kg.m-2.s-1] 256 259 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: wfx_snw_sni !: snow ice growth component of wfx_snw [kg.m-2.s-1] 257 ! MV MP 2016258 260 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: wfx_snw_sum !: surface melt component of wfx_snw [kg.m-2.s-1] 259 261 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: wfx_pnd !: melt pond-ocean mass exchange [kg.m-2.s-1] 260 ! END MV MP 2016261 262 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: wfx_spr !: snow precipitation on ice [kg.m-2.s-1] 262 263 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: wfx_sub !: sublimation of snow/ice [kg.m-2.s-1] … … 353 354 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:,:) :: sz_i !: ice salinity [PSU] 354 355 355 ! MV MP 2016356 356 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: a_ip !: melt pond fraction per grid cell area 357 357 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: v_ip !: melt pond volume per grid cell area [m] … … 361 361 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: at_ip !: total melt pond fraction 362 362 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: vt_ip !: total melt pond volume per unit area [m] 363 ! END MV MP 2016364 363 365 364 !!---------------------------------------------------------------------- … … 376 375 !! * Ice thickness distribution variables 377 376 !!---------------------------------------------------------------------- 378 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:) 379 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:) 377 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:) :: hi_max !: Boundary of ice thickness categories in thickness space 378 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:) :: hi_mean !: Mean ice thickness in catgories 380 379 ! 381 380 !!---------------------------------------------------------------------- … … 385 384 ! trp '' '' '' advection (transport of ice) 386 385 ! 387 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) 388 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) 389 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) 390 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) 391 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) 392 ! 393 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) 394 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) 395 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) 396 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) 386 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: diag_trp_vi !: transport of ice volume 387 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: diag_trp_vs !: transport of snw volume 388 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: diag_trp_ei !: transport of ice enthalpy (W/m2) 389 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: diag_trp_es !: transport of snw enthalpy (W/m2) 390 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: diag_trp_sv !: transport of salt content 391 ! 392 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: diag_heat !: snw/ice heat content variation [W/m2] 393 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: diag_sice !: ice salt content variation [] 394 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: diag_vice !: ice volume variation [m/s] 395 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: diag_vsnw !: snw volume variation [m/s] 397 396 398 397 ! … … 401 400 !!---------------------------------------------------------------------- 402 401 ! Extra sea ice diagnostics to address the data request 403 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:) 404 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) 405 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) 406 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) 402 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: t_si !: Temperature at Snow-ice interface (K) 403 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: tm_si !: mean temperature at the snow-ice interface (K) 404 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: diag_fc_bo !: Bottom conduction flux (W/m2) 405 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: diag_fc_su !: Surface conduction flux (W/m2) 407 406 408 407 !
Note: See TracChangeset
for help on using the changeset viewer.