Symbol Description Uses
J1 20



File Line number Procedure Code
./pkg/seaice/lsr.F 1148 LSR
          J1=sNy-J
./pkg/seaice/lsr.F 1149 LSR
          J2=J1+1
./pkg/seaice/lsr.F 1150 LSR
          VRT(J1)=VRT(J1)-CVV(J1)*VRT(J2)
./pkg/seaice/lsr.F 551 LSR
             J1=sNx-I
./pkg/seaice/lsr.F 552 LSR
             J2=J1+1
./pkg/seaice/lsr.F 553 LSR
             URT(J1,J)=URT(J1,J)-CUU(J1,J)*URT(J2,J)
./pkg/seaice/lsr.F 595 LSR
             J1=sNy-J
./pkg/seaice/lsr.F 596 LSR
             J2=J1+1
./pkg/seaice/lsr.F 597 LSR
             VRT(I,J1)=VRT(I,J1)-CVV(I,J1)*VRT(I,J2)
./pkg/seaice/lsr.F 899 LSR
          J1=sNx-I
./pkg/seaice/lsr.F 900 LSR
          J2=J1+1
./pkg/seaice/lsr.F 901 LSR
          URT(J1)=URT(J1)-CUU(J1)*URT(J2)