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 floodFac :: flooding factor = (rhosw-rhoi)/rhos [dimensionless] |
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] |
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, floodFac, |
81 |
& cpIce, cpWater, |
& cpIce, cpWater, |
82 |
& kIce, kSnow, |
& kIce, kSnow, |
83 |
& bMeltCoef, Lfresh, qsnow, |
& bMeltCoef, Lfresh, qsnow, |
96 |
_RL rhoi |
_RL rhoi |
97 |
_RL rhosw |
_RL rhosw |
98 |
_RL rhofw |
_RL rhofw |
99 |
_RL rhoiw |
_RL floodFac |
100 |
_RL cpIce |
_RL cpIce |
101 |
_RL cpWater |
_RL cpWater |
102 |
_RL kIce |
_RL kIce |