| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/thsice_step_fwd.F |
116 |
THSICE_STEP_FWD |
icFrac = iceMask(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
126 |
THSICE_STEP_FWD |
& icFrac, hIce,hSnow,Tsf |
|
./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 |
153 |
THSICE_STEP_FWD |
siceAlb(i,j,bi,bj) = icFrac*albedo |
|
./pkg/thsice/thsice_step_fwd.F |
247 |
THSICE_STEP_FWD |
icFrac = iceMask(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
249 |
THSICE_STEP_FWD |
I icFrac, compact, hIce, hSnow, qicen, |
|
./pkg/thsice/thsice_step_fwd.F |
266 |
THSICE_STEP_FWD |
icFrac = iceMask(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 |
272 |
THSICE_STEP_FWD |
saltFlux(i,j,bi,bj)=-icFrac*fsalt |
|
./pkg/thsice/thsice_step_fwd.F |
296 |
THSICE_STEP_FWD |
icFrac = compact |
|
./pkg/thsice/thsice_step_fwd.F |
311 |
THSICE_STEP_FWD |
I icFrac, compact, hIce, hSnow, qicen, |
|
./pkg/thsice/thsice_step_fwd.F |
317 |
THSICE_STEP_FWD |
IF ( compact.GT.0. _d 0 .AND. icFrac.EQ.0. _d 0) THEN |
|
./pkg/thsice/thsice_step_fwd.F |
87 |
THSICE_STEP_FWD |
_RL opFrac, icFrac |
|
./pkg/aim_v23/aim_aim2sioce.F |
128 |
AIM_AIM2SIOCE |
icFrac = iceMask(i,j,bi,bj) |
|
./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 |
164 |
AIM_AIM2SIOCE |
icFrac = siceFrac(i,j)/(1. _d 0 - land_frc(i,j,bi,bj)) |
|
./pkg/aim_v23/aim_aim2sioce.F |
165 |
AIM_AIM2SIOCE |
opFrac = 1. _d 0 - icFrac |
|
./pkg/aim_v23/aim_aim2sioce.F |
173 |
AIM_AIM2SIOCE |
& )*icFrac |
|
./pkg/aim_v23/aim_aim2sioce.F |
177 |
AIM_AIM2SIOCE |
& - prcAtm(i,j) ) * conv_EmP * icFrac |
|
./pkg/aim_v23/aim_aim2sioce.F |
181 |
AIM_AIM2SIOCE |
& + icFrac*SSR(I2,3,myThid) |
|
./pkg/aim_v23/aim_aim2sioce.F |
75 |
AIM_AIM2SIOCE |
_RL icFrac, opFrac |