| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/thsice_calc_thickn.F |
1006 |
THSICE_CALC_THICKN |
frw2oc(i,j) = frw2oc(i,j) - evapLoc(i,j) |
|
./pkg/thsice/thsice_calc_thickn.F |
1010 |
THSICE_CALC_THICKN |
flx2oc(i,j) = flx2oc(i,j) + evapLoc(i,j)*Lfresh |
|
./pkg/thsice/thsice_calc_thickn.F |
1028 |
THSICE_CALC_THICKN |
& evapLoc(i,j),frw2oc(i,j),fsalt(i,j) |
|
./pkg/thsice/thsice_calc_thickn.F |
173 |
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 |
326 |
THSICE_CALC_THICKN |
evapLoc(i,j) = frwAtm(i,j) |
|
./pkg/thsice/thsice_calc_thickn.F |
727 |
THSICE_CALC_THICKN |
IF (evapLoc(i,j)/rhos *dt.GT.hSnow(i,j)) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
728 |
THSICE_CALC_THICKN |
evapLoc(i,j)=evapLoc(i,j)-hSnow(i,j)*rhos/dt |
|
./pkg/thsice/thsice_calc_thickn.F |
731 |
THSICE_CALC_THICKN |
hSnow(i,j) = hSnow(i,j) - evapLoc(i,j)/rhos *dt |
|
./pkg/thsice/thsice_calc_thickn.F |
732 |
THSICE_CALC_THICKN |
evapLoc(i,j)=0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
760 |
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 |
787 |
THSICE_CALC_THICKN |
dhi = evapLoc(i,j)/rhoi*dt |
|
./pkg/thsice/thsice_calc_thickn.F |
789 |
THSICE_CALC_THICKN |
evapLoc(i,j)=evapLoc(i,j)-hnew(i,j,k)*rhoi/dt |
|
./pkg/thsice/thsice_calc_thickn.F |
800 |
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 |
404 |
THSICE_GET_EXF |
evapLoc(i,j) = -tau*qstar(i,j) |
|
./pkg/thsice/thsice_get_exf.F |
405 |
THSICE_GET_EXF |
hlLocal = -lath*evapLoc(i,j) |
|
./pkg/thsice/thsice_get_exf.F |
432 |
THSICE_GET_EXF |
evapLoc(i,j) = -tau*delq(i,j) |
|
./pkg/thsice/thsice_get_exf.F |
433 |
THSICE_GET_EXF |
hlLocal = -lath*evapLoc(i,j) |
|
./pkg/thsice/thsice_get_exf.F |
452 |
THSICE_GET_EXF |
& flxExcSw(i,j), dFlxdT(i,j), evapLoc(i,j),dEvdT(i,j) |
|
./pkg/thsice/thsice_get_exf.F |
466 |
THSICE_GET_EXF |
evapLoc (i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_get_exf.F |
67 |
THSICE_GET_EXF |
_RL evapLoc (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |