Symbol Description Uses
iceVol temporary array used in advection S/R 67


File Line number Procedure Code
./pkg/thsice/thsice_advdiff.F 158 THSICE_ADVDIFF 
         iceVol(i,j) = 0. _d 0
./pkg/thsice/thsice_advdiff.F 212 THSICE_ADVDIFF 
     U       iceVol, iceFrc,
./pkg/thsice/thsice_advdiff.F 219 THSICE_ADVDIFF 
          iceVol(i,j) = iceMask(i,j,bi,bj)*rA(i,j,bi,bj)
./pkg/thsice/thsice_advdiff.F 225 THSICE_ADVDIFF 
     U       iceVol, snowHeight(1-Olx,1-Oly,bi,bj),
./pkg/thsice/thsice_advdiff.F 236 THSICE_ADVDIFF 
          iceVol(i,j) = iceMask(i,j,bi,bj)*rA(i,j,bi,bj)
./pkg/thsice/thsice_advdiff.F 237 THSICE_ADVDIFF 
          oldVol(i,j) = iceVol(i,j)*iceHeight(i,j,bi,bj)
./pkg/thsice/thsice_advdiff.F 243 THSICE_ADVDIFF 
     U       iceVol, iceHeight(1-Olx,1-Oly,bi,bj),
./pkg/thsice/thsice_advdiff.F 260 THSICE_ADVDIFF 
           tmpVar = ABS(iceVol(i,j)-iceFrc(i,j)*rA(i,j,bi,bj))
./pkg/thsice/thsice_advdiff.F 269 THSICE_ADVDIFF 
     &                        iceVol(i,j),iceFrc(i,j)*rA(i,j,bi,bj),
./pkg/thsice/thsice_advdiff.F 317 THSICE_ADVDIFF 
          iceVol(i,j) = oldVol(i,j)
./pkg/thsice/thsice_advdiff.F 323 THSICE_ADVDIFF 
     U       iceVol, Qice1(1-Olx,1-Oly,bi,bj),
./pkg/thsice/thsice_advdiff.F 354 THSICE_ADVDIFF 
          iceVol(i,j) = oldVol(i,j)
./pkg/thsice/thsice_advdiff.F 360 THSICE_ADVDIFF 
     U       iceVol, Qice2(1-Olx,1-Oly,bi,bj),
./pkg/thsice/thsice_advdiff.F 370 THSICE_ADVDIFF 
           tmpVar = ABS(iceVol(i,j)
./pkg/thsice/thsice_advdiff.F 380 THSICE_ADVDIFF 
     &      iceVol(i,j),iceHeight(i,j,bi,bj)*iceFrc(i,j)*rA(i,j,bi,bj),
./pkg/thsice/thsice_advdiff.F 442 THSICE_ADVDIFF 
           iceVol(i,j) = iceMask(i,j,bi,bj)*iceHeight(i,j,bi,bj)
./pkg/thsice/thsice_advdiff.F 444 THSICE_ADVDIFF 
           IF ( iceVol(i,j).GE.hIceMin*iceMaskMin ) THEN
./pkg/thsice/thsice_advdiff.F 445 THSICE_ADVDIFF 
            iceMask(i,j,bi,bj)    = iceVol(i,j)/hIceMin
./pkg/thsice/thsice_advdiff.F 525 THSICE_ADVDIFF 
           iceVol(i,j) = iceMask(i,j,bi,bj)*iceHeight(i,j,bi,bj)
./pkg/thsice/thsice_advdiff.F 530 THSICE_ADVDIFF 
     I                   iceVol,tmpFac,1,'SI_AdvQ1',
./pkg/thsice/thsice_advdiff.F 534 THSICE_ADVDIFF 
     I                   iceVol,tmpFac,1,'SI_AdvQ2',
./pkg/thsice/thsice_advdiff.F 90 THSICE_ADVDIFF 
      _RL iceVol    (1-Olx:sNx+Olx,1-Oly:sNy+Oly)
./pkg/thsice/thsice_advection.F 19 THSICE_ADVECTION 
     U     iceVol, iceFld,
./pkg/thsice/thsice_advection.F 307 THSICE_ADVECTION 
     &                               iceVol, bi,bj, myThid )
./pkg/thsice/thsice_advection.F 325 THSICE_ADVECTION 
     &        MAX( uTrans(i,j), 0. _d 0 )/MAX( iceVol(i-1,j), iceEps )
./pkg/thsice/thsice_advection.F 326 THSICE_ADVECTION 
     &       +MAX(-uTrans(i,j), 0. _d 0 )/MAX( iceVol( i ,j), iceEps )
./pkg/thsice/thsice_advection.F 364 THSICE_ADVECTION 
     &                               iceVol, bi,bj, myThid )
./pkg/thsice/thsice_advection.F 398 THSICE_ADVECTION 
            tmpVol = iceVol(i,j)
./pkg/thsice/thsice_advection.F 399 THSICE_ADVECTION 
            iceVol(i,j) = iceVol(i,j)
./pkg/thsice/thsice_advection.F 402 THSICE_ADVECTION 
            IF ( iceVol(i,j).GT.iceEps )
./pkg/thsice/thsice_advection.F 406 THSICE_ADVECTION 
     &                    )/iceVol(i,j)
./pkg/thsice/thsice_advection.F 422 THSICE_ADVECTION 
            tmpVol = iceVol(i,j)
./pkg/thsice/thsice_advection.F 423 THSICE_ADVECTION 
            iceVol(i,j) = iceVol(i,j)
./pkg/thsice/thsice_advection.F 426 THSICE_ADVECTION 
            IF ( iceVol(i,j).GT.iceEps )
./pkg/thsice/thsice_advection.F 430 THSICE_ADVECTION 
     &                    )/iceVol(i,j)
./pkg/thsice/thsice_advection.F 468 THSICE_ADVECTION 
            tmpVol = iceVol(i,j)
./pkg/thsice/thsice_advection.F 469 THSICE_ADVECTION 
            iceVol(i,j) = iceVol(i,j)
./pkg/thsice/thsice_advection.F 472 THSICE_ADVECTION 
            IF ( iceVol(i,j).GT.iceEps )
./pkg/thsice/thsice_advection.F 476 THSICE_ADVECTION 
     &                    )/iceVol(i,j)
./pkg/thsice/thsice_advection.F 522 THSICE_ADVECTION 
     &                               iceVol, bi,bj, myThid )
./pkg/thsice/thsice_advection.F 540 THSICE_ADVECTION 
     &        MAX( vTrans(i,j), 0. _d 0 )/MAX( iceVol(i,j-1), iceEps )
./pkg/thsice/thsice_advection.F 541 THSICE_ADVECTION 
     &       +MAX(-vTrans(i,j), 0. _d 0 )/MAX( iceVol(i, j ), iceEps )
./pkg/thsice/thsice_advection.F 578 THSICE_ADVECTION 
     &                               iceVol, bi,bj, myThid )
./pkg/thsice/thsice_advection.F 612 THSICE_ADVECTION 
            tmpVol = iceVol(i,j)
./pkg/thsice/thsice_advection.F 613 THSICE_ADVECTION 
            iceVol(i,j) = iceVol(i,j)
./pkg/thsice/thsice_advection.F 616 THSICE_ADVECTION 
            IF ( iceVol(i,j).GT.iceEps )
./pkg/thsice/thsice_advection.F 620 THSICE_ADVECTION 
     &                    )/iceVol(i,j)
./pkg/thsice/thsice_advection.F 636 THSICE_ADVECTION 
            tmpVol = iceVol(i,j)
./pkg/thsice/thsice_advection.F 637 THSICE_ADVECTION 
            iceVol(i,j) = iceVol(i,j)
./pkg/thsice/thsice_advection.F 640 THSICE_ADVECTION 
            IF ( iceVol(i,j).GT.iceEps )
./pkg/thsice/thsice_advection.F 644 THSICE_ADVECTION 
     &                    )/iceVol(i,j)
./pkg/thsice/thsice_advection.F 682 THSICE_ADVECTION 
            tmpVol = iceVol(i,j)
./pkg/thsice/thsice_advection.F 683 THSICE_ADVECTION 
            iceVol(i,j) = iceVol(i,j)
./pkg/thsice/thsice_advection.F 686 THSICE_ADVECTION 
            IF ( iceVol(i,j).GT.iceEps )
./pkg/thsice/thsice_advection.F 690 THSICE_ADVECTION 
     &                    )/iceVol(i,j)
./pkg/thsice/thsice_advection.F 86 THSICE_ADVECTION 
      _RL iceVol(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
./pkg/thsice/thsice_extend.F 108 THSICE_EXTEND 
      _RL iceVol
./pkg/thsice/thsice_extend.F 173 THSICE_EXTEND 
        iceVol = iceFrac*iceThick
./pkg/thsice/thsice_extend.F 198 THSICE_EXTEND 
        ELSEIF ( iceVol.LT.hiMax*iceMaskMax ) THEN
./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