1 |
jmc |
1.6 |
C $Header: /u/gcmpack/MITgcm/pkg/thsice/THSICE_PARAMS.h,v 1.5 2005/06/24 04:36:54 edhill 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 |
|
|
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 |
jmc |
1.2 |
C .. Enthalpy |
34 |
jmc |
1.1 |
C qsnow :: snow enthalpy (J/kg) |
35 |
|
|
C .. Albedo |
36 |
jmc |
1.2 |
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 |
jmc |
1.6 |
C snowAgTime :: snow aging time scale (s) |
45 |
jmc |
1.2 |
C .. Solar parameters |
46 |
jmc |
1.1 |
C i0 :: fraction of penetrating solar rad |
47 |
|
|
C ksolar :: bulk solar abs coeff of sea ice (m-1) |
48 |
|
|
C .. Salinity |
49 |
|
|
C saltice :: salinity of ice (o/oo) |
50 |
|
|
C S_winton :: winton salinity of ice (o/oo) |
51 |
|
|
C mu_Tf :: Tf:brine salinity ratio (C/ppt) |
52 |
|
|
C .. melting |
53 |
|
|
C Tf0kel :: Freezing temp of fresh ice in Kelvin = 273.15 |
54 |
|
|
C Tmlt1 :: melting temp; depends on S (C) |
55 |
|
|
C .. Min/Max |
56 |
|
|
C himin :: minimum thickness for ice (m) |
57 |
|
|
C Terrmax :: temperature convergence precision (C) |
58 |
|
|
C hiMax :: Maximum thickness for ice (m) |
59 |
|
|
C hsMax :: Maximum thickness for snow (m) |
60 |
|
|
C .. for fractional ice |
61 |
|
|
C iceMaskmax :: maximum Ice fraction (=1 for no fractional ice) |
62 |
|
|
C iceMaskmin :: mimimum Ice fraction (=1 for no fractional ice) |
63 |
|
|
C himin0 :: minimum ice height (=himin for no fractional ice) |
64 |
|
|
C frac_energy:: fraction of energy going to melting (=0 for no fract. ice) |
65 |
|
|
C hihig :: ice height above which freezing only occurs over open ocean |
66 |
|
|
C (=large for no fractional ice) |
67 |
|
|
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
68 |
|
|
|
69 |
jmc |
1.6 |
COMMON / THSICE_PHYSPAR_R / |
70 |
jmc |
1.1 |
& rhos, rhoi, rhosw, rhofw, rhoiw, |
71 |
|
|
& cpice, cpwater, |
72 |
|
|
& kice, ksnow, |
73 |
|
|
& transcoef, Lfresh, qsnow, |
74 |
jmc |
1.6 |
& albColdSnow, albWarmSnow, albOldSnow, |
75 |
jmc |
1.2 |
& albIceMax, albIceMin, hAlbIce, hAlbSnow, |
76 |
jmc |
1.6 |
& hNewSnowAge, snowAgTime, |
77 |
jmc |
1.1 |
& i0, ksolar, |
78 |
|
|
& saltice, S_winton, mu_Tf, |
79 |
|
|
& Tf0kel, Tmlt1, |
80 |
|
|
& himin, Terrmax, hiMax, hsMax, |
81 |
|
|
& iceMaskmax, iceMaskmin, himin0, |
82 |
|
|
& frac_energy, hihig |
83 |
|
|
|
84 |
|
|
_RL rhos |
85 |
|
|
_RL rhoi |
86 |
|
|
_RL rhosw |
87 |
|
|
_RL rhofw |
88 |
|
|
_RL rhoiw |
89 |
|
|
_RL cpice |
90 |
|
|
_RL cpwater |
91 |
|
|
_RL kice |
92 |
|
|
_RL ksnow |
93 |
|
|
_RL transcoef |
94 |
|
|
_RL Lfresh |
95 |
|
|
_RL qsnow |
96 |
jmc |
1.2 |
_RL albColdSnow |
97 |
|
|
_RL albWarmSnow |
98 |
|
|
_RL albOldSnow |
99 |
|
|
_RL albIceMax |
100 |
|
|
_RL albIceMin |
101 |
|
|
_RL hAlbIce |
102 |
|
|
_RL hAlbSnow |
103 |
jmc |
1.6 |
_RL hNewSnowAge |
104 |
|
|
_RL snowAgTime |
105 |
jmc |
1.1 |
_RL i0 |
106 |
|
|
_RL ksolar |
107 |
|
|
_RL saltice |
108 |
|
|
_RL S_winton |
109 |
|
|
_RL mu_Tf |
110 |
|
|
_RL Tf0kel |
111 |
|
|
_RL Tmlt1 |
112 |
|
|
_RL himin |
113 |
|
|
_RL Terrmax |
114 |
|
|
_RL hiMax |
115 |
|
|
_RL hsMax |
116 |
|
|
_RL iceMaskmax |
117 |
|
|
_RL iceMaskmin |
118 |
|
|
_RL himin0 |
119 |
|
|
_RL frac_energy |
120 |
|
|
_RL hihig |
121 |
|
|
|
122 |
|
|
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
123 |
|
|
|
124 |
jmc |
1.3 |
C-- COMMON / THSICE_PAR_L / ice model (logical) parameters |
125 |
edhill |
1.5 |
C stepFwd_oceMxL :: step forward mixed-layer T & S (slab-ocean) |
126 |
|
|
C thSIce_tave_mdsio :: write TimeAverage output using MDSIO |
127 |
|
|
C thSIce_snapshot_mdsio :: write snap-shot output using MDSIO |
128 |
|
|
C thSIce_mon_stdio :: write monitor to std-outp |
129 |
|
|
C thSIce_tave_mnc :: write TimeAverage output using MNC |
130 |
|
|
C thSIce_snapshot_mnc :: write snap-shot output using MNC |
131 |
|
|
C thSIce_mon_mnc :: write monitor to netcdf file |
132 |
|
|
C thSIce_pickup_read_mnc :: pickup read w/ MNC |
133 |
|
|
C thSIce_pickup_write_mnc :: pickup write w/ MNC |
134 |
|
|
C thSIce_pickup_write_mdsio :: pickup write w/ MDSIO |
135 |
jmc |
1.6 |
COMMON / THSICE_PAR_L / |
136 |
edhill |
1.5 |
& stepFwd_oceMxL, |
137 |
|
|
& thSIce_tave_mdsio, thSIce_snapshot_mdsio, thSIce_mon_stdio, |
138 |
|
|
& thSIce_tave_mnc, thSIce_snapshot_mnc, thSIce_mon_mnc, |
139 |
jmc |
1.6 |
& thSIce_pickup_read_mnc, |
140 |
edhill |
1.5 |
& thSIce_pickup_write_mdsio, |
141 |
|
|
& thSIce_pickup_write_mnc |
142 |
jmc |
1.3 |
|
143 |
|
|
LOGICAL stepFwd_oceMxL |
144 |
edhill |
1.5 |
LOGICAL thSIce_tave_mdsio, thSIce_snapshot_mdsio, thSIce_mon_stdio |
145 |
|
|
LOGICAL thSIce_tave_mnc, thSIce_snapshot_mnc, thSIce_mon_mnc |
146 |
|
|
LOGICAL thSIce_pickup_read_mnc |
147 |
|
|
LOGICAL thSIce_pickup_write_mdsio |
148 |
|
|
LOGICAL thSIce_pickup_write_mnc |
149 |
jmc |
1.3 |
|
150 |
jmc |
1.1 |
C-- COMMON / THSICE_PAR_I / ice model (integer) parameters |
151 |
jmc |
1.6 |
C startIceModel :: =1 : start ice model at nIter0 ; =0 : use pickup files |
152 |
|
|
C :: -1 : start from a small pickup (without Mix.Layer) |
153 |
|
|
C nitMaxTsf :: maximum Nb of iter to find Surface Temp (Trsf) |
154 |
|
|
COMMON / THSICE_PAR_I / |
155 |
jmc |
1.1 |
& startIceModel, nitMaxTsf |
156 |
|
|
|
157 |
|
|
INTEGER startIceModel |
158 |
|
|
INTEGER nitMaxTsf |
159 |
|
|
|
160 |
|
|
C-- COMMON / THSICE_PAR_R / ice model (real) parameters |
161 |
jmc |
1.3 |
C thSIce_deltaT :: ice model time-step |
162 |
|
|
C ocean_deltaT :: ocean mixed-layer time-step |
163 |
|
|
C tauRelax_MxL :: Relaxation time scale for MixLayer T & S [s] |
164 |
|
|
C hMxL_default :: default value for ocean MixLayer thickness [m] |
165 |
|
|
C sMxL_default :: default value for salinity in MixLayer [psu] |
166 |
|
|
C vMxL_default :: default value for ocean current velocity in MxL [m/s] |
167 |
|
|
C stressReduction :: reduction factor for wind-stress under sea-ice [0-1] |
168 |
|
|
C thSIce_taveFreq :: Frequency^-1 for time-Aver. output [s] |
169 |
|
|
C thSIce_diagFreq :: Frequency^-1 for diagnostic output [s] |
170 |
|
|
C thSIce_monFreq :: Frequency^-1 for monitor output [s] |
171 |
jmc |
1.1 |
COMMON / THSICE_PAR_R / |
172 |
jmc |
1.3 |
& thSIce_deltaT, ocean_deltaT, tauRelax_MxL, |
173 |
|
|
& hMxL_default, sMxL_default, vMxL_default, |
174 |
jmc |
1.1 |
& stressReduction, |
175 |
|
|
& thSIce_taveFreq, thSIce_diagFreq, thSIce_monFreq |
176 |
|
|
|
177 |
jmc |
1.6 |
_RL thSIce_deltaT, ocean_deltaT, tauRelax_MxL |
178 |
|
|
_RL hMxL_default, sMxL_default, vMxL_default |
179 |
|
|
_RL stressReduction |
180 |
jmc |
1.1 |
_RL thSIce_taveFreq, thSIce_diagFreq, thSIce_monFreq |
181 |
|
|
|
182 |
jmc |
1.4 |
C-- COMMON / THSICE_PAR_C / ice model (character) parameters |
183 |
|
|
C thSIceFract_InitFile :: File name for initial ice fraction |
184 |
|
|
C thSIceThick_InitFile :: File name for initial ice thickness |
185 |
|
|
C thSIceSnowH_InitFile :: File name for initial snow thickness |
186 |
|
|
C thSIceSnowA_InitFile :: File name for initial snow Age |
187 |
|
|
C thSIceEnthp_InitFile :: File name for initial ice enthalpy |
188 |
|
|
C thSIceTsurf_InitFile :: File name for initial surf. temp |
189 |
|
|
COMMON / THSICE_PAR_C / |
190 |
|
|
& thSIceFract_InitFile, |
191 |
|
|
& thSIceThick_InitFile, |
192 |
|
|
& thSIceSnowH_InitFile, |
193 |
|
|
& thSIceSnowA_InitFile, |
194 |
|
|
& thSIceEnthp_InitFile, |
195 |
jmc |
1.6 |
& thSIceTsurf_InitFile |
196 |
jmc |
1.4 |
CHARACTER*(MAX_LEN_FNAM) thSIceFract_InitFile |
197 |
|
|
CHARACTER*(MAX_LEN_FNAM) thSIceThick_InitFile |
198 |
|
|
CHARACTER*(MAX_LEN_FNAM) thSIceSnowH_InitFile |
199 |
|
|
CHARACTER*(MAX_LEN_FNAM) thSIceSnowA_InitFile |
200 |
|
|
CHARACTER*(MAX_LEN_FNAM) thSIceEnthp_InitFile |
201 |
|
|
CHARACTER*(MAX_LEN_FNAM) thSIceTsurf_InitFile |
202 |
|
|
|
203 |
jmc |
1.1 |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
204 |
|
|
|
205 |
|
|
#endif /* ALLOW_THSICE */ |
206 |
edhill |
1.5 |
|
207 |
|
|
CEH3 ;;; Local Variables: *** |
208 |
|
|
CEH3 ;;; mode:fortran *** |
209 |
|
|
CEH3 ;;; End: *** |