| 34 |
the lower layer has a fixed heat capacity. A zero heat capacity snow |
the lower layer has a fixed heat capacity. A zero heat capacity snow |
| 35 |
layer lies above the ice. Heat fluxes at the top and bottom |
layer lies above the ice. Heat fluxes at the top and bottom |
| 36 |
surfaces are used to calculate the change in ice and snow layer |
surfaces are used to calculate the change in ice and snow layer |
| 37 |
thickness. Grid cells of the ocean model are |
thickness. Grid cells of the ocean model are |
| 38 |
either fully covered in ice or are open water. There is |
either fully covered in ice or are open water. There is |
| 39 |
a provision to parametrize ice fraction (and leads) in this package. |
a provision to parametrize ice fraction (and leads) in this package. |
| 40 |
Modifications are discussed in small font following the |
Modifications are discussed in small font following the |
| 59 |
\[ |
\[ |
| 60 |
{\bf frzmlt} = (T_f - SST) \frac{c_{sw} \rho_{sw} \Delta z}{\Delta t} |
{\bf frzmlt} = (T_f - SST) \frac{c_{sw} \rho_{sw} \Delta z}{\Delta t} |
| 61 |
\] |
\] |
| 62 |
where $c_{sw}$ is seawater heat capacity, |
where $c_{sw}$ is seawater heat capacity, |
| 63 |
$\rho_{sw}$ is the seawater density, $\Delta z$ |
$\rho_{sw}$ is the seawater density, $\Delta z$ |
| 64 |
is the ocean model upper layer thickness and $\Delta t$ is the model (tracer) |
is the ocean model upper layer thickness and $\Delta t$ is the model (tracer) |
| 65 |
timestep. The freezing temperature, $T_f=\mu S$ is a function of the |
timestep. The freezing temperature, $T_f=\mu S$ is a function of the |
| 72 |
|
|
| 73 |
2) If there is ice present in the grid cell |
2) If there is ice present in the grid cell |
| 74 |
we call the main ice model routine {\it ice\_therm.F} (see below). |
we call the main ice model routine {\it ice\_therm.F} (see below). |
| 75 |
Output from this routine gives net heat and freshwater flux |
Output from this routine gives net heat and freshwater flux |
| 76 |
affecting the top of the ocean. |
affecting the top of the ocean. |
| 77 |
|
|
| 78 |
Subroutine {\it ice\_forcing.F} uses these values to find the |
Subroutine {\it ice\_forcing.F} uses these values to find the |
| 79 |
sea surface tendencies |
sea surface tendencies |
| 80 |
in grid cells. When there is ice present, |
in grid cells. When there is ice present, |
| 81 |
the surface stress tendencies are |
the surface stress tendencies are |
| 82 |
set to zero; the ice model is purely thermodynamic and the |
set to zero; the ice model is purely thermodynamic and the |
| 83 |
effect of ice motion on the sea-surface is not examined. |
effect of ice motion on the sea-surface is not examined. |
| 96 |
{\bf {\underline{ subroutine ICE\_FREEZE}}} |
{\bf {\underline{ subroutine ICE\_FREEZE}}} |
| 97 |
|
|
| 98 |
This routine is called from {\it thermodynamics.F} |
This routine is called from {\it thermodynamics.F} |
| 99 |
after the new temperature calculation, {\it calc\_gt.F}, |
after the new temperature calculation, {\it calc\_gt.F}, |
| 100 |
but before {\it calc\_gs.F}. |
but before {\it calc\_gs.F}. |
| 101 |
In {\it ice\_freeze.F}, any ocean upper layer grid cell |
In {\it ice\_freeze.F}, any ocean upper layer grid cell |
| 102 |
with no ice cover, but with temperature below freezing, |
with no ice cover, but with temperature below freezing, |
| 106 |
freezing. In this routine, any water below the surface |
freezing. In this routine, any water below the surface |
| 107 |
that is below freezing is set to $T_f$. |
that is below freezing is set to $T_f$. |
| 108 |
A call to |
A call to |
| 109 |
{\it ice\_start.F} is made if {\bf frzmlt} $>0$, |
{\it ice\_start.F} is made if {\bf frzmlt} $>0$, |
| 110 |
and salinity tendancy is updated for brine release. |
and salinity tendancy is updated for brine release. |
| 111 |
|
|
| 112 |
\noindent |
\noindent |
| 126 |
The enthalpy of the 2 layers of any new ice is calculated as: |
The enthalpy of the 2 layers of any new ice is calculated as: |
| 127 |
\begin{eqnarray} |
\begin{eqnarray} |
| 128 |
q_1 & = & -c_{i}*T_f + L_i \nonumber \\ |
q_1 & = & -c_{i}*T_f + L_i \nonumber \\ |
| 129 |
q_2 & = & -c_{f}T_{mlt}+ c_{i}(T_{mlt}-T{f}) + L_i(1-\frac{T_{mlt}}{T_f} |
q_2 & = & -c_{f}T_{mlt}+ c_{i}(T_{mlt}-T{f}) + L_i(1-\frac{T_{mlt}}{T_f}) |
| 130 |
\nonumber \\ |
\nonumber |
| 131 |
\end{eqnarray} |
\end{eqnarray} |
| 132 |
where $c_f$ is specific heat of liquid fresh water, $c_i$ is the |
where $c_f$ is specific heat of liquid fresh water, $c_i$ is the |
| 133 |
specific heat of fresh ice, $L_i$ is latent heat of freezing, |
specific heat of fresh ice, $L_i$ is latent heat of freezing, |
| 134 |
$\rho_i$ is density of ice and |
$\rho_i$ is density of ice and |
| 135 |
$T_{mlt}$ is melting temperature of ice with salinity of 1. |
$T_{mlt}$ is melting temperature of ice with salinity of 1. |
| 136 |
The height of a new layer of ice is |
The height of a new layer of ice is |
| 148 |
must have a height of {\bf himin0}; this determines the ice |
must have a height of {\bf himin0}; this determines the ice |
| 149 |
fraction {\bf compact}. If there is already ice in the grid cell, |
fraction {\bf compact}. If there is already ice in the grid cell, |
| 150 |
the new ice must have the same height and the new ice fraction |
the new ice must have the same height and the new ice fraction |
| 151 |
is |
is |
| 152 |
\[ |
\[ |
| 153 |
i_f=(1-\hat{i_f}) \frac{h_{i new}}{h_i} |
i_f=(1-\hat{i_f}) \frac{h_{i new}}{h_i} |
| 154 |
\] |
\] |
| 155 |
where $\hat{i_f}$ is ice fraction from previous timestep |
where $\hat{i_f}$ is ice fraction from previous timestep |
| 156 |
and $h_i$ is current ice height. Snow is redistributed |
and $h_i$ is current ice height. Snow is redistributed |
| 157 |
over the new ice fraction. The ice fraction is |
over the new ice fraction. The ice fraction is |
| 158 |
not allowed to become larger than {\bf iceMaskmax} and |
not allowed to become larger than {\bf iceMaskmax} and |
| 159 |
if the ice height is above {\bf hihig} then freezing energy |
if the ice height is above {\bf hihig} then freezing energy |
| 169 |
\noindent |
\noindent |
| 170 |
The main subroutine of this package is {\it ice\_therm.F} where the |
The main subroutine of this package is {\it ice\_therm.F} where the |
| 171 |
ice temperatures are calculated and the changes in ice and snow |
ice temperatures are calculated and the changes in ice and snow |
| 172 |
thicknesses are determined. Output provides the net heat and fresh |
thicknesses are determined. Output provides the net heat and fresh |
| 173 |
water fluxes that force the top layer of the ocean model. |
water fluxes that force the top layer of the ocean model. |
| 174 |
|
|
| 175 |
If the current ice height is less than {\bf himin} then |
If the current ice height is less than {\bf himin} then |
| 181 |
|
|
| 182 |
We follow the procedure |
We follow the procedure |
| 183 |
of Winton (1999) -- see equations 3 to 21 -- to calculate |
of Winton (1999) -- see equations 3 to 21 -- to calculate |
| 184 |
the surface and internal ice temperatures. |
the surface and internal ice temperatures. |
| 185 |
The surface temperature is found from the balance of the |
The surface temperature is found from the balance of the |
| 186 |
flux at the surface $F_s$, the shortwave heat flux absorbed by the ice, |
flux at the surface $F_s$, the shortwave heat flux absorbed by the ice, |
| 187 |
{\bf fswint}, and |
{\bf fswint}, and |
| 188 |
the upward conduction of heat through the snow and/or ice, $F_u$. |
the upward conduction of heat through the snow and/or ice, $F_u$. |
| 189 |
We linearize $F_s$ about the surface temperature, $\hat{T_s}$, |
We linearize $F_s$ about the surface temperature, $\hat{T_s}$, |
| 190 |
at the previous timestep (where \mbox{}$\hat{ }$ indicates the value at |
at the previous timestep (where \mbox{}$\hat{ }$ indicates the value at |
| 191 |
the previous timestep): |
the previous timestep): |
| 192 |
\[ |
\[ |
| 193 |
F_s (T_s) = F_s(\hat{T_s}) + \frac{\partial F_s(\hat{T_s)}}{\partial T_s} |
F_s (T_s) = F_s(\hat{T_s}) + \frac{\partial F_s(\hat{T_s)}}{\partial T_s} |
| 194 |
(T_s-\hat{T_s}) |
(T_s-\hat{T_s}) |
| 195 |
\] |
\] |
| 196 |
where, |
where, |
| 197 |
\[ |
\[ |
| 198 |
F_s = F_{sensible}+F_{latent}+F_{longwave}^{down}+F_{longwave}^{up}+ (1- |
F_s = F_{sensible}+F_{latent}+F_{longwave}^{down}+F_{longwave}^{up}+ (1- |
| 199 |
\alpha) F_{shortwave} |
\alpha) F_{shortwave} |
| 203 |
\frac{d F_s}{dT} = \frac{d F_{sensible}}{dT} + \frac{d F_{latent}}{dT} |
\frac{d F_s}{dT} = \frac{d F_{sensible}}{dT} + \frac{d F_{latent}}{dT} |
| 204 |
+\frac{d F_{longwave}^{up}}{dT}. |
+\frac{d F_{longwave}^{up}}{dT}. |
| 205 |
\] |
\] |
| 206 |
$F_s$ and $\frac{d F_s}{dT}$ are currently calculated from the {\bf BULKF} |
$F_s$ and $\frac{d F_s}{dT}$ are currently calculated from the {\bf BULKF} |
| 207 |
package described separately, but could also be provided by an atmospheric |
package described separately, but could also be provided by an atmospheric |
| 208 |
model. The surface albedo is calculated from the ice height and/or |
model. The surface albedo is calculated from the ice height and/or |
| 209 |
surface temperature (see below, {\it srf\_albedo.F}) and the |
surface temperature (see below, {\it srf\_albedo.F}) and the |
| 210 |
shortwave flux absorbed in the ice is |
shortwave flux absorbed in the ice is |
| 211 |
\[ |
\[ |
| 212 |
{\bf fswint} = (1-e^{\kappa_i h_i})(1-\alpha) F_{shortwave} |
{\bf fswint} = (1-e^{\kappa_i h_i})(1-\alpha) F_{shortwave} |
| 257 |
\end{eqnarray} |
\end{eqnarray} |
| 258 |
where $F_b$ is the heat flux at the ice bottom due to the sea surface |
where $F_b$ is the heat flux at the ice bottom due to the sea surface |
| 259 |
temperature variations from freezing. |
temperature variations from freezing. |
| 260 |
If $T_{sst}$ is above freezing, $F_b=c_{sw} \rho_{sw} |
If $T_{sst}$ is above freezing, $F_b=c_{sw} \rho_{sw} |
| 261 |
\gamma (T_{sst}-T_f)u^{*}$, $\gamma$ is the heat transfer coefficient |
\gamma (T_{sst}-T_f)u^{*}$, $\gamma$ is the heat transfer coefficient |
| 262 |
and $u^{*}=QQ$ is frictional velocity between ice |
and $u^{*}=QQ$ is frictional velocity between ice |
| 263 |
and water. If $T_{sst}$ is below freezing, |
and water. If $T_{sst}$ is below freezing, |
| 264 |
$F_b=(T_f - T_{sst})c_f \rho_f \Delta z /\Delta t$ and set $T_{sst}$ |
$F_b=(T_f - T_{sst})c_f \rho_f \Delta z /\Delta t$ and set $T_{sst}$ |
| 265 |
to $T_f$. We also |
to $T_f$. We also |
| 268 |
|
|
| 269 |
If $E_{top}>0$ we melt snow from the surface, if all the snow is melted |
If $E_{top}>0$ we melt snow from the surface, if all the snow is melted |
| 270 |
and there is energy left, we melt the ice. If the ice is all gone |
and there is energy left, we melt the ice. If the ice is all gone |
| 271 |
and there is still energy left, we apply the left over energy to |
and there is still energy left, we apply the left over energy to |
| 272 |
heating the ocean model upper layer (See Winton, 1999, equations 27-29). |
heating the ocean model upper layer (See Winton, 1999, equations 27-29). |
| 273 |
Similarly if $E_{bot}>0$ we melt ice from the bottom. If all the ice |
Similarly if $E_{bot}>0$ we melt ice from the bottom. If all the ice |
| 274 |
is melted, the snow is melted (with energy from the ocean model upper layer |
is melted, the snow is melted (with energy from the ocean model upper layer |
| 286 |
If there is a ice layer and the overlying air temperature is |
If there is a ice layer and the overlying air temperature is |
| 287 |
below 0$^o$C then any precipitation, $P$ joins the snow layer: |
below 0$^o$C then any precipitation, $P$ joins the snow layer: |
| 288 |
\[ |
\[ |
| 289 |
\Delta h_s = -P \frac{\rho_f}{\rho_s} \Delta t, |
\Delta h_s = -P \frac{\rho_f}{\rho_s} \Delta t, |
| 290 |
\] |
\] |
| 291 |
$\rho_f$ and $\rho_s$ are the fresh water and snow densities. |
$\rho_f$ and $\rho_s$ are the fresh water and snow densities. |
| 292 |
Any evaporation, similarly, removes snow or ice from the surface. |
Any evaporation, similarly, removes snow or ice from the surface. |
| 342 |
\[ \alpha = f_s \alpha_s + (1-f_s) (\alpha_{i_{min}} |
\[ \alpha = f_s \alpha_s + (1-f_s) (\alpha_{i_{min}} |
| 343 |
+ (\alpha_{i_{max}}- \alpha_{i_{min}}) (1-e^{-h_i/h_{\alpha}})) |
+ (\alpha_{i_{max}}- \alpha_{i_{min}}) (1-e^{-h_i/h_{\alpha}})) |
| 344 |
\] |
\] |
| 345 |
where $f_s$ is 1 if there is snow, 0 if not; the snow albedo, |
where $f_s$ is 1 if there is snow, 0 if not; the snow albedo, |
| 346 |
$\alpha_s$ has two values |
$\alpha_s$ has two values |
| 347 |
depending on whether $T_s<0$ or not; $\alpha_{i_{min}}$ and |
depending on whether $T_s<0$ or not; $\alpha_{i_{min}}$ and |
| 348 |
$\alpha_{i_{max}}$ are ice albedos for thin melting ice, and |
$\alpha_{i_{max}}$ are ice albedos for thin melting ice, and |
| 349 |
thick bare ice respectively, and $h_{\alpha}$ is a scale |
thick bare ice respectively, and $h_{\alpha}$ is a scale |
| 350 |
height. |
height. |
| 430 |
{\bf {\underline{Common Blocks}}} |
{\bf {\underline{Common Blocks}}} |
| 431 |
|
|
| 432 |
\noindent |
\noindent |
| 433 |
{\it ICE.h}: Ice Varibles, also |
{\it ICE.h}: Ice Varibles, also |
| 434 |
{\bf relaxlat} and {\bf startIceModel} |
{\bf relaxlat} and {\bf startIceModel} |
| 435 |
|
|
| 436 |
\noindent |
\noindent |
| 438 |
from {\it ice\_diags.F} |
from {\it ice\_diags.F} |
| 439 |
|
|
| 440 |
\noindent |
\noindent |
| 441 |
{\it BULKF\_ICE\_CONSTANTS.h} (in {\bf BULKF} package): |
{\it BULKF\_ICE\_CONSTANTS.h} (in {\bf BULKF} package): |
| 442 |
all the parameters need by the ice model |
all the parameters need by the ice model |
| 443 |
|
|
| 444 |
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% |
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% |
| 485 |
\begin{verbatim} |
\begin{verbatim} |
| 486 |
|
|
| 487 |
------------------------------------------------------------------------ |
------------------------------------------------------------------------ |
| 488 |
<-Name->|Levs|<-parsing code->|<-- Units -->|<- Tile (max=80c) |
<-Name->|Levs|<-parsing code->|<-- Units -->|<- Tile (max=80c) |
| 489 |
------------------------------------------------------------------------ |
------------------------------------------------------------------------ |
| 490 |
SI_Fract| 1 |SM P M1 |0-1 |Sea-Ice fraction [0-1] |
SI_Fract| 1 |SM P M1 |0-1 |Sea-Ice fraction [0-1] |
| 491 |
SI_Thick| 1 |SM PC197M1 |m |Sea-Ice thickness (area weighted average) |
SI_Thick| 1 |SM PC197M1 |m |Sea-Ice thickness (area weighted average) |
| 511 |
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% |
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% |
| 512 |
\vspace{1cm} |
\vspace{1cm} |
| 513 |
|
|
| 514 |
\noindent |
\noindent |
| 515 |
{\bf {\underline{References}}} |
{\bf {\underline{References}}} |
| 516 |
|
|
| 517 |
\noindent |
\noindent |