| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/thsice_calc_thickn.F |
1003 |
THSICE_CALC_THICKN |
& + (Fbot(i,j)+(esurp(i,j)+etop(i,j)+ebot(i,j))/dt) |
|
./pkg/thsice/thsice_calc_thickn.F |
1007 |
THSICE_CALC_THICKN |
& esurp(i,j)/dt,etop(i,j)/dt,ebot(i,j)/dt |
|
./pkg/thsice/thsice_calc_thickn.F |
181 |
THSICE_CALC_THICKN |
_RL esurp (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/thsice/thsice_calc_thickn.F |
281 |
THSICE_CALC_THICKN |
esurp (i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
324 |
THSICE_CALC_THICKN |
esurp(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
450 |
THSICE_CALC_THICKN |
esurp(i,j) = sHeat(i,j) * dt |
|
./pkg/thsice/thsice_calc_thickn.F |
674 |
THSICE_CALC_THICKN |
esurp(i,j) = esurp(i,j) - rhos*qsnow*hSnow1(i,j) |
|
./pkg/thsice/thsice_calc_thickn.F |
685 |
THSICE_CALC_THICKN |
& 'ThSI_CALC_TH: -1 : esurp=',esurp(i,j) |
|
./pkg/thsice/thsice_calc_thickn.F |
796 |
THSICE_CALC_THICKN |
esurp(i,j) = esurp(i,j) |
|
./pkg/thsice/thsice_calc_thickn.F |
843 |
THSICE_CALC_THICKN |
esurp(i,j) = esurp(i,j) - rhos*qsnow*hSnow1(i,j) |
|
./pkg/thsice/thsice_calc_thickn.F |
855 |
THSICE_CALC_THICKN |
& esurp(i,j), frw2oc(i,j) |
|
./pkg/thsice/thsice_extend.F |
173 |
THSICE_EXTEND |
esurp = fzMlOc(i,j) |
|
./pkg/thsice/thsice_extend.F |
191 |
THSICE_EXTEND |
newIce = esurp*deltaTice/qicAv |
|
./pkg/thsice/thsice_extend.F |
95 |
THSICE_EXTEND |
_RL esurp |