| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/thsice_calc_thickn.F |
183 |
THSICE_CALC_THICKN |
_RL dhi |
|
./pkg/thsice/thsice_calc_thickn.F |
569 |
THSICE_CALC_THICKN |
dhi = -ebot(i,j) / (qbot * rhoi) |
|
./pkg/thsice/thsice_calc_thickn.F |
577 |
THSICE_CALC_THICKN |
& (hnew(i,j,nlyr)*qicen(i,j,nlyr)+dhi*qbot) / |
|
./pkg/thsice/thsice_calc_thickn.F |
578 |
THSICE_CALC_THICKN |
& (hnew(i,j,nlyr)+dhi) |
|
./pkg/thsice/thsice_calc_thickn.F |
579 |
THSICE_CALC_THICKN |
hnew(i,j,nlyr) = hnew(i,j,nlyr) + dhi |
|
./pkg/thsice/thsice_calc_thickn.F |
787 |
THSICE_CALC_THICKN |
dhi = evapLoc(i,j)/rhoi*dt |
|
./pkg/thsice/thsice_calc_thickn.F |
788 |
THSICE_CALC_THICKN |
IF (dhi.GE.hnew(i,j,k)) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
797 |
THSICE_CALC_THICKN |
hq = hnew(i,j,k)*qicen(i,j,k)-dhi*Lfresh |
|
./pkg/thsice/thsice_calc_thickn.F |
798 |
THSICE_CALC_THICKN |
hnew(i,j,k) = hnew(i,j,1) - dhi |
|
./pkg/thsice/thsice_calc_thickn.F |
907 |
THSICE_CALC_THICKN |
dhi = dhs * rhos / rhoi |
|
./pkg/thsice/thsice_calc_thickn.F |
909 |
THSICE_CALC_THICKN |
hnew(i,j,1) = hnew(i,j,1) + dhi |
|
./pkg/thsice/thsice_calc_thickn.F |
911 |
THSICE_CALC_THICKN |
hIce(i,j) = hIce(i,j) + dhi |