| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/thsice_step_fwd.F |
144 |
THSICE_STEP_FWD |
opFrac= 1. _d 0-icFrac |
|
./pkg/thsice/thsice_step_fwd.F |
145 |
THSICE_STEP_FWD |
Qsw(i,j,bi,bj)=-icFrac*flxSW(i,j) +opFrac*Qsw(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
267 |
THSICE_STEP_FWD |
opFrac= 1. _d 0-icFrac |
|
./pkg/thsice/thsice_step_fwd.F |
268 |
THSICE_STEP_FWD |
flxAtm(i,j) = icFrac*flxAtm(i,j) - opFrac*Qnet(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
269 |
THSICE_STEP_FWD |
frwAtm = icFrac*frwAtm + opFrac*rhofw*EmPmR(i,j,bi,bj) |
|
./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 |
271 |
THSICE_STEP_FWD |
EmPmR(i,j,bi,bj)=-icFrac*frw2oc/rhofw+opFrac*EmPmR(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
87 |
THSICE_STEP_FWD |
_RL opFrac, icFrac |
|
./pkg/aim_v23/aim_aim2sioce.F |
129 |
AIM_AIM2SIOCE |
opFrac = 1. _d 0 - icFrac |
|
./pkg/aim_v23/aim_aim2sioce.F |
130 |
AIM_AIM2SIOCE |
Qsw(i,j,bi,bj) = icFrac*flxSW(i,j) + opFrac*Qsw(i,j,bi,bj) |
|
./pkg/aim_v23/aim_aim2sioce.F |
165 |
AIM_AIM2SIOCE |
opFrac = 1. _d 0 - icFrac |
|
./pkg/aim_v23/aim_aim2sioce.F |
168 |
AIM_AIM2SIOCE |
Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj)*opFrac |
|
./pkg/aim_v23/aim_aim2sioce.F |
175 |
AIM_AIM2SIOCE |
EmPmR(i,j,bi,bj) = EmPmR(i,j,bi,bj)*opFrac |
|
./pkg/aim_v23/aim_aim2sioce.F |
180 |
AIM_AIM2SIOCE |
Qsw(i,j,bi,bj) = opFrac*Qsw(i,j,bi,bj) |
|
./pkg/aim_v23/aim_aim2sioce.F |
75 |
AIM_AIM2SIOCE |
_RL icFrac, opFrac |