| 1 |
gforget |
1.15 |
C $Header: /u/gcmpack/MITgcm/pkg/thsice/THSICE_PARAMS.h,v 1.14 2009/09/23 20:24:47 dfer Exp $ |
| 2 |
jmc |
1.1 |
C $Name: $ |
| 3 |
|
|
|
| 4 |
|
|
#ifdef ALLOW_THSICE |
| 5 |
|
|
C *==========================================================* |
| 6 |
|
|
C | THSICE_PARAMS.h |
| 7 |
|
|
C | o Header file for Therm_SeaIce package parameters: |
| 8 |
|
|
C | - basic parameter ( I/O frequency, etc ...) |
| 9 |
|
|
C | - physical constants (used in therm_SeaIce pkg) |
| 10 |
|
|
C *==========================================================* |
| 11 |
|
|
|
| 12 |
|
|
C---------------------------------------------------------------------------- |
| 13 |
|
|
C.. Common blocks for almost everything that the sea ice model passes around. |
| 14 |
|
|
C---------------------------------------------------------------------------- |
| 15 |
|
|
|
| 16 |
|
|
C-- COMMON / THSICE_PHYSPAR_R / physical (real) parameter |
| 17 |
|
|
C.. densities |
| 18 |
jmc |
1.11 |
C rhos :: density of snow [kg/m^3] |
| 19 |
|
|
C rhoi :: density of ice [kg/m^3] |
| 20 |
|
|
C rhosw :: density of seawater [kg/m^3] |
| 21 |
|
|
C rhofw :: density of fresh water [kg/m^3] |
| 22 |
dfer |
1.12 |
C floodFac :: flooding factor = (rhosw-rhoi)/rhos [dimensionless] |
| 23 |
jmc |
1.1 |
C.. specific heats |
| 24 |
jmc |
1.11 |
C cpIce :: specific heat of fresh ice [J/kg/K] |
| 25 |
|
|
C cpWater :: specific heat of water [J/kg/K] |
| 26 |
jmc |
1.1 |
C .. thermal conductivity. QQ check units |
| 27 |
jmc |
1.11 |
C kIce :: thermal conductivity of pure ice [W/m/K] |
| 28 |
|
|
C kSnow :: thermal conductivity of snow [W/m/K] |
| 29 |
jmc |
1.1 |
C .. heat transfer coefficient |
| 30 |
jmc |
1.11 |
C bMeltCoef :: base-melting heat transfer coefficient |
| 31 |
|
|
C (between ice & water) [no unit] |
| 32 |
jmc |
1.1 |
C .. latent heat |
| 33 |
jmc |
1.11 |
C Lfresh :: latent heat of melting of pure ice [J/kg] |
| 34 |
jmc |
1.2 |
C .. Enthalpy |
| 35 |
jmc |
1.11 |
C qsnow :: snow enthalpy [J/kg] |
| 36 |
jmc |
1.1 |
C .. Albedo |
| 37 |
jmc |
1.7 |
C albColdSnow :: albedo of cold (=dry) new snow (Tsfc < tempSnowAlb) |
| 38 |
jmc |
1.2 |
C albWarmSnow :: albedo of warm (=wet) new snow (Tsfc = 0) |
| 39 |
jmc |
1.11 |
C tempSnowAlb :: temperature transition from ColdSnow to WarmSnow Alb. [oC] |
| 40 |
jmc |
1.2 |
C albOldSnow :: albedo of old snow (snowAge > 35.d) |
| 41 |
|
|
C albIceMax :: max albedo of bare ice (thick ice) |
| 42 |
|
|
C albIceMin :: minimum ice albedo (very thin ice) |
| 43 |
|
|
C hAlbIce :: ice thickness for albedo transition: thin/thick ice albedo |
| 44 |
|
|
C hAlbSnow :: snow thickness for albedo transition: snow/ice albedo |
| 45 |
|
|
C hNewSnowAge :: new snow thickness that refresh the snow-age (by 1/e) |
| 46 |
jmc |
1.11 |
C snowAgTime :: snow aging time scale [s] |
| 47 |
jmc |
1.2 |
C .. Solar parameters |
| 48 |
jmc |
1.11 |
C i0swFrac :: fraction of penetrating solar rad |
| 49 |
|
|
C ksolar :: bulk solar abs coeff of sea ice [m^-1] |
| 50 |
|
|
C dhSnowLin :: half slope of linear distribution of snow thickness within |
| 51 |
|
|
C the grid-cell (from hSnow-dhSnow to hSnow+dhSnow, if full |
| 52 |
|
|
C ice & snow cover) [m] ; (only used for SW radiation). |
| 53 |
jmc |
1.1 |
C .. Salinity |
| 54 |
jmc |
1.11 |
C saltIce :: salinity of ice [g/kg] |
| 55 |
|
|
C S_winton :: Winton salinity of ice [g/kg] |
| 56 |
jmc |
1.1 |
C .. melting |
| 57 |
jmc |
1.11 |
C Tf0kel :: Freezing temp of fresh water in Kelvin = 273.15 |
| 58 |
|
|
C mu_Tf :: linear dependance of melting temperature on Salinity [oC/psu] |
| 59 |
|
|
C Tf(sea-water) = -mu_Tf * S |
| 60 |
|
|
C Tmlt1 :: Winton melting temperature: Tmlt1 = -mu_Tf * S_winton |
| 61 |
|
|
C Terrmax :: Temperature convergence criteria [oC] |
| 62 |
jmc |
1.1 |
C .. Min/Max |
| 63 |
jmc |
1.11 |
C hIceMin :: Minimum ice thickness [m] |
| 64 |
|
|
C hiMax :: Maximum ice thickness [m] |
| 65 |
|
|
C hsMax :: Maximum snow thickness [m] |
| 66 |
jmc |
1.1 |
C .. for fractional ice |
| 67 |
jmc |
1.11 |
C iceMaskMax :: maximum Ice fraction (=1 for no fractional ice) |
| 68 |
|
|
C iceMaskMin :: mimimum Ice fraction (=1 for no fractional ice) |
| 69 |
|
|
C fracEnFreez :: fraction of energy going to lateral freezing (vs height increase) |
| 70 |
|
|
C fracEnMelt :: fraction of energy going to lateral melting (vs height decrease) |
| 71 |
|
|
C (=0 for no fract. ice) |
| 72 |
|
|
C hThinIce :: ice height above which fracEnMelt/Freez are applied [m] |
| 73 |
|
|
C (=hIceMin for no fractional ice) |
| 74 |
|
|
C hThickIce :: ice height below which fracEnMelt/Freez are applied [m] |
| 75 |
|
|
C (=large for no fractional ice) |
| 76 |
|
|
C hNewIceMax :: new ice maximum thickness [m] |
| 77 |
jmc |
1.1 |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
| 78 |
|
|
|
| 79 |
jmc |
1.6 |
COMMON / THSICE_PHYSPAR_R / |
| 80 |
dfer |
1.12 |
& rhos, rhoi, rhosw, rhofw, floodFac, |
| 81 |
jmc |
1.11 |
& cpIce, cpWater, |
| 82 |
|
|
& kIce, kSnow, |
| 83 |
|
|
& bMeltCoef, Lfresh, qsnow, |
| 84 |
jmc |
1.7 |
& albColdSnow, albWarmSnow, tempSnowAlb, |
| 85 |
|
|
& albOldSnow, hNewSnowAge, snowAgTime, |
| 86 |
jmc |
1.2 |
& albIceMax, albIceMin, hAlbIce, hAlbSnow, |
| 87 |
jmc |
1.11 |
& i0swFrac, ksolar, dhSnowLin, |
| 88 |
|
|
& saltIce, S_winton, mu_Tf, |
| 89 |
|
|
& Tf0kel, Tmlt1, Terrmax, |
| 90 |
|
|
& hIceMin, hiMax, hsMax, |
| 91 |
|
|
& iceMaskMax, iceMaskMin, |
| 92 |
|
|
& fracEnMelt, fracEnFreez, |
| 93 |
|
|
& hThinIce, hThickIce, hNewIceMax |
| 94 |
jmc |
1.1 |
|
| 95 |
|
|
_RL rhos |
| 96 |
|
|
_RL rhoi |
| 97 |
|
|
_RL rhosw |
| 98 |
|
|
_RL rhofw |
| 99 |
dfer |
1.12 |
_RL floodFac |
| 100 |
jmc |
1.11 |
_RL cpIce |
| 101 |
|
|
_RL cpWater |
| 102 |
|
|
_RL kIce |
| 103 |
|
|
_RL kSnow |
| 104 |
|
|
_RL bMeltCoef |
| 105 |
jmc |
1.1 |
_RL Lfresh |
| 106 |
|
|
_RL qsnow |
| 107 |
jmc |
1.2 |
_RL albColdSnow |
| 108 |
|
|
_RL albWarmSnow |
| 109 |
jmc |
1.7 |
_RL tempSnowAlb |
| 110 |
jmc |
1.2 |
_RL albOldSnow |
| 111 |
jmc |
1.7 |
_RL hNewSnowAge |
| 112 |
|
|
_RL snowAgTime |
| 113 |
jmc |
1.2 |
_RL albIceMax |
| 114 |
|
|
_RL albIceMin |
| 115 |
|
|
_RL hAlbIce |
| 116 |
|
|
_RL hAlbSnow |
| 117 |
jmc |
1.11 |
_RL i0swFrac |
| 118 |
jmc |
1.1 |
_RL ksolar |
| 119 |
jmc |
1.11 |
_RL dhSnowLin |
| 120 |
|
|
_RL saltIce |
| 121 |
jmc |
1.1 |
_RL S_winton |
| 122 |
|
|
_RL mu_Tf |
| 123 |
|
|
_RL Tf0kel |
| 124 |
|
|
_RL Tmlt1 |
| 125 |
|
|
_RL Terrmax |
| 126 |
jmc |
1.11 |
_RL hIceMin |
| 127 |
jmc |
1.1 |
_RL hiMax |
| 128 |
|
|
_RL hsMax |
| 129 |
jmc |
1.11 |
_RL iceMaskMax |
| 130 |
|
|
_RL iceMaskMin |
| 131 |
|
|
_RL fracEnMelt |
| 132 |
|
|
_RL fracEnFreez |
| 133 |
|
|
_RL hThinIce |
| 134 |
|
|
_RL hThickIce |
| 135 |
|
|
_RL hNewIceMax |
| 136 |
jmc |
1.1 |
|
| 137 |
|
|
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
| 138 |
|
|
|
| 139 |
jmc |
1.3 |
C-- COMMON / THSICE_PAR_L / ice model (logical) parameters |
| 140 |
edhill |
1.5 |
C stepFwd_oceMxL :: step forward mixed-layer T & S (slab-ocean) |
| 141 |
jmc |
1.13 |
C thSIce_calc_albNIR :: calculate Near Infra-Red Albedo |
| 142 |
edhill |
1.5 |
C thSIce_tave_mdsio :: write TimeAverage output using MDSIO |
| 143 |
|
|
C thSIce_snapshot_mdsio :: write snap-shot output using MDSIO |
| 144 |
|
|
C thSIce_mon_stdio :: write monitor to std-outp |
| 145 |
|
|
C thSIce_tave_mnc :: write TimeAverage output using MNC |
| 146 |
|
|
C thSIce_snapshot_mnc :: write snap-shot output using MNC |
| 147 |
|
|
C thSIce_mon_mnc :: write monitor to netcdf file |
| 148 |
|
|
C thSIce_pickup_read_mnc :: pickup read w/ MNC |
| 149 |
|
|
C thSIce_pickup_write_mnc :: pickup write w/ MNC |
| 150 |
|
|
C thSIce_pickup_write_mdsio :: pickup write w/ MDSIO |
| 151 |
jmc |
1.6 |
COMMON / THSICE_PAR_L / |
| 152 |
edhill |
1.5 |
& stepFwd_oceMxL, |
| 153 |
jmc |
1.13 |
& thSIce_calc_albNIR, |
| 154 |
edhill |
1.5 |
& thSIce_tave_mdsio, thSIce_snapshot_mdsio, thSIce_mon_stdio, |
| 155 |
|
|
& thSIce_tave_mnc, thSIce_snapshot_mnc, thSIce_mon_mnc, |
| 156 |
jmc |
1.6 |
& thSIce_pickup_read_mnc, |
| 157 |
edhill |
1.5 |
& thSIce_pickup_write_mdsio, |
| 158 |
|
|
& thSIce_pickup_write_mnc |
| 159 |
jmc |
1.3 |
|
| 160 |
|
|
LOGICAL stepFwd_oceMxL |
| 161 |
jmc |
1.13 |
LOGICAL thSIce_calc_albNIR |
| 162 |
edhill |
1.5 |
LOGICAL thSIce_tave_mdsio, thSIce_snapshot_mdsio, thSIce_mon_stdio |
| 163 |
|
|
LOGICAL thSIce_tave_mnc, thSIce_snapshot_mnc, thSIce_mon_mnc |
| 164 |
|
|
LOGICAL thSIce_pickup_read_mnc |
| 165 |
|
|
LOGICAL thSIce_pickup_write_mdsio |
| 166 |
|
|
LOGICAL thSIce_pickup_write_mnc |
| 167 |
jmc |
1.3 |
|
| 168 |
jmc |
1.1 |
C-- COMMON / THSICE_PAR_I / ice model (integer) parameters |
| 169 |
jmc |
1.8 |
C startIceModel :: =1 : start ice model at nIter0 ; =0 : use pickup files |
| 170 |
|
|
C :: -1 : start from a small pickup (without Mix.Layer) |
| 171 |
|
|
C nitMaxTsf :: maximum Nb of iter to find Surface Temp (Trsf) |
| 172 |
|
|
C thSIceAdvScheme :: thSIce Advection scheme selector |
| 173 |
jmc |
1.6 |
COMMON / THSICE_PAR_I / |
| 174 |
jmc |
1.8 |
& startIceModel, nitMaxTsf, thSIceAdvScheme |
| 175 |
jmc |
1.1 |
|
| 176 |
|
|
INTEGER startIceModel |
| 177 |
|
|
INTEGER nitMaxTsf |
| 178 |
jmc |
1.8 |
INTEGER thSIceAdvScheme |
| 179 |
jmc |
1.1 |
|
| 180 |
|
|
C-- COMMON / THSICE_PAR_R / ice model (real) parameters |
| 181 |
jscott |
1.9 |
C thSIce_deltaT :: ice model time-step, seaice thicken/extend [s] |
| 182 |
|
|
C thSIce_dtTemp :: ice model time-step, solve4temp [s] |
| 183 |
jmc |
1.8 |
C ocean_deltaT :: ocean mixed-layer time-step [s] |
| 184 |
dfer |
1.14 |
C tauRelax_MxL :: Relaxation time scale for MixLayer T [s] |
| 185 |
|
|
C tauRelax_MxL_salt :: Relaxation time scale for MixLayer S [s] |
| 186 |
jmc |
1.3 |
C hMxL_default :: default value for ocean MixLayer thickness [m] |
| 187 |
|
|
C sMxL_default :: default value for salinity in MixLayer [psu] |
| 188 |
|
|
C vMxL_default :: default value for ocean current velocity in MxL [m/s] |
| 189 |
jmc |
1.8 |
C thSIce_diffK :: thickness (horizontal) diffusivity [m^2/s] |
| 190 |
jmc |
1.3 |
C stressReduction :: reduction factor for wind-stress under sea-ice [0-1] |
| 191 |
|
|
C thSIce_taveFreq :: Frequency^-1 for time-Aver. output [s] |
| 192 |
|
|
C thSIce_diagFreq :: Frequency^-1 for diagnostic output [s] |
| 193 |
|
|
C thSIce_monFreq :: Frequency^-1 for monitor output [s] |
| 194 |
jmc |
1.1 |
COMMON / THSICE_PAR_R / |
| 195 |
dfer |
1.14 |
& thSIce_deltaT, thSIce_dtTemp, ocean_deltaT, |
| 196 |
|
|
& tauRelax_MxL, tauRelax_MxL_salt, |
| 197 |
jmc |
1.3 |
& hMxL_default, sMxL_default, vMxL_default, |
| 198 |
jmc |
1.8 |
& thSIce_diffK, stressReduction, |
| 199 |
jmc |
1.1 |
& thSIce_taveFreq, thSIce_diagFreq, thSIce_monFreq |
| 200 |
|
|
|
| 201 |
dfer |
1.14 |
_RL thSIce_deltaT, thSIce_dtTemp, ocean_deltaT |
| 202 |
|
|
_RL tauRelax_MxL, tauRelax_MxL_salt |
| 203 |
jmc |
1.6 |
_RL hMxL_default, sMxL_default, vMxL_default |
| 204 |
jmc |
1.8 |
_RL thSIce_diffK, stressReduction |
| 205 |
jmc |
1.1 |
_RL thSIce_taveFreq, thSIce_diagFreq, thSIce_monFreq |
| 206 |
|
|
|
| 207 |
jmc |
1.4 |
C-- COMMON / THSICE_PAR_C / ice model (character) parameters |
| 208 |
|
|
C thSIceFract_InitFile :: File name for initial ice fraction |
| 209 |
|
|
C thSIceThick_InitFile :: File name for initial ice thickness |
| 210 |
|
|
C thSIceSnowH_InitFile :: File name for initial snow thickness |
| 211 |
|
|
C thSIceSnowA_InitFile :: File name for initial snow Age |
| 212 |
|
|
C thSIceEnthp_InitFile :: File name for initial ice enthalpy |
| 213 |
|
|
C thSIceTsurf_InitFile :: File name for initial surf. temp |
| 214 |
|
|
COMMON / THSICE_PAR_C / |
| 215 |
|
|
& thSIceFract_InitFile, |
| 216 |
|
|
& thSIceThick_InitFile, |
| 217 |
|
|
& thSIceSnowH_InitFile, |
| 218 |
|
|
& thSIceSnowA_InitFile, |
| 219 |
|
|
& thSIceEnthp_InitFile, |
| 220 |
jmc |
1.6 |
& thSIceTsurf_InitFile |
| 221 |
jmc |
1.4 |
CHARACTER*(MAX_LEN_FNAM) thSIceFract_InitFile |
| 222 |
|
|
CHARACTER*(MAX_LEN_FNAM) thSIceThick_InitFile |
| 223 |
|
|
CHARACTER*(MAX_LEN_FNAM) thSIceSnowH_InitFile |
| 224 |
|
|
CHARACTER*(MAX_LEN_FNAM) thSIceSnowA_InitFile |
| 225 |
|
|
CHARACTER*(MAX_LEN_FNAM) thSIceEnthp_InitFile |
| 226 |
|
|
CHARACTER*(MAX_LEN_FNAM) thSIceTsurf_InitFile |
| 227 |
|
|
|
| 228 |
jmc |
1.1 |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
| 229 |
|
|
|
| 230 |
|
|
#endif /* ALLOW_THSICE */ |
| 231 |
edhill |
1.5 |
|
| 232 |
|
|
CEH3 ;;; Local Variables: *** |
| 233 |
|
|
CEH3 ;;; mode:fortran *** |
| 234 |
|
|
CEH3 ;;; End: *** |
Parent Directory
| 
Revision Log
| 
Revision Graph