| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_swrad.F |
1246 |
SOLIR |
integer nk,nband |
|
./pkg/fizhi/fizhi_swrad.F |
1247 |
SOLIR |
parameter (nk=10,nband=3) |
|
./pkg/fizhi/fizhi_swrad.F |
1248 |
SOLIR |
_RL xk(nk),hk(nband,nk),ssaal(nband),asyal(nband) |
|
./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 |
1285 |
SOLIR |
data ssaal,asyal/nband*0.999,nband*0.850/ |
|
./pkg/fizhi/fizhi_swrad.F |
1340 |
SOLIR |
do 100 ib=1,nband |
|
./pkg/fizhi/fizhi_swrad.F |
1669 |
SOLUV |
integer nband |
|
./pkg/fizhi/fizhi_swrad.F |
1670 |
SOLUV |
parameter (nband=8) |
|
./pkg/fizhi/fizhi_swrad.F |
1671 |
SOLUV |
_RL hk(nband),xk(nband),ry(nband) |
|
./pkg/fizhi/fizhi_swrad.F |
1672 |
SOLUV |
_RL asyal(nband),ssaal(nband),aig(3),awg(3) |
|
./pkg/fizhi/fizhi_swrad.F |
1705 |
SOLUV |
data ssaal,asyal/nband*0.999,nband*0.850/ |
|
./pkg/fizhi/fizhi_swrad.F |
1776 |
SOLUV |
do 100 ib=1,nband |
|
./pkg/fizhi/fizhi_swrad.F |
1925 |
SOLUV |
if(ib.eq.nband) then |