Symbol Description Uses
fupdif 3



File Line number Procedure Code
./pkg/fizhi/fizhi_swrad.F 2208 CLDFLX
      _RL  fdndir(m,n),fdndif(m,n),fupdif
./pkg/fizhi/fizhi_swrad.F 2463 CLDFLX
         fupdif= (xx+tta(i,j,k-1,ih,im)*rxa(i,j,k,im,is))*denm
./pkg/fizhi/fizhi_swrad.F 2464 CLDFLX
         flxdn(i,j,k)=fdndir(i,j)+fdndif(i,j)-fupdif