| 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 |
1739 |
COLUMN |
_RL sabs(m,n,np+1),spre(m,n,np+1),stem(m,n,np+1) |
|
./pkg/fizhi/fizhi_lwrad.F |
1746 |
COLUMN |
stem(i,j,1)=0.0 |
|
./pkg/fizhi/fizhi_lwrad.F |
1755 |
COLUMN |
stem(i,j,k+1)=stem(i,j,k)+dt(i,j,k)*sabs0(i,j,k) |
|
./pkg/fizhi/fizhi_lwrad.F |
2464 |
TABLUP |
subroutine TABLUP(k1,k2,m,n,np,nx,nh,nt,sabs,spre,stem,w1,p1, |
|
./pkg/fizhi/fizhi_lwrad.F |
2508 |
TABLUP |
_RL sabs(m,n,np+1),spre(m,n,np+1),stem(m,n,np+1) |
|
./pkg/fizhi/fizhi_lwrad.F |
2529 |
TABLUP |
x3=(stem(i,j,k2)-stem(i,j,k1))/x1 |