[3875] | 1 | !!>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> |
---|
[12377] | 2 | !! SI3 Reference namelist: |
---|
[9019] | 3 | !! 1 - Generic parameters (nampar) |
---|
| 4 | !! 2 - Ice thickness discretization (namitd) |
---|
| 5 | !! 3 - Ice dynamics (namdyn) |
---|
| 6 | !! 4 - Ice ridging/rafting (namdyn_rdgrft) |
---|
| 7 | !! 5 - Ice rheology (namdyn_rhg) |
---|
| 8 | !! 6 - Ice advection (namdyn_adv) |
---|
[10535] | 9 | !! 7 - Ice surface boundary conditions (namsbc) |
---|
[9019] | 10 | !! 8 - Ice thermodynamics (namthd) |
---|
| 11 | !! 9 - Ice heat diffusion (namthd_zdf) |
---|
| 12 | !! 10 - Ice lateral melting (namthd_da) |
---|
| 13 | !! 11 - Ice growth in open water (namthd_do) |
---|
| 14 | !! 12 - Ice salinity (namthd_sal) |
---|
| 15 | !! 13 - Ice melt ponds (namthd_pnd) |
---|
| 16 | !! 14 - Ice initialization (namini) |
---|
| 17 | !! 15 - Ice/snow albedos (namalb) |
---|
| 18 | !! 16 - Ice diagnostics (namdia) |
---|
[7646] | 19 | !!>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> |
---|
[5124] | 20 | ! |
---|
| 21 | !------------------------------------------------------------------------------ |
---|
[9019] | 22 | &nampar ! Generic parameters |
---|
[5124] | 23 | !------------------------------------------------------------------------------ |
---|
[9019] | 24 | jpl = 5 ! number of ice categories |
---|
| 25 | nlay_i = 2 ! number of ice layers |
---|
| 26 | nlay_s = 1 ! number of snow layers (only 1 is working) |
---|
[10532] | 27 | ln_virtual_itd = .false. ! virtual ITD mono-category parameterization (jpl=1 only) |
---|
[10531] | 28 | ! i.e. enhanced thermal conductivity & virtual thin ice melting |
---|
[9019] | 29 | ln_icedyn = .true. ! ice dynamics (T) or not (F) |
---|
| 30 | ln_icethd = .true. ! ice thermo (T) or not (F) |
---|
| 31 | rn_amax_n = 0.997 ! maximum tolerated ice concentration NH |
---|
| 32 | rn_amax_s = 0.997 ! maximum tolerated ice concentration SH |
---|
| 33 | cn_icerst_in = "restart_ice" ! suffix of ice restart name (input) |
---|
| 34 | cn_icerst_out = "restart_ice" ! suffix of ice restart name (output) |
---|
| 35 | cn_icerst_indir = "." ! directory to read input ice restarts |
---|
| 36 | cn_icerst_outdir = "." ! directory to write output ice restarts |
---|
[3875] | 37 | / |
---|
[5124] | 38 | !------------------------------------------------------------------------------ |
---|
[9019] | 39 | &namitd ! Ice discretization |
---|
[7646] | 40 | !------------------------------------------------------------------------------ |
---|
[9019] | 41 | ln_cat_hfn = .true. ! ice categories are defined by a function following rn_himean**(-0.05) |
---|
| 42 | rn_himean = 2.0 ! expected domain-average ice thickness (m) |
---|
| 43 | ln_cat_usr = .false. ! ice categories are defined by rn_catbnd below (m) |
---|
| 44 | rn_catbnd = 0.,0.45,1.1,2.1,3.7,6.0 |
---|
[13798] | 45 | rn_himin = 0.1 ! minimum ice thickness (m) allowed |
---|
| 46 | rn_himax = 99.0 ! maximum ice thickness (m) allowed |
---|
[7646] | 47 | / |
---|
| 48 | !------------------------------------------------------------------------------ |
---|
[9019] | 49 | &namdyn ! Ice dynamics |
---|
[5124] | 50 | !------------------------------------------------------------------------------ |
---|
[10413] | 51 | ln_dynALL = .true. ! dyn.: full ice dynamics (rheology + advection + ridging/rafting + correction) |
---|
| 52 | ln_dynRHGADV = .false. ! dyn.: no ridge/raft & no corrections (rheology + advection) |
---|
| 53 | ln_dynADV1D = .false. ! dyn.: only advection 1D (Schar & Smolarkiewicz 1996 test case) |
---|
| 54 | ln_dynADV2D = .false. ! dyn.: only advection 2D w prescribed vel.(rn_uvice + advection) |
---|
| 55 | rn_uice = 0.5 ! prescribed ice u-velocity |
---|
| 56 | rn_vice = 0.5 ! prescribed ice v-velocity |
---|
| 57 | rn_ishlat = 2. ! lbc : free slip (0) ; partial slip (0-2) ; no slip (2) ; strong slip (>2) |
---|
| 58 | ln_landfast_L16 = .false. ! landfast: parameterization from Lemieux 2016 |
---|
[13798] | 59 | rn_lf_depfra = 0.125 ! fraction of ocean depth that ice must reach to initiate landfast |
---|
[11649] | 60 | ! recommended range: [0.1 ; 0.25] |
---|
[13798] | 61 | rn_lf_bfr = 15. ! maximum bottom stress per unit volume [N/m3] |
---|
| 62 | rn_lf_relax = 1.e-5 ! relaxation time scale to reach static friction [s-1] |
---|
| 63 | rn_lf_tensile = 0.05 ! isotropic tensile strength [0-0.5??] |
---|
[3875] | 64 | / |
---|
[5124] | 65 | !------------------------------------------------------------------------------ |
---|
[9019] | 66 | &namdyn_rdgrft ! Ice ridging/rafting |
---|
[5124] | 67 | !------------------------------------------------------------------------------ |
---|
[9019] | 68 | ! -- ice_rdgrft_strength -- ! |
---|
| 69 | ln_str_H79 = .true. ! ice strength param.: Hibler_79 => P = pstar*<h>*exp(-c_rhg*A) |
---|
| 70 | rn_pstar = 2.0e+04 ! ice strength thickness parameter [N/m2] |
---|
[12377] | 71 | rn_crhg = 20.0 ! ice strength conc. parameter (-) |
---|
[9019] | 72 | ! -- ice_rdgrft -- ! |
---|
| 73 | rn_csrdg = 0.5 ! fraction of shearing energy contributing to ridging |
---|
| 74 | ! -- ice_rdgrft_prep -- ! |
---|
| 75 | ln_partf_lin = .false. ! Linear ridging participation function (Thorndike et al, 1975) |
---|
| 76 | rn_gstar = 0.15 ! fractional area of thin ice being ridged |
---|
| 77 | ln_partf_exp = .true. ! Exponential ridging participation function (Lipscomb, 2007) |
---|
| 78 | rn_astar = 0.03 ! exponential measure of ridging ice fraction [set to 0.05 if hstar=100] |
---|
| 79 | ln_ridging = .true. ! ridging activated (T) or not (F) |
---|
| 80 | rn_hstar = 25.0 ! determines the maximum thickness of ridged ice [m] (Hibler, 1980) |
---|
| 81 | rn_porordg = 0.3 ! porosity of newly ridged ice (Lepparanta et al., 1995) |
---|
| 82 | rn_fsnwrdg = 0.5 ! snow volume fraction that survives in ridging |
---|
| 83 | rn_fpndrdg = 1.0 ! pond fraction that survives in ridging (small a priori) |
---|
| 84 | ln_rafting = .true. ! rafting activated (T) or not (F) |
---|
| 85 | rn_hraft = 0.75 ! threshold thickness for rafting [m] |
---|
| 86 | rn_craft = 5.0 ! squeezing coefficient used in the rafting function |
---|
| 87 | rn_fsnwrft = 0.5 ! snow volume fraction that survives in rafting |
---|
| 88 | rn_fpndrft = 1.0 ! pond fraction that survives in rafting (0.5 a priori) |
---|
[3875] | 89 | / |
---|
[5124] | 90 | !------------------------------------------------------------------------------ |
---|
[9019] | 91 | &namdyn_rhg ! Ice rheology |
---|
[5124] | 92 | !------------------------------------------------------------------------------ |
---|
[9019] | 93 | ln_rhg_EVP = .true. ! EVP rheology |
---|
[13798] | 94 | ln_aEVP = .true. ! adaptive rheology (Kimmritz et al. 2016 & 2017) |
---|
[9019] | 95 | rn_creepl = 2.0e-9 ! creep limit [1/s] |
---|
| 96 | rn_ecc = 2.0 ! eccentricity of the elliptical yield curve |
---|
[13798] | 97 | nn_nevp = 100 ! number of EVP subcycles |
---|
[9019] | 98 | rn_relast = 0.333 ! ratio of elastic timescale to ice time step: Telast = dt_ice * rn_relast |
---|
[13798] | 99 | ! advised value: 1/3 (nn_nevp=100) or 1/9 (nn_nevp=300) |
---|
| 100 | nn_rhg_chkcvg = 0 ! check convergence of rheology |
---|
| 101 | ! = 0 no check |
---|
| 102 | ! = 1 check at the main time step (output xml: uice_cvg) |
---|
| 103 | ! = 2 check at both main and rheology time steps (additional output: ice_cvg.nc) |
---|
| 104 | ! this option 2 asks a lot of communications between cpu |
---|
[3875] | 105 | / |
---|
[5124] | 106 | !------------------------------------------------------------------------------ |
---|
[9019] | 107 | &namdyn_adv ! Ice advection |
---|
[5429] | 108 | !------------------------------------------------------------------------------ |
---|
[13798] | 109 | ln_adv_Pra = .true. ! Advection scheme (Prather) |
---|
| 110 | ln_adv_UMx = .false. ! Advection scheme (Ultimate-Macho) |
---|
[9019] | 111 | nn_UMx = 5 ! order of the scheme for UMx (1-5 ; 20=centered 2nd order) |
---|
[5429] | 112 | / |
---|
| 113 | !------------------------------------------------------------------------------ |
---|
[10535] | 114 | &namsbc ! Ice surface boundary conditions |
---|
[5124] | 115 | !------------------------------------------------------------------------------ |
---|
[9019] | 116 | rn_cio = 5.0e-03 ! ice-ocean drag coefficient (-) |
---|
[13798] | 117 | nn_snwfra = 2 ! calculate the fraction of ice covered by snow (for zdf and albedo) |
---|
| 118 | ! = 0 fraction = 1 (if snow) or 0 (if no snow) |
---|
| 119 | ! = 1 fraction = 1-exp(-0.2*rhos*hsnw) [MetO formulation] |
---|
| 120 | ! = 2 fraction = hsnw / (hsnw+0.02) [CICE formulation] |
---|
| 121 | rn_snwblow = 0.66 ! mesure of snow blowing into the leads |
---|
[9019] | 122 | ! = 1 => no snow blowing, < 1 => some snow blowing |
---|
| 123 | nn_flxdist = -1 ! Redistribute heat flux over ice categories |
---|
| 124 | ! =-1 Do nothing (needs N(cat) fluxes) |
---|
| 125 | ! = 0 Average N(cat) fluxes then apply the average over the N(cat) ice |
---|
| 126 | ! = 1 Average N(cat) fluxes then redistribute over the N(cat) ice using T-ice and albedo sensitivity |
---|
| 127 | ! = 2 Redistribute a single flux over categories |
---|
[10534] | 128 | ln_cndflx = .false. ! Use conduction flux as surface boundary conditions (i.e. for Jules coupling) |
---|
| 129 | ln_cndemulate = .false. ! emulate conduction flux (if not provided in the inputs) |
---|
[13798] | 130 | nn_qtrice = 1 ! Solar flux transmitted thru the surface scattering layer: |
---|
| 131 | ! = 0 Grenfell and Maykut 1977 (depends on cloudiness and is 0 when there is snow) |
---|
| 132 | ! = 1 Lebrun 2019 (equals 0.3 anytime with different melting/dry snw conductivities) |
---|
[3875] | 133 | / |
---|
[5124] | 134 | !------------------------------------------------------------------------------ |
---|
[9019] | 135 | &namthd ! Ice thermodynamics |
---|
[5124] | 136 | !------------------------------------------------------------------------------ |
---|
[9019] | 137 | ln_icedH = .true. ! activate ice thickness change from growing/melting (T) or not (F) |
---|
| 138 | ln_icedA = .true. ! activate lateral melting param. (T) or not (F) |
---|
| 139 | ln_icedO = .true. ! activate ice growth in open-water (T) or not (F) |
---|
| 140 | ln_icedS = .true. ! activate brine drainage (T) or not (F) |
---|
[13798] | 141 | ! |
---|
| 142 | ln_leadhfx = .true. ! heat in the leads is used to melt sea-ice before warming the ocean |
---|
[3875] | 143 | / |
---|
[5124] | 144 | !------------------------------------------------------------------------------ |
---|
[9019] | 145 | &namthd_zdf ! Ice heat diffusion |
---|
[5124] | 146 | !------------------------------------------------------------------------------ |
---|
[9019] | 147 | ln_zdf_BL99 = .true. ! Heat diffusion follows Bitz and Lipscomb 1999 |
---|
| 148 | ln_cndi_U64 = .false. ! sea ice thermal conductivity: k = k0 + beta.S/T (Untersteiner, 1964) |
---|
| 149 | ln_cndi_P07 = .true. ! sea ice thermal conductivity: k = k0 + beta1.S/T - beta2.T (Pringle et al., 2007) |
---|
| 150 | rn_cnd_s = 0.31 ! thermal conductivity of the snow (0.31 W/m/K, Maykut and Untersteiner, 1971) |
---|
| 151 | ! Obs: 0.1-0.5 (Lecomte et al, JAMES 2013) |
---|
[13798] | 152 | rn_kappa_i = 1.0 ! radiation attenuation coefficient in sea ice [1/m] |
---|
| 153 | rn_kappa_s = 10.0 ! nn_qtrice = 0: radiation attenuation coefficient in snow [1/m] |
---|
| 154 | rn_kappa_smlt = 7.0 ! nn_qtrice = 1: radiation attenuation coefficient in melting snow [1/m] |
---|
| 155 | rn_kappa_sdry = 10.0 ! radiation attenuation coefficient in dry snow [1/m] |
---|
| 156 | ln_zdf_chkcvg = .false. ! check convergence of heat diffusion scheme (outputs: tice_cvgerr, tice_cvgstp) |
---|
[3875] | 157 | / |
---|
[9019] | 158 | !------------------------------------------------------------------------------ |
---|
[9356] | 159 | &namthd_da ! Ice lateral melting |
---|
[9019] | 160 | !------------------------------------------------------------------------------ |
---|
| 161 | rn_beta = 1.0 ! coef. beta for lateral melting param. Recommended range=[0.8-1.2] |
---|
| 162 | ! => decrease = more melt and melt peaks toward higher concentration (A~0.5 for beta=1 ; A~0.8 for beta=0.2) |
---|
| 163 | ! 0.3 = best fit for western Fram Strait and Antarctica |
---|
| 164 | ! 1.4 = best fit for eastern Fram Strait |
---|
| 165 | rn_dmin = 8. ! minimum floe diameter for lateral melting param. Recommended range=[6-10] |
---|
| 166 | ! => 6 vs 8m = +40% melting at the peak (A~0.5) |
---|
| 167 | ! 10 vs 8m = -20% melting |
---|
| 168 | / |
---|
| 169 | !------------------------------------------------------------------------------ |
---|
| 170 | &namthd_do ! Ice growth in open water |
---|
| 171 | !------------------------------------------------------------------------------ |
---|
[10911] | 172 | rn_hinew = 0.1 ! thickness for new ice formation in open water (m), must be larger than rn_himin |
---|
[9019] | 173 | ln_frazil = .false. ! Frazil ice parameterization (ice collection as a function of wind) |
---|
| 174 | rn_maxfraz = 1.0 ! maximum fraction of frazil ice collecting at the ice base |
---|
| 175 | rn_vfraz = 0.417 ! thresold drift speed for frazil ice collecting at the ice bottom (m/s) |
---|
| 176 | rn_Cfraz = 5.0 ! squeezing coefficient for frazil ice collecting at the ice bottom |
---|
| 177 | / |
---|
| 178 | !------------------------------------------------------------------------------ |
---|
| 179 | &namthd_sal ! Ice salinity |
---|
| 180 | !------------------------------------------------------------------------------ |
---|
| 181 | nn_icesal = 2 ! ice salinity option |
---|
| 182 | ! 1: constant ice salinity (S=rn_icesal) |
---|
| 183 | ! 2: varying salinity parameterization S(z,t) |
---|
[10532] | 184 | ! 3: prescribed salinity profile S(z) (Schwarzacher 1959) |
---|
[10531] | 185 | rn_icesal = 4. ! (nn_icesal=1) ice salinity (g/kg) |
---|
| 186 | rn_sal_gd = 5. ! (nn_icesal=2) restoring ice salinity, gravity drainage (g/kg) |
---|
| 187 | rn_time_gd = 1.73e+6 ! (nn_icesal=2) restoring time scale, gravity drainage (s) |
---|
| 188 | rn_sal_fl = 2. ! (nn_icesal=2) restoring ice salinity, flushing (g/kg) |
---|
| 189 | rn_time_fl = 8.64e+5 ! (nn_icesal=2) restoring time scale, flushing (s) |
---|
[9019] | 190 | rn_simax = 20. ! maximum tolerated ice salinity (g/kg) |
---|
| 191 | rn_simin = 0.1 ! minimum tolerated ice salinity (g/kg) |
---|
| 192 | / |
---|
| 193 | !------------------------------------------------------------------------------ |
---|
| 194 | &namthd_pnd ! Melt ponds |
---|
| 195 | !------------------------------------------------------------------------------ |
---|
[13798] | 196 | ln_pnd = .true. ! activate melt ponds or not |
---|
| 197 | ln_pnd_LEV = .true. ! level ice melt ponds (from Flocco et al 2007,2010 & Holland et al 2012) |
---|
| 198 | rn_apnd_min = 0.15 ! minimum ice fraction that contributes to melt pond. range: 0.0 -- 0.15 ?? |
---|
| 199 | rn_apnd_max = 0.85 ! maximum ice fraction that contributes to melt pond. range: 0.7 -- 0.85 ?? |
---|
| 200 | ln_pnd_CST = .false. ! constant melt ponds |
---|
| 201 | rn_apnd = 0.2 ! prescribed pond fraction, at Tsu=0 degC |
---|
| 202 | rn_hpnd = 0.05 ! prescribed pond depth, at Tsu=0 degC |
---|
| 203 | ln_pnd_lids = .true. ! frozen lids on top of the ponds (only for ln_pnd_LEV) |
---|
| 204 | ln_pnd_alb = .true. ! effect of melt ponds on ice albedo |
---|
[9019] | 205 | / |
---|
| 206 | !------------------------------------------------------------------------------ |
---|
| 207 | &namini ! Ice initialization |
---|
| 208 | !------------------------------------------------------------------------------ |
---|
| 209 | ln_iceini = .true. ! activate ice initialization (T) or not (F) |
---|
[13798] | 210 | nn_iceini_file = 0 ! 0 = Initialise sea ice based on SSTs |
---|
| 211 | ! 1 = Initialise sea ice from single category netcdf file |
---|
| 212 | ! 2 = Initialise sea ice from multi category restart file |
---|
[11536] | 213 | rn_thres_sst = 2.0 ! max temp. above Tfreeze with initial ice = (sst - tfreeze) |
---|
| 214 | rn_hti_ini_n = 3.0 ! initial ice thickness (m), North |
---|
| 215 | rn_hti_ini_s = 1.0 ! " " South |
---|
| 216 | rn_hts_ini_n = 0.3 ! initial snow thickness (m), North |
---|
[9019] | 217 | rn_hts_ini_s = 0.3 ! " " South |
---|
| 218 | rn_ati_ini_n = 0.9 ! initial ice concentration (-), North |
---|
| 219 | rn_ati_ini_s = 0.9 ! " " South |
---|
| 220 | rn_smi_ini_n = 6.3 ! initial ice salinity (g/kg), North |
---|
| 221 | rn_smi_ini_s = 6.3 ! " " South |
---|
[11536] | 222 | rn_tmi_ini_n = 270. ! initial ice temperature (K), North |
---|
[9019] | 223 | rn_tmi_ini_s = 270. ! " " South |
---|
[11536] | 224 | rn_tsu_ini_n = 270. ! initial surface temperature (K), North |
---|
| 225 | rn_tsu_ini_s = 270. ! " " South |
---|
| 226 | rn_tms_ini_n = 270. ! initial snw temperature (K), North |
---|
| 227 | rn_tms_ini_s = 270. ! " " South |
---|
| 228 | rn_apd_ini_n = 0.2 ! initial pond fraction (-), North |
---|
| 229 | rn_apd_ini_s = 0.2 ! " " South |
---|
| 230 | rn_hpd_ini_n = 0.05 ! initial pond depth (m), North |
---|
| 231 | rn_hpd_ini_s = 0.05 ! " " South |
---|
[13798] | 232 | rn_hld_ini_n = 0.0 ! initial pond lid depth (m), North |
---|
| 233 | rn_hld_ini_s = 0.0 ! " " South |
---|
| 234 | ! -- for nn_iceini_file = 1 |
---|
| 235 | sn_hti = 'Ice_initialization' , -12. ,'hti' , .false. , .true., 'yearly' , '' , '', '' |
---|
| 236 | sn_hts = 'Ice_initialization' , -12. ,'hts' , .false. , .true., 'yearly' , '' , '', '' |
---|
| 237 | sn_ati = 'Ice_initialization' , -12. ,'ati' , .false. , .true., 'yearly' , '' , '', '' |
---|
| 238 | sn_smi = 'Ice_initialization' , -12. ,'smi' , .false. , .true., 'yearly' , '' , '', '' |
---|
| 239 | sn_tmi = 'Ice_initialization' , -12. ,'tmi' , .false. , .true., 'yearly' , '' , '', '' |
---|
| 240 | sn_tsu = 'Ice_initialization' , -12. ,'tsu' , .false. , .true., 'yearly' , '' , '', '' |
---|
| 241 | sn_tms = 'NOT USED' , -12. ,'tms' , .false. , .true., 'yearly' , '' , '', '' |
---|
[11536] | 242 | ! melt ponds (be careful, sn_apd is the pond concentration (not fraction), so it differs from rn_apd) |
---|
[13798] | 243 | sn_apd = 'NOT USED' , -12. ,'apd' , .false. , .true., 'yearly' , '' , '', '' |
---|
| 244 | sn_hpd = 'NOT USED' , -12. ,'hpd' , .false. , .true., 'yearly' , '' , '', '' |
---|
| 245 | sn_hld = 'NOT USED' , -12. ,'hld' , .false. , .true., 'yearly' , '' , '', '' |
---|
[10413] | 246 | cn_dir='./' |
---|
[9019] | 247 | / |
---|
| 248 | !------------------------------------------------------------------------------ |
---|
| 249 | &namalb ! albedo parameters |
---|
| 250 | !------------------------------------------------------------------------------ |
---|
| 251 | ! ! ! obs range (cloud-sky) |
---|
| 252 | rn_alb_sdry = 0.85 ! dry snow albedo : 0.85 -- 0.87 |
---|
| 253 | rn_alb_smlt = 0.75 ! melting snow albedo : 0.72 -- 0.82 |
---|
| 254 | rn_alb_idry = 0.60 ! dry ice albedo : 0.54 -- 0.65 |
---|
| 255 | rn_alb_imlt = 0.50 ! bare puddled ice albedo : 0.49 -- 0.58 |
---|
| 256 | rn_alb_dpnd = 0.27 ! ponded ice albedo : 0.10 -- 0.30 |
---|
| 257 | / |
---|
| 258 | !------------------------------------------------------------------------------ |
---|
| 259 | &namdia ! Diagnostics |
---|
| 260 | !------------------------------------------------------------------------------ |
---|
[11601] | 261 | ln_icediachk = .false. ! check online heat, mass & salt budgets |
---|
| 262 | ! ! rate of ice spuriously gained/lost at each time step => rn_icechk=1 <=> 1.e-6 m/hour |
---|
| 263 | rn_icechk_cel = 100. ! check at each gridcell (1.e-4m/h)=> stops the code if violated (and writes a file) |
---|
| 264 | rn_icechk_glo = 1. ! check over the entire ice cover (1.e-6m/h)=> only prints warnings |
---|
[9019] | 265 | ln_icediahsb = .false. ! output the heat, mass & salt budgets (T) or not (F) |
---|
| 266 | ln_icectl = .false. ! ice points output for debug (T or F) |
---|
[13798] | 267 | iiceprt = 10 ! i-index for debug |
---|
| 268 | jiceprt = 10 ! j-index for debug |
---|
[9019] | 269 | / |
---|