| 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 |
1519 |
SOLIR |
fclr(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 |
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 |
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 |
1891 |
SOLUV |
fclr(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 |
1913 |
SOLUV |
flc(i,j,k)=flc(i,j,k)+fclr(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 |
2474 |
CLDFLX |
fclr(i,j,k)=flxdn(i,j,k) |
|
./pkg/fizhi/fizhi_swrad.F |
1249 |
SOLIR |
_RL fall(m,n,np+1),fclr(m,n,np+1) |
|
./pkg/fizhi/fizhi_swrad.F |
1518 |
SOLIR |
fclr(i,j,k) = 0. |
|
./pkg/fizhi/fizhi_swrad.F |
1531 |
SOLIR |
* fclr,fall,fsdir,fsdif) |
|
./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 |
1673 |
SOLUV |
_RL fall(m,n,np+1),fclr(m,n,np+1),fsdir(m,n),fsdif(m,n) |
|
./pkg/fizhi/fizhi_swrad.F |
1890 |
SOLUV |
fclr(i,j,k) = 0. |
|
./pkg/fizhi/fizhi_swrad.F |
1902 |
SOLUV |
* fclr,fall,fsdir,fsdif) |
|
./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 |
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 |
2473 |
CLDFLX |
fclr(i,j,k)=flxdn(i,j,k) |
|
./pkg/fizhi/fizhi_lwrad.F |
1252 |
IRRAD |
fclr(i,j) = 1.0 |
|
./pkg/fizhi/fizhi_lwrad.F |
1554 |
IRRAD |
fclr(i,j)=clrlw(i,j)*clrmd(i,j)*clrhi(i,j) |
|
./pkg/fizhi/fizhi_lwrad.F |
1593 |
IRRAD |
flxu(i,j,k1) =flxu(i,j,k1)+xx*fclr(i,j) |
|
./pkg/fizhi/fizhi_lwrad.F |
1596 |
IRRAD |
flxd(i,j,k2) =flxd(i,j,k2)+xx*fclr(i,j) |
|
./pkg/fizhi/fizhi_lwrad.F |
1608 |
IRRAD |
rflx(i,j,k1) = rflx(i,j,k1)+trant(i,j)*fclr(i,j) |
|
./pkg/fizhi/fizhi_lwrad.F |
1610 |
IRRAD |
rflx(i,j,k2) = rflx(i,j,k2)+trant(i,j)*fclr(i,j) |
|
./pkg/fizhi/fizhi_lwrad.F |
1631 |
IRRAD |
transfc(i,j,k1) =trant(i,j)*fclr(i,j) |
|
./pkg/fizhi/fizhi_lwrad.F |
603 |
IRRAD |
_RL clr(m,n,0:np+1),fclr(m,n) |