Symbol Description Uses
sabs0 5



File Line number Procedure Code
./pkg/fizhi/fizhi_lwrad.F 1706 COLUMN
      subroutine COLUMN (m,n,np,pa,dt,sabs0,sabs,spre,stem)
./pkg/fizhi/fizhi_lwrad.F 1735 COLUMN
      _RL pa(m,n,np),dt(m,n,np),sabs0(m,n,np)
./pkg/fizhi/fizhi_lwrad.F 1753 COLUMN
           sabs(i,j,k+1)=sabs(i,j,k)+sabs0(i,j,k)
./pkg/fizhi/fizhi_lwrad.F 1754 COLUMN
           spre(i,j,k+1)=spre(i,j,k)+pa(i,j,k)*sabs0(i,j,k)
./pkg/fizhi/fizhi_lwrad.F 1755 COLUMN
           stem(i,j,k+1)=stem(i,j,k)+dt(i,j,k)*sabs0(i,j,k)