| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/thsice_calc_thickn.F |
185 |
THSICE_CALC_THICKN |
_RL dhi |
|
./pkg/thsice/thsice_calc_thickn.F |
570 |
THSICE_CALC_THICKN |
dhi = -ebot(i,j) / (qbot * rhoi) |
|
./pkg/thsice/thsice_calc_thickn.F |
578 |
THSICE_CALC_THICKN |
& (hnew(i,j,nlyr)*qicen(i,j,nlyr)+dhi*qbot) / |
|
./pkg/thsice/thsice_calc_thickn.F |
579 |
THSICE_CALC_THICKN |
& (hnew(i,j,nlyr)+dhi) |
|
./pkg/thsice/thsice_calc_thickn.F |
580 |
THSICE_CALC_THICKN |
hnew(i,j,nlyr) = hnew(i,j,nlyr) + dhi |
|
./pkg/thsice/thsice_calc_thickn.F |
581 |
THSICE_CALC_THICKN |
frzSeaWat(i,j) = rhoi*dhi/dt |
|
./pkg/thsice/thsice_calc_thickn.F |
793 |
THSICE_CALC_THICKN |
dhi = evapLoc(i,j)/rhoi*dt |
|
./pkg/thsice/thsice_calc_thickn.F |
794 |
THSICE_CALC_THICKN |
IF (dhi.GE.hnew(i,j,k)) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
803 |
THSICE_CALC_THICKN |
hq = hnew(i,j,k)*qicen(i,j,k)-dhi*Lfresh |
|
./pkg/thsice/thsice_calc_thickn.F |
804 |
THSICE_CALC_THICKN |
hnew(i,j,k) = hnew(i,j,k) - dhi |
|
./pkg/thsice/thsice_calc_thickn.F |
913 |
THSICE_CALC_THICKN |
dhi = dhs * rhos / rhoi |
|
./pkg/thsice/thsice_calc_thickn.F |
915 |
THSICE_CALC_THICKN |
hnew(i,j,1) = hnew(i,j,1) + dhi |
|
./pkg/thsice/thsice_calc_thickn.F |
917 |
THSICE_CALC_THICKN |
hIce(i,j) = hIce(i,j) + dhi |