| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/thsice_step_fwd.F |
220 |
THSICE_STEP_FWD |
O frw2oc, fsalt, Fbot, |
|
./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 |
264 |
THSICE_STEP_FWD |
frw2oc = frw2oc + (prcAtm(i,j)-snowPrc(i,j,bi,bj)) |
|
./pkg/thsice/thsice_step_fwd.F |
271 |
THSICE_STEP_FWD |
EmPmR(i,j,bi,bj)=-icFrac*frw2oc/rhofw+opFrac*EmPmR(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 |
328 |
THSICE_STEP_FWD |
EmPmR(i,j,bi,bj)= EmPmR(i,j,bi,bj)- frw2oc/rhofw |
|
./pkg/thsice/thsice_step_fwd.F |
83 |
THSICE_STEP_FWD |
_RL frw2oc |