Symbol Description Uses
S1A 12



File Line number Procedure Code
./pkg/seaice/lsr.F 347 LSR
       IF(M.GT.1.AND.S1.GT.S1A) WFAU=WFAU2
./pkg/seaice/lsr.F 348 LSR
       S1A=S1
./pkg/seaice/lsr.F 53 LSR
      _RL  AA1, AA2, AA3, AA4, AA5, AA6, S1, S2, S1A, S2A
./pkg/seaice/lsr.F 93 LSR
      S1A=0.80 _d 0
./pkg/seaice/seaice_lsr.F 137 SEAICE_LSR
      S1A=0.80 _d 0
./pkg/seaice/seaice_lsr.F 1419 SEAICE_LSR
       IF(M.GT.1.AND.S1.GT.S1A) WFAU=WFAU2
./pkg/seaice/seaice_lsr.F 1420 SEAICE_LSR
       S1A=S1
./pkg/seaice/seaice_lsr.F 596 SEAICE_LSR
       IF(M.GT.1.AND.S1.GT.S1A) WFAU=WFAU2
./pkg/seaice/seaice_lsr.F 597 SEAICE_LSR
       S1A=S1
./pkg/seaice/seaice_lsr.F 64 SEAICE_LSR
      _RL AA3, S1, S2, S1A, S2A
./pkg/seaice/seaice_lsr.F 897 SEAICE_LSR
      _RL AA1, AA2, AA3, AA4, AA5, AA6, AA7, AA8, S1, S2, S1A, S2A
./pkg/seaice/seaice_lsr.F 960 SEAICE_LSR
      S1A=0.80 _d 0