| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_swrad.F |
1258 |
SOLIR |
_RL fsdir(m,n),fsdif(m,n) |
|
./pkg/fizhi/fizhi_swrad.F |
1533 |
SOLIR |
fsdir(i,j) = 0. |
|
./pkg/fizhi/fizhi_swrad.F |
1539 |
SOLIR |
* fclr,fall,fsdir,fsdif) |
|
./pkg/fizhi/fizhi_swrad.F |
1556 |
SOLIR |
fdirir(i,j) = fdirir(i,j)+fsdir(i,j)*hk(ib,ik) |
|
./pkg/fizhi/fizhi_swrad.F |
1681 |
SOLUV |
_RL fall(m,n,np+1),fclr(m,n,np+1),fsdir(m,n),fsdif(m,n) |
|
./pkg/fizhi/fizhi_swrad.F |
1905 |
SOLUV |
fsdir(i,j) = 0. |
|
./pkg/fizhi/fizhi_swrad.F |
1910 |
SOLUV |
* fclr,fall,fsdir,fsdif) |
|
./pkg/fizhi/fizhi_swrad.F |
1928 |
SOLUV |
fdirpar(i,j)=fsdir(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 |
2161 |
CLDFLX |
* fclr,fall,fsdir,fsdif) |
|
./pkg/fizhi/fizhi_swrad.F |
2214 |
CLDFLX |
_RL fsdir(m,n),fsdif(m,n) |
|
./pkg/fizhi/fizhi_swrad.F |
2228 |
CLDFLX |
fsdir(i,j)=0.0 |
|
./pkg/fizhi/fizhi_swrad.F |
2490 |
CLDFLX |
fsdir(i,j)=fsdir(i,j)+fdndir(i,j)*ct(i,j) |