| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/thsice_calc_thickn.F |
1059 |
THSICE_CALC_THICKN |
IF (icFrac(i,j).GT.0. _d 0.AND.extend.GT.0. _d 0) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
1066 |
THSICE_CALC_THICKN |
icFrac(i,j)=(1. _d 0-extend/rqh)*icFrac(i,j) |
|
./pkg/thsice/thsice_calc_thickn.F |
1068 |
THSICE_CALC_THICKN |
IF ( extend.LT.rqh .AND. icFrac(i,j).GE.iceMaskMin ) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
1072 |
THSICE_CALC_THICKN |
icFrac(i,j)=0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
1107 |
THSICE_CALC_THICKN |
& icFrac(i,j), flx2oc(i,j), fsalt(i,j), frw2oc(i,j) |
|
./pkg/thsice/thsice_calc_thickn.F |
1122 |
THSICE_CALC_THICKN |
I iceMask(i,j), icFrac(i,j), hIce(i,j), hSnow(i,j), |
|
./pkg/thsice/thsice_calc_thickn.F |
119 |
THSICE_CALC_THICKN |
_RL icFrac (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/thsice/thsice_calc_thickn.F |
14 |
THSICE_CALC_THICKN |
U icFrac, hIce, hSnow, tSrf, qIc1, qIc2, |
|
./pkg/thsice/thsice_calc_thickn.F |
363 |
THSICE_CALC_THICKN |
IF ( icFrac(i,j).LT.iceMaskMax ) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
418 |
THSICE_CALC_THICKN |
frace = (icFrac(i,j) - lowIcFrac1)/(lowIcFrac2-iceMaskMin) |
|
./pkg/thsice/thsice_calc_thickn.F |
434 |
THSICE_CALC_THICKN |
IF ( icFrac(i,j).LE.lowIcFrac1 ) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
436 |
THSICE_CALC_THICKN |
ELSEIF (icFrac(i,j).LE.lowIcFrac2 ) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
677 |
THSICE_CALC_THICKN |
icFrac(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
843 |
THSICE_CALC_THICKN |
icFrac(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
975 |
THSICE_CALC_THICKN |
& icFrac(i,j),hIce(i,j), (qicen(i,j,1)+qicen(i,j,2))*0.5, |
|
./pkg/thsice/thsice_calc_thickn.F |
994 |
THSICE_CALC_THICKN |
IF (hIce(i,j).LE.0. _d 0) icFrac(i,j)=0. _d 0 |
|
./pkg/thsice/thsice_extend.F |
13 |
THSICE_EXTEND |
U icFrac, hIce, hSnow, |
|
./pkg/thsice/thsice_extend.F |
166 |
THSICE_EXTEND |
iceFrac = icFrac(i,j) |
|
./pkg/thsice/thsice_extend.F |
184 |
THSICE_EXTEND |
IF ( icFrac(i,j).EQ.0. _d 0 ) THEN |
|
./pkg/thsice/thsice_extend.F |
202 |
THSICE_EXTEND |
iceFrac = MIN(icFrac(i,j)+newIce/hNewIce,iceMaskMax) |
|
./pkg/thsice/thsice_extend.F |
210 |
THSICE_EXTEND |
hSnow(i,j) = hSnow(i,j)*icFrac(i,j)/iceFrac |
|
./pkg/thsice/thsice_extend.F |
221 |
THSICE_EXTEND |
& iceThick, newIce, iceFrac-icFrac(i,j) |
|
./pkg/thsice/thsice_extend.F |
228 |
THSICE_EXTEND |
I icFrac(i,j), iceFrac, iceThick, hSnow(i,j), qicen, |
|
./pkg/thsice/thsice_extend.F |
234 |
THSICE_EXTEND |
IF ( iceFrac.GT.0. _d 0 .AND. icFrac(i,j).EQ.0. _d 0) THEN |
|
./pkg/thsice/thsice_extend.F |
242 |
THSICE_EXTEND |
icFrac(i,j) = iceFrac |
|
./pkg/thsice/thsice_extend.F |
76 |
THSICE_EXTEND |
_RL icFrac (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/thsice/thsice_step_fwd.F |
271 |
THSICE_STEP_FWD |
icFrac = iceMask(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
272 |
THSICE_STEP_FWD |
opFrac= 1. _d 0-icFrac |
|
./pkg/thsice/thsice_step_fwd.F |
274 |
THSICE_STEP_FWD |
pass_qnet(i,j) = pass_qnet(i,j) - icFrac*flx2oc(i,j) |
|
./pkg/thsice/thsice_step_fwd.F |
275 |
THSICE_STEP_FWD |
pass_evap(i,j) = pass_evap(i,j) - icFrac*frw2oc(i,j)/rhofw |
|
./pkg/thsice/thsice_step_fwd.F |
276 |
THSICE_STEP_FWD |
sFluxFromIce(i,j) = -icFrac*fsalt(i,j) |
|
./pkg/thsice/thsice_step_fwd.F |
278 |
THSICE_STEP_FWD |
icFlxAtm(i,j,bi,bj) = icFrac*icFlxAtm(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
280 |
THSICE_STEP_FWD |
icFrwAtm(i,j,bi,bj) = icFrac*icFrwAtm(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
282 |
THSICE_STEP_FWD |
Qnet(i,j,bi,bj) = -icFrac*flx2oc(i,j) + opFrac*Qnet(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
283 |
THSICE_STEP_FWD |
EmPmR(i,j,bi,bj)= -icFrac*frw2oc(i,j) |
|
./pkg/thsice/thsice_step_fwd.F |
285 |
THSICE_STEP_FWD |
saltFlux(i,j,bi,bj) = -icFrac*fsalt(i,j) |
|
./pkg/thsice/thsice_step_fwd.F |
97 |
THSICE_STEP_FWD |
_RL opFrac, icFrac |
|
./pkg/thsice/thsice_step_temp.F |
183 |
THSICE_STEP_TEMP |
icFrac = iceMask(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_temp.F |
184 |
THSICE_STEP_TEMP |
opFrac = 1. _d 0 - icFrac |
|
./pkg/thsice/thsice_step_temp.F |
187 |
THSICE_STEP_TEMP |
& - icFrac*icFlxSW(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_temp.F |
77 |
THSICE_STEP_TEMP |
_RL opFrac, icFrac |
|
./pkg/aim_v23/aim_aim2sioce.F |
150 |
AIM_AIM2SIOCE |
icFrac = iceMask(i,j,bi,bj) |
|
./pkg/aim_v23/aim_aim2sioce.F |
151 |
AIM_AIM2SIOCE |
opFrac = 1. _d 0 - icFrac |
|
./pkg/aim_v23/aim_aim2sioce.F |
152 |
AIM_AIM2SIOCE |
Qsw(i,j,bi,bj) = icFrac*icFlxSW(i,j,bi,bj) |
|
./pkg/aim_v23/aim_aim2sioce.F |
190 |
AIM_AIM2SIOCE |
icFrac = siceFrac(i,j)/(1. _d 0 - land_frc(i,j,bi,bj)) |
|
./pkg/aim_v23/aim_aim2sioce.F |
191 |
AIM_AIM2SIOCE |
opFrac = 1. _d 0 - icFrac |
|
./pkg/aim_v23/aim_aim2sioce.F |
199 |
AIM_AIM2SIOCE |
& )*icFrac |
|
./pkg/aim_v23/aim_aim2sioce.F |
203 |
AIM_AIM2SIOCE |
& - prcAtm(i,j) ) * convPrcEvp * icFrac |
|
./pkg/aim_v23/aim_aim2sioce.F |
207 |
AIM_AIM2SIOCE |
& + icFrac*SSR(I2,3,myThid) |
|
./pkg/aim_v23/aim_aim2sioce.F |
88 |
AIM_AIM2SIOCE |
_RL icFrac, opFrac |