15 |
|
|
16 |
C-- COMMON / THSICE_PHYSPAR_R / physical (real) parameter |
C-- COMMON / THSICE_PHYSPAR_R / physical (real) parameter |
17 |
C.. densities |
C.. densities |
18 |
C rhos :: density of snow (kg/m^3) |
C rhos :: density of snow [kg/m^3] |
19 |
C rhoi :: density of ice (kg/m^3) |
C rhoi :: density of ice [kg/m^3] |
20 |
C rhosw :: density of seawater (kg/m^3) |
C rhosw :: density of seawater [kg/m^3] |
21 |
C rhofw :: density of fresh water (kg/m^3) |
C rhofw :: density of fresh water [kg/m^3] |
22 |
C rhoiw :: ocean-ice density difference (kg/m^3) |
C rhoiw :: ocean-ice density difference [kg/m^3] |
23 |
C.. specific heats |
C.. specific heats |
24 |
C cpice :: specific heat of fresh ice (J/kg/K) |
C cpIce :: specific heat of fresh ice [J/kg/K] |
25 |
C cpwater :: specific heat of water (J/kg/K) |
C cpWater :: specific heat of water [J/kg/K] |
26 |
C .. thermal conductivity. QQ check units |
C .. thermal conductivity. QQ check units |
27 |
C kice :: thermal conductivity of pure ice (W/m/K) |
C kIce :: thermal conductivity of pure ice [W/m/K] |
28 |
C ksnow :: thermal conductivity of snow (W/m/K) |
C kSnow :: thermal conductivity of snow [W/m/K] |
29 |
C .. heat transfer coefficient |
C .. heat transfer coefficient |
30 |
C transcoef :: transfer coef between ice and water (unitless) |
C bMeltCoef :: base-melting heat transfer coefficient |
31 |
|
C (between ice & water) [no unit] |
32 |
C .. latent heat |
C .. latent heat |
33 |
C Lfresh :: latent heat of melting of pure ice (J/kg) |
C Lfresh :: latent heat of melting of pure ice [J/kg] |
34 |
C .. Enthalpy |
C .. Enthalpy |
35 |
C qsnow :: snow enthalpy (J/kg) |
C qsnow :: snow enthalpy [J/kg] |
36 |
C .. Albedo |
C .. Albedo |
37 |
C albColdSnow :: albedo of cold (=dry) new snow (Tsfc < tempSnowAlb) |
C albColdSnow :: albedo of cold (=dry) new snow (Tsfc < tempSnowAlb) |
38 |
C albWarmSnow :: albedo of warm (=wet) new snow (Tsfc = 0) |
C albWarmSnow :: albedo of warm (=wet) new snow (Tsfc = 0) |
39 |
C tempSnowAlb :: temperature transition from ColdSnow to WarmSnow Alb. (oC) |
C tempSnowAlb :: temperature transition from ColdSnow to WarmSnow Alb. [oC] |
40 |
C albOldSnow :: albedo of old snow (snowAge > 35.d) |
C albOldSnow :: albedo of old snow (snowAge > 35.d) |
41 |
C albIceMax :: max albedo of bare ice (thick ice) |
C albIceMax :: max albedo of bare ice (thick ice) |
42 |
C albIceMin :: minimum ice albedo (very thin ice) |
C albIceMin :: minimum ice albedo (very thin ice) |
43 |
C hAlbIce :: ice thickness for albedo transition: thin/thick ice albedo |
C hAlbIce :: ice thickness for albedo transition: thin/thick ice albedo |
44 |
C hAlbSnow :: snow thickness for albedo transition: snow/ice albedo |
C hAlbSnow :: snow thickness for albedo transition: snow/ice albedo |
45 |
C hNewSnowAge :: new snow thickness that refresh the snow-age (by 1/e) |
C hNewSnowAge :: new snow thickness that refresh the snow-age (by 1/e) |
46 |
C snowAgTime :: snow aging time scale (s) |
C snowAgTime :: snow aging time scale [s] |
47 |
C .. Solar parameters |
C .. Solar parameters |
48 |
C i0 :: fraction of penetrating solar rad |
C i0swFrac :: fraction of penetrating solar rad |
49 |
C ksolar :: bulk solar abs coeff of sea ice (m-1) |
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 |
C .. Salinity |
C .. Salinity |
54 |
C saltice :: salinity of ice (o/oo) |
C saltIce :: salinity of ice [g/kg] |
55 |
C S_winton :: winton salinity of ice (o/oo) |
C S_winton :: Winton salinity of ice [g/kg] |
|
C mu_Tf :: Tf:brine salinity ratio (C/ppt) |
|
56 |
C .. melting |
C .. melting |
57 |
C Tf0kel :: Freezing temp of fresh ice in Kelvin = 273.15 |
C Tf0kel :: Freezing temp of fresh water in Kelvin = 273.15 |
58 |
C Tmlt1 :: melting temp; depends on S (C) |
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 |
C .. Min/Max |
C .. Min/Max |
63 |
C himin :: minimum thickness for ice (m) |
C hIceMin :: Minimum ice thickness [m] |
64 |
C Terrmax :: temperature convergence precision (C) |
C hiMax :: Maximum ice thickness [m] |
65 |
C hiMax :: Maximum thickness for ice (m) |
C hsMax :: Maximum snow thickness [m] |
|
C hsMax :: Maximum thickness for snow (m) |
|
66 |
C .. for fractional ice |
C .. for fractional ice |
67 |
C iceMaskmax :: maximum Ice fraction (=1 for no fractional ice) |
C iceMaskMax :: maximum Ice fraction (=1 for no fractional ice) |
68 |
C iceMaskmin :: mimimum Ice fraction (=1 for no fractional ice) |
C iceMaskMin :: mimimum Ice fraction (=1 for no fractional ice) |
69 |
C himin0 :: minimum ice height (=himin for no fractional ice) |
C fracEnFreez :: fraction of energy going to lateral freezing (vs height increase) |
70 |
C frac_energy:: fraction of energy going to melting (=0 for no fract. ice) |
C fracEnMelt :: fraction of energy going to lateral melting (vs height decrease) |
71 |
C hihig :: ice height above which freezing only occurs over open ocean |
C (=0 for no fract. ice) |
72 |
C (=large for no fractional ice) |
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 |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
78 |
|
|
79 |
COMMON / THSICE_PHYSPAR_R / |
COMMON / THSICE_PHYSPAR_R / |
80 |
& rhos, rhoi, rhosw, rhofw, rhoiw, |
& rhos, rhoi, rhosw, rhofw, rhoiw, |
81 |
& cpice, cpwater, |
& cpIce, cpWater, |
82 |
& kice, ksnow, |
& kIce, kSnow, |
83 |
& transcoef, Lfresh, qsnow, |
& bMeltCoef, Lfresh, qsnow, |
84 |
& albColdSnow, albWarmSnow, tempSnowAlb, |
& albColdSnow, albWarmSnow, tempSnowAlb, |
85 |
& albOldSnow, hNewSnowAge, snowAgTime, |
& albOldSnow, hNewSnowAge, snowAgTime, |
86 |
& albIceMax, albIceMin, hAlbIce, hAlbSnow, |
& albIceMax, albIceMin, hAlbIce, hAlbSnow, |
87 |
& i0, ksolar, |
& i0swFrac, ksolar, dhSnowLin, |
88 |
& saltice, S_winton, mu_Tf, |
& saltIce, S_winton, mu_Tf, |
89 |
& Tf0kel, Tmlt1, |
& Tf0kel, Tmlt1, Terrmax, |
90 |
& himin, Terrmax, hiMax, hsMax, |
& hIceMin, hiMax, hsMax, |
91 |
& iceMaskmax, iceMaskmin, himin0, |
& iceMaskMax, iceMaskMin, |
92 |
& frac_energy, hihig |
& fracEnMelt, fracEnFreez, |
93 |
|
& hThinIce, hThickIce, hNewIceMax |
94 |
|
|
95 |
_RL rhos |
_RL rhos |
96 |
_RL rhoi |
_RL rhoi |
97 |
_RL rhosw |
_RL rhosw |
98 |
_RL rhofw |
_RL rhofw |
99 |
_RL rhoiw |
_RL rhoiw |
100 |
_RL cpice |
_RL cpIce |
101 |
_RL cpwater |
_RL cpWater |
102 |
_RL kice |
_RL kIce |
103 |
_RL ksnow |
_RL kSnow |
104 |
_RL transcoef |
_RL bMeltCoef |
105 |
_RL Lfresh |
_RL Lfresh |
106 |
_RL qsnow |
_RL qsnow |
107 |
_RL albColdSnow |
_RL albColdSnow |
114 |
_RL albIceMin |
_RL albIceMin |
115 |
_RL hAlbIce |
_RL hAlbIce |
116 |
_RL hAlbSnow |
_RL hAlbSnow |
117 |
_RL i0 |
_RL i0swFrac |
118 |
_RL ksolar |
_RL ksolar |
119 |
_RL saltice |
_RL dhSnowLin |
120 |
|
_RL saltIce |
121 |
_RL S_winton |
_RL S_winton |
122 |
_RL mu_Tf |
_RL mu_Tf |
123 |
_RL Tf0kel |
_RL Tf0kel |
124 |
_RL Tmlt1 |
_RL Tmlt1 |
|
_RL himin |
|
125 |
_RL Terrmax |
_RL Terrmax |
126 |
|
_RL hIceMin |
127 |
_RL hiMax |
_RL hiMax |
128 |
_RL hsMax |
_RL hsMax |
129 |
_RL iceMaskmax |
_RL iceMaskMax |
130 |
_RL iceMaskmin |
_RL iceMaskMin |
131 |
_RL himin0 |
_RL fracEnMelt |
132 |
_RL frac_energy |
_RL fracEnFreez |
133 |
_RL hihig |
_RL hThinIce |
134 |
|
_RL hThickIce |
135 |
|
_RL hNewIceMax |
136 |
|
|
137 |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
138 |
|
|