| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_swrad.F |
1238 |
SOLIR |
integer nk,nband |
|
./pkg/fizhi/fizhi_swrad.F |
1239 |
SOLIR |
parameter (nk=10,nband=3) |
|
./pkg/fizhi/fizhi_swrad.F |
1240 |
SOLIR |
_RL xk(nk),hk(nband,nk),ssaal(nband),asyal(nband) |
|
./pkg/fizhi/fizhi_swrad.F |
1241 |
SOLIR |
_RL aia(nband,3),awa(nband,3),aig(nband,3),awg(nband,3) |
|
./pkg/fizhi/fizhi_swrad.F |
1277 |
SOLIR |
data ssaal,asyal/nband*0.999,nband*0.850/ |
|
./pkg/fizhi/fizhi_swrad.F |
1332 |
SOLIR |
do 100 ib=1,nband |
|
./pkg/fizhi/fizhi_swrad.F |
1661 |
SOLUV |
integer nband |
|
./pkg/fizhi/fizhi_swrad.F |
1662 |
SOLUV |
parameter (nband=8) |
|
./pkg/fizhi/fizhi_swrad.F |
1663 |
SOLUV |
_RL hk(nband),xk(nband),ry(nband) |
|
./pkg/fizhi/fizhi_swrad.F |
1664 |
SOLUV |
_RL asyal(nband),ssaal(nband),aig(3),awg(3) |
|
./pkg/fizhi/fizhi_swrad.F |
1697 |
SOLUV |
data ssaal,asyal/nband*0.999,nband*0.850/ |
|
./pkg/fizhi/fizhi_swrad.F |
1768 |
SOLUV |
do 100 ib=1,nband |
|
./pkg/fizhi/fizhi_swrad.F |
1917 |
SOLUV |
if(ib.eq.nband) then |