| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/thsice_calc_thickn.F |
108 |
THSICE_CALC_THICKN |
_RL esurp ! surplus energy from melting (J m-2) |
|
./pkg/thsice/thsice_calc_thickn.F |
129 |
THSICE_CALC_THICKN |
esurp = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
195 |
THSICE_CALC_THICKN |
esurp = sHeating * dt |
|
./pkg/thsice/thsice_calc_thickn.F |
323 |
THSICE_CALC_THICKN |
esurp = esurp - rhos*qsnow*hs |
|
./pkg/thsice/thsice_calc_thickn.F |
325 |
THSICE_CALC_THICKN |
esurp = esurp - rhoi*qicen(k)*hnew(k) |
|
./pkg/thsice/thsice_calc_thickn.F |
334 |
THSICE_CALC_THICKN |
IF (dBug) WRITE(6,1020) 'ThSI_CALC_TH: -1 : esurp=',esurp |
|
./pkg/thsice/thsice_calc_thickn.F |
383 |
THSICE_CALC_THICKN |
esurp = esurp - hnew(k)*rhoi*(qicen(k)-Lfresh) |
|
./pkg/thsice/thsice_calc_thickn.F |
411 |
THSICE_CALC_THICKN |
esurp = esurp - rhos*qsnow*hs |
|
./pkg/thsice/thsice_calc_thickn.F |
413 |
THSICE_CALC_THICKN |
esurp = esurp - rhoi*qicen(k)*hnew(k) |
|
./pkg/thsice/thsice_calc_thickn.F |
423 |
THSICE_CALC_THICKN |
& esurp, fresh |
|
./pkg/thsice/thsice_calc_thickn.F |
486 |
THSICE_CALC_THICKN |
qleft = qleft + (Fbot+(esurp+etop+ebot)/dt) |
|
./pkg/thsice/thsice_calc_thickn.F |
488 |
THSICE_CALC_THICKN |
& ,esurp/dt,etop/dt,ebot/dt |
|
./pkg/thsice/thsice_extend.F |
10 |
THSICE_EXTEND |
I esurp, Tf, |
|
./pkg/thsice/thsice_extend.F |
46 |
THSICE_EXTEND |
_RL esurp |
|
./pkg/thsice/thsice_extend.F |
89 |
THSICE_EXTEND |
newIce = esurp*deltaTice/qicAv |
|
./pkg/thsice/thsice_step_fwd.F |
294 |
THSICE_STEP_FWD |
esurp = frzmltMxL - Fbot*iceMask(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
295 |
THSICE_STEP_FWD |
IF (esurp.GT.0. _d 0) THEN |
|
./pkg/thsice/thsice_step_fwd.F |
300 |
THSICE_STEP_FWD |
I esurp, TFrzOce, |
|
./pkg/thsice/thsice_step_fwd.F |
86 |
THSICE_STEP_FWD |
_RL Fbot, esurp |