| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/thsice_calc_thickn.F |
130 |
THSICE_CALC_THICKN |
_RL flx2oc (siLo:siHi,sjLo:sjHi) |
|
./pkg/thsice/thsice_calc_thickn.F |
15 |
THSICE_CALC_THICKN |
U frwAtm, fzMlOc, flx2oc, |
|
./pkg/thsice/thsice_calc_thickn.F |
308 |
THSICE_CALC_THICKN |
qleft = flx2oc(i,j) |
|
./pkg/thsice/thsice_calc_thickn.F |
909 |
THSICE_CALC_THICKN |
flx2oc(i,j) = qleft |
|
./pkg/thsice/thsice_extend.F |
15 |
THSICE_EXTEND |
O flx2oc, frw2oc, fsalt, |
|
./pkg/thsice/thsice_extend.F |
207 |
THSICE_EXTEND |
flx2oc(i,j)= qicAv*iceFormed/deltaTice |
|
./pkg/thsice/thsice_extend.F |
217 |
THSICE_EXTEND |
& iceFrac,flx2oc(i,j),fsalt(i,j),frw2oc(i,j) |
|
./pkg/thsice/thsice_extend.F |
223 |
THSICE_EXTEND |
I flx2oc(i,j), frw2oc(i,j), fsalt(i,j), |
|
./pkg/thsice/thsice_extend.F |
87 |
THSICE_EXTEND |
_RL flx2oc (siLo:siHi,sjLo:sjHi) |
|
./pkg/thsice/thsice_step_fwd.F |
198 |
THSICE_STEP_FWD |
flx2oc(i,j) = icFlxSW(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
234 |
THSICE_STEP_FWD |
U icFrwAtm(siLo,sjLo,bi,bj), frzmltMxL, flx2oc, |
|
./pkg/thsice/thsice_step_fwd.F |
264 |
THSICE_STEP_FWD |
pass_qnet(i,j) = pass_qnet(i,j) - icFrac*flx2oc(i,j) |
|
./pkg/thsice/thsice_step_fwd.F |
272 |
THSICE_STEP_FWD |
Qnet(i,j,bi,bj) = -icFrac*flx2oc(i,j) + opFrac*Qnet(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
308 |
THSICE_STEP_FWD |
O flx2oc, frw2oc, fsalt, |
|
./pkg/thsice/thsice_step_fwd.F |
320 |
THSICE_STEP_FWD |
pass_qnet(i,j) = pass_qnet(i,j) - flx2oc(i,j) |
|
./pkg/thsice/thsice_step_fwd.F |
324 |
THSICE_STEP_FWD |
Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj) - flx2oc(i,j) |
|
./pkg/thsice/thsice_step_fwd.F |
89 |
THSICE_STEP_FWD |
_RL flx2oc (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |