| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_lwrad.F |
1420 |
IRRAD |
call TABLUP(k1,k2,m,n,np,nx,nh,nt,sh2o,swpre,swtem, |
|
./pkg/fizhi/fizhi_lwrad.F |
1424 |
IRRAD |
call TABLUP(k1,k2,m,n,np,nx,nh,nt,sh2o,swpre,swtem, |
|
./pkg/fizhi/fizhi_lwrad.F |
1429 |
IRRAD |
call TABLUP(k1,k2,m,n,np,nx,nh,nt,sh2o,swpre,swtem, |
|
./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 |
2503 |
TABLUP |
integer k1,k2,m,n,np,nx,nh,nt,i,j |
|
./pkg/fizhi/fizhi_lwrad.F |
2509 |
TABLUP |
_RL coef1(nx,nh,nt),coef2(nx,nh,nt),coef3(nx,nh,nt) |
|
./pkg/fizhi/fizhi_lwrad.F |
2540 |
TABLUP |
iw=min(iw,nh-1) |
|
./pkg/fizhi/fizhi_lwrad.F |
562 |
IRRAD |
integer nx,no,nc,nh,nt |
|
./pkg/fizhi/fizhi_lwrad.F |
564 |
IRRAD |
parameter (nx=26,no=21,nc=24,nh=31,nt=7) |
|
./pkg/fizhi/fizhi_lwrad.F |
616 |
IRRAD |
_RL h11(nx,nh,nt),h12(nx,nh,nt),h13(nx,nh,nt) |
|
./pkg/fizhi/fizhi_lwrad.F |
617 |
IRRAD |
_RL h21(nx,nh,nt),h22(nx,nh,nt),h23(nx,nh,nt) |
|
./pkg/fizhi/fizhi_lwrad.F |
618 |
IRRAD |
_RL h81(nx,nh,nt),h82(nx,nh,nt),h83(nx,nh,nt) |
|
./pkg/fizhi/fizhi_lwrad.F |
803 |
IRRAD |
do iw=1,nh |
|
./pkg/fizhi/fizhi_lwrad.F |
830 |
IRRAD |
do iw=1,nh |