| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_lwrad.F |
2465 |
TABLUP |
* dwe,dpe,coef1,coef2,coef3,tran) |
|
./pkg/fizhi/fizhi_lwrad.F |
2513 |
TABLUP |
_RL tran(m,n) |
|
./pkg/fizhi/fizhi_lwrad.F |
2571 |
TABLUP |
tran(i,j)= (ax + (t1+t2*x3) * x3)*tran(i,j) |
|
./pkg/fizhi/fizhi_lwrad.F |
2580 |
H2OKDIS |
* th2o,tcon,tran) |
|
./pkg/fizhi/fizhi_lwrad.F |
2621 |
H2OKDIS |
_RL th2o(m,n,6),tcon(m,n,3),tran(m,n) |
|
./pkg/fizhi/fizhi_lwrad.F |
2662 |
H2OKDIS |
tran(i,j)=tran(i,j)*trnth2o |
|
./pkg/fizhi/fizhi_lwrad.F |
2681 |
H2OKDIS |
tran(i,j)=tran(i,j)*trnth2o |
|
./pkg/fizhi/fizhi_lwrad.F |
2715 |
H2OKDIS |
tran(i,j)=tran(i,j)*trnth2o |
|
./pkg/fizhi/fizhi_lwrad.F |
2725 |
CO2KDIS |
subroutine CO2KDIS(m,n,np,k,co2exp,tco2,tran) |
|
./pkg/fizhi/fizhi_lwrad.F |
2753 |
CO2KDIS |
_RL tco2(m,n,6,2),tran(m,n) |
|
./pkg/fizhi/fizhi_lwrad.F |
2805 |
CO2KDIS |
tran(i,j)=tran(i,j)*xc |
|
./pkg/fizhi/fizhi_lwrad.F |
2813 |
N2OKDIS |
subroutine N2OKDIS(ib,m,n,np,k,n2oexp,tn2o,tran) |
|
./pkg/fizhi/fizhi_lwrad.F |
2842 |
N2OKDIS |
_RL tn2o(m,n,4),tran(m,n) |
|
./pkg/fizhi/fizhi_lwrad.F |
2882 |
N2OKDIS |
tran(i,j)=tran(i,j)*xc |
|
./pkg/fizhi/fizhi_lwrad.F |
2890 |
CH4KDIS |
subroutine CH4KDIS(ib,m,n,np,k,ch4exp,tch4,tran) |
|
./pkg/fizhi/fizhi_lwrad.F |
2919 |
CH4KDIS |
_RL tch4(m,n,4),tran(m,n) |
|
./pkg/fizhi/fizhi_lwrad.F |
2956 |
CH4KDIS |
tran(i,j)=tran(i,j)*xc |
|
./pkg/fizhi/fizhi_lwrad.F |
2964 |
COMKDIS |
subroutine COMKDIS(ib,m,n,np,k,comexp,tcom,tran) |
|
./pkg/fizhi/fizhi_lwrad.F |
2993 |
COMKDIS |
_RL tcom(m,n,2),tran(m,n) |
|
./pkg/fizhi/fizhi_lwrad.F |
3025 |
COMKDIS |
tran(i,j)=tran(i,j)*xc |
|
./pkg/fizhi/fizhi_lwrad.F |
3033 |
CFCKDIS |
subroutine CFCKDIS(m,n,np,k,cfcexp,tcfc,tran) |
|
./pkg/fizhi/fizhi_lwrad.F |
3061 |
CFCKDIS |
_RL tcfc(m,n),tran(m,n) |
|
./pkg/fizhi/fizhi_lwrad.F |
3069 |
CFCKDIS |
tran(i,j)=tran(i,j)*tcfc(i,j) |
|
./pkg/fizhi/fizhi_lwrad.F |
3078 |
B10KDIS |
* ,th2o,tcon,tco2,tn2o,tran) |
|
./pkg/fizhi/fizhi_lwrad.F |
3119 |
B10KDIS |
* ,tran(m,n) |
|
./pkg/fizhi/fizhi_lwrad.F |
3129 |
B10KDIS |
tran(i,j)=1.0 |
|
./pkg/fizhi/fizhi_lwrad.F |
3153 |
B10KDIS |
tran(i,j)=tran(i,j)*xx |
|
./pkg/fizhi/fizhi_lwrad.F |
3164 |
B10KDIS |
tran(i,j)=tran(i,j)*tcon(i,j,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
3192 |
B10KDIS |
tran(i,j)=tran(i,j)*xx |
|
./pkg/fizhi/fizhi_lwrad.F |
3208 |
B10KDIS |
tran(i,j)=tran(i,j)*(xx-1.0) |