Symbol Description Uses
iceFrac ice fraction [0-1] 40


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 175 THSICE_EXTEND 
          iceFrac = icFrac(i,j)
./pkg/thsice/thsice_extend.F 182 THSICE_EXTEND 
        iceVol = iceFrac*iceThick
./pkg/thsice/thsice_extend.F 185 THSICE_EXTEND 
        IF ( iceFrac.LE.0. _d 0 ) THEN
./pkg/thsice/thsice_extend.F 204 THSICE_EXTEND 
            iceFrac   = newIce/iceThick
./pkg/thsice/thsice_extend.F 211 THSICE_EXTEND 
            iceFrac = MIN(icFrac(i,j)+newIce/hNewIce,iceMaskMax)
./pkg/thsice/thsice_extend.F 214 THSICE_EXTEND 
            iceThick = MIN(hiMax,(iceVol+newIce)/iceFrac)
./pkg/thsice/thsice_extend.F 217 THSICE_EXTEND 
            iceFormed = iceThick*iceFrac - iceVol
./pkg/thsice/thsice_extend.F 219 THSICE_EXTEND 
            hSnow(i,j) = hSnow(i,j)*icFrac(i,j)/iceFrac
./pkg/thsice/thsice_extend.F 230 THSICE_EXTEND 
     &                       iceThick, newIce, iceFrac-icFrac(i,j)
./pkg/thsice/thsice_extend.F 232 THSICE_EXTEND 
     &                  iceFrac,flx2oc(i,j),fsalt(i,j),frw2oc(i,j)
./pkg/thsice/thsice_extend.F 237 THSICE_EXTEND 
     I            icFrac(i,j), iceFrac, iceThick, hSnow(i,j), qicen,
./pkg/thsice/thsice_extend.F 243 THSICE_EXTEND 
          IF ( iceFrac.GT.0. _d 0 .AND. icFrac(i,j).EQ.0. _d 0) THEN
./pkg/thsice/thsice_extend.F 251 THSICE_EXTEND 
          icFrac(i,j) = iceFrac
./pkg/thsice/thsice_extend.F 97 THSICE_EXTEND 
      _RL iceFrac
./pkg/thsice/thsice_step_fwd.F 139 THSICE_STEP_FWD 
          iceFrac(i,j) = 0.
./pkg/thsice/thsice_step_fwd.F 212 THSICE_STEP_FWD 
        iceFrac(i,j) = iceMask(i,j,bi,bj)
./pkg/thsice/thsice_step_fwd.F 217 THSICE_STEP_FWD 
         IF (frzmltMxL(i,j).GT.0. .OR. iceFrac(i,j).GT.0.) THEN
./pkg/thsice/thsice_step_fwd.F 220 THSICE_STEP_FWD 
     &                  iceFrac(i,j), iceHeight(i,j,bi,bj),
./pkg/thsice/thsice_step_fwd.F 226 THSICE_STEP_FWD 
         IF (iceFrac(i,j).GT.0.)
./pkg/thsice/thsice_step_fwd.F 228 THSICE_STEP_FWD 
     &      iceFrac(i,j), icFlxAtm(i,j,bi,bj),
./pkg/thsice/thsice_step_fwd.F 246 THSICE_STEP_FWD 
     U          iceFrac, iceHeight(siLo,sjLo,bi,bj),
./pkg/thsice/thsice_step_fwd.F 305 THSICE_STEP_FWD 
     &           iceFrac(i,j), iceHeight(i,j,bi,bj),
./pkg/thsice/thsice_step_fwd.F 335 THSICE_STEP_FWD 
     U          iceFrac, iceHeight(siLo,sjLo,bi,bj),
./pkg/thsice/thsice_step_fwd.F 363 THSICE_STEP_FWD 
     &           iceFrac(i,j), iceHeight(i,j,bi,bj),
./pkg/thsice/thsice_step_fwd.F 369 THSICE_STEP_FWD 
     &                  .AND.   iceFrac(i,j) .LE.0. _d 0
./pkg/thsice/thsice_step_fwd.F 370 THSICE_STEP_FWD 
        IF ( iceFrac(i,j) .GT. 0. _d 0 ) THEN
./pkg/thsice/thsice_step_fwd.F 371 THSICE_STEP_FWD 
          iceMask(i,j,bi,bj)=iceFrac(i,j)
./pkg/thsice/thsice_step_fwd.F 93 THSICE_STEP_FWD 
      _RL     iceFrac  (1-OLx:sNx+OLx,1-OLy:sNy+OLy)
./pkg/cheapaml/cheapaml.F 355 CHEAPAML 
     O                    Tsurf, iceFrac, Qsw(1-OLx,1-OLy,bi,bj),
./pkg/cheapaml/cheapaml.F 374 CHEAPAML 
              icFrac  = iceFrac(i,j)
./pkg/cheapaml/cheapaml.F 89 CHEAPAML 
        _RL iceFrac(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
./pkg/cheapaml/cheapaml_seaice.F 18 CHEAPAML_SEAICE 
     O                    Tsurf, iceFrac, sw2oce,
./pkg/cheapaml/cheapaml_seaice.F 232 CHEAPAML_SEAICE 
          iceFrac(i,j) = iceMask(i,j,bi,bj)
./pkg/cheapaml/cheapaml_seaice.F 86 CHEAPAML_SEAICE 
      _RL iceFrac(1-OLx:sNx+OLx,1-OLy:sNy+OLy)