| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_lwrad.F |
1275 |
IRRAD |
do iq=1,3 |
|
./pkg/fizhi/fizhi_lwrad.F |
1278 |
IRRAD |
tcon(i,j,iq)=1.0 |
|
./pkg/fizhi/fizhi_lwrad.F |
1381 |
IRRAD |
do iq=1,3 |
|
./pkg/fizhi/fizhi_lwrad.F |
1384 |
IRRAD |
tcon(i,j,iq)=1.0 |
|
./pkg/fizhi/fizhi_lwrad.F |
1902 |
CONEXPS |
integer ib,m,n,np,i,j,k,iq |
|
./pkg/fizhi/fizhi_lwrad.F |
1932 |
CONEXPS |
do iq=2,3 |
|
./pkg/fizhi/fizhi_lwrad.F |
1936 |
CONEXPS |
conexp(i,j,k,iq) = conexp(i,j,k,iq-1) *conexp(i,j,k,iq-1) |
|
./pkg/fizhi/fizhi_lwrad.F |
563 |
IRRAD |
integer i,j,k,ip,iw,it,ib,ik,iq,isb,k1,k2 |