| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_lwrad.F |
1293 |
IRRAD |
tco2(i,j,ik,isb)=1.0 |
|
./pkg/fizhi/fizhi_lwrad.F |
1377 |
IRRAD |
tco2(i,j,ik,1)=1.0 |
|
./pkg/fizhi/fizhi_lwrad.F |
1460 |
IRRAD |
call CO2KDIS(m,n,np,k2-1,co2exp,tco2,trant) |
|
./pkg/fizhi/fizhi_lwrad.F |
1523 |
IRRAD |
* ,th2o,tcon,tco2,tn2o,trant) |
|
./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 |
2767 |
CO2KDIS |
tco2(i,j,1,1)=tco2(i,j,1,1)*co2exp(i,j,k,1,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
2768 |
CO2KDIS |
xc= 0.1395 *tco2(i,j,1,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
2770 |
CO2KDIS |
tco2(i,j,2,1)=tco2(i,j,2,1)*co2exp(i,j,k,2,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
2771 |
CO2KDIS |
xc=xc+0.1407 *tco2(i,j,2,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
2773 |
CO2KDIS |
tco2(i,j,3,1)=tco2(i,j,3,1)*co2exp(i,j,k,3,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
2774 |
CO2KDIS |
xc=xc+0.1549 *tco2(i,j,3,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
2776 |
CO2KDIS |
tco2(i,j,4,1)=tco2(i,j,4,1)*co2exp(i,j,k,4,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
2777 |
CO2KDIS |
xc=xc+0.1357 *tco2(i,j,4,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
2779 |
CO2KDIS |
tco2(i,j,5,1)=tco2(i,j,5,1)*co2exp(i,j,k,5,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
2780 |
CO2KDIS |
xc=xc+0.0182 *tco2(i,j,5,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
2782 |
CO2KDIS |
tco2(i,j,6,1)=tco2(i,j,6,1)*co2exp(i,j,k,6,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
2783 |
CO2KDIS |
xc=xc+0.0220 *tco2(i,j,6,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
2787 |
CO2KDIS |
tco2(i,j,1,2)=tco2(i,j,1,2)*co2exp(i,j,k,1,2) |
|
./pkg/fizhi/fizhi_lwrad.F |
2788 |
CO2KDIS |
xc=xc+0.0766 *tco2(i,j,1,2) |
|
./pkg/fizhi/fizhi_lwrad.F |
2790 |
CO2KDIS |
tco2(i,j,2,2)=tco2(i,j,2,2)*co2exp(i,j,k,2,2) |
|
./pkg/fizhi/fizhi_lwrad.F |
2791 |
CO2KDIS |
xc=xc+0.1372 *tco2(i,j,2,2) |
|
./pkg/fizhi/fizhi_lwrad.F |
2793 |
CO2KDIS |
tco2(i,j,3,2)=tco2(i,j,3,2)*co2exp(i,j,k,3,2) |
|
./pkg/fizhi/fizhi_lwrad.F |
2794 |
CO2KDIS |
xc=xc+0.1189 *tco2(i,j,3,2) |
|
./pkg/fizhi/fizhi_lwrad.F |
2796 |
CO2KDIS |
tco2(i,j,4,2)=tco2(i,j,4,2)*co2exp(i,j,k,4,2) |
|
./pkg/fizhi/fizhi_lwrad.F |
2797 |
CO2KDIS |
xc=xc+0.0335 *tco2(i,j,4,2) |
|
./pkg/fizhi/fizhi_lwrad.F |
2799 |
CO2KDIS |
tco2(i,j,5,2)=tco2(i,j,5,2)*co2exp(i,j,k,5,2) |
|
./pkg/fizhi/fizhi_lwrad.F |
2800 |
CO2KDIS |
xc=xc+0.0169 *tco2(i,j,5,2) |
|
./pkg/fizhi/fizhi_lwrad.F |
2802 |
CO2KDIS |
tco2(i,j,6,2)=tco2(i,j,6,2)*co2exp(i,j,k,6,2) |
|
./pkg/fizhi/fizhi_lwrad.F |
2803 |
CO2KDIS |
xc=xc+0.0059 *tco2(i,j,6,2) |
|
./pkg/fizhi/fizhi_lwrad.F |
3078 |
B10KDIS |
* ,th2o,tcon,tco2,tn2o,tran) |
|
./pkg/fizhi/fizhi_lwrad.F |
3118 |
B10KDIS |
_RL th2o(m,n,6),tcon(m,n,3),tco2(m,n,6,2),tn2o(m,n,4) |
|
./pkg/fizhi/fizhi_lwrad.F |
3174 |
B10KDIS |
tco2(i,j,1,1)=tco2(i,j,1,1)*co2exp(i,j,k,1,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
3175 |
B10KDIS |
xx= 0.2673*tco2(i,j,1,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
3177 |
B10KDIS |
tco2(i,j,2,1)=tco2(i,j,2,1)*co2exp(i,j,k,2,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
3178 |
B10KDIS |
xx=xx+ 0.2201*tco2(i,j,2,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
3180 |
B10KDIS |
tco2(i,j,3,1)=tco2(i,j,3,1)*co2exp(i,j,k,3,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
3181 |
B10KDIS |
xx=xx+ 0.2106*tco2(i,j,3,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
3183 |
B10KDIS |
tco2(i,j,4,1)=tco2(i,j,4,1)*co2exp(i,j,k,4,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
3184 |
B10KDIS |
xx=xx+ 0.2409*tco2(i,j,4,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
3186 |
B10KDIS |
tco2(i,j,5,1)=tco2(i,j,5,1)*co2exp(i,j,k,5,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
3187 |
B10KDIS |
xx=xx+ 0.0196*tco2(i,j,5,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
3189 |
B10KDIS |
tco2(i,j,6,1)=tco2(i,j,6,1)*co2exp(i,j,k,6,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
3190 |
B10KDIS |
xx=xx+ 0.0415*tco2(i,j,6,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
597 |
IRRAD |
_RL th2o(m,n,6),tcon(m,n,3),tco2(m,n,6,2) |