Symbol Description Uses
asysto 18



File Line number Procedure Code
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 1253 SOLIR
      _RL  tauwv,tausto,ssatau,asysto,tauto,ssato,asyto
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 1396 SOLIR
             asysto=asyal(ib)*ssaal(ib)*taual(i,j,k)
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 1438 SOLIR
              asyto=(asysto+asycl(i,j,k)*ssacl(i,j,k)*tauclb(i,j,k))/
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 1447 SOLIR
              asyto=(asysto+asycl(i,j,k)*ssacl(i,j,k)*tauclf(i,j,k))/
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 1670 SOLUV
      _RL  taurs,tauoz,tausto,ssatau,asysto,tauto,ssato,asyto
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 1786 SOLUV
          asysto=asyal(ib)*ssaal(ib)*taual(i,j,k)
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 1793 SOLUV
          asyto=asysto/(ssato*tauto)
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 1815 SOLUV
           asyto=(asysto+asycl(i,j,k)*tauclb(i,j,k))/(ssato*tauto)
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 1823 SOLUV
           asyto=(asysto+asycl(i,j,k)*tauclf(i,j,k))/(ssato*tauto)
./pkg/fizhi/fizhi_swrad.F 1252 SOLIR
      _RL  tauwv,tausto,ssatau,asysto,tauto,ssato,asyto
./pkg/fizhi/fizhi_swrad.F 1395 SOLIR
             asysto=asyal(ib)*ssaal(ib)*taual(i,j,k)
./pkg/fizhi/fizhi_swrad.F 1437 SOLIR
              asyto=(asysto+asycl(i,j,k)*ssacl(i,j,k)*tauclb(i,j,k))/
./pkg/fizhi/fizhi_swrad.F 1446 SOLIR
              asyto=(asysto+asycl(i,j,k)*ssacl(i,j,k)*tauclf(i,j,k))/
./pkg/fizhi/fizhi_swrad.F 1669 SOLUV
      _RL  taurs,tauoz,tausto,ssatau,asysto,tauto,ssato,asyto
./pkg/fizhi/fizhi_swrad.F 1785 SOLUV
          asysto=asyal(ib)*ssaal(ib)*taual(i,j,k)
./pkg/fizhi/fizhi_swrad.F 1792 SOLUV
          asyto=asysto/(ssato*tauto)
./pkg/fizhi/fizhi_swrad.F 1814 SOLUV
           asyto=(asysto+asycl(i,j,k)*tauclb(i,j,k))/(ssato*tauto)
./pkg/fizhi/fizhi_swrad.F 1822 SOLUV
           asyto=(asysto+asycl(i,j,k)*tauclf(i,j,k))/(ssato*tauto)