| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/thsice_calc_thickn.F |
148 |
THSICE_CALC_THICKN |
_RL iceFrac |
|
./pkg/thsice/thsice_calc_thickn.F |
300 |
THSICE_CALC_THICKN |
iceFrac = icFrac(i,j) |
|
./pkg/thsice/thsice_calc_thickn.F |
348 |
THSICE_CALC_THICKN |
IF ( iceFrac.LT.iceMaskMax ) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
394 |
THSICE_CALC_THICKN |
frace = (iceFrac - lowIcFrac1)/(lowIcFrac2-iceMaskMin) |
|
./pkg/thsice/thsice_calc_thickn.F |
410 |
THSICE_CALC_THICKN |
IF ( iceFrac.LE.lowIcFrac1 ) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
412 |
THSICE_CALC_THICKN |
ELSEIF (iceFrac.LE.lowIcFrac2 ) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
601 |
THSICE_CALC_THICKN |
iceFrac = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
717 |
THSICE_CALC_THICKN |
iceFrac = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
799 |
THSICE_CALC_THICKN |
& 'ThSI_CALC_TH: iceFrac,hi, qtot, hs =', iceFrac,hi, |
|
./pkg/thsice/thsice_calc_thickn.F |
809 |
THSICE_CALC_THICKN |
IF (hi.LE.0. _d 0) iceFrac=0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
853 |
THSICE_CALC_THICKN |
IF (iceFrac.GT.0. _d 0.AND.extend.GT.0. _d 0) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
860 |
THSICE_CALC_THICKN |
iceFrac=(1. _d 0-extend/rqh)*iceFrac |
|
./pkg/thsice/thsice_calc_thickn.F |
862 |
THSICE_CALC_THICKN |
IF ( extend.LT.rqh .AND. iceFrac.GE.iceMaskMin ) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
866 |
THSICE_CALC_THICKN |
iceFrac=0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
892 |
THSICE_CALC_THICKN |
& iceFrac, qleft, fsalt(i,j), fresh |
|
./pkg/thsice/thsice_calc_thickn.F |
896 |
THSICE_CALC_THICKN |
I iceMask(i,j), iceFrac, hi, hs, qicen, |
|
./pkg/thsice/thsice_calc_thickn.F |
902 |
THSICE_CALC_THICKN |
icFrac(i,j) = iceFrac |
|
./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 |
100 |
THSICE_EXTEND |
_RL iceFrac |
|
./pkg/thsice/thsice_extend.F |
160 |
THSICE_EXTEND |
iceFrac = icFrac(i,j) |
|
./pkg/thsice/thsice_extend.F |
167 |
THSICE_EXTEND |
iceVol = iceFrac*iceThick |
|
./pkg/thsice/thsice_extend.F |
170 |
THSICE_EXTEND |
IF ( iceFrac.LE.0. _d 0 ) THEN |
|
./pkg/thsice/thsice_extend.F |
189 |
THSICE_EXTEND |
iceFrac = newIce/iceThick |
|
./pkg/thsice/thsice_extend.F |
196 |
THSICE_EXTEND |
iceFrac = MIN(icFrac(i,j)+newIce/hNewIce,iceMaskMax) |
|
./pkg/thsice/thsice_extend.F |
199 |
THSICE_EXTEND |
iceThick = MIN(hiMax,(iceVol+newIce)/iceFrac) |
|
./pkg/thsice/thsice_extend.F |
202 |
THSICE_EXTEND |
iceFormed = iceThick*iceFrac - iceVol |
|
./pkg/thsice/thsice_extend.F |
204 |
THSICE_EXTEND |
hSnow(i,j) = hSnow(i,j)*icFrac(i,j)/iceFrac |
|
./pkg/thsice/thsice_extend.F |
215 |
THSICE_EXTEND |
& iceThick, newIce, iceFrac-icFrac(i,j) |
|
./pkg/thsice/thsice_extend.F |
217 |
THSICE_EXTEND |
& iceFrac,flx2oc(i,j),fsalt(i,j),frw2oc(i,j) |
|
./pkg/thsice/thsice_extend.F |
222 |
THSICE_EXTEND |
I icFrac(i,j), iceFrac, iceThick, hSnow(i,j), qicen, |
|
./pkg/thsice/thsice_extend.F |
228 |
THSICE_EXTEND |
IF ( iceFrac.GT.0. _d 0 .AND. icFrac(i,j).EQ.0. _d 0) THEN |
|
./pkg/thsice/thsice_extend.F |
236 |
THSICE_EXTEND |
icFrac(i,j) = iceFrac |
|
./pkg/thsice/thsice_step_fwd.F |
135 |
THSICE_STEP_FWD |
iceFrac(i,j) = 0. |
|
./pkg/thsice/thsice_step_fwd.F |
197 |
THSICE_STEP_FWD |
iceFrac(i,j) = iceMask(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
202 |
THSICE_STEP_FWD |
IF (frzmltMxL(i,j).GT.0. .OR. iceFrac(i,j).GT.0.) THEN |
|
./pkg/thsice/thsice_step_fwd.F |
205 |
THSICE_STEP_FWD |
& iceFrac(i,j), iceHeight(i,j,bi,bj), |
|
./pkg/thsice/thsice_step_fwd.F |
211 |
THSICE_STEP_FWD |
IF (iceFrac(i,j).GT.0.) |
|
./pkg/thsice/thsice_step_fwd.F |
213 |
THSICE_STEP_FWD |
& iceFrac(i,j), icFlxAtm(i,j,bi,bj), |
|
./pkg/thsice/thsice_step_fwd.F |
231 |
THSICE_STEP_FWD |
U iceFrac, iceHeight(siLo,sjLo,bi,bj), |
|
./pkg/thsice/thsice_step_fwd.F |
281 |
THSICE_STEP_FWD |
& iceFrac(i,j), iceHeight(i,j,bi,bj), |
|
./pkg/thsice/thsice_step_fwd.F |
304 |
THSICE_STEP_FWD |
U iceFrac, iceHeight(siLo,sjLo,bi,bj), |
|
./pkg/thsice/thsice_step_fwd.F |
332 |
THSICE_STEP_FWD |
& iceFrac(i,j), iceHeight(i,j,bi,bj), |
|
./pkg/thsice/thsice_step_fwd.F |
339 |
THSICE_STEP_FWD |
& .AND. iceFrac(i,j) .LE.0. _d 0 |
|
./pkg/thsice/thsice_step_fwd.F |
340 |
THSICE_STEP_FWD |
IF ( iceFrac(i,j) .GT. 0. _d 0 ) THEN |
|
./pkg/thsice/thsice_step_fwd.F |
341 |
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) |