Symbol Description Uses
S1A 10



File Line number Procedure Code
./pkg/seaice/lsr.F 154 LSR
      S1A=0.80 _d 0
./pkg/seaice/lsr.F 54 LSR
      _RL AA3, S1, S2, S1A, S2A
./pkg/seaice/lsr.F 625 LSR
         IF(m.GT.1.AND.S1.GT.S1A) WFAU=WFAU2
./pkg/seaice/lsr.F 626 LSR
         S1A=S1
./pkg/seaice/lsr.F 925 LSR
       IF(M.GT.1.AND.S1.GT.S1A) WFAU=WFAU2
./pkg/seaice/lsr.F 926 LSR
       S1A=S1
./pkg/seaice/seaice_lsr.F 229 SEAICE_LSR
      S1A=0.80 _d 0
./pkg/seaice/seaice_lsr.F 741 SEAICE_LSR
         IF(m.GT.1.AND.S1.GT.S1A) WFAU=WFAU2
./pkg/seaice/seaice_lsr.F 742 SEAICE_LSR
         S1A=S1
./pkg/seaice/seaice_lsr.F 89 SEAICE_LSR
      _RL S1, S2, S1A, S2A