| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_swrad.F |
1248 |
SOLIR |
_RL xk(nk),hk(nband,nk),ssaal(nband),asyal(nband) |
|
./pkg/fizhi/fizhi_swrad.F |
1276 |
SOLIR |
data hk/ |
|
./pkg/fizhi/fizhi_swrad.F |
1544 |
SOLIR |
flx(i,j,k) = flx(i,j,k)+fall(i,j,k)*hk(ib,ik) |
|
./pkg/fizhi/fizhi_swrad.F |
1549 |
SOLIR |
flc(i,j,k) = flc(i,j,k)+fclr(i,j,k)*hk(ib,ik) |
|
./pkg/fizhi/fizhi_swrad.F |
1556 |
SOLIR |
fdirir(i,j) = fdirir(i,j)+fsdir(i,j)*hk(ib,ik) |
|
./pkg/fizhi/fizhi_swrad.F |
1557 |
SOLIR |
fdifir(i,j) = fdifir(i,j)+fsdif(i,j)*hk(ib,ik) |
|
./pkg/fizhi/fizhi_swrad.F |
1671 |
SOLUV |
_RL hk(nband),xk(nband),ry(nband) |
|
./pkg/fizhi/fizhi_swrad.F |
1689 |
SOLUV |
data hk/.00057, .00367, .00083, .00417, |
|
./pkg/fizhi/fizhi_swrad.F |
1915 |
SOLUV |
flx(i,j,k)=flx(i,j,k)+fall(i,j,k)*hk(ib) |
|
./pkg/fizhi/fizhi_swrad.F |
1920 |
SOLUV |
flc(i,j,k)=flc(i,j,k)+fclr(i,j,k)*hk(ib) |
|
./pkg/fizhi/fizhi_swrad.F |
1928 |
SOLUV |
fdirpar(i,j)=fsdir(i,j)*hk(ib) |
|
./pkg/fizhi/fizhi_swrad.F |
1929 |
SOLUV |
fdifpar(i,j)=fsdif(i,j)*hk(ib) |
|
./pkg/fizhi/fizhi_swrad.F |
1935 |
SOLUV |
fdiruv(i,j)=fdiruv(i,j)+fsdir(i,j)*hk(ib) |
|
./pkg/fizhi/fizhi_swrad.F |
1936 |
SOLUV |
fdifuv(i,j)=fdifuv(i,j)+fsdif(i,j)*hk(ib) |