Symbol Description Uses
UVRT1 5



File Line number Procedure Code
./pkg/seaice/lsr.F 220 LSR
          UVRT1(I,J,bi,bj)=(ETA(I-1,J-1,bi,bj)+ETA(I,J-1,bi,bj))
./pkg/seaice/lsr.F 281 LSR
     &          +UVRT1(I,J,bi,bj)*UICE(I,J-1,1,bi,bj)
./pkg/seaice/lsr.F 443 LSR
          UVRT1(I,J,bi,bj)=(ETA(I-1,J-1,bi,bj)*RECIP_CSUICE(I,J,bi,bj)
./pkg/seaice/lsr.F 506 LSR
          VRT(J)=FXY(I,J,bi,bj)+AA3+UVRT1(I,J,bi,bj)*VICE(I-1,J,1,bi,bj)
./pkg/seaice/lsr.F 67 LSR
      _RL UVRT1    (1:sNx,1:sNy,nSx,nSy)