File |
Line number |
Procedure |
Code |
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2201 |
CLDFLX |
_RL fdndir(m,n),fdndif(m,n),fupdif |
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2455 |
CLDFLX |
fdndif(i,j)= (xx*rsa(i,j,k-1,ih,im)+tta(i,j,k-1,ih,im))*denm |
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2457 |
CLDFLX |
flxdn(i,j,k)=fdndir(i,j)+fdndif(i,j)-fupdif |
./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 |
2200 |
CLDFLX |
_RL fdndir(m,n),fdndif(m,n),fupdif |
./pkg/fizhi/fizhi_swrad.F |
2454 |
CLDFLX |
fdndif(i,j)= (xx*rsa(i,j,k-1,ih,im)+tta(i,j,k-1,ih,im))*denm |
./pkg/fizhi/fizhi_swrad.F |
2456 |
CLDFLX |
flxdn(i,j,k)=fdndir(i,j)+fdndif(i,j)-fupdif |
./pkg/fizhi/fizhi_swrad.F |
2483 |
CLDFLX |
fsdif(i,j)=fsdif(i,j)+fdndif(i,j)*ct(i,j) |