| File |
Line number |
Procedure |
Code |
|
./pkg/aim_v23/aim_aim2sioce.F |
155 |
AIM_AIM2SIOCE |
opFrac = 1. _d 0 - icFrac |
|
./pkg/aim_v23/aim_aim2sioce.F |
157 |
AIM_AIM2SIOCE |
& + opFrac*Qsw(i,j,bi,bj) |
|
./pkg/aim_v23/aim_aim2sioce.F |
195 |
AIM_AIM2SIOCE |
opFrac = 1. _d 0 - icFrac |
|
./pkg/aim_v23/aim_aim2sioce.F |
198 |
AIM_AIM2SIOCE |
Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj)*opFrac |
|
./pkg/aim_v23/aim_aim2sioce.F |
205 |
AIM_AIM2SIOCE |
EmPmR(i,j,bi,bj) = EmPmR(i,j,bi,bj)*opFrac |
|
./pkg/aim_v23/aim_aim2sioce.F |
210 |
AIM_AIM2SIOCE |
Qsw(i,j,bi,bj) = opFrac*Qsw(i,j,bi,bj) |
|
./pkg/aim_v23/aim_aim2sioce.F |
88 |
AIM_AIM2SIOCE |
_RL icFrac, opFrac |
|
./pkg/thsice/thsice_step_temp.F |
143 |
THSICE_STEP_TEMP |
opFrac = 1. _d 0 - icFrac |
|
./pkg/thsice/thsice_step_temp.F |
145 |
THSICE_STEP_TEMP |
Qsw(i,j,bi,bj) = opFrac*Qsw(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_temp.F |
70 |
THSICE_STEP_TEMP |
_RL opFrac, icFrac |
|
./pkg/thsice/thsice_step_fwd.F |
206 |
THSICE_STEP_FWD |
opFrac= 1. _d 0-icFrac |
|
./pkg/thsice/thsice_step_fwd.F |
208 |
THSICE_STEP_FWD |
& - opFrac*Qnet(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
210 |
THSICE_STEP_FWD |
& + opFrac*rhofw*EmPmR(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
211 |
THSICE_STEP_FWD |
Qnet(i,j,bi,bj) = -icFrac*flx2oc(i,j) + opFrac*Qnet(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
213 |
THSICE_STEP_FWD |
& + opFrac*EmPmR(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
85 |
THSICE_STEP_FWD |
_RL opFrac, icFrac |