| 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_calc_thickn.F |
121 |
THSICE_CALC_THICKN |
_RL iceFrac |
|
./pkg/thsice/thsice_calc_thickn.F |
181 |
THSICE_CALC_THICKN |
iceFrac = icFrac(i,j) |
|
./pkg/thsice/thsice_calc_thickn.F |
207 |
THSICE_CALC_THICKN |
IF (hi.GT.hihig .AND. iceFrac.LE.iceMaskmax) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
401 |
THSICE_CALC_THICKN |
iceFrac = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
489 |
THSICE_CALC_THICKN |
iceFrac = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
557 |
THSICE_CALC_THICKN |
& 'ThSI_CALC_TH: iceFrac,hi, qtot, hs =', iceFrac,hi, |
|
./pkg/thsice/thsice_calc_thickn.F |
567 |
THSICE_CALC_THICKN |
IF (hi.LE.0. _d 0) iceFrac=0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
611 |
THSICE_CALC_THICKN |
IF (iceFrac.GT.0. _d 0.AND.extend.GT.0. _d 0) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
618 |
THSICE_CALC_THICKN |
iceFrac=(1. _d 0-extend/rqh)*iceFrac |
|
./pkg/thsice/thsice_calc_thickn.F |
622 |
THSICE_CALC_THICKN |
iceFrac=0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
648 |
THSICE_CALC_THICKN |
& iceFrac, qleft, fsalt(i,j), fresh |
|
./pkg/thsice/thsice_calc_thickn.F |
652 |
THSICE_CALC_THICKN |
I iceMask(i,j), iceFrac, hi, hs, qicen, |
|
./pkg/thsice/thsice_calc_thickn.F |
658 |
THSICE_CALC_THICKN |
icFrac(i,j) = iceFrac |
|
./pkg/thsice/thsice_extend.F |
125 |
THSICE_EXTEND |
iceFrac = icFrac(i,j) |
|
./pkg/thsice/thsice_extend.F |
135 |
THSICE_EXTEND |
IF ( iceFrac.LE.0. _d 0 ) THEN |
|
./pkg/thsice/thsice_extend.F |
150 |
THSICE_EXTEND |
iceFrac = newIceFrac |
|
./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 |
172 |
THSICE_EXTEND |
& iceFrac,flx2oc(i,j),fsalt(i,j),frw2oc(i,j) |
|
./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 |
96 |
THSICE_EXTEND |
_RL iceFrac |
|
./pkg/thsice/thsice_step_fwd.F |
106 |
THSICE_STEP_FWD |
iceFrac(i,j) = 0. |
|
./pkg/thsice/thsice_step_fwd.F |
163 |
THSICE_STEP_FWD |
iceFrac(i,j) = iceMask(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
168 |
THSICE_STEP_FWD |
IF (frzmltMxL(i,j).GT.0. .OR. iceFrac(i,j).GT.0.) THEN |
|
./pkg/thsice/thsice_step_fwd.F |
171 |
THSICE_STEP_FWD |
& iceFrac(i,j), iceHeight(i,j,bi,bj), |
|
./pkg/thsice/thsice_step_fwd.F |
177 |
THSICE_STEP_FWD |
IF (iceFrac(i,j).GT.0.) |
|
./pkg/thsice/thsice_step_fwd.F |
179 |
THSICE_STEP_FWD |
& iceFrac(i,j), icFlxAtm(i,j,bi,bj), |
|
./pkg/thsice/thsice_step_fwd.F |
193 |
THSICE_STEP_FWD |
U iceFrac, iceHeight(siLo,sjLo,bi,bj), |
|
./pkg/thsice/thsice_step_fwd.F |
219 |
THSICE_STEP_FWD |
& iceFrac(i,j), iceHeight(i,j,bi,bj), |
|
./pkg/thsice/thsice_step_fwd.F |
242 |
THSICE_STEP_FWD |
U iceFrac, iceHeight(siLo,sjLo,bi,bj), |
|
./pkg/thsice/thsice_step_fwd.F |
260 |
THSICE_STEP_FWD |
& iceFrac(i,j), iceHeight(i,j,bi,bj), |
|
./pkg/thsice/thsice_step_fwd.F |
267 |
THSICE_STEP_FWD |
& .AND. iceFrac(i,j) .LE.0. _d 0 |
|
./pkg/thsice/thsice_step_fwd.F |
268 |
THSICE_STEP_FWD |
IF ( iceFrac(i,j) .GT. 0. _d 0 ) THEN |
|
./pkg/thsice/thsice_step_fwd.F |
269 |
THSICE_STEP_FWD |
iceMask(i,j,bi,bj)=iceFrac(i,j) |
|
./pkg/thsice/thsice_step_fwd.F |
76 |
THSICE_STEP_FWD |
_RL iceFrac (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |