| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/thsice_calc_thickn.F |
1002 |
THSICE_CALC_THICKN |
flx2oc(i,j) = flx2oc(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 |
1035 |
THSICE_CALC_THICKN |
& flx2oc(I,J),Fbot(i,j),(etope(i,j)+ebote(i,j))/dt |
|
./pkg/thsice/thsice_calc_thickn.F |
1080 |
THSICE_CALC_THICKN |
flx2oc(i,j)=flx2oc(i,j)+(extend-rqh)/dt |
|
./pkg/thsice/thsice_calc_thickn.F |
1085 |
THSICE_CALC_THICKN |
flx2oc(i,j)=flx2oc(i,j)+extend/dt |
|
./pkg/thsice/thsice_calc_thickn.F |
1112 |
THSICE_CALC_THICKN |
& icFrac(i,j), flx2oc(i,j), fsalt(i,j), frw2oc(i,j) |
|
./pkg/thsice/thsice_calc_thickn.F |
1129 |
THSICE_CALC_THICKN |
I flx2oc(i,j), frw2oc(i,j), fsalt, |
|
./pkg/thsice/thsice_calc_thickn.F |
128 |
THSICE_CALC_THICKN |
_RL flx2oc (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/thsice/thsice_calc_thickn.F |
15 |
THSICE_CALC_THICKN |
U frwAtm, fzMlOc, flx2oc, |
|
./pkg/thsice/thsice_calc_thickn.F |
707 |
THSICE_CALC_THICKN |
flx2oc(i,j) = flx2oc(i,j) - snowP(i,j)*Lfresh |
|
./pkg/thsice/thsice_extend.F |
127 |
THSICE_EXTEND |
flx2oc(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_extend.F |
15 |
THSICE_EXTEND |
O flx2oc, frw2oc, fsalt, |
|
./pkg/thsice/thsice_extend.F |
222 |
THSICE_EXTEND |
flx2oc(i,j)= qicAv*iceFormed/deltaTice |
|
./pkg/thsice/thsice_extend.F |
232 |
THSICE_EXTEND |
& iceFrac,flx2oc(i,j),fsalt(i,j),frw2oc(i,j) |
|
./pkg/thsice/thsice_extend.F |
238 |
THSICE_EXTEND |
I flx2oc(i,j), frw2oc(i,j), fsalt(i,j), |
|
./pkg/thsice/thsice_extend.F |
84 |
THSICE_EXTEND |
_RL flx2oc (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/thsice/thsice_step_fwd.F |
142 |
THSICE_STEP_FWD |
flx2oc(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_step_fwd.F |
213 |
THSICE_STEP_FWD |
flx2oc(i,j) = icFlxSW(i,j,bi,bj) + qPrcRnO(i,j) |
|
./pkg/thsice/thsice_step_fwd.F |
249 |
THSICE_STEP_FWD |
U icFrwAtm(siLo,sjLo,bi,bj), frzmltMxL, flx2oc, |
|
./pkg/thsice/thsice_step_fwd.F |
284 |
THSICE_STEP_FWD |
pass_qnet(i,j) = pass_qnet(i,j) - icFrac*flx2oc(i,j) |
|
./pkg/thsice/thsice_step_fwd.F |
292 |
THSICE_STEP_FWD |
Qnet(i,j,bi,bj) = -icFrac*flx2oc(i,j) + opFrac*Qnet(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
325 |
THSICE_STEP_FWD |
flx2oc(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_step_fwd.F |
339 |
THSICE_STEP_FWD |
O flx2oc, frw2oc, fsalt, |
|
./pkg/thsice/thsice_step_fwd.F |
350 |
THSICE_STEP_FWD |
pass_qnet(i,j) = pass_qnet(i,j) - flx2oc(i,j) |
|
./pkg/thsice/thsice_step_fwd.F |
354 |
THSICE_STEP_FWD |
Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj) - flx2oc(i,j) |
|
./pkg/thsice/thsice_step_fwd.F |
94 |
THSICE_STEP_FWD |
_RL flx2oc (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |