Symbol Description Uses
sclr 7



File Line number Procedure Code
./pkg/fizhi/fizhi_swrad.F 791 SORAD
      _RL  sdf(m,n),sclr(m,n),csm(m,n),x
./pkg/fizhi/fizhi_swrad.F 923 SORAD
        sclr(i,j)=1.0
./pkg/fizhi/fizhi_swrad.F 935 SORAD
          sdf(i,j)=sdf(i,j)+df(i,j,k)*sclr(i,j)*fcld(i,j,k)
./pkg/fizhi/fizhi_swrad.F 936 SORAD
          sclr(i,j)=sclr(i,j)*(1.-fcld(i,j,k))
./pkg/fizhi/fizhi_swrad.F 938 SORAD
          flx(i,j,k+1)=flx(i,j,k+1)-sdf(i,j)-df(i,j,k+1)*sclr(i,j)
./pkg/fizhi/fizhi_swrad.F 948 SORAD
         x = (-sdf(i,j)-df(i,j,np+1)*sclr(i,j))/x