Symbol Description Uses
S1 9



File Line number Procedure Code
./pkg/seaice/lsr.F 314 LSR
         S1=ZERO
./pkg/seaice/lsr.F 319 LSR
           S1=MAX(ABS(UERR(I,J,bi,bj)),S1)
./pkg/seaice/lsr.F 322 LSR
         _GLOBAL_MAX_R8( S1, myThid )
./pkg/seaice/lsr.F 326 LSR
       IF(M.GT.1.AND.S1.GT.S1A) WFAU=WFAU2
./pkg/seaice/lsr.F 327 LSR
       S1A=S1
./pkg/seaice/lsr.F 328 LSR
       IF(S1.LT.LSR_ERROR) THEN
./pkg/seaice/lsr.F 348 LSR
        write(*,'(A,I6,1P2E22.14)')' U lsr iters, error = ',ICOUNT1,S1
./pkg/seaice/lsr.F 48 LSR
      _RL  AA1, AA2, AA3, AA4, AA5, AA6, S1, S2, S1A, S2A