| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/thsice_extend.F |
103 |
THSICE_EXTEND |
newIceFrac=MIN(newIce/iceThick,iceMaskmax-iceFraction) |
|
./pkg/thsice/thsice_extend.F |
104 |
THSICE_EXTEND |
compact = iceFraction + newIceFrac |
|
./pkg/thsice/thsice_extend.F |
107 |
THSICE_EXTEND |
sst=(1. _d 0-newIceFrac)*sst+newIceFrac*Tf |
|
./pkg/thsice/thsice_extend.F |
109 |
THSICE_EXTEND |
qleft= iceThick*newIceFrac*qicAv/deltaTice |
|
./pkg/thsice/thsice_extend.F |
110 |
THSICE_EXTEND |
fresh=-(rhoi*iceThick)*newIceFrac/deltaTice |
|
./pkg/thsice/thsice_extend.F |
111 |
THSICE_EXTEND |
fsalt=-(rhoi*iceThick*saltice)*newIceFrac/deltaTice |
|
./pkg/thsice/thsice_extend.F |
114 |
THSICE_EXTEND |
& iceThick, newIce, newIceFrac |
|
./pkg/thsice/thsice_extend.F |
67 |
THSICE_EXTEND |
_RL newIceFrac |
|
./pkg/thsice/thsice_extend.F |
80 |
THSICE_EXTEND |
newIceFrac = 0. _d 0 |
|
./pkg/thsice/thsice_extend.F |
97 |
THSICE_EXTEND |
newIceFrac = MIN(newIce/himin0,iceMaskmax) |
|
./pkg/thsice/thsice_extend.F |
98 |
THSICE_EXTEND |
compact = newIceFrac |