File |
Line number |
Procedure |
Code |
./pkg/fizhi/fizhi_lwrad.F |
1164 |
IRRAD |
call N2OEXPS(ib,m,n,np,dn2o,pa,dt,n2oexp) |
./pkg/fizhi/fizhi_lwrad.F |
1220 |
IRRAD |
* ,h2oexp,conexp,co2exp,n2oexp) |
./pkg/fizhi/fizhi_lwrad.F |
1485 |
IRRAD |
call N2OKDIS(ib,m,n,np,k2-1,n2oexp,tn2o,trant) |
./pkg/fizhi/fizhi_lwrad.F |
1522 |
IRRAD |
call B10KDIS(m,n,np,k2-1,h2oexp,conexp,co2exp,n2oexp |
./pkg/fizhi/fizhi_lwrad.F |
2048 |
N2OEXPS |
subroutine N2OEXPS(ib,m,n,np,dn2o,pa,dt,n2oexp) |
./pkg/fizhi/fizhi_lwrad.F |
2073 |
N2OEXPS |
_RL n2oexp(m,n,np,4) |
./pkg/fizhi/fizhi_lwrad.F |
2090 |
N2OEXPS |
n2oexp(i,j,k,1)=exp(-xc*6.31582e-2) |
./pkg/fizhi/fizhi_lwrad.F |
2092 |
N2OEXPS |
xc=n2oexp(i,j,k,1)*n2oexp(i,j,k,1)*n2oexp(i,j,k,1) |
./pkg/fizhi/fizhi_lwrad.F |
2095 |
N2OEXPS |
n2oexp(i,j,k,2)=xc*xc1*xc2 |
./pkg/fizhi/fizhi_lwrad.F |
2103 |
N2OEXPS |
n2oexp(i,j,k,1)=exp(-xc*5.35779e-2) |
./pkg/fizhi/fizhi_lwrad.F |
2105 |
N2OEXPS |
xc=n2oexp(i,j,k,1)*n2oexp(i,j,k,1) |
./pkg/fizhi/fizhi_lwrad.F |
2107 |
N2OEXPS |
n2oexp(i,j,k,2)=xc*xc |
./pkg/fizhi/fizhi_lwrad.F |
2108 |
N2OEXPS |
xc=n2oexp(i,j,k,2)*n2oexp(i,j,k,2) |
./pkg/fizhi/fizhi_lwrad.F |
2110 |
N2OEXPS |
n2oexp(i,j,k,3)=xc*xc |
./pkg/fizhi/fizhi_lwrad.F |
2111 |
N2OEXPS |
xc=n2oexp(i,j,k,3)*n2oexp(i,j,k,3) |
./pkg/fizhi/fizhi_lwrad.F |
2113 |
N2OEXPS |
n2oexp(i,j,k,4)=xc*xc |
./pkg/fizhi/fizhi_lwrad.F |
2332 |
B10EXPS |
* ,h2oexp,conexp,co2exp,n2oexp) |
./pkg/fizhi/fizhi_lwrad.F |
2362 |
B10EXPS |
* ,n2oexp(m,n,np,4) |
./pkg/fizhi/fizhi_lwrad.F |
2448 |
B10EXPS |
n2oexp(i,j,k,1)=exp(-xx*0.25238) |
./pkg/fizhi/fizhi_lwrad.F |
2450 |
B10EXPS |
xx=n2oexp(i,j,k,1)*n2oexp(i,j,k,1) |
./pkg/fizhi/fizhi_lwrad.F |
2455 |
B10EXPS |
n2oexp(i,j,k,2)=xx*xx1*xx2*xx3 |
./pkg/fizhi/fizhi_lwrad.F |
2813 |
N2OKDIS |
subroutine N2OKDIS(ib,m,n,np,k,n2oexp,tn2o,tran) |
./pkg/fizhi/fizhi_lwrad.F |
2838 |
N2OKDIS |
_RL n2oexp(m,n,np,4) |
./pkg/fizhi/fizhi_lwrad.F |
2858 |
N2OKDIS |
tn2o(i,j,1)=tn2o(i,j,1)*n2oexp(i,j,k,1) |
./pkg/fizhi/fizhi_lwrad.F |
2861 |
N2OKDIS |
tn2o(i,j,2)=tn2o(i,j,2)*n2oexp(i,j,k,2) |
./pkg/fizhi/fizhi_lwrad.F |
2868 |
N2OKDIS |
tn2o(i,j,1)=tn2o(i,j,1)*n2oexp(i,j,k,1) |
./pkg/fizhi/fizhi_lwrad.F |
2871 |
N2OKDIS |
tn2o(i,j,2)=tn2o(i,j,2)*n2oexp(i,j,k,2) |
./pkg/fizhi/fizhi_lwrad.F |
2874 |
N2OKDIS |
tn2o(i,j,3)=tn2o(i,j,3)*n2oexp(i,j,k,3) |
./pkg/fizhi/fizhi_lwrad.F |
2877 |
N2OKDIS |
tn2o(i,j,4)=tn2o(i,j,4)*n2oexp(i,j,k,4) |
./pkg/fizhi/fizhi_lwrad.F |
3077 |
B10KDIS |
subroutine B10KDIS(m,n,np,k,h2oexp,conexp,co2exp,n2oexp |
./pkg/fizhi/fizhi_lwrad.F |
3114 |
B10KDIS |
* ,n2oexp(m,n,np,4) |
./pkg/fizhi/fizhi_lwrad.F |
3202 |
B10KDIS |
tn2o(i,j,1)=tn2o(i,j,1)*n2oexp(i,j,k,1) |
./pkg/fizhi/fizhi_lwrad.F |
3205 |
B10KDIS |
tn2o(i,j,2)=tn2o(i,j,2)*n2oexp(i,j,k,2) |
./pkg/fizhi/fizhi_lwrad.F |
601 |
IRRAD |
_RL n2oexp(m,n,np,4),ch4exp(m,n,np,4),comexp(m,n,np,2) |