Symbol Description Uses
icFrac seaice fraction (input) 72


File Line number Procedure Code
./pkg/seaice/seaice_get_dynforcing.F 13 SEAICE_GET_DYNFORCING 
     I     uIce, vIce, icFrac,
./pkg/seaice/seaice_get_dynforcing.F 289 SEAICE_GET_DYNFORCING 
              locFrac = ( icFrac( i, j,bi,bj)
./pkg/seaice/seaice_get_dynforcing.F 290 SEAICE_GET_DYNFORCING 
     &                  + icFrac(i-1,j,bi,bj) )*halfRL
./pkg/seaice/seaice_get_dynforcing.F 304 SEAICE_GET_DYNFORCING 
              locFrac = ( icFrac(i, j, bi,bj)
./pkg/seaice/seaice_get_dynforcing.F 305 SEAICE_GET_DYNFORCING 
     &                  + icFrac(i,j-1,bi,bj) )*halfRL
./pkg/seaice/seaice_get_dynforcing.F 58 SEAICE_GET_DYNFORCING 
      _RL icFrac (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
./pkg/thsice/thsice_calc_thickn.F 1064 THSICE_CALC_THICKN 
         IF (icFrac(i,j).GT.0. _d 0.AND.extend.GT.0. _d 0) THEN
./pkg/thsice/thsice_calc_thickn.F 1071 THSICE_CALC_THICKN 
           icFrac(i,j)=(1. _d 0-extend/rqh)*icFrac(i,j)
./pkg/thsice/thsice_calc_thickn.F 1073 THSICE_CALC_THICKN 
          IF ( extend.LT.rqh .AND. icFrac(i,j).GE.iceMaskMin ) THEN
./pkg/thsice/thsice_calc_thickn.F 1077 THSICE_CALC_THICKN 
           icFrac(i,j)=0. _d 0
./pkg/thsice/thsice_calc_thickn.F 1112 THSICE_CALC_THICKN 
     &        icFrac(i,j), flx2oc(i,j), fsalt(i,j), frw2oc(i,j)
./pkg/thsice/thsice_calc_thickn.F 1127 THSICE_CALC_THICKN 
     I        iceMask(i,j), icFrac(i,j), hIce(i,j), hSnow1(i,j),
./pkg/thsice/thsice_calc_thickn.F 120 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, hSnow1, tSrf, qIc1, qIc2,
./pkg/thsice/thsice_calc_thickn.F 364 THSICE_CALC_THICKN 
          IF ( icFrac(i,j).LT.iceMaskMax ) THEN
./pkg/thsice/thsice_calc_thickn.F 419 THSICE_CALC_THICKN 
          frace = (icFrac(i,j) - lowIcFrac1)/(lowIcFrac2-iceMaskMin)
./pkg/thsice/thsice_calc_thickn.F 435 THSICE_CALC_THICKN 
         IF ( icFrac(i,j).LE.lowIcFrac1 ) THEN
./pkg/thsice/thsice_calc_thickn.F 437 THSICE_CALC_THICKN 
         ELSEIF (icFrac(i,j).LE.lowIcFrac2 ) THEN
./pkg/thsice/thsice_calc_thickn.F 680 THSICE_CALC_THICKN 
          icFrac(i,j) = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 849 THSICE_CALC_THICKN 
           icFrac(i,j) = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 980 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 999 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 175 THSICE_EXTEND 
          iceFrac = icFrac(i,j)
./pkg/thsice/thsice_extend.F 193 THSICE_EXTEND 
        IF ( icFrac(i,j).EQ.0. _d 0 ) THEN
./pkg/thsice/thsice_extend.F 211 THSICE_EXTEND 
            iceFrac = MIN(icFrac(i,j)+newIce/hNewIce,iceMaskMax)
./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 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 76 THSICE_EXTEND 
      _RL icFrac (1-OLx:sNx+OLx,1-OLy:sNy+OLy)
./pkg/thsice/thsice_step_fwd.F 103 THSICE_STEP_FWD 
      _RL opFrac, icFrac
./pkg/thsice/thsice_step_fwd.F 281 THSICE_STEP_FWD 
          icFrac = iceMask(i,j,bi,bj)
./pkg/thsice/thsice_step_fwd.F 282 THSICE_STEP_FWD 
          opFrac= 1. _d 0-icFrac
./pkg/thsice/thsice_step_fwd.F 284 THSICE_STEP_FWD 
          pass_qnet(i,j) = pass_qnet(i,j) - icFrac*flx2oc(i,j)
./pkg/thsice/thsice_step_fwd.F 285 THSICE_STEP_FWD 
          pass_evap(i,j) = pass_evap(i,j) - icFrac*frw2oc(i,j)/rhofw
./pkg/thsice/thsice_step_fwd.F 286 THSICE_STEP_FWD 
          sFluxFromIce(i,j) = -icFrac*fsalt(i,j)
./pkg/thsice/thsice_step_fwd.F 288 THSICE_STEP_FWD 
          icFlxAtm(i,j,bi,bj) = icFrac*icFlxAtm(i,j,bi,bj)
./pkg/thsice/thsice_step_fwd.F 290 THSICE_STEP_FWD 
          icFrwAtm(i,j,bi,bj) = icFrac*icFrwAtm(i,j,bi,bj)
./pkg/thsice/thsice_step_fwd.F 292 THSICE_STEP_FWD 
          Qnet(i,j,bi,bj) = -icFrac*flx2oc(i,j) + opFrac*Qnet(i,j,bi,bj)
./pkg/thsice/thsice_step_fwd.F 293 THSICE_STEP_FWD 
          EmPmR(i,j,bi,bj)= -icFrac*frw2oc(i,j)
./pkg/thsice/thsice_step_fwd.F 295 THSICE_STEP_FWD 
          saltFlux(i,j,bi,bj) = -icFrac*fsalt(i,j)
./pkg/thsice/thsice_step_fwd.F 300 THSICE_STEP_FWD 
          frzSeaWat(i,j) = MAX( -icFrac*frw2oc(i,j), 0. _d 0 )
./pkg/thsice/thsice_step_temp.F 190 THSICE_STEP_TEMP 
          icFrac  = iceMask(i,j,bi,bj)
./pkg/thsice/thsice_step_temp.F 191 THSICE_STEP_TEMP 
          opFrac = 1. _d 0 - icFrac
./pkg/thsice/thsice_step_temp.F 194 THSICE_STEP_TEMP 
     &                   - icFrac*icFlxSW(i,j,bi,bj)
./pkg/thsice/thsice_step_temp.F 76 THSICE_STEP_TEMP 
      _RL opFrac, icFrac
./pkg/aim_v23/aim_aim2sioce.F 151 AIM_AIM2SIOCE 
         icFrac = iceMask(i,j,bi,bj)
./pkg/aim_v23/aim_aim2sioce.F 152 AIM_AIM2SIOCE 
         opFrac = 1. _d 0 - icFrac
./pkg/aim_v23/aim_aim2sioce.F 153 AIM_AIM2SIOCE 
         Qsw(i,j,bi,bj) = icFrac*icFlxSW(i,j,bi,bj)
./pkg/aim_v23/aim_aim2sioce.F 191 AIM_AIM2SIOCE 
          icFrac = siceFrac(i,j)/(1. _d 0 - land_frc(i,j,bi,bj))
./pkg/aim_v23/aim_aim2sioce.F 192 AIM_AIM2SIOCE 
          opFrac = 1. _d 0 - icFrac
./pkg/aim_v23/aim_aim2sioce.F 200 AIM_AIM2SIOCE 
     &                      )*icFrac
./pkg/aim_v23/aim_aim2sioce.F 204 AIM_AIM2SIOCE 
     &                       - prcAtm(i,j) ) * convPrcEvp * icFrac
./pkg/aim_v23/aim_aim2sioce.F 208 AIM_AIM2SIOCE 
     &                   + icFrac*SSR(I2,3,myThid)
./pkg/aim_v23/aim_aim2sioce.F 89 AIM_AIM2SIOCE 
      _RL icFrac, opFrac
./pkg/cheapaml/cheapaml.F 374 CHEAPAML 
              icFrac  = iceFrac(i,j)
./pkg/cheapaml/cheapaml.F 375 CHEAPAML 
              opFrac = 1. _d 0 - icFrac
./pkg/cheapaml/cheapaml.F 377 CHEAPAML 
              Qsw(i,j,bi,bj) = - ( icFrac*Qsw(i,j,bi,bj)
./pkg/cheapaml/cheapaml.F 379 CHEAPAML 
              fsha(i,j) = icFrac*fsha(i,j) + opFrac*fsha0
./pkg/cheapaml/cheapaml.F 380 CHEAPAML 
              flha(i,j) = icFrac*flha(i,j) + opFrac*flha0
./pkg/cheapaml/cheapaml.F 381 CHEAPAML 
              evp(i,j)  = icFrac*evp(i,j)  + opFrac*evp_0
./pkg/cheapaml/cheapaml.F 382 CHEAPAML 
              xolw(i,j) = icFrac*xolw(i,j) + opFrac*xolw0
./pkg/cheapaml/cheapaml.F 383 CHEAPAML 
              ssqt(i,j) = icFrac*ssqt(i,j) + opFrac*ssqt0
./pkg/cheapaml/cheapaml.F 384 CHEAPAML 
              q100(i,j) = icFrac*q100(i,j) + opFrac*q100_0
./pkg/cheapaml/cheapaml.F 385 CHEAPAML 
              cdq(i,j)  = icFrac*cdq(i,j)  + opFrac*cdq_0
./pkg/cheapaml/cheapaml.F 90 CHEAPAML 
        _RL icFrac, opFrac
./pkg/cheapaml/cheapaml_seaice.F 101 CHEAPAML_SEAICE 
      _RL icFrac, opFrac
./pkg/cheapaml/cheapaml_seaice.F 254 CHEAPAML_SEAICE 
           icFrac  = iceMask(i,j,bi,bj)
./pkg/cheapaml/cheapaml_seaice.F 255 CHEAPAML_SEAICE 
           opFrac = 1. _d 0 - icFrac