Symbol Description Uses
S2 9



File Line number Procedure Code
./pkg/seaice/lsr.F 48 LSR
      _RL  AA1, AA2, AA3, AA4, AA5, AA6, S1, S2, S1A, S2A
./pkg/seaice/lsr.F 538 LSR
         S2=ZERO
./pkg/seaice/lsr.F 543 LSR
           S2=MAX(ABS(UERR(I,J,bi,bj)),S2)
./pkg/seaice/lsr.F 546 LSR
         _GLOBAL_MAX_R8( S2, myThid )
./pkg/seaice/lsr.F 550 LSR
       IF(M.GT.1.AND.S2.GT.S2A) WFAV=WFAV2
./pkg/seaice/lsr.F 551 LSR
       S2A=S2
./pkg/seaice/lsr.F 552 LSR
       IF(S2.LT.LSR_ERROR) THEN
./pkg/seaice/lsr.F 573 LSR
        write(*,'(A,I6,1P2E22.14)')' V lsr iters, error = ',ICOUNT2,S2