| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_lwrad.F |
1266 |
IRRAD |
th2o(i,j,ik)=1.0 |
|
./pkg/fizhi/fizhi_lwrad.F |
1376 |
IRRAD |
th2o(i,j,ik)=1.0 |
|
./pkg/fizhi/fizhi_lwrad.F |
1439 |
IRRAD |
* th2o,tcon,trant) |
|
./pkg/fizhi/fizhi_lwrad.F |
1523 |
IRRAD |
* ,th2o,tcon,tco2,tn2o,trant) |
|
./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 |
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 |
2655 |
H2OKDIS |
trnth2o =(fkw(1,ib)*th2o(i,j,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
2656 |
H2OKDIS |
* + fkw(2,ib)*th2o(i,j,2) |
|
./pkg/fizhi/fizhi_lwrad.F |
2657 |
H2OKDIS |
* + fkw(3,ib)*th2o(i,j,3) |
|
./pkg/fizhi/fizhi_lwrad.F |
2658 |
H2OKDIS |
* + fkw(4,ib)*th2o(i,j,4) |
|
./pkg/fizhi/fizhi_lwrad.F |
2659 |
H2OKDIS |
* + fkw(5,ib)*th2o(i,j,5) |
|
./pkg/fizhi/fizhi_lwrad.F |
2660 |
H2OKDIS |
* + fkw(6,ib)*th2o(i,j,6)) |
|
./pkg/fizhi/fizhi_lwrad.F |
2674 |
H2OKDIS |
trnth2o =(fkw(1,ib)*th2o(i,j,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
2675 |
H2OKDIS |
* + fkw(2,ib)*th2o(i,j,2) |
|
./pkg/fizhi/fizhi_lwrad.F |
2676 |
H2OKDIS |
* + fkw(3,ib)*th2o(i,j,3) |
|
./pkg/fizhi/fizhi_lwrad.F |
2677 |
H2OKDIS |
* + fkw(4,ib)*th2o(i,j,4) |
|
./pkg/fizhi/fizhi_lwrad.F |
2678 |
H2OKDIS |
* + fkw(5,ib)*th2o(i,j,5) |
|
./pkg/fizhi/fizhi_lwrad.F |
2679 |
H2OKDIS |
* + fkw(6,ib)*th2o(i,j,6))*tcon(i,j,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
2696 |
H2OKDIS |
trnth2o = ( gkw(1,1)*th2o(i,j,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
2697 |
H2OKDIS |
* + gkw(2,1)*th2o(i,j,2) |
|
./pkg/fizhi/fizhi_lwrad.F |
2698 |
H2OKDIS |
* + gkw(3,1)*th2o(i,j,3) |
|
./pkg/fizhi/fizhi_lwrad.F |
2699 |
H2OKDIS |
* + gkw(4,1)*th2o(i,j,4) |
|
./pkg/fizhi/fizhi_lwrad.F |
2700 |
H2OKDIS |
* + gkw(5,1)*th2o(i,j,5) |
|
./pkg/fizhi/fizhi_lwrad.F |
2701 |
H2OKDIS |
* + gkw(6,1)*th2o(i,j,6) ) * tcon(i,j,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
2702 |
H2OKDIS |
* + ( gkw(1,2)*th2o(i,j,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
2703 |
H2OKDIS |
* + gkw(2,2)*th2o(i,j,2) |
|
./pkg/fizhi/fizhi_lwrad.F |
2704 |
H2OKDIS |
* + gkw(3,2)*th2o(i,j,3) |
|
./pkg/fizhi/fizhi_lwrad.F |
2705 |
H2OKDIS |
* + gkw(4,2)*th2o(i,j,4) |
|
./pkg/fizhi/fizhi_lwrad.F |
2706 |
H2OKDIS |
* + gkw(5,2)*th2o(i,j,5) |
|
./pkg/fizhi/fizhi_lwrad.F |
2707 |
H2OKDIS |
* + gkw(6,2)*th2o(i,j,6) ) * tcon(i,j,2) |
|
./pkg/fizhi/fizhi_lwrad.F |
2708 |
H2OKDIS |
* + ( gkw(1,3)*th2o(i,j,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
2709 |
H2OKDIS |
* + gkw(2,3)*th2o(i,j,2) |
|
./pkg/fizhi/fizhi_lwrad.F |
2710 |
H2OKDIS |
* + gkw(3,3)*th2o(i,j,3) |
|
./pkg/fizhi/fizhi_lwrad.F |
2711 |
H2OKDIS |
* + gkw(4,3)*th2o(i,j,4) |
|
./pkg/fizhi/fizhi_lwrad.F |
2712 |
H2OKDIS |
* + gkw(5,3)*th2o(i,j,5) |
|
./pkg/fizhi/fizhi_lwrad.F |
2713 |
H2OKDIS |
* + gkw(6,3)*th2o(i,j,6) ) * tcon(i,j,3) |
|
./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 |
3138 |
B10KDIS |
th2o(i,j,1)=th2o(i,j,1)*h2oexp(i,j,k,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
3139 |
B10KDIS |
xx= 0.3153*th2o(i,j,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 |
3142 |
B10KDIS |
xx=xx+0.4604*th2o(i,j,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 |
3145 |
B10KDIS |
xx=xx+0.1326*th2o(i,j,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 |
3148 |
B10KDIS |
xx=xx+0.0798*th2o(i,j,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 |
3151 |
B10KDIS |
xx=xx+0.0119*th2o(i,j,5) |
|
./pkg/fizhi/fizhi_lwrad.F |
597 |
IRRAD |
_RL th2o(m,n,6),tcon(m,n,3),tco2(m,n,6,2) |