| 1 |
C $Header: /u/gcmpack/MITgcm/pkg/thsice/THSICE_PARAMS.h,v 1.1 2003/11/23 01:20:13 jmc Exp $ |
| 2 |
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 |
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 |
C rhoiw :: ocean-ice density difference (kg/m^3) |
| 23 |
C.. specific heats |
| 24 |
C cpice :: specific heat of fresh ice (J/kg/K) |
| 25 |
C cpwater :: specific heat of water (J/kg/K) |
| 26 |
C .. thermal conductivity. QQ check units |
| 27 |
C kice :: thermal conductivity of pure ice (W/m/K) |
| 28 |
C ksnow :: thermal conductivity of snow (W/m/K) |
| 29 |
C .. heat transfer coefficient |
| 30 |
C transcoef :: transfer coef between ice and water (unitless) |
| 31 |
C .. latent heat |
| 32 |
C Lfresh :: latent heat of melting of pure ice (J/kg) |
| 33 |
C .. Enthalpy |
| 34 |
C qsnow :: snow enthalpy (J/kg) |
| 35 |
C .. Albedo |
| 36 |
C albColdSnow :: albedo of cold (=dry) new snow (Tsfc < -10) |
| 37 |
C albWarmSnow :: albedo of warm (=wet) new snow (Tsfc = 0) |
| 38 |
C albOldSnow :: albedo of old snow (snowAge > 35.d) |
| 39 |
C albIceMax :: max albedo of bare ice (thick ice) |
| 40 |
C albIceMin :: minimum ice albedo (very thin ice) |
| 41 |
C hAlbIce :: ice thickness for albedo transition: thin/thick ice albedo |
| 42 |
C hAlbSnow :: snow thickness for albedo transition: snow/ice albedo |
| 43 |
C hNewSnowAge :: new snow thickness that refresh the snow-age (by 1/e) |
| 44 |
C .. Solar parameters |
| 45 |
C i0 :: fraction of penetrating solar rad |
| 46 |
C ksolar :: bulk solar abs coeff of sea ice (m-1) |
| 47 |
C .. Salinity |
| 48 |
C saltice :: salinity of ice (o/oo) |
| 49 |
C S_winton :: winton salinity of ice (o/oo) |
| 50 |
C mu_Tf :: Tf:brine salinity ratio (C/ppt) |
| 51 |
C .. melting |
| 52 |
C Tf0kel :: Freezing temp of fresh ice in Kelvin = 273.15 |
| 53 |
C Tmlt1 :: melting temp; depends on S (C) |
| 54 |
C .. Min/Max |
| 55 |
C himin :: minimum thickness for ice (m) |
| 56 |
C Terrmax :: temperature convergence precision (C) |
| 57 |
C hiMax :: Maximum thickness for ice (m) |
| 58 |
C hsMax :: Maximum thickness for snow (m) |
| 59 |
C .. for fractional ice |
| 60 |
C iceMaskmax :: maximum Ice fraction (=1 for no fractional ice) |
| 61 |
C iceMaskmin :: mimimum Ice fraction (=1 for no fractional ice) |
| 62 |
C himin0 :: minimum ice height (=himin for no fractional ice) |
| 63 |
C frac_energy:: fraction of energy going to melting (=0 for no fract. ice) |
| 64 |
C hihig :: ice height above which freezing only occurs over open ocean |
| 65 |
C (=large for no fractional ice) |
| 66 |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
| 67 |
|
| 68 |
COMMON / THSICE_PHYSPAR_R / |
| 69 |
& rhos, rhoi, rhosw, rhofw, rhoiw, |
| 70 |
& cpice, cpwater, |
| 71 |
& kice, ksnow, |
| 72 |
& transcoef, Lfresh, qsnow, |
| 73 |
& albColdSnow, albWarmSnow, albOldSnow, hNewSnowAge, |
| 74 |
& albIceMax, albIceMin, hAlbIce, hAlbSnow, |
| 75 |
& i0, ksolar, |
| 76 |
& saltice, S_winton, mu_Tf, |
| 77 |
& Tf0kel, Tmlt1, |
| 78 |
& himin, Terrmax, hiMax, hsMax, |
| 79 |
& iceMaskmax, iceMaskmin, himin0, |
| 80 |
& frac_energy, hihig |
| 81 |
|
| 82 |
_RL rhos |
| 83 |
_RL rhoi |
| 84 |
_RL rhosw |
| 85 |
_RL rhofw |
| 86 |
_RL rhoiw |
| 87 |
_RL cpice |
| 88 |
_RL cpwater |
| 89 |
_RL kice |
| 90 |
_RL ksnow |
| 91 |
_RL transcoef |
| 92 |
_RL Lfresh |
| 93 |
_RL qsnow |
| 94 |
_RL albColdSnow |
| 95 |
_RL albWarmSnow |
| 96 |
_RL albOldSnow |
| 97 |
_RL hNewSnowAge |
| 98 |
_RL albIceMax |
| 99 |
_RL albIceMin |
| 100 |
_RL hAlbIce |
| 101 |
_RL hAlbSnow |
| 102 |
_RL i0 |
| 103 |
_RL ksolar |
| 104 |
_RL saltice |
| 105 |
_RL S_winton |
| 106 |
_RL mu_Tf |
| 107 |
_RL Tf0kel |
| 108 |
_RL Tmlt1 |
| 109 |
_RL himin |
| 110 |
_RL Terrmax |
| 111 |
_RL hiMax |
| 112 |
_RL hsMax |
| 113 |
_RL iceMaskmax |
| 114 |
_RL iceMaskmin |
| 115 |
_RL himin0 |
| 116 |
_RL frac_energy |
| 117 |
_RL hihig |
| 118 |
|
| 119 |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
| 120 |
|
| 121 |
C-- COMMON / THSICE_PAR_I / ice model (integer) parameters |
| 122 |
c startIceModel :: =1 : start ice model at nIter0 ; =0 : use pickup files |
| 123 |
c nitMaxTsf :: maximum Nb of iter to find Surface Temp (Trsf) |
| 124 |
COMMON / THSICE_PAR_I / |
| 125 |
& startIceModel, nitMaxTsf |
| 126 |
|
| 127 |
INTEGER startIceModel |
| 128 |
INTEGER nitMaxTsf |
| 129 |
|
| 130 |
C-- COMMON / THSICE_PAR_R / ice model (real) parameters |
| 131 |
C thSIce_deltaT :: ice model time-step |
| 132 |
C stressReduction :: reduction factor for wind-stress under sea-ice [0-1] |
| 133 |
C thSIce_taveFreq :: Frequency^-1 for time-Aver. output (s) |
| 134 |
C thSIce_diagFreq :: Frequency^-1 for diagnostic output (s) |
| 135 |
C thSIce_monFreq :: Frequency^-1 for monitor output (s) |
| 136 |
COMMON / THSICE_PAR_R / |
| 137 |
& thSIce_deltaT, |
| 138 |
& stressReduction, |
| 139 |
& thSIce_taveFreq, thSIce_diagFreq, thSIce_monFreq |
| 140 |
|
| 141 |
_RL thSIce_deltaT |
| 142 |
_RL stressReduction |
| 143 |
_RL thSIce_taveFreq, thSIce_diagFreq, thSIce_monFreq |
| 144 |
|
| 145 |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
| 146 |
|
| 147 |
#endif /* ALLOW_THSICE */ |
Parent Directory
| 
Revision Log
| 
Revision Graph