Symbol Description Uses
S1A 10



File Line number Procedure Code
./pkg/seaice/lsr.F 157 LSR
      S1A=0.80 _d 0
./pkg/seaice/lsr.F 57 LSR
      _RL AA3, S1, S2, S1A, S2A
./pkg/seaice/lsr.F 628 LSR
         IF(m.GT.1.AND.S1.GT.S1A) WFAU=WFAU2
./pkg/seaice/lsr.F 629 LSR
         S1A=S1
./pkg/seaice/lsr.F 928 LSR
       IF(M.GT.1.AND.S1.GT.S1A) WFAU=WFAU2
./pkg/seaice/lsr.F 929 LSR
       S1A=S1
./pkg/seaice/seaice_lsr.F 268 SEAICE_LSR
      S1A=0.80 _d 0
./pkg/seaice/seaice_lsr.F 824 SEAICE_LSR
         IF(m.GT.1.AND.S1.GT.S1A) WFAU=WFAU2
./pkg/seaice/seaice_lsr.F 825 SEAICE_LSR
         S1A=S1
./pkg/seaice/seaice_lsr.F 92 SEAICE_LSR
      _RL S1, S2, S1A, S2A