| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_lwrad.F |
1110 |
IRRAD |
g1=w1*(aig(1,ib)+(aig(2,ib)+(aig(3,ib) |
|
./pkg/fizhi/fizhi_lwrad.F |
1111 |
IRRAD |
* +aig(4,ib)*reff1)*reff1)*reff1) |
|
./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 |
759 |
IRRAD |
data aig / 0.57867, 1.0135e-2, -1.1142e-4, 4.1537e-7, |
|
./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 |
1306 |
SOLIR |
data aig/ |
|
./pkg/fizhi/fizhi_swrad.F |
1365 |
SOLIR |
g1=(aig(ib,1)+(aig(ib,2)+aig(ib,3)*reff1)*reff1)*w1 |
|
./pkg/fizhi/fizhi_swrad.F |
1672 |
SOLUV |
_RL asyal(nband),ssaal(nband),aig(3),awg(3) |
|
./pkg/fizhi/fizhi_swrad.F |
1710 |
SOLUV |
data aig/.74625000,.00105410,-.00000264/ |
|
./pkg/fizhi/fizhi_swrad.F |
1750 |
SOLUV |
g1=(aig(1)+(aig(2)+aig(3)*reff1)*reff1)*taucld(i,j,k,1) |