| File |
Line number |
Procedure |
Code |
|
./pkg/aim_v23/aim_aim2sioce.F |
154 |
AIM_AIM2SIOCE |
icFrac = iceMask(i,j,bi,bj) |
|
./pkg/aim_v23/aim_aim2sioce.F |
155 |
AIM_AIM2SIOCE |
opFrac = 1. _d 0 - icFrac |
|
./pkg/aim_v23/aim_aim2sioce.F |
156 |
AIM_AIM2SIOCE |
Qsw(i,j,bi,bj) = icFrac*icFlxSW(i,j,bi,bj) |
|
./pkg/aim_v23/aim_aim2sioce.F |
194 |
AIM_AIM2SIOCE |
icFrac = siceFrac(i,j)/(1. _d 0 - land_frc(i,j,bi,bj)) |
|
./pkg/aim_v23/aim_aim2sioce.F |
195 |
AIM_AIM2SIOCE |
opFrac = 1. _d 0 - icFrac |
|
./pkg/aim_v23/aim_aim2sioce.F |
203 |
AIM_AIM2SIOCE |
& )*icFrac |
|
./pkg/aim_v23/aim_aim2sioce.F |
207 |
AIM_AIM2SIOCE |
& - prcAtm(i,j) ) * conv_EmP * icFrac |
|
./pkg/aim_v23/aim_aim2sioce.F |
211 |
AIM_AIM2SIOCE |
& + icFrac*SSR(I2,3,myThid) |
|
./pkg/aim_v23/aim_aim2sioce.F |
88 |
AIM_AIM2SIOCE |
_RL icFrac, opFrac |
|
./pkg/thsice/thsice_calc_thickn.F |
14 |
THSICE_CALC_THICKN |
U icFrac, hIce, hSnow, tSrf, qIc1, qIc2, |
|
./pkg/thsice/thsice_calc_thickn.F |
181 |
THSICE_CALC_THICKN |
iceFrac = icFrac(i,j) |
|
./pkg/thsice/thsice_calc_thickn.F |
658 |
THSICE_CALC_THICKN |
icFrac(i,j) = iceFrac |
|
./pkg/thsice/thsice_calc_thickn.F |
95 |
THSICE_CALC_THICKN |
_RL icFrac (siLo:siHi,sjLo:sjHi) |
|
./pkg/thsice/thsice_step_temp.F |
142 |
THSICE_STEP_TEMP |
icFrac = iceMask(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_temp.F |
143 |
THSICE_STEP_TEMP |
opFrac = 1. _d 0 - icFrac |
|
./pkg/thsice/thsice_step_temp.F |
146 |
THSICE_STEP_TEMP |
& - icFrac*icFlxSW(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_temp.F |
70 |
THSICE_STEP_TEMP |
_RL opFrac, icFrac |
|
./pkg/thsice/thsice_extend.F |
125 |
THSICE_EXTEND |
iceFrac = icFrac(i,j) |
|
./pkg/thsice/thsice_extend.F |
13 |
THSICE_EXTEND |
U icFrac, hIce, hSnow, |
|
./pkg/thsice/thsice_extend.F |
143 |
THSICE_EXTEND |
IF (icFrac(i,j).EQ.0. _d 0) THEN |
|
./pkg/thsice/thsice_extend.F |
155 |
THSICE_EXTEND |
newIceFrac=MIN(newIce/iceThick,iceMaskmax-icFrac(i,j)) |
|
./pkg/thsice/thsice_extend.F |
156 |
THSICE_EXTEND |
iceFrac = icFrac(i,j) + newIceFrac |
|
./pkg/thsice/thsice_extend.F |
158 |
THSICE_EXTEND |
snowThick = snowThick*icFrac(i,j)/iceFrac |
|
./pkg/thsice/thsice_extend.F |
177 |
THSICE_EXTEND |
I icFrac(i,j), iceFrac, iceThick, snowThick, qicen, |
|
./pkg/thsice/thsice_extend.F |
183 |
THSICE_EXTEND |
IF ( iceFrac.GT.0. _d 0 .AND. icFrac(i,j).EQ.0. _d 0) THEN |
|
./pkg/thsice/thsice_extend.F |
190 |
THSICE_EXTEND |
icFrac(i,j) = iceFrac |
|
./pkg/thsice/thsice_extend.F |
74 |
THSICE_EXTEND |
_RL icFrac (siLo:siHi,sjLo:sjHi) |
|
./pkg/thsice/thsice_step_fwd.F |
205 |
THSICE_STEP_FWD |
icFrac = iceMask(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
206 |
THSICE_STEP_FWD |
opFrac= 1. _d 0-icFrac |
|
./pkg/thsice/thsice_step_fwd.F |
207 |
THSICE_STEP_FWD |
icFlxAtm(i,j,bi,bj) = icFrac*icFlxAtm(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
209 |
THSICE_STEP_FWD |
icFrwAtm(i,j,bi,bj) = icFrac*icFrwAtm(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 |
212 |
THSICE_STEP_FWD |
EmPmR(i,j,bi,bj)= -icFrac*frw2oc(i,j)/rhofw |
|
./pkg/thsice/thsice_step_fwd.F |
214 |
THSICE_STEP_FWD |
saltFlux(i,j,bi,bj) = -icFrac*fsalt(i,j) |
|
./pkg/thsice/thsice_step_fwd.F |
85 |
THSICE_STEP_FWD |
_RL opFrac, icFrac |