| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_lwrad.F |
1112 |
IRRAD |
g2=w2*(awg(1,ib)+(awg(2,ib)+(awg(3,ib) |
|
./pkg/fizhi/fizhi_lwrad.F |
1113 |
IRRAD |
* +awg(4,ib)*reff2)*reff2)*reff2) |
|
./pkg/fizhi/fizhi_lwrad.F |
586 |
IRRAD |
_RL aib(3,10),awb(4,10),aiw(4,10),aww(4,10),aig(4,10),awg(4,10) |
|
./pkg/fizhi/fizhi_lwrad.F |
773 |
IRRAD |
data awg / -0.51930, 0.20290, -1.1747e-2, 2.3868e-4, |
|
./pkg/fizhi/fizhi_swrad.F |
1249 |
SOLIR |
_RL aia(nband,3),awa(nband,3),aig(nband,3),awg(nband,3) |
|
./pkg/fizhi/fizhi_swrad.F |
1314 |
SOLIR |
data awg/ |
|
./pkg/fizhi/fizhi_swrad.F |
1366 |
SOLIR |
g2=(awg(ib,1)+(awg(ib,2)+awg(ib,3)*reff2)*reff2)*w2 |
|
./pkg/fizhi/fizhi_swrad.F |
1672 |
SOLUV |
_RL asyal(nband),ssaal(nband),aig(3),awg(3) |
|
./pkg/fizhi/fizhi_swrad.F |
1715 |
SOLUV |
data awg/.82562000,.00529000,-.00014866/ |
|
./pkg/fizhi/fizhi_swrad.F |
1751 |
SOLUV |
g2=(awg(1)+(awg(2)+awg(3)*reff2)*reff2)*taucld(i,j,k,2) |