| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/thsice_calc_thickn.F |
13 |
THSICE_CALC_THICKN |
O fresh, fsalt, Fbot, |
|
./pkg/thsice/thsice_calc_thickn.F |
143 |
THSICE_CALC_THICKN |
Fbot=0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
145 |
THSICE_CALC_THICKN |
Fbot=frzmlt |
|
./pkg/thsice/thsice_calc_thickn.F |
156 |
THSICE_CALC_THICKN |
Fbot = cpchr*(Tf-oceTs)*ustar ! < 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
157 |
THSICE_CALC_THICKN |
Fbot = max(Fbot,frzmlt) ! frzmlt < Fbot < 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
158 |
THSICE_CALC_THICKN |
Fbot = min(Fbot,0. _d 0) |
|
./pkg/thsice/thsice_calc_thickn.F |
166 |
THSICE_CALC_THICKN |
& evpAtm, frzmlt, Fbot |
|
./pkg/thsice/thsice_calc_thickn.F |
208 |
THSICE_CALC_THICKN |
ebot = (flxCnB-Fbot) * dt |
|
./pkg/thsice/thsice_calc_thickn.F |
486 |
THSICE_CALC_THICKN |
qleft = qleft + (Fbot+(esurp+etop+ebot)/dt) |
|
./pkg/thsice/thsice_calc_thickn.F |
511 |
THSICE_CALC_THICKN |
& Qleft,Fbot,(etope+ebote)/dt |
|
./pkg/thsice/thsice_calc_thickn.F |
66 |
THSICE_CALC_THICKN |
_RL Fbot |
|
./pkg/thsice/thsice_step_fwd.F |
192 |
THSICE_STEP_FWD |
Fbot = 0. _d 0 |
|
./pkg/thsice/thsice_step_fwd.F |
220 |
THSICE_STEP_FWD |
O frw2oc, fsalt, Fbot, |
|
./pkg/thsice/thsice_step_fwd.F |
294 |
THSICE_STEP_FWD |
esurp = frzmltMxL - Fbot*iceMask(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
86 |
THSICE_STEP_FWD |
_RL Fbot, esurp |