| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_lwrad.F |
1263 |
IRRAD |
do ik=1,6 |
|
./pkg/fizhi/fizhi_lwrad.F |
1266 |
IRRAD |
th2o(i,j,ik)=1.0 |
|
./pkg/fizhi/fizhi_lwrad.F |
1290 |
IRRAD |
do ik=1,6 |
|
./pkg/fizhi/fizhi_lwrad.F |
1293 |
IRRAD |
tco2(i,j,ik,isb)=1.0 |
|
./pkg/fizhi/fizhi_lwrad.F |
1307 |
IRRAD |
do ik=1,4 |
|
./pkg/fizhi/fizhi_lwrad.F |
1310 |
IRRAD |
tn2o(i,j,ik)=1.0 |
|
./pkg/fizhi/fizhi_lwrad.F |
1319 |
IRRAD |
do ik=1,4 |
|
./pkg/fizhi/fizhi_lwrad.F |
1322 |
IRRAD |
tch4(i,j,ik)=1.0 |
|
./pkg/fizhi/fizhi_lwrad.F |
1331 |
IRRAD |
do ik=1,2 |
|
./pkg/fizhi/fizhi_lwrad.F |
1334 |
IRRAD |
tcom(i,j,ik)=1.0 |
|
./pkg/fizhi/fizhi_lwrad.F |
1373 |
IRRAD |
do ik=1,6 |
|
./pkg/fizhi/fizhi_lwrad.F |
1376 |
IRRAD |
th2o(i,j,ik)=1.0 |
|
./pkg/fizhi/fizhi_lwrad.F |
1377 |
IRRAD |
tco2(i,j,ik,1)=1.0 |
|
./pkg/fizhi/fizhi_lwrad.F |
1388 |
IRRAD |
do ik=1,4 |
|
./pkg/fizhi/fizhi_lwrad.F |
1391 |
IRRAD |
tn2o(i,j,ik)=1.0 |
|
./pkg/fizhi/fizhi_lwrad.F |
1786 |
H2OEXPS |
integer ib,m,n,np,i,j,k,ik |
|
./pkg/fizhi/fizhi_lwrad.F |
1829 |
H2OEXPS |
do ik=2,6 |
|
./pkg/fizhi/fizhi_lwrad.F |
1836 |
H2OEXPS |
xh = h2oexp(i,j,k,ik-1)*h2oexp(i,j,k,ik-1) |
|
./pkg/fizhi/fizhi_lwrad.F |
1837 |
H2OEXPS |
h2oexp(i,j,k,ik) = xh*xh*xh |
|
./pkg/fizhi/fizhi_lwrad.F |
1847 |
H2OEXPS |
xh = h2oexp(i,j,k,ik-1)*h2oexp(i,j,k,ik-1) |
|
./pkg/fizhi/fizhi_lwrad.F |
1849 |
H2OEXPS |
h2oexp(i,j,k,ik) = xh*xh |
|
./pkg/fizhi/fizhi_lwrad.F |
1859 |
H2OEXPS |
xh=h2oexp(i,j,k,ik-1)*h2oexp(i,j,k,ik-1)*h2oexp(i,j,k,ik-1) |
|
./pkg/fizhi/fizhi_lwrad.F |
1861 |
H2OEXPS |
h2oexp(i,j,k,ik) = xh*xh1 |
|
./pkg/fizhi/fizhi_lwrad.F |
1871 |
H2OEXPS |
xh = h2oexp(i,j,k,ik-1)*h2oexp(i,j,k,ik-1) |
|
./pkg/fizhi/fizhi_lwrad.F |
1874 |
H2OEXPS |
h2oexp(i,j,k,ik) = xh*xh |
|
./pkg/fizhi/fizhi_lwrad.F |
563 |
IRRAD |
integer i,j,k,ip,iw,it,ib,ik,iq,isb,k1,k2 |
|
./pkg/fizhi/fizhi_swrad.F |
1253 |
SOLIR |
integer ib,ik,i,j,k |
|
./pkg/fizhi/fizhi_swrad.F |
1389 |
SOLIR |
do 200 ik=1,nk |
|
./pkg/fizhi/fizhi_swrad.F |
1396 |
SOLIR |
tauwv=xk(ik)*wh(i,j,k) |
|
./pkg/fizhi/fizhi_swrad.F |
1544 |
SOLIR |
flx(i,j,k) = flx(i,j,k)+fall(i,j,k)*hk(ib,ik) |
|
./pkg/fizhi/fizhi_swrad.F |
1549 |
SOLIR |
flc(i,j,k) = flc(i,j,k)+fclr(i,j,k)*hk(ib,ik) |
|
./pkg/fizhi/fizhi_swrad.F |
1556 |
SOLIR |
fdirir(i,j) = fdirir(i,j)+fsdir(i,j)*hk(ib,ik) |
|
./pkg/fizhi/fizhi_swrad.F |
1557 |
SOLIR |
fdifir(i,j) = fdifir(i,j)+fsdif(i,j)*hk(ib,ik) |
|
./pkg/openad/the_model_main.F |
312 |
THE_MODEL_MAIN |
INTEGER ik, il |