| File |
Line number |
Procedure |
Code |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1241 |
SOLIR |
_RL xk(nk),hk(nband,nk),ssaal(nband),asyal(nband) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1269 |
SOLIR |
data hk/ |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1537 |
SOLIR |
flx(i,j,k) = flx(i,j,k)+fall(i,j,k)*hk(ib,ik) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1542 |
SOLIR |
flc(i,j,k) = flc(i,j,k)+fclr(i,j,k)*hk(ib,ik) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1549 |
SOLIR |
fdirir(i,j) = fdirir(i,j)+fsdir(i,j)*hk(ib,ik) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1550 |
SOLIR |
fdifir(i,j) = fdifir(i,j)+fsdif(i,j)*hk(ib,ik) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1664 |
SOLUV |
_RL hk(nband),xk(nband),ry(nband) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1682 |
SOLUV |
data hk/.00057, .00367, .00083, .00417, |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1908 |
SOLUV |
flx(i,j,k)=flx(i,j,k)+fall(i,j,k)*hk(ib) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1913 |
SOLUV |
flc(i,j,k)=flc(i,j,k)+fclr(i,j,k)*hk(ib) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1921 |
SOLUV |
fdirpar(i,j)=fsdir(i,j)*hk(ib) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1922 |
SOLUV |
fdifpar(i,j)=fsdif(i,j)*hk(ib) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1928 |
SOLUV |
fdiruv(i,j)=fdiruv(i,j)+fsdir(i,j)*hk(ib) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1929 |
SOLUV |
fdifuv(i,j)=fdifuv(i,j)+fsdif(i,j)*hk(ib) |
|
./pkg/fizhi/fizhi_swrad.F |
1240 |
SOLIR |
_RL xk(nk),hk(nband,nk),ssaal(nband),asyal(nband) |
|
./pkg/fizhi/fizhi_swrad.F |
1268 |
SOLIR |
data hk/ |
|
./pkg/fizhi/fizhi_swrad.F |
1536 |
SOLIR |
flx(i,j,k) = flx(i,j,k)+fall(i,j,k)*hk(ib,ik) |
|
./pkg/fizhi/fizhi_swrad.F |
1541 |
SOLIR |
flc(i,j,k) = flc(i,j,k)+fclr(i,j,k)*hk(ib,ik) |
|
./pkg/fizhi/fizhi_swrad.F |
1548 |
SOLIR |
fdirir(i,j) = fdirir(i,j)+fsdir(i,j)*hk(ib,ik) |
|
./pkg/fizhi/fizhi_swrad.F |
1549 |
SOLIR |
fdifir(i,j) = fdifir(i,j)+fsdif(i,j)*hk(ib,ik) |
|
./pkg/fizhi/fizhi_swrad.F |
1663 |
SOLUV |
_RL hk(nband),xk(nband),ry(nband) |
|
./pkg/fizhi/fizhi_swrad.F |
1681 |
SOLUV |
data hk/.00057, .00367, .00083, .00417, |
|
./pkg/fizhi/fizhi_swrad.F |
1907 |
SOLUV |
flx(i,j,k)=flx(i,j,k)+fall(i,j,k)*hk(ib) |
|
./pkg/fizhi/fizhi_swrad.F |
1912 |
SOLUV |
flc(i,j,k)=flc(i,j,k)+fclr(i,j,k)*hk(ib) |
|
./pkg/fizhi/fizhi_swrad.F |
1920 |
SOLUV |
fdirpar(i,j)=fsdir(i,j)*hk(ib) |
|
./pkg/fizhi/fizhi_swrad.F |
1921 |
SOLUV |
fdifpar(i,j)=fsdif(i,j)*hk(ib) |
|
./pkg/fizhi/fizhi_swrad.F |
1927 |
SOLUV |
fdiruv(i,j)=fdiruv(i,j)+fsdir(i,j)*hk(ib) |
|
./pkg/fizhi/fizhi_swrad.F |
1928 |
SOLUV |
fdifuv(i,j)=fdifuv(i,j)+fsdif(i,j)*hk(ib) |