| File |
Line number |
Procedure |
Code |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1250 |
SOLIR |
_RL fall(m,n,np+1),fclr(m,n,np+1) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1520 |
SOLIR |
fall(i,j,k) = 0. |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1532 |
SOLIR |
* fclr,fall,fsdir,fsdif) |
|
./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 |
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 |
1892 |
SOLUV |
fall(i,j,k) = 0. |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1903 |
SOLUV |
* fclr,fall,fsdir,fsdif) |
|
./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 |
2154 |
CLDFLX |
* fclr,fall,fsdir,fsdif) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2206 |
CLDFLX |
_RL fclr(m,n,np+1),fall(m,n,np+1) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2214 |
CLDFLX |
fall(i,j,k)=0.0 |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2476 |
CLDFLX |
fall(i,j,k)=fall(i,j,k)+flxdn(i,j,k)*ct(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1249 |
SOLIR |
_RL fall(m,n,np+1),fclr(m,n,np+1) |
|
./pkg/fizhi/fizhi_swrad.F |
1519 |
SOLIR |
fall(i,j,k) = 0. |
|
./pkg/fizhi/fizhi_swrad.F |
1531 |
SOLIR |
* fclr,fall,fsdir,fsdif) |
|
./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 |
1673 |
SOLUV |
_RL fall(m,n,np+1),fclr(m,n,np+1),fsdir(m,n),fsdif(m,n) |
|
./pkg/fizhi/fizhi_swrad.F |
1891 |
SOLUV |
fall(i,j,k) = 0. |
|
./pkg/fizhi/fizhi_swrad.F |
1902 |
SOLUV |
* fclr,fall,fsdir,fsdif) |
|
./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 |
2153 |
CLDFLX |
* fclr,fall,fsdir,fsdif) |
|
./pkg/fizhi/fizhi_swrad.F |
2205 |
CLDFLX |
_RL fclr(m,n,np+1),fall(m,n,np+1) |
|
./pkg/fizhi/fizhi_swrad.F |
2213 |
CLDFLX |
fall(i,j,k)=0.0 |
|
./pkg/fizhi/fizhi_swrad.F |
2475 |
CLDFLX |
fall(i,j,k)=fall(i,j,k)+flxdn(i,j,k)*ct(i,j) |