File |
Line number |
Procedure |
Code |
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2198 |
CLDFLX |
_RL rra(m,n,np+1,2,2),tta(m,n,np+1,2,2),tda(m,n,np+1,2,2) |
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2243 |
CLDFLX |
tta(i,j,1,ih,1)=tt(i,j,1,ih) |
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2246 |
CLDFLX |
tta(i,j,1,ih,2)=tt(i,j,1,ih) |
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2256 |
CLDFLX |
tta(i,j,k,ih,1)= tda(i,j,k-1,ih,1)*tt(i,j,k,ih) |
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2258 |
CLDFLX |
* *rsa(i,j,k-1,ih,1)+tta(i,j,k-1,ih,1))*denm |
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2262 |
CLDFLX |
tta(i,j,k,ih,2)= tta(i,j,k,ih,1) |
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2277 |
CLDFLX |
tta(i,j,k,ih,im)= tda(i,j,k-1,ih,im)*tt(i,j,k,im) |
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2279 |
CLDFLX |
* *rsa(i,j,k-1,ih,im)+tta(i,j,k-1,ih,im))*denm |
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2420 |
CLDFLX |
tta(i,j,k,ih,im)= tda(i,j,k-1,ih,im)*tt(i,j,k,is) |
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2422 |
CLDFLX |
* *rsa(i,j,k-1,ih,im)+tta(i,j,k-1,ih,im))*denm |
./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 |
2456 |
CLDFLX |
fupdif= (xx+tta(i,j,k-1,ih,im)*rxa(i,j,k,im,is))*denm |
./pkg/fizhi/fizhi_swrad.F |
2197 |
CLDFLX |
_RL rra(m,n,np+1,2,2),tta(m,n,np+1,2,2),tda(m,n,np+1,2,2) |
./pkg/fizhi/fizhi_swrad.F |
2242 |
CLDFLX |
tta(i,j,1,ih,1)=tt(i,j,1,ih) |
./pkg/fizhi/fizhi_swrad.F |
2245 |
CLDFLX |
tta(i,j,1,ih,2)=tt(i,j,1,ih) |
./pkg/fizhi/fizhi_swrad.F |
2255 |
CLDFLX |
tta(i,j,k,ih,1)= tda(i,j,k-1,ih,1)*tt(i,j,k,ih) |
./pkg/fizhi/fizhi_swrad.F |
2257 |
CLDFLX |
* *rsa(i,j,k-1,ih,1)+tta(i,j,k-1,ih,1))*denm |
./pkg/fizhi/fizhi_swrad.F |
2261 |
CLDFLX |
tta(i,j,k,ih,2)= tta(i,j,k,ih,1) |
./pkg/fizhi/fizhi_swrad.F |
2276 |
CLDFLX |
tta(i,j,k,ih,im)= tda(i,j,k-1,ih,im)*tt(i,j,k,im) |
./pkg/fizhi/fizhi_swrad.F |
2278 |
CLDFLX |
* *rsa(i,j,k-1,ih,im)+tta(i,j,k-1,ih,im))*denm |
./pkg/fizhi/fizhi_swrad.F |
2419 |
CLDFLX |
tta(i,j,k,ih,im)= tda(i,j,k-1,ih,im)*tt(i,j,k,is) |
./pkg/fizhi/fizhi_swrad.F |
2421 |
CLDFLX |
* *rsa(i,j,k-1,ih,im)+tta(i,j,k-1,ih,im))*denm |
./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 |
2455 |
CLDFLX |
fupdif= (xx+tta(i,j,k-1,ih,im)*rxa(i,j,k,im,is))*denm |