Symbol Description Uses
ssacl 12



File Line number Procedure Code
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 1247 SOLIR
      _RL  ssacl(m,n,np),asycl(m,n,np)
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 1369 SOLIR
            ssacl(i,j,k)=ssaclt(i,j)
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 1436 SOLIR
              ssato=(ssatau+ssacl(i,j,k)*tauclb(i,j,k))/tauto+1.0e-8
./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 1445 SOLIR
              ssato=(ssatau+ssacl(i,j,k)*tauclf(i,j,k))/tauto+1.0e-8
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 1447 SOLIR
              asyto=(asysto+asycl(i,j,k)*ssacl(i,j,k)*tauclf(i,j,k))/
./pkg/fizhi/fizhi_swrad.F 1246 SOLIR
      _RL  ssacl(m,n,np),asycl(m,n,np)
./pkg/fizhi/fizhi_swrad.F 1368 SOLIR
            ssacl(i,j,k)=ssaclt(i,j)
./pkg/fizhi/fizhi_swrad.F 1435 SOLIR
              ssato=(ssatau+ssacl(i,j,k)*tauclb(i,j,k))/tauto+1.0e-8
./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 1444 SOLIR
              ssato=(ssatau+ssacl(i,j,k)*tauclf(i,j,k))/tauto+1.0e-8
./pkg/fizhi/fizhi_swrad.F 1446 SOLIR
              asyto=(asysto+asycl(i,j,k)*ssacl(i,j,k)*tauclf(i,j,k))/