| 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 |
2244 |
CLDFLX |
rsa(i,j,1,ih,1)=rs(i,j,1,ih) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2247 |
CLDFLX |
rsa(i,j,1,ih,2)=rs(i,j,1,ih) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2254 |
CLDFLX |
denm = ts(i,j,k,ih)/( 1.-rsa(i,j,k-1,ih,1)*rs(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 |
2259 |
CLDFLX |
rsa(i,j,k,ih,1)= rs(i,j,k,ih)+ts(i,j,k,ih) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2260 |
CLDFLX |
* *rsa(i,j,k-1,ih,1)*denm |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2263 |
CLDFLX |
rsa(i,j,k,ih,2)= rsa(i,j,k,ih,1) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2275 |
CLDFLX |
denm = ts(i,j,k,im)/( 1.-rsa(i,j,k-1,ih,im)*rs(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 |
2280 |
CLDFLX |
rsa(i,j,k,ih,im)= rs(i,j,k,im)+ts(i,j,k,im) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2281 |
CLDFLX |
* *rsa(i,j,k-1,ih,im)*denm |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2418 |
CLDFLX |
denm = ts(i,j,k,is)/( 1.-rsa(i,j,k-1,ih,im)*rs(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 |
2423 |
CLDFLX |
rsa(i,j,k,ih,im)= rs(i,j,k,is)+ts(i,j,k,is) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2424 |
CLDFLX |
* *rsa(i,j,k-1,ih,im)*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 |
2455 |
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 |
2198 |
CLDFLX |
_RL rsa(m,n,np+1,2,2),rxa(m,n,np+1,2,2) |
|
./pkg/fizhi/fizhi_swrad.F |
2243 |
CLDFLX |
rsa(i,j,1,ih,1)=rs(i,j,1,ih) |
|
./pkg/fizhi/fizhi_swrad.F |
2246 |
CLDFLX |
rsa(i,j,1,ih,2)=rs(i,j,1,ih) |
|
./pkg/fizhi/fizhi_swrad.F |
2253 |
CLDFLX |
denm = ts(i,j,k,ih)/( 1.-rsa(i,j,k-1,ih,1)*rs(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 |
2258 |
CLDFLX |
rsa(i,j,k,ih,1)= rs(i,j,k,ih)+ts(i,j,k,ih) |
|
./pkg/fizhi/fizhi_swrad.F |
2259 |
CLDFLX |
* *rsa(i,j,k-1,ih,1)*denm |
|
./pkg/fizhi/fizhi_swrad.F |
2262 |
CLDFLX |
rsa(i,j,k,ih,2)= rsa(i,j,k,ih,1) |
|
./pkg/fizhi/fizhi_swrad.F |
2274 |
CLDFLX |
denm = ts(i,j,k,im)/( 1.-rsa(i,j,k-1,ih,im)*rs(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 |
2279 |
CLDFLX |
rsa(i,j,k,ih,im)= rs(i,j,k,im)+ts(i,j,k,im) |
|
./pkg/fizhi/fizhi_swrad.F |
2280 |
CLDFLX |
* *rsa(i,j,k-1,ih,im)*denm |
|
./pkg/fizhi/fizhi_swrad.F |
2417 |
CLDFLX |
denm = ts(i,j,k,is)/( 1.-rsa(i,j,k-1,ih,im)*rs(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 |
2422 |
CLDFLX |
rsa(i,j,k,ih,im)= rs(i,j,k,is)+ts(i,j,k,is) |
|
./pkg/fizhi/fizhi_swrad.F |
2423 |
CLDFLX |
* *rsa(i,j,k-1,ih,im)*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 |
2454 |
CLDFLX |
fdndif(i,j)= (xx*rsa(i,j,k-1,ih,im)+tta(i,j,k-1,ih,im))*denm |