| File |
Line number |
Procedure |
Code |
|
./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 |
2579 |
H2OKDIS |
subroutine H2OKDIS(ib,m,n,np,k,fkw,gkw,ne,h2oexp,conexp, |
|
./pkg/fizhi/fizhi_lwrad.F |
2617 |
H2OKDIS |
_RL fkw(6,9),gkw(6,3) |
|
./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 |
585 |
IRRAD |
_RL xkw(9),aw(9),bw(9),pm(9),fkw(6,9),gkw(6,3),xke(9) |
|
./pkg/fizhi/fizhi_lwrad.F |
672 |
IRRAD |
data fkw / 0.2747,0.2717,0.2752,0.1177,0.0352,0.0255, |