| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/thsice_calc_thickn.F |
1011 |
THSICE_CALC_THICKN |
frw2oc(i,j) = frw2oc(i,j) - evapLoc(i,j) |
|
./pkg/thsice/thsice_calc_thickn.F |
1015 |
THSICE_CALC_THICKN |
flx2oc(i,j) = flx2oc(i,j) + evapLoc(i,j)*Lfresh |
|
./pkg/thsice/thsice_calc_thickn.F |
1033 |
THSICE_CALC_THICKN |
& evapLoc(i,j),frw2oc(i,j),fsalt(i,j) |
|
./pkg/thsice/thsice_calc_thickn.F |
175 |
THSICE_CALC_THICKN |
_RL evapLoc(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/thsice/thsice_calc_thickn.F |
275 |
THSICE_CALC_THICKN |
evapLoc(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
327 |
THSICE_CALC_THICKN |
evapLoc(i,j) = frwAtm(i,j) |
|
./pkg/thsice/thsice_calc_thickn.F |
730 |
THSICE_CALC_THICKN |
IF (evapLoc(i,j)/rhos *dt.GT.hSnow1(i,j)) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
731 |
THSICE_CALC_THICKN |
evapLoc(i,j)=evapLoc(i,j)-hSnow1(i,j)*rhos/dt |
|
./pkg/thsice/thsice_calc_thickn.F |
734 |
THSICE_CALC_THICKN |
hSnow1(i,j) = hSnow1(i,j) - evapLoc(i,j)/rhos *dt |
|
./pkg/thsice/thsice_calc_thickn.F |
735 |
THSICE_CALC_THICKN |
evapLoc(i,j)=0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
766 |
THSICE_CALC_THICKN |
IF (hIce(i,j).GT.0. _d 0.AND.evapLoc(i,j).GT.0. _d 0) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
793 |
THSICE_CALC_THICKN |
dhi = evapLoc(i,j)/rhoi*dt |
|
./pkg/thsice/thsice_calc_thickn.F |
795 |
THSICE_CALC_THICKN |
evapLoc(i,j)=evapLoc(i,j)-hnew(i,j,k)*rhoi/dt |
|
./pkg/thsice/thsice_calc_thickn.F |
806 |
THSICE_CALC_THICKN |
evapLoc(i,j)=0. _d 0 |
|
./pkg/thsice/thsice_get_exf.F |
16 |
THSICE_GET_EXF |
O flxExcSw, dFlxdT, evapLoc, dEvdT, |
|
./pkg/thsice/thsice_get_exf.F |
439 |
THSICE_GET_EXF |
evapLoc(i,j) = -tau*qstar(i,j) |
|
./pkg/thsice/thsice_get_exf.F |
440 |
THSICE_GET_EXF |
hlLocal = -lath*evapLoc(i,j) |
|
./pkg/thsice/thsice_get_exf.F |
472 |
THSICE_GET_EXF |
evapLoc(i,j) = -tau*delq(i,j) |
|
./pkg/thsice/thsice_get_exf.F |
473 |
THSICE_GET_EXF |
hlLocal = -lath*evapLoc(i,j) |
|
./pkg/thsice/thsice_get_exf.F |
501 |
THSICE_GET_EXF |
& flxExcSw(i,j), dFlxdT(i,j), evapLoc(i,j),dEvdT(i,j) |
|
./pkg/thsice/thsice_get_exf.F |
516 |
THSICE_GET_EXF |
evapLoc (i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_get_exf.F |
70 |
THSICE_GET_EXF |
_RL evapLoc (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |