Symbol Description Uses
trantcr 4



File Line number Procedure Code
./pkg/fizhi/fizhi_lwrad.F 1630 IRRAD
           trantcr(i,j,k1) =trant(i,j)
./pkg/fizhi/fizhi_lwrad.F 1670 IRRAD
     *           flcd(i,j,np+1)*trantcr(i,j,k)*(1.-emiss(i,j,ib))
./pkg/fizhi/fizhi_lwrad.F 607 IRRAD
      _RL trant(m,n),tranal(m,n),transfc(m,n,np+1),trantcr(m,n,np+1)
./pkg/fizhi/fizhi_lwrad.F 971 IRRAD
        trantcr(i,j,np+1)=1.0