Symbol Description Uses
uIce zonal ice velocity (input) 143


File Line number Procedure Code
./pkg/seaice/lsr.F 223 LSR 
          TEMPVAR=(uIce(I,J,bi,bj)-GWATX(I,J,bi,bj))**2
./pkg/seaice/lsr.F 496 LSR 
            uTmp(I,J,bi,bj)=uIce(I,J,bi,bj)
./pkg/seaice/lsr.F 511 LSR 
             IF (I.EQ.1)   AA3 = AA3 - AU(I,J,bi,bj)*uIce(I-1,J,bi,bj)
./pkg/seaice/lsr.F 512 LSR 
             IF (I.EQ.sNx) AA3 = AA3 - CU(I,J,bi,bj)*uIce(I+1,J,bi,bj)
./pkg/seaice/lsr.F 520 LSR 
     &            + uRt1(I,J,bi,bj)*uIce(I,J-1,bi,bj)
./pkg/seaice/lsr.F 521 LSR 
     &            + uRt2(I,J,bi,bj)*uIce(I,J+1,bi,bj)
./pkg/seaice/lsr.F 556 LSR 
             uIce(I,J,bi,bj)=uTmp(I,J,bi,bj)
./pkg/seaice/lsr.F 617 LSR 
             UERR=(uIce(I,J,bi,bj)-uTmp(I,J,bi,bj))
./pkg/seaice/lsr.F 659 LSR 
        CALL EXCH_UV_XY_RL( uIce, vIce,.TRUE.,myThid)
./pkg/seaice/lsr.F 669 LSR 
        CALL DEBUG_STATS_RL( 1, uIce, msgBuf, myThid )
./pkg/seaice/seaice_bottomdrag_coeffs.F 107 SEAICE_BOTTOMDRAG_COEFFS 
     &          (   uIce(i  ,j,bi,bj)+uIce(i+1,j,bi,bj)
./pkg/seaice/seaice_bottomdrag_coeffs.F 113 SEAICE_BOTTOMDRAG_COEFFS 
     &          ( uIce(i  ,j,bi,bj)*maskInW( i ,j,bi,bj)
./pkg/seaice/seaice_bottomdrag_coeffs.F 114 SEAICE_BOTTOMDRAG_COEFFS 
     &          + uIce(i+1,J,bi,bj)*maskInW(i+1,j,bi,bj) )**2
./pkg/seaice/seaice_bottomdrag_coeffs.F 16 SEAICE_BOTTOMDRAG_COEFFS 
     I     uIce, vIce,
./pkg/seaice/seaice_bottomdrag_coeffs.F 60 SEAICE_BOTTOMDRAG_COEFFS 
      _RL uIce(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 283 SEAICE_DYNSOLVER 
            uIce(i,j,bi,bj) = uIce_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 377 SEAICE_DYNSOLVER 
           uIce(i,j,bi,bj)=
./pkg/seaice/seaice_dynsolver.F 378 SEAICE_DYNSOLVER 
     &          MAX(MIN(uIce(i,j,bi,bj),0.40 _d +00),-0.40 _d +00)
./pkg/seaice/seaice_evp.F 252 SEAICE_EVP 
          uIceNm1(I,J,bi,bj)   = uIce(I,J,bi,bj)
./pkg/seaice/seaice_evp.F 324 SEAICE_EVP 
     I       uIce, vIce,
./pkg/seaice/seaice_evp.F 356 SEAICE_EVP 
             uIcePm1 (I,J,bi,bj) = uIce(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 798 SEAICE_EVP 
     &            (uVel(I  ,J  ,kSrf,bi,bj)-uIce(I  ,J  ,bi,bj)
./pkg/seaice/seaice_evp.F 799 SEAICE_EVP 
     &            +uVel(I+1,J  ,kSrf,bi,bj)-uIce(I+1,J  ,bi,bj))
./pkg/seaice/seaice_evp.F 801 SEAICE_EVP 
     &            (uVel(I  ,J-1,kSrf,bi,bj)-uIce(I  ,J-1,bi,bj)
./pkg/seaice/seaice_evp.F 802 SEAICE_EVP 
     &            +uVel(I+1,J-1,kSrf,bi,bj)-uIce(I+1,J-1,bi,bj))
./pkg/seaice/seaice_evp.F 813 SEAICE_EVP 
     &           * 0.5 _d 0*( uIce(I,J  ,bi,bj)+uIce(I+1,  J,bi,bj) )
./pkg/seaice/seaice_evp.F 815 SEAICE_EVP 
     &           * 0.5 _d 0*( uIce(I,J-1,bi,bj)+uIce(I+1,J-1,bi,bj) )
./pkg/seaice/seaice_evp.F 829 SEAICE_EVP 
     I          uIce, vIce,
./pkg/seaice/seaice_evp.F 876 SEAICE_EVP 
            uIce(I,J,bi,bj) = seaiceMaskU(I,J,bi,bj) *
./pkg/seaice/seaice_evp.F 878 SEAICE_EVP 
     &           * uIce(I,J,bi,bj)
./pkg/seaice/seaice_evp.F 902 SEAICE_EVP 
            uIce(i,j,bi,bj) = uIce(i,j,bi,bj)*locMaskU
./pkg/seaice/seaice_evp.F 917 SEAICE_EVP 
        CALL EXCH_UV_XY_RL(uIce,vIce,.TRUE.,myThid)
./pkg/seaice/seaice_evp.F 927 SEAICE_EVP 
     &            ( uIce(I,J,bi,bj)-uIcePm1(i,j,bi,bj) )
./pkg/seaice/seaice_get_dynforcing.F 13 SEAICE_GET_DYNFORCING 
     I     uIce, vIce, icFrac,
./pkg/seaice/seaice_get_dynforcing.F 149 SEAICE_GET_DYNFORCING 
     &          - 0.5 _d 0 * (uIce(i,j,bi,bj)+uIce(i+1,j,bi,bj))
./pkg/seaice/seaice_get_dynforcing.F 193 SEAICE_GET_DYNFORCING 
     &          -0.5 _d 0*(uIce(i,j,bi,bj)+uIce(i+1,j,bi,bj)))
./pkg/seaice/seaice_get_dynforcing.F 201 SEAICE_GET_DYNFORCING 
     &          -0.5 _d 0*(uIce(i-1,j,bi,bj)+uIce(i,j,bi,bj)))
./pkg/seaice/seaice_get_dynforcing.F 212 SEAICE_GET_DYNFORCING 
     &          -0.5 _d 0*(uIce(i,j,bi,bj)+uIce(i+1,j,bi,bj)))
./pkg/seaice/seaice_get_dynforcing.F 220 SEAICE_GET_DYNFORCING 
     &          -0.5 _d 0*(uIce(i,j-1,bi,bj)+uIce(i+1,j-1,bi,bj)))
./pkg/seaice/seaice_get_dynforcing.F 56 SEAICE_GET_DYNFORCING 
      _RL uIce   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
./pkg/seaice/seaice_init_varia.F 484 SEAICE_INIT_VARIA 
     &  CALL READ_FLD_XY_RL( uIceFile, ' ', uIce, 0, myThid )
./pkg/seaice/seaice_init_varia.F 493 SEAICE_INIT_VARIA 
            uIce(i,j,bi,bj) = uIce(i,j,bi,bj)*seaiceMaskU(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 159 SEAICE_JACVEC 
          utp(I,J,bi,bj) = uIce(I,J,bi,bj) + epsilon * duIce(I,J,bi,bj)
./pkg/seaice/seaice_jfnk.F 159 SEAICE_JFNK 
          duIcNm1(I,J,bi,bj) = uIce(I,J,bi,bj) * bdfAlpha
./pkg/seaice/seaice_jfnk.F 160 SEAICE_JFNK 
     &         + ( uIce(I,J,bi,bj) - uIceNm1(I,J,bi,bj) ) * bdfFac
./pkg/seaice/seaice_jfnk.F 163 SEAICE_JFNK 
          uIceNm1(I,J,bi,bj) = uIce(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 519 SEAICE_JFNK_UPDATE 
      _RL uIce   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
./pkg/seaice/seaice_jfnk.F 552 SEAICE_JFNK_UPDATE 
           uIce(I,J,bi,bj) = uIce(I,J,bi,bj)+facLS*duIce(I,J,bi,bj)
./pkg/seaice/seaice_jfnk.F 561 SEAICE_JFNK_UPDATE 
     I      uIce, vIce,
./pkg/seaice/seaice_krylov.F 159 SEAICE_KRYLOV 
          duIcNm1(I,J,bi,bj) = uIce(I,J,bi,bj) * bdfAlpha
./pkg/seaice/seaice_krylov.F 160 SEAICE_KRYLOV 
     &         + ( uIce(I,J,bi,bj) - uIceNm1(I,J,bi,bj) ) * bdfFac
./pkg/seaice/seaice_krylov.F 163 SEAICE_KRYLOV 
          uIceNm1(I,J,bi,bj) = uIce(I,J,bi,bj)
./pkg/seaice/seaice_krylov.F 165 SEAICE_KRYLOV 
          uIceLin(I,J,bi,bj) = uIce(I,J,bi,bj)
./pkg/seaice/seaice_krylov.F 194 SEAICE_KRYLOV 
     &          (uIce(I,J,bi,bj) + uIceLin(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 1726 SEAICE_LSR_TRIDIAGU 
     U     uIce,
./pkg/seaice/seaice_lsr.F 1761 SEAICE_LSR_TRIDIAGU 
      _RL uIce(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
./pkg/seaice/seaice_lsr.F 1799 SEAICE_LSR_TRIDIAGU 
        IF (I.EQ.iMin) AA3 = AA3 - AU(I,J,bi,bj)*uIce(I-1,J,bi,bj)
./pkg/seaice/seaice_lsr.F 1800 SEAICE_LSR_TRIDIAGU 
        IF (I.EQ.iMax) AA3 = AA3 - CU(I,J,bi,bj)*uIce(I+1,J,bi,bj)
./pkg/seaice/seaice_lsr.F 1804 SEAICE_LSR_TRIDIAGU 
     &       + uRt1(I,J,bi,bj)*uIce(I,J-1,bi,bj)
./pkg/seaice/seaice_lsr.F 1805 SEAICE_LSR_TRIDIAGU 
     &       + uRt2(I,J,bi,bj)*uIce(I,J+1,bi,bj)
./pkg/seaice/seaice_lsr.F 1853 SEAICE_LSR_TRIDIAGU 
        uIce(I,J,bi,bj)=uTmp(I,J,bi,bj)
./pkg/seaice/seaice_lsr.F 277 SEAICE_LSR 
           uIceNm1(I,J,bi,bj) = uIce(I,J,bi,bj)
./pkg/seaice/seaice_lsr.F 279 SEAICE_LSR 
           uIceC  (I,J,bi,bj) = uIce(I,J,bi,bj)
./pkg/seaice/seaice_lsr.F 291 SEAICE_LSR 
           uIce (I,J,bi,bj)=HALF*(uIce(I,J,bi,bj)+uIceNm1(i,j,bi,bj))
./pkg/seaice/seaice_lsr.F 293 SEAICE_LSR 
           uIceC(I,J,bi,bj)=uIce(I,J,bi,bj)
./pkg/seaice/seaice_lsr.F 306 SEAICE_LSR 
           uIceNm1(i,j,bi,bj)=uIce(I,J,bi,bj)
./pkg/seaice/seaice_lsr.F 508 SEAICE_LSR 
           rhsU(I,J,bi,bj) = uIce(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 597 SEAICE_LSR 
            uIce(i,j,bi,bj) = ( errFD *uIce(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 701 SEAICE_LSR 
              uTmp(i,j,bi,bj)  = uIce(i,j,bi,bj)
./pkg/seaice/seaice_lsr.F 703 SEAICE_LSR 
     &             + uRt1(i,j,bi,bj)*uIce(i,j-1,bi,bj)
./pkg/seaice/seaice_lsr.F 704 SEAICE_LSR 
     &             + uRt2(i,j,bi,bj)*uIce(i,j+1,bi,bj)
./pkg/seaice/seaice_lsr.F 729 SEAICE_LSR 
     O                 uIce, vIce, errCode,
./pkg/seaice/seaice_lsr.F 737 SEAICE_LSR 
              uIce(i,j,bi,bj) = uTmp(i,j,bi,bj)
./pkg/seaice/seaice_lsr.F 738 SEAICE_LSR 
     &            + WFAU*( uIce(i,j,bi,bj)-uTmp(i,j,bi,bj) )
./pkg/seaice/seaice_lsr.F 778 SEAICE_LSR 
            uTmp(I,J,bi,bj)=uIce(I,J,bi,bj)
./pkg/seaice/seaice_lsr.F 787 SEAICE_LSR 
     U          uIce,
./pkg/seaice/seaice_lsr.F 813 SEAICE_LSR 
             UERR=(uIce(I,J,bi,bj)-uTmp(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 925 SEAICE_LSR 
          uIce(I,J,bi,bj)=uIce(I,J,bi,bj)* seaiceMaskU(I,J,bi,bj)
./pkg/seaice/seaice_lsr.F 945 SEAICE_LSR 
     &            - (uIce(i,j,bi,bj)+uIce(i+1,j,bi,bj)) )**2
./pkg/seaice/seaice_lsr.F 950 SEAICE_LSR 
     &           ( ( (uIce(i,j,bi,bj)+uIce(i+1,j,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 111 SEAICE_OCEAN_STRESS 
     &         0.5 _d 0*(uIce(I  ,J  ,bi,bj)-uVel(I  ,J  ,kSrf,bi,bj)
./pkg/seaice/seaice_ocean_stress.F 112 SEAICE_OCEAN_STRESS 
     &                  +uIce(I+1,J  ,bi,bj)-uVel(I+1,J  ,kSrf,bi,bj))
./pkg/seaice/seaice_ocean_stress.F 114 SEAICE_OCEAN_STRESS 
     &         0.5 _d 0*(uIce(I  ,J-1,bi,bj)-uVel(I  ,J-1,kSrf,bi,bj)
./pkg/seaice/seaice_ocean_stress.F 115 SEAICE_OCEAN_STRESS 
     &                  +uIce(I+1,J-1,bi,bj)-uVel(I+1,J-1,kSrf,bi,bj))
./pkg/seaice/seaice_ocean_stress.F 97 SEAICE_OCEAN_STRESS 
     &         ( uIce(I,J,bi,bj)-uVel(I,J,kSrf,bi,bj) )
./pkg/seaice/seaice_output.F 102 SEAICE_OUTPUT 
            CALL MNC_CW_RL_W(pf,'sice',0,0,'si_UICE',uIce,myThid)
./pkg/seaice/seaice_output.F 140 SEAICE_OUTPUT 
            CALL WRITE_FLD_XY_RL( 'UICE.',suff,uIce,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 221 THSICE_ADVDIFF 
          uTrIce(i,j) = uIce(i,j)*_dyG(i,j,bi,bj)
./pkg/thsice/thsice_advdiff.F 310 THSICE_ADVDIFF 
     &       'ICE_ADV: uIce=', uIce(i,j), uIce(i+1,j),
./pkg/thsice/thsice_advdiff.F 56 THSICE_ADVDIFF 
      _RL     uIce  (1-OLx:sNx+OLx,1-OLy:sNy+OLy)
./pkg/thsice/thsice_diffusion.F 12 THSICE_DIFFUSION 
     U                  uIce, vIce,
./pkg/thsice/thsice_diffusion.F 48 THSICE_DIFFUSION 
      _RL     uIce  (1-OLx:sNx+OLx,1-OLy:sNy+OLy)
./pkg/thsice/thsice_diffusion.F 88 THSICE_DIFFUSION 
     &    uIce(i,j) = uIce(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 55 THSICE_DO_ADVECT 
      _RL  uIce(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 120 THSICE_GET_OCEAN 
           uRel1 = uVel( i, j,ks,bi,bj)-uIce( i, j,bi,bj)
./pkg/thsice/thsice_get_ocean.F 121 THSICE_GET_OCEAN 
           uRel2 = uVel(i+1,j,ks,bi,bj)-uIce(i+1,j,bi,bj)
./pkg/cheapaml/cheapaml_seaice.F 146 CHEAPAML_SEAICE 
            uRelWind(i,j) = uRelWind(i,j)-uIce(i,j,bi,bj)