File |
Line number |
Procedure |
Code |
./pkg/thsice/thsice_step_fwd.F |
214 |
THSICE_STEP_FWD |
flx2oc = flxSW(i,j) |
./pkg/thsice/thsice_step_fwd.F |
219 |
THSICE_STEP_FWD |
U compact, hIce, hSnow, Tsf, qicen, flx2oc, |
./pkg/thsice/thsice_step_fwd.F |
245 |
THSICE_STEP_FWD |
& compact,flx2oc,fsalt,frw2oc |
./pkg/thsice/thsice_step_fwd.F |
250 |
THSICE_STEP_FWD |
I flx2oc, frw2oc, fsalt, flxAtm(i,j), frwAtm, |
./pkg/thsice/thsice_step_fwd.F |
270 |
THSICE_STEP_FWD |
Qnet(i,j,bi,bj)=-icFrac*flx2oc +opFrac*Qnet(i,j,bi,bj) |
./pkg/thsice/thsice_step_fwd.F |
302 |
THSICE_STEP_FWD |
O flx2oc, frw2oc, fsalt, |
./pkg/thsice/thsice_step_fwd.F |
306 |
THSICE_STEP_FWD |
& ,compact,flx2oc,fsalt,frw2oc |
./pkg/thsice/thsice_step_fwd.F |
312 |
THSICE_STEP_FWD |
I flx2oc, frw2oc, fsalt, tmpflx(1), tmpflx(2), |
./pkg/thsice/thsice_step_fwd.F |
327 |
THSICE_STEP_FWD |
Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj) - flx2oc |
./pkg/thsice/thsice_step_fwd.F |
82 |
THSICE_STEP_FWD |
_RL flx2oc |