| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_lwrad.F |
1140 |
IRRAD |
call H2OEXPS(ib,m,n,np,dh2o,pa,dt,xkw,aw,bw,pm,mw,h2oexp) |
|
./pkg/fizhi/fizhi_lwrad.F |
1220 |
IRRAD |
* ,h2oexp,conexp,co2exp,n2oexp) |
|
./pkg/fizhi/fizhi_lwrad.F |
1438 |
IRRAD |
call H2OKDIS(ib,m,n,np,k2-1,fkw,gkw,ne,h2oexp,conexp, |
|
./pkg/fizhi/fizhi_lwrad.F |
1522 |
IRRAD |
call B10KDIS(m,n,np,k2-1,h2oexp,conexp,co2exp,n2oexp |
|
./pkg/fizhi/fizhi_lwrad.F |
1763 |
H2OEXPS |
subroutine H2OEXPS(ib,m,n,np,dh2o,pa,dt,xkw,aw,bw,pm,mw,h2oexp) |
|
./pkg/fizhi/fizhi_lwrad.F |
1794 |
H2OEXPS |
_RL h2oexp(m,n,np,6) |
|
./pkg/fizhi/fizhi_lwrad.F |
1823 |
H2OEXPS |
h2oexp(i,j,k,1) = exp(-xh*xkw(ib)) |
|
./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 |
2332 |
B10EXPS |
* ,h2oexp,conexp,co2exp,n2oexp) |
|
./pkg/fizhi/fizhi_lwrad.F |
2361 |
B10EXPS |
_RL h2oexp(m,n,np,6),conexp(m,n,np,3),co2exp(m,n,np,6,2) |
|
./pkg/fizhi/fizhi_lwrad.F |
2383 |
B10EXPS |
h2oexp(i,j,k,1)=exp(-xx*0.10624) |
|
./pkg/fizhi/fizhi_lwrad.F |
2385 |
B10EXPS |
xx=h2oexp(i,j,k,1)*h2oexp(i,j,k,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
2387 |
B10EXPS |
h2oexp(i,j,k,2)=xx*xx |
|
./pkg/fizhi/fizhi_lwrad.F |
2389 |
B10EXPS |
xx=h2oexp(i,j,k,2)*h2oexp(i,j,k,2) |
|
./pkg/fizhi/fizhi_lwrad.F |
2391 |
B10EXPS |
h2oexp(i,j,k,3)=xx*xx |
|
./pkg/fizhi/fizhi_lwrad.F |
2393 |
B10EXPS |
xx=h2oexp(i,j,k,3)*h2oexp(i,j,k,3) |
|
./pkg/fizhi/fizhi_lwrad.F |
2395 |
B10EXPS |
h2oexp(i,j,k,4)=xx*xx |
|
./pkg/fizhi/fizhi_lwrad.F |
2397 |
B10EXPS |
xx=h2oexp(i,j,k,4)*h2oexp(i,j,k,4) |
|
./pkg/fizhi/fizhi_lwrad.F |
2399 |
B10EXPS |
h2oexp(i,j,k,5)=xx*xx |
|
./pkg/fizhi/fizhi_lwrad.F |
2401 |
B10EXPS |
xx=h2oexp(i,j,k,5)*h2oexp(i,j,k,5) |
|
./pkg/fizhi/fizhi_lwrad.F |
2403 |
B10EXPS |
h2oexp(i,j,k,6)=xx*xx |
|
./pkg/fizhi/fizhi_lwrad.F |
2579 |
H2OKDIS |
subroutine H2OKDIS(ib,m,n,np,k,fkw,gkw,ne,h2oexp,conexp, |
|
./pkg/fizhi/fizhi_lwrad.F |
2615 |
H2OKDIS |
_RL conexp(m,n,np,3),h2oexp(m,n,np,6) |
|
./pkg/fizhi/fizhi_lwrad.F |
2641 |
H2OKDIS |
th2o(i,j,1) = th2o(i,j,1)*h2oexp(i,j,k,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
2642 |
H2OKDIS |
th2o(i,j,2) = th2o(i,j,2)*h2oexp(i,j,k,2) |
|
./pkg/fizhi/fizhi_lwrad.F |
2643 |
H2OKDIS |
th2o(i,j,3) = th2o(i,j,3)*h2oexp(i,j,k,3) |
|
./pkg/fizhi/fizhi_lwrad.F |
2644 |
H2OKDIS |
th2o(i,j,4) = th2o(i,j,4)*h2oexp(i,j,k,4) |
|
./pkg/fizhi/fizhi_lwrad.F |
2645 |
H2OKDIS |
th2o(i,j,5) = th2o(i,j,5)*h2oexp(i,j,k,5) |
|
./pkg/fizhi/fizhi_lwrad.F |
2646 |
H2OKDIS |
th2o(i,j,6) = th2o(i,j,6)*h2oexp(i,j,k,6) |
|
./pkg/fizhi/fizhi_lwrad.F |
3077 |
B10KDIS |
subroutine B10KDIS(m,n,np,k,h2oexp,conexp,co2exp,n2oexp |
|
./pkg/fizhi/fizhi_lwrad.F |
3113 |
B10KDIS |
_RL h2oexp(m,n,np,6),conexp(m,n,np,3),co2exp(m,n,np,6,2) |
|
./pkg/fizhi/fizhi_lwrad.F |
3138 |
B10KDIS |
th2o(i,j,1)=th2o(i,j,1)*h2oexp(i,j,k,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
3141 |
B10KDIS |
th2o(i,j,2)=th2o(i,j,2)*h2oexp(i,j,k,2) |
|
./pkg/fizhi/fizhi_lwrad.F |
3144 |
B10KDIS |
th2o(i,j,3)=th2o(i,j,3)*h2oexp(i,j,k,3) |
|
./pkg/fizhi/fizhi_lwrad.F |
3147 |
B10KDIS |
th2o(i,j,4)=th2o(i,j,4)*h2oexp(i,j,k,4) |
|
./pkg/fizhi/fizhi_lwrad.F |
3150 |
B10KDIS |
th2o(i,j,5)=th2o(i,j,5)*h2oexp(i,j,k,5) |
|
./pkg/fizhi/fizhi_lwrad.F |
600 |
IRRAD |
_RL h2oexp(m,n,np,6),conexp(m,n,np,3),co2exp(m,n,np,6,2) |