| File |
Line number |
Procedure |
Code |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2199 |
CLDFLX |
_RL rsa(m,n,np+1,2,2),rxa(m,n,np+1,2,2) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2301 |
CLDFLX |
rxa(i,j,np+1,1,is)=rs(i,j,np+1,is) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2303 |
CLDFLX |
rxa(i,j,np+1,2,is)=rs(i,j,np+1,is) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2310 |
CLDFLX |
denm=ts(i,j,k,is)/( 1.-rs(i,j,k,is)*rxa(i,j,k+1,1,is) ) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2312 |
CLDFLX |
* *rra(i,j,k+1,1,is)+tt(i,j,k,is)*rxa(i,j,k+1,1,is))*denm |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2313 |
CLDFLX |
rxa(i,j,k,1,is)= rs(i,j,k,is)+ts(i,j,k,is) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2314 |
CLDFLX |
* *rxa(i,j,k+1,1,is)*denm |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2316 |
CLDFLX |
rxa(i,j,k,2,is)=rxa(i,j,k,1,is) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2328 |
CLDFLX |
denm=ts(i,j,k,im)/( 1.-rs(i,j,k,im)*rxa(i,j,k+1,im,is) ) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2330 |
CLDFLX |
* *rra(i,j,k+1,im,is)+tt(i,j,k,im)*rxa(i,j,k+1,im,is))*denm |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2331 |
CLDFLX |
rxa(i,j,k,im,is)= rs(i,j,k,im)+ts(i,j,k,im) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2332 |
CLDFLX |
* *rxa(i,j,k+1,im,is)*denm |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2434 |
CLDFLX |
denm =ts(i,j,k,ih)/(1.-rs(i,j,k,ih)*rxa(i,j,k+1,im,is)) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2436 |
CLDFLX |
* *rra(i,j,k+1,im,is)+tt(i,j,k,ih)*rxa(i,j,k+1,im,is))*denm |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2437 |
CLDFLX |
rxa(i,j,k,im,is)= rs(i,j,k,ih)+ts(i,j,k,ih) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2438 |
CLDFLX |
* *rxa(i,j,k+1,im,is)*denm |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2452 |
CLDFLX |
denm= 1./(1.- rxa(i,j,k,im,is)*rsa(i,j,k-1,ih,im)) |
|
./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 |
2198 |
CLDFLX |
_RL rsa(m,n,np+1,2,2),rxa(m,n,np+1,2,2) |
|
./pkg/fizhi/fizhi_swrad.F |
2300 |
CLDFLX |
rxa(i,j,np+1,1,is)=rs(i,j,np+1,is) |
|
./pkg/fizhi/fizhi_swrad.F |
2302 |
CLDFLX |
rxa(i,j,np+1,2,is)=rs(i,j,np+1,is) |
|
./pkg/fizhi/fizhi_swrad.F |
2309 |
CLDFLX |
denm=ts(i,j,k,is)/( 1.-rs(i,j,k,is)*rxa(i,j,k+1,1,is) ) |
|
./pkg/fizhi/fizhi_swrad.F |
2311 |
CLDFLX |
* *rra(i,j,k+1,1,is)+tt(i,j,k,is)*rxa(i,j,k+1,1,is))*denm |
|
./pkg/fizhi/fizhi_swrad.F |
2312 |
CLDFLX |
rxa(i,j,k,1,is)= rs(i,j,k,is)+ts(i,j,k,is) |
|
./pkg/fizhi/fizhi_swrad.F |
2313 |
CLDFLX |
* *rxa(i,j,k+1,1,is)*denm |
|
./pkg/fizhi/fizhi_swrad.F |
2315 |
CLDFLX |
rxa(i,j,k,2,is)=rxa(i,j,k,1,is) |
|
./pkg/fizhi/fizhi_swrad.F |
2327 |
CLDFLX |
denm=ts(i,j,k,im)/( 1.-rs(i,j,k,im)*rxa(i,j,k+1,im,is) ) |
|
./pkg/fizhi/fizhi_swrad.F |
2329 |
CLDFLX |
* *rra(i,j,k+1,im,is)+tt(i,j,k,im)*rxa(i,j,k+1,im,is))*denm |
|
./pkg/fizhi/fizhi_swrad.F |
2330 |
CLDFLX |
rxa(i,j,k,im,is)= rs(i,j,k,im)+ts(i,j,k,im) |
|
./pkg/fizhi/fizhi_swrad.F |
2331 |
CLDFLX |
* *rxa(i,j,k+1,im,is)*denm |
|
./pkg/fizhi/fizhi_swrad.F |
2433 |
CLDFLX |
denm =ts(i,j,k,ih)/(1.-rs(i,j,k,ih)*rxa(i,j,k+1,im,is)) |
|
./pkg/fizhi/fizhi_swrad.F |
2435 |
CLDFLX |
* *rra(i,j,k+1,im,is)+tt(i,j,k,ih)*rxa(i,j,k+1,im,is))*denm |
|
./pkg/fizhi/fizhi_swrad.F |
2436 |
CLDFLX |
rxa(i,j,k,im,is)= rs(i,j,k,ih)+ts(i,j,k,ih) |
|
./pkg/fizhi/fizhi_swrad.F |
2437 |
CLDFLX |
* *rxa(i,j,k+1,im,is)*denm |
|
./pkg/fizhi/fizhi_swrad.F |
2451 |
CLDFLX |
denm= 1./(1.- rxa(i,j,k,im,is)*rsa(i,j,k-1,ih,im)) |
|
./pkg/fizhi/fizhi_swrad.F |
2455 |
CLDFLX |
fupdif= (xx+tta(i,j,k-1,ih,im)*rxa(i,j,k,im,is))*denm |