| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/thsice_check_conserv.F |
10 |
THSICE_CHECK_CONSERV |
I iceFrac, compact, hIce, hSnow, qicen, |
|
./pkg/thsice/thsice_check_conserv.F |
37 |
THSICE_CHECK_CONSERV |
_RL iceFrac |
|
./pkg/thsice/thsice_check_conserv.F |
61 |
THSICE_CHECK_CONSERV |
flxFrac = iceFrac |
|
./pkg/thsice/thsice_check_conserv.F |
75 |
THSICE_CHECK_CONSERV |
dEnerg = dEnerg*iceFrac |
|
./pkg/thsice/thsice_check_conserv.F |
79 |
THSICE_CHECK_CONSERV |
dWater = dWater*iceFrac |
|
./pkg/thsice/thsice_check_conserv.F |
81 |
THSICE_CHECK_CONSERV |
dSalt = dSalt*iceFrac |
|
./pkg/thsice/thsice_extend.F |
166 |
THSICE_EXTEND |
iceFrac = icFrac(i,j) |
|
./pkg/thsice/thsice_extend.F |
173 |
THSICE_EXTEND |
iceVol = iceFrac*iceThick |
|
./pkg/thsice/thsice_extend.F |
176 |
THSICE_EXTEND |
IF ( iceFrac.LE.0. _d 0 ) THEN |
|
./pkg/thsice/thsice_extend.F |
195 |
THSICE_EXTEND |
iceFrac = newIce/iceThick |
|
./pkg/thsice/thsice_extend.F |
202 |
THSICE_EXTEND |
iceFrac = MIN(icFrac(i,j)+newIce/hNewIce,iceMaskMax) |
|
./pkg/thsice/thsice_extend.F |
205 |
THSICE_EXTEND |
iceThick = MIN(hiMax,(iceVol+newIce)/iceFrac) |
|
./pkg/thsice/thsice_extend.F |
208 |
THSICE_EXTEND |
iceFormed = iceThick*iceFrac - iceVol |
|
./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 |
223 |
THSICE_EXTEND |
& iceFrac,flx2oc(i,j),fsalt(i,j),frw2oc(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 |
97 |
THSICE_EXTEND |
_RL iceFrac |
|
./pkg/thsice/thsice_step_fwd.F |
135 |
THSICE_STEP_FWD |
iceFrac(i,j) = 0. |
|
./pkg/thsice/thsice_step_fwd.F |
202 |
THSICE_STEP_FWD |
iceFrac(i,j) = iceMask(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
207 |
THSICE_STEP_FWD |
IF (frzmltMxL(i,j).GT.0. .OR. iceFrac(i,j).GT.0.) THEN |
|
./pkg/thsice/thsice_step_fwd.F |
210 |
THSICE_STEP_FWD |
& iceFrac(i,j), iceHeight(i,j,bi,bj), |
|
./pkg/thsice/thsice_step_fwd.F |
216 |
THSICE_STEP_FWD |
IF (iceFrac(i,j).GT.0.) |
|
./pkg/thsice/thsice_step_fwd.F |
218 |
THSICE_STEP_FWD |
& iceFrac(i,j), icFlxAtm(i,j,bi,bj), |
|
./pkg/thsice/thsice_step_fwd.F |
236 |
THSICE_STEP_FWD |
U iceFrac, iceHeight(siLo,sjLo,bi,bj), |
|
./pkg/thsice/thsice_step_fwd.F |
291 |
THSICE_STEP_FWD |
& iceFrac(i,j), iceHeight(i,j,bi,bj), |
|
./pkg/thsice/thsice_step_fwd.F |
314 |
THSICE_STEP_FWD |
U iceFrac, iceHeight(siLo,sjLo,bi,bj), |
|
./pkg/thsice/thsice_step_fwd.F |
342 |
THSICE_STEP_FWD |
& iceFrac(i,j), iceHeight(i,j,bi,bj), |
|
./pkg/thsice/thsice_step_fwd.F |
349 |
THSICE_STEP_FWD |
& .AND. iceFrac(i,j) .LE.0. _d 0 |
|
./pkg/thsice/thsice_step_fwd.F |
350 |
THSICE_STEP_FWD |
IF ( iceFrac(i,j) .GT. 0. _d 0 ) THEN |
|
./pkg/thsice/thsice_step_fwd.F |
351 |
THSICE_STEP_FWD |
iceMask(i,j,bi,bj)=iceFrac(i,j) |
|
./pkg/thsice/thsice_step_fwd.F |
88 |
THSICE_STEP_FWD |
_RL iceFrac (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |