Symbol Description Uses
dbs 4



File Line number Procedure Code
./pkg/fizhi/fizhi_lwrad.F 1043 IRRAD
         dbs(i,j)=(ts(i,j)*(ts(i,j)*(ts(i,j)*4.*cb(5,ib)
./pkg/fizhi/fizhi_lwrad.F 1642 IRRAD
         dfdts(i,j,k1) =dfdts(i,j,k1)-dbs(i,j)*transfc(i,j,k1)
./pkg/fizhi/fizhi_lwrad.F 1659 IRRAD
          dfdts(i,j,np+1)=dfdts(i,j,np+1)-dbs(i,j)
./pkg/fizhi/fizhi_lwrad.F 604 IRRAD
      _RL blayer(m,n,0:np+1),dlayer(m,n,np+1),dbs(m,n)