Symbol Description Uses
rs1t 16



File Line number Procedure Code
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 1256 SOLIR
      _RL  rr1t(m,n),tt1t(m,n),td1t(m,n),rs1t(m,n),ts1t(m,n)
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 1419 SOLIR
             rs1t(i,j)=0.0
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 1430 SOLIR
              rs2t(i,j)=rs1t(i,j)
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 1477 SOLIR
               rs(i,j,k,1)=rs1t(i,j)
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 1676 SOLUV
      _RL  rr1t(m,n),tt1t(m,n),td1t(m,n),rs1t(m,n),ts1t(m,n)
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 1798 SOLUV
          call SAGPOL (tauto,ssato,asyto,rs1t(i,j),ts1t(i,j))
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 1807 SOLUV
           rs2t(i,j)=rs1t(i,j)
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 1849 SOLUV
            rs(i,j,k,1)=rs1t(i,j)
./pkg/fizhi/fizhi_swrad.F 1255 SOLIR
      _RL  rr1t(m,n),tt1t(m,n),td1t(m,n),rs1t(m,n),ts1t(m,n)
./pkg/fizhi/fizhi_swrad.F 1418 SOLIR
             rs1t(i,j)=0.0
./pkg/fizhi/fizhi_swrad.F 1429 SOLIR
              rs2t(i,j)=rs1t(i,j)
./pkg/fizhi/fizhi_swrad.F 1476 SOLIR
               rs(i,j,k,1)=rs1t(i,j)
./pkg/fizhi/fizhi_swrad.F 1675 SOLUV
      _RL  rr1t(m,n),tt1t(m,n),td1t(m,n),rs1t(m,n),ts1t(m,n)
./pkg/fizhi/fizhi_swrad.F 1797 SOLUV
          call SAGPOL (tauto,ssato,asyto,rs1t(i,j),ts1t(i,j))
./pkg/fizhi/fizhi_swrad.F 1806 SOLUV
           rs2t(i,j)=rs1t(i,j)
./pkg/fizhi/fizhi_swrad.F 1848 SOLUV
            rs(i,j,k,1)=rs1t(i,j)