| File |
Line number |
Procedure |
Code |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1248 |
SOLIR |
_RL rr(m,n,np+1,2),tt(m,n,np+1,2),td(m,n,np+1,2), |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1318 |
SOLIR |
rr(i,j,np+1,1)=rsirbm(i,j) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1319 |
SOLIR |
rr(i,j,np+1,2)=rsirbm(i,j) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1462 |
SOLIR |
rr(i,j,k,1)=rr1t(i,j) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1488 |
SOLIR |
rr(i,j,k,2)=rr2t(i,j) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1531 |
SOLIR |
call CLDFLX (m,n,np,ict,icb,cc,rr,tt,td,rs,ts, |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1672 |
SOLUV |
_RL td(m,n,np+1,2),rr(m,n,np+1,2),tt(m,n,np+1,2), |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1714 |
SOLUV |
rr(i,j,np+1,1)=rsuvbm(i,j) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1715 |
SOLUV |
rr(i,j,np+1,2)=rsuvbm(i,j) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1834 |
SOLUV |
rr(i,j,k,1)=rr1t(i,j) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1860 |
SOLUV |
rr(i,j,k,2)=rr2t(i,j) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1902 |
SOLUV |
call CLDFLX (m,n,np,ict,icb,cc,rr,tt,td,rs,ts, |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1941 |
DELEDD |
subroutine DELEDD(tau,ssc,g0,csm,rr,tt,td) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1985 |
DELEDD |
_RL rr,tt,td |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2057 |
DELEDD |
rr = ( cll-dll*st4 -all1*st2)*st1 |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2060 |
DELEDD |
rr = max(rr,zero) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2153 |
CLDFLX |
subroutine CLDFLX (m,n,np,ict,icb,cc,rr,tt,td,rs,ts, |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2191 |
CLDFLX |
_RL rr(m,n,np+1,2),tt(m,n,np+1,2),td(m,n,np+1,2) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2257 |
CLDFLX |
* +(tda(i,j,k-1,ih,1)*rr(i,j,k,ih) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2278 |
CLDFLX |
* +(tda(i,j,k-1,ih,im)*rr(i,j,k,im) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2300 |
CLDFLX |
rra(i,j,np+1,1,is)=rr(i,j,np+1,is) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2302 |
CLDFLX |
rra(i,j,np+1,2,is)=rr(i,j,np+1,is) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2311 |
CLDFLX |
rra(i,j,k,1,is)=rr(i,j,k,is)+(td(i,j,k,is) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2329 |
CLDFLX |
rra(i,j,k,im,is)= rr(i,j,k,im)+(td(i,j,k,im) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2421 |
CLDFLX |
* +(tda(i,j,k-1,ih,im)*rr(i,j,k,is) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2435 |
CLDFLX |
rra(i,j,k,im,is)= rr(i,j,k,ih)+(td(i,j,k,ih) |
|
./pkg/fizhi/fizhi_swrad.F |
1247 |
SOLIR |
_RL rr(m,n,np+1,2),tt(m,n,np+1,2),td(m,n,np+1,2), |
|
./pkg/fizhi/fizhi_swrad.F |
1317 |
SOLIR |
rr(i,j,np+1,1)=rsirbm(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1318 |
SOLIR |
rr(i,j,np+1,2)=rsirbm(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1461 |
SOLIR |
rr(i,j,k,1)=rr1t(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1487 |
SOLIR |
rr(i,j,k,2)=rr2t(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1530 |
SOLIR |
call CLDFLX (m,n,np,ict,icb,cc,rr,tt,td,rs,ts, |
|
./pkg/fizhi/fizhi_swrad.F |
1671 |
SOLUV |
_RL td(m,n,np+1,2),rr(m,n,np+1,2),tt(m,n,np+1,2), |
|
./pkg/fizhi/fizhi_swrad.F |
1713 |
SOLUV |
rr(i,j,np+1,1)=rsuvbm(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1714 |
SOLUV |
rr(i,j,np+1,2)=rsuvbm(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1833 |
SOLUV |
rr(i,j,k,1)=rr1t(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1859 |
SOLUV |
rr(i,j,k,2)=rr2t(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1901 |
SOLUV |
call CLDFLX (m,n,np,ict,icb,cc,rr,tt,td,rs,ts, |
|
./pkg/fizhi/fizhi_swrad.F |
1940 |
DELEDD |
subroutine DELEDD(tau,ssc,g0,csm,rr,tt,td) |
|
./pkg/fizhi/fizhi_swrad.F |
1984 |
DELEDD |
_RL rr,tt,td |
|
./pkg/fizhi/fizhi_swrad.F |
2056 |
DELEDD |
rr = ( cll-dll*st4 -all1*st2)*st1 |
|
./pkg/fizhi/fizhi_swrad.F |
2059 |
DELEDD |
rr = max(rr,zero) |
|
./pkg/fizhi/fizhi_swrad.F |
2152 |
CLDFLX |
subroutine CLDFLX (m,n,np,ict,icb,cc,rr,tt,td,rs,ts, |
|
./pkg/fizhi/fizhi_swrad.F |
2190 |
CLDFLX |
_RL rr(m,n,np+1,2),tt(m,n,np+1,2),td(m,n,np+1,2) |
|
./pkg/fizhi/fizhi_swrad.F |
2256 |
CLDFLX |
* +(tda(i,j,k-1,ih,1)*rr(i,j,k,ih) |
|
./pkg/fizhi/fizhi_swrad.F |
2277 |
CLDFLX |
* +(tda(i,j,k-1,ih,im)*rr(i,j,k,im) |
|
./pkg/fizhi/fizhi_swrad.F |
2299 |
CLDFLX |
rra(i,j,np+1,1,is)=rr(i,j,np+1,is) |
|
./pkg/fizhi/fizhi_swrad.F |
2301 |
CLDFLX |
rra(i,j,np+1,2,is)=rr(i,j,np+1,is) |
|
./pkg/fizhi/fizhi_swrad.F |
2310 |
CLDFLX |
rra(i,j,k,1,is)=rr(i,j,k,is)+(td(i,j,k,is) |
|
./pkg/fizhi/fizhi_swrad.F |
2328 |
CLDFLX |
rra(i,j,k,im,is)= rr(i,j,k,im)+(td(i,j,k,im) |
|
./pkg/fizhi/fizhi_swrad.F |
2420 |
CLDFLX |
* +(tda(i,j,k-1,ih,im)*rr(i,j,k,is) |
|
./pkg/fizhi/fizhi_swrad.F |
2434 |
CLDFLX |
rra(i,j,k,im,is)= rr(i,j,k,ih)+(td(i,j,k,ih) |