Symbol Description Uses
vIce local copies of the current ice velocity 143



File Line number Procedure Code
./pkg/seaice/lsr.F 224 LSR
     &           +(vIce(I,J,bi,bj)-GWATY(I,J,bi,bj))**2
./pkg/seaice/lsr.F 502 LSR
            vTmp(I,J,bi,bj)=vIce(I,J,bi,bj)
./pkg/seaice/lsr.F 568 LSR
             IF (J.EQ.1)   AA3 = AA3 - AV(I,J,bi,bj)*vIce(I,J-1,bi,bj)
./pkg/seaice/lsr.F 569 LSR
             IF (J.EQ.sNy) AA3 = AA3 - CV(I,J,bi,bj)*vIce(I,J+1,bi,bj)
./pkg/seaice/lsr.F 577 LSR
     &            + vRt1(I,J,bi,bj)*vIce(I-1,J,bi,bj)
./pkg/seaice/lsr.F 578 LSR
     &            + vRt2(I,J,bi,bj)*vIce(I+1,J,bi,bj)
./pkg/seaice/lsr.F 600 LSR
             vIce(I,J,bi,bj)=vTmp(I,J,bi,bj)
./pkg/seaice/lsr.F 642 LSR
             UERR=(vIce(I,J,bi,bj)-vTmp(I,J,bi,bj))
./pkg/seaice/lsr.F 659 LSR
        CALL EXCH_UV_XY_RL( uIce, vIce,.TRUE.,myThid)
./pkg/seaice/lsr.F 672 LSR
        CALL DEBUG_STATS_RL( 1, vIce, msgBuf, myThid )
./pkg/seaice/seaice_bottomdrag_coeffs.F 109 SEAICE_BOTTOMDRAG_COEFFS
     &          + ( vIce(i, j ,bi,bj)+vIce(i,j+1,bi,bj)
./pkg/seaice/seaice_bottomdrag_coeffs.F 115 SEAICE_BOTTOMDRAG_COEFFS
     &        + ( vIce(i,j  ,bi,bj)*maskInS(i, j ,bi,bj)
./pkg/seaice/seaice_bottomdrag_coeffs.F 116 SEAICE_BOTTOMDRAG_COEFFS
     &          + vIce(i,j+1,bi,bj)*maskInS(i,j+1,bi,bj) )**2 )
./pkg/seaice/seaice_bottomdrag_coeffs.F 16 SEAICE_BOTTOMDRAG_COEFFS
     I     uIce, vIce, 
./pkg/seaice/seaice_bottomdrag_coeffs.F 61 SEAICE_BOTTOMDRAG_COEFFS
      _RL vIce(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
./pkg/seaice/seaice_diagnostics_state.F 194 SEAICE_DIAGNOSTICS_STATE
     I        uIce, vIce,
./pkg/seaice/seaice_dynsolver.F 199 SEAICE_DYNSOLVER
     I     uIce, vIce, AREA,
./pkg/seaice/seaice_dynsolver.F 284 SEAICE_DYNSOLVER
            vIce(i,j,bi,bj) = vIce_fd(i,j,bi,bj)
./pkg/seaice/seaice_dynsolver.F 296 SEAICE_DYNSOLVER
         CALL OBCS_APPLY_UVICE( uIce, vIce, myThid )
./pkg/seaice/seaice_dynsolver.F 379 SEAICE_DYNSOLVER
           vIce(i,j,bi,bj)=
./pkg/seaice/seaice_dynsolver.F 380 SEAICE_DYNSOLVER
     &          MAX(MIN(vIce(i,j,bi,bj),0.40 _d +00),-0.40 _d +00)
./pkg/seaice/seaice_evp.F 253 SEAICE_EVP
          vIceNm1(I,J,bi,bj)   = vIce(I,J,bi,bj)
./pkg/seaice/seaice_evp.F 324 SEAICE_EVP
     I       uIce, vIce,
./pkg/seaice/seaice_evp.F 357 SEAICE_EVP
             vIcePm1 (I,J,bi,bj) = vIce(i,j,bi,bj)
./pkg/seaice/seaice_evp.F 746 SEAICE_EVP
     I       uIce, vIce,
./pkg/seaice/seaice_evp.F 751 SEAICE_EVP
     I       uIce, vIce,
./pkg/seaice/seaice_evp.F 787 SEAICE_EVP
     &            (vVel(I  ,J  ,kSrf,bi,bj)-vIce(I  ,J  ,bi,bj)
./pkg/seaice/seaice_evp.F 788 SEAICE_EVP
     &            +vVel(I  ,J+1,kSrf,bi,bj)-vIce(I  ,J+1,bi,bj))
./pkg/seaice/seaice_evp.F 790 SEAICE_EVP
     &            (vVel(I-1,J  ,kSrf,bi,bj)-vIce(I-1,J  ,bi,bj)
./pkg/seaice/seaice_evp.F 791 SEAICE_EVP
     &            +vVel(I-1,J+1,kSrf,bi,bj)-vIce(I-1,J+1,bi,bj))
./pkg/seaice/seaice_evp.F 807 SEAICE_EVP
     &           * 0.5 _d 0*( vIce(I  ,J,bi,bj)+vIce(I  ,J+1,bi,bj) )
./pkg/seaice/seaice_evp.F 809 SEAICE_EVP
     &           * 0.5 _d 0*( vIce(I-1,J,bi,bj)+vIce(I-1,J+1,bi,bj) )
./pkg/seaice/seaice_evp.F 829 SEAICE_EVP
     I          uIce, vIce,
./pkg/seaice/seaice_evp.F 883 SEAICE_EVP
            vIce(I,J,bi,bj) = seaiceMaskV(I,J,bi,bj) *
./pkg/seaice/seaice_evp.F 885 SEAICE_EVP
     &           * vIce(I,J,bi,bj)
./pkg/seaice/seaice_evp.F 904 SEAICE_EVP
            vIce(i,j,bi,bj) = vIce(i,j,bi,bj)*locMaskV
./pkg/seaice/seaice_evp.F 917 SEAICE_EVP
        CALL EXCH_UV_XY_RL(uIce,vIce,.TRUE.,myThid)
./pkg/seaice/seaice_evp.F 930 SEAICE_EVP
     &            ( vIce(I,J,bi,bj)-vIcePm1(i,j,bi,bj) )
./pkg/seaice/seaice_get_dynforcing.F 13 SEAICE_GET_DYNFORCING
     I     uIce, vIce, icFrac,
./pkg/seaice/seaice_get_dynforcing.F 152 SEAICE_GET_DYNFORCING
     &          - 0.5 _d 0 * (vIce(i,j,bi,bj)+vIce(i,j+1,bi,bj))
./pkg/seaice/seaice_get_dynforcing.F 197 SEAICE_GET_DYNFORCING
     &          -0.5 _d 0*(vIce(i,j,bi,bj)+vIce(i,j+1,bi,bj))))
./pkg/seaice/seaice_get_dynforcing.F 205 SEAICE_GET_DYNFORCING
     &          -0.5 _d 0*(vIce(i-1,j,bi,bj)+vIce(i-1,j+1,bi,bj))))
./pkg/seaice/seaice_get_dynforcing.F 216 SEAICE_GET_DYNFORCING
     &          -0.5 _d 0*(vIce(i,j,bi,bj)+vIce(i,j+1,bi,bj))))
./pkg/seaice/seaice_get_dynforcing.F 224 SEAICE_GET_DYNFORCING
     &          -0.5 _d 0*(vIce(i,j-1,bi,bj)+vIce(i,j,bi,bj))))
./pkg/seaice/seaice_get_dynforcing.F 57 SEAICE_GET_DYNFORCING
      _RL vIce   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
./pkg/seaice/seaice_init_varia.F 486 SEAICE_INIT_VARIA
     &  CALL READ_FLD_XY_RL( vIceFile, ' ', vIce, 0, myThid )
./pkg/seaice/seaice_init_varia.F 494 SEAICE_INIT_VARIA
            vIce(i,j,bi,bj) = vIce(i,j,bi,bj)*seaiceMaskV(i,j,bi,bj)
./pkg/seaice/seaice_init_varia.F 500 SEAICE_INIT_VARIA
        CALL EXCH_UV_XY_RL( uIce, vIce, .TRUE., myThid )
./pkg/seaice/seaice_jacvec.F 160 SEAICE_JACVEC
          vtp(I,J,bi,bj) = vIce(I,J,bi,bj) + epsilon * dvIce(I,J,bi,bj)
./pkg/seaice/seaice_jfnk.F 161 SEAICE_JFNK
          dvIcNm1(I,J,bi,bj) = vIce(I,J,bi,bj) * bdfAlpha 
./pkg/seaice/seaice_jfnk.F 162 SEAICE_JFNK
     &         + ( vIce(I,J,bi,bj) - vIceNm1(I,J,bi,bj) ) * bdfFac
./pkg/seaice/seaice_jfnk.F 164 SEAICE_JFNK
          vIceNm1(I,J,bi,bj) = vIce(I,J,bi,bj)
./pkg/seaice/seaice_jfnk.F 191 SEAICE_JFNK
     U      uIce, vIce, JFNKresidual,
./pkg/seaice/seaice_jfnk.F 291 SEAICE_JFNK
     I         uIce, vIce, uIceRes, vIceRes,
./pkg/seaice/seaice_jfnk.F 337 SEAICE_JFNK
     U       uIce, vIce, JFNKresidual,
./pkg/seaice/seaice_jfnk.F 475 SEAICE_JFNK_UPDATE
     U     uIce, vIce, JFNKresidual,
./pkg/seaice/seaice_jfnk.F 520 SEAICE_JFNK_UPDATE
      _RL vIce   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
./pkg/seaice/seaice_jfnk.F 553 SEAICE_JFNK_UPDATE
           vIce(I,J,bi,bj) = vIce(I,J,bi,bj)+facLS*dvIce(I,J,bi,bj)
./pkg/seaice/seaice_jfnk.F 561 SEAICE_JFNK_UPDATE
     I      uIce, vIce,
./pkg/seaice/seaice_krylov.F 161 SEAICE_KRYLOV
          dvIcNm1(I,J,bi,bj) = vIce(I,J,bi,bj) * bdfAlpha 
./pkg/seaice/seaice_krylov.F 162 SEAICE_KRYLOV
     &         + ( vIce(I,J,bi,bj) - vIceNm1(I,J,bi,bj) ) * bdfFac
./pkg/seaice/seaice_krylov.F 164 SEAICE_KRYLOV
          vIceNm1(I,J,bi,bj) = vIce(I,J,bi,bj)
./pkg/seaice/seaice_krylov.F 166 SEAICE_KRYLOV
          vIceLin(I,J,bi,bj) = vIce(I,J,bi,bj)
./pkg/seaice/seaice_krylov.F 196 SEAICE_KRYLOV
     &          (vIce(I,J,bi,bj) + vIceLin(I,J,bi,bj))
./pkg/seaice/seaice_krylov.F 233 SEAICE_KRYLOV
     I         uIce, vIce,
./pkg/seaice/seaice_krylov.F 303 SEAICE_KRYLOV
        CALL SEAICE_MAP2VEC(nVec,uIce,vIce,sol,.TRUE.,myThid)
./pkg/seaice/seaice_krylov.F 331 SEAICE_KRYLOV
          CALL SEAICE_MAP2VEC(nVec,uIce,vIce,sol,.FALSE.,myThid)
./pkg/seaice/seaice_krylov.F 332 SEAICE_KRYLOV
          CALL EXCH_UV_XY_RL( uIce, vIce,.TRUE.,myThid)
./pkg/seaice/seaice_lsr.F 1871 SEAICE_LSR_TRIDIAGV
     U     vIce,
./pkg/seaice/seaice_lsr.F 1906 SEAICE_LSR_TRIDIAGV
      _RL vIce(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
./pkg/seaice/seaice_lsr.F 1949 SEAICE_LSR_TRIDIAGV
        IF (J.EQ.jMin) AA3 = AA3 - AV(I,J,bi,bj)*vIce(I,J-1,bi,bj)
./pkg/seaice/seaice_lsr.F 1950 SEAICE_LSR_TRIDIAGV
        IF (J.EQ.jMax) AA3 = AA3 - CV(I,J,bi,bj)*vIce(I,J+1,bi,bj)
./pkg/seaice/seaice_lsr.F 1954 SEAICE_LSR_TRIDIAGV
     &       + vRt1(I,J,bi,bj)*vIce(I-1,J,bi,bj)
./pkg/seaice/seaice_lsr.F 1955 SEAICE_LSR_TRIDIAGV
     &       + vRt2(I,J,bi,bj)*vIce(I+1,J,bi,bj)
./pkg/seaice/seaice_lsr.F 2006 SEAICE_LSR_TRIDIAGV
        vIce(I,J,bi,bj)=vTmp(I,J,bi,bj)
./pkg/seaice/seaice_lsr.F 278 SEAICE_LSR
           vIceNm1(I,J,bi,bj) = vIce(I,J,bi,bj)
./pkg/seaice/seaice_lsr.F 280 SEAICE_LSR
           vIceC  (I,J,bi,bj) = vIce(I,J,bi,bj)
./pkg/seaice/seaice_lsr.F 292 SEAICE_LSR
           vIce (I,J,bi,bj)=HALF*(vIce(I,J,bi,bj)+vIceNm1(i,j,bi,bj))
./pkg/seaice/seaice_lsr.F 294 SEAICE_LSR
           vIceC(I,J,bi,bj)=vIce(I,J,bi,bj)
./pkg/seaice/seaice_lsr.F 307 SEAICE_LSR
           vIceNm1(i,j,bi,bj)=vIce(I,J,bi,bj)
./pkg/seaice/seaice_lsr.F 516 SEAICE_LSR
           rhsV(I,J,bi,bj) = vIce(I,J,bi,bj)
./pkg/seaice/seaice_lsr.F 541 SEAICE_LSR
     I                  AU, BU, CU, AV, BV, CV, uIce, vIce,
./pkg/seaice/seaice_lsr.F 610 SEAICE_LSR
            vIce(i,j,bi,bj) = ( errFD *vIce(i,j,bi,bj)
./pkg/seaice/seaice_lsr.F 618 SEAICE_LSR
       CALL EXCH_UV_XY_RL( uIce, vIce, .TRUE., myThid )
./pkg/seaice/seaice_lsr.F 626 SEAICE_LSR
     I                  AU, BU, CU, AV, BV, CV, uIce, vIce,
./pkg/seaice/seaice_lsr.F 712 SEAICE_LSR
              vTmp(i,j,bi,bj)  = vIce(i,j,bi,bj)
./pkg/seaice/seaice_lsr.F 714 SEAICE_LSR
     &             + vRt1(i,j,bi,bj)*vIce(i-1,J,bi,bj)
./pkg/seaice/seaice_lsr.F 715 SEAICE_LSR
     &             + vRt2(i,j,bi,bj)*vIce(i+1,J,bi,bj)
./pkg/seaice/seaice_lsr.F 729 SEAICE_LSR
     O                 uIce, vIce, errCode,
./pkg/seaice/seaice_lsr.F 745 SEAICE_LSR
              vIce(i,j,bi,bj) = vTmp(i,j,bi,bj)
./pkg/seaice/seaice_lsr.F 746 SEAICE_LSR
     &            + WFAV*( vIce(i,j,bi,bj)-vTmp(i,j,bi,bj) )
./pkg/seaice/seaice_lsr.F 779 SEAICE_LSR
            vTmp(I,J,bi,bj)=vIce(I,J,bi,bj)
./pkg/seaice/seaice_lsr.F 795 SEAICE_LSR
     U          vIce,
./pkg/seaice/seaice_lsr.F 838 SEAICE_LSR
             UERR=(vIce(I,J,bi,bj)-vTmp(I,J,bi,bj))
./pkg/seaice/seaice_lsr.F 855 SEAICE_LSR
        CALL EXCH_UV_XY_RL( uIce, vIce,.TRUE.,myThid)
./pkg/seaice/seaice_lsr.F 872 SEAICE_LSR
     I                  AU, BU, CU, AV, BV, CV, uIce, vIce,
./pkg/seaice/seaice_lsr.F 926 SEAICE_LSR
          vIce(I,J,bi,bj)=vIce(I,J,bi,bj)* seaiceMaskV(I,J,bi,bj)
./pkg/seaice/seaice_lsr.F 947 SEAICE_LSR
     &            - (vIce(i,j,bi,bj)+vIce(i,j+1,bi,bj)) )**2 )
./pkg/seaice/seaice_lsr.F 951 SEAICE_LSR
     &           + ( (vIce(i,j,bi,bj)+vIce(i,j+1,bi,bj)) )**2 )
./pkg/seaice/seaice_lsr.F 985 SEAICE_LSR
     I       uIce, vIce,
./pkg/seaice/seaice_model.F 184 SEAICE_MODEL
       CALL SEAICE_ADVDIFF( uIce, vIce, myTime, myIter, myThid )
./pkg/seaice/seaice_ocean_stress.F 100 SEAICE_OCEAN_STRESS
     &         0.5 _d 0*(vIce(I  ,J  ,bi,bj)-vVel(I  ,J  ,kSrf,bi,bj)
./pkg/seaice/seaice_ocean_stress.F 101 SEAICE_OCEAN_STRESS
     &                  +vIce(I  ,J+1,bi,bj)-vVel(I  ,J+1,kSrf,bi,bj))
./pkg/seaice/seaice_ocean_stress.F 103 SEAICE_OCEAN_STRESS
     &         0.5 _d 0*(vIce(I-1,J  ,bi,bj)-vVel(I-1,J  ,kSrf,bi,bj)
./pkg/seaice/seaice_ocean_stress.F 104 SEAICE_OCEAN_STRESS
     &                  +vIce(I-1,J+1,bi,bj)-vVel(I-1,J+1,kSrf,bi,bj))
./pkg/seaice/seaice_ocean_stress.F 108 SEAICE_OCEAN_STRESS
     &         ( vIce(I,J,bi,bj)-vVel(I,J,kSrf,bi,bj) )
./pkg/seaice/seaice_output.F 103 SEAICE_OUTPUT
            CALL MNC_CW_RL_W(pf,'sice',0,0,'si_VICE',vIce,myThid)
./pkg/seaice/seaice_output.F 141 SEAICE_OUTPUT
            CALL WRITE_FLD_XY_RL( 'VICE.',suff,vIce,myIter,myThid)
./pkg/seaice/seaice_read_pickup.F 321 SEAICE_READ_PICKUP
       CALL EXCH_UV_XY_RL( uIce, vIce,.TRUE.,myThid)
./pkg/thsice/thsice_advdiff.F 14 THSICE_ADVDIFF
     U                  uIce, vIce,
./pkg/thsice/thsice_advdiff.F 212 THSICE_ADVDIFF
     U              uIce, vIce,
./pkg/thsice/thsice_advdiff.F 227 THSICE_ADVDIFF
          vTrIce(i,j) = vIce(i,j)*_dxG(i,j,bi,bj)
./pkg/thsice/thsice_advdiff.F 311 THSICE_ADVDIFF
     &             ' , vIce=', vIce(i,j), vIce(i,j+1)
./pkg/thsice/thsice_advdiff.F 57 THSICE_ADVDIFF
      _RL     vIce  (1-OLx:sNx+OLx,1-OLy:sNy+OLy)
./pkg/thsice/thsice_diffusion.F 12 THSICE_DIFFUSION
     U                  uIce, vIce,
./pkg/thsice/thsice_diffusion.F 49 THSICE_DIFFUSION
      _RL     vIce  (1-OLx:sNx+OLx,1-OLy:sNy+OLy)
./pkg/thsice/thsice_diffusion.F 99 THSICE_DIFFUSION
     &    vIce(i,j) = vIce(i,j)
./pkg/thsice/thsice_do_advect.F 141 THSICE_DO_ADVECT
     O                        uIce, vIce,
./pkg/thsice/thsice_do_advect.F 144 THSICE_DO_ADVECT
     U                        uIce, vIce,
./pkg/thsice/thsice_do_advect.F 56 THSICE_DO_ADVECT
      _RL  vIce(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
./pkg/thsice/thsice_do_advect.F 84 THSICE_DO_ADVECT
     O                        uIce, vIce,
./pkg/thsice/thsice_do_advect.F 95 THSICE_DO_ADVECT
     U                        uIce, vIce,
./pkg/thsice/thsice_get_ocean.F 122 THSICE_GET_OCEAN
           vRel1 = vVel(i, j, ks,bi,bj)-vIce(i, j, bi,bj)
./pkg/thsice/thsice_get_ocean.F 123 THSICE_GET_OCEAN
           vRel2 = vVel(i,j+1,ks,bi,bj)-vIce(i,j+1,bi,bj)
./pkg/cheapaml/cheapaml_seaice.F 147 CHEAPAML_SEAICE
            vRelWind(i,j) = vRelWind(i,j)-vIce(i,j,bi,bj)