| File |
Line number |
Procedure |
Code |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1251 |
SOLIR |
_RL fsdir(m,n),fsdif(m,n) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1527 |
SOLIR |
fsdif(i,j) = 0. |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1532 |
SOLIR |
* fclr,fall,fsdir,fsdif) |
|
./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 |
1674 |
SOLUV |
_RL fall(m,n,np+1),fclr(m,n,np+1),fsdir(m,n),fsdif(m,n) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1899 |
SOLUV |
fsdif(i,j) = 0. |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1903 |
SOLUV |
* fclr,fall,fsdir,fsdif) |
|
./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 |
1929 |
SOLUV |
fdifuv(i,j)=fdifuv(i,j)+fsdif(i,j)*hk(ib) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2154 |
CLDFLX |
* fclr,fall,fsdir,fsdif) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2207 |
CLDFLX |
_RL fsdir(m,n),fsdif(m,n) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2222 |
CLDFLX |
fsdif(i,j)=0.0 |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2484 |
CLDFLX |
fsdif(i,j)=fsdif(i,j)+fdndif(i,j)*ct(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1250 |
SOLIR |
_RL fsdir(m,n),fsdif(m,n) |
|
./pkg/fizhi/fizhi_swrad.F |
1526 |
SOLIR |
fsdif(i,j) = 0. |
|
./pkg/fizhi/fizhi_swrad.F |
1531 |
SOLIR |
* fclr,fall,fsdir,fsdif) |
|
./pkg/fizhi/fizhi_swrad.F |
1549 |
SOLIR |
fdifir(i,j) = fdifir(i,j)+fsdif(i,j)*hk(ib,ik) |
|
./pkg/fizhi/fizhi_swrad.F |
1673 |
SOLUV |
_RL fall(m,n,np+1),fclr(m,n,np+1),fsdir(m,n),fsdif(m,n) |
|
./pkg/fizhi/fizhi_swrad.F |
1898 |
SOLUV |
fsdif(i,j) = 0. |
|
./pkg/fizhi/fizhi_swrad.F |
1902 |
SOLUV |
* fclr,fall,fsdir,fsdif) |
|
./pkg/fizhi/fizhi_swrad.F |
1921 |
SOLUV |
fdifpar(i,j)=fsdif(i,j)*hk(ib) |
|
./pkg/fizhi/fizhi_swrad.F |
1928 |
SOLUV |
fdifuv(i,j)=fdifuv(i,j)+fsdif(i,j)*hk(ib) |
|
./pkg/fizhi/fizhi_swrad.F |
2153 |
CLDFLX |
* fclr,fall,fsdir,fsdif) |
|
./pkg/fizhi/fizhi_swrad.F |
2206 |
CLDFLX |
_RL fsdir(m,n),fsdif(m,n) |
|
./pkg/fizhi/fizhi_swrad.F |
2221 |
CLDFLX |
fsdif(i,j)=0.0 |
|
./pkg/fizhi/fizhi_swrad.F |
2483 |
CLDFLX |
fsdif(i,j)=fsdif(i,j)+fdndif(i,j)*ct(i,j) |