| 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 |
1322 |
SOLIR |
td(i,j,np+1,1)=0.0 |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1323 |
SOLIR |
td(i,j,np+1,2)=0.0 |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1472 |
SOLIR |
td(i,j,k,1)=td1t(i,j) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1498 |
SOLIR |
td(i,j,k,2)=td2t(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 |
1718 |
SOLUV |
td(i,j,np+1,1)=0.0 |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1719 |
SOLUV |
td(i,j,np+1,2)=0.0 |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1844 |
SOLUV |
td(i,j,k,1)=td1t(i,j) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1870 |
SOLUV |
td(i,j,k,2)=td2t(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 |
2006 |
DELEDD |
td = expmn(-taup*csm) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2031 |
DELEDD |
all1 = (gm3 - alf2 * zth )*xx*td |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2058 |
DELEDD |
tt = - ((fll-ell*st4)*td-bll*st2)*st1 |
|
./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 |
2242 |
CLDFLX |
tda(i,j,1,ih,1)=td(i,j,1,ih) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2245 |
CLDFLX |
tda(i,j,1,ih,2)=td(i,j,1,ih) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2255 |
CLDFLX |
tda(i,j,k,ih,1)= tda(i,j,k-1,ih,1)*td(i,j,k,ih) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2276 |
CLDFLX |
tda(i,j,k,ih,im)= tda(i,j,k-1,ih,im)*td(i,j,k,im) |
|
./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 |
2419 |
CLDFLX |
tda(i,j,k,ih,im)= tda(i,j,k-1,ih,im)*td(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) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1180 |
TURBIO |
call DIAG_VEGTILE_FILL (td,igrd,chfrstr,istrip,nchp,nn, |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
212 |
TURBIO |
_RL tc(istrip),td(istrip),qa(istrip) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
523 |
TURBIO |
call STRIPIT (tdeep,td,nchptot,nchp,istrip,1,nn) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
793 |
TURBIO |
U tc, td, qa, swet1, swet2, swet3, capacity, snowdepth, |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
892 |
TURBIO |
call PSTBMPIT(td,qdiaglsm(1,7),istrip,nchp,nchptot,1,nn) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
927 |
TURBIO |
call PASTIT (td,tdeep,istrip,nchp,nchptot,1,nn) |
|
./lsopt/lsline.F |
113 |
LSLINE |
td = 0.0 |
|
./lsopt/lsline.F |
138 |
LSLINE |
td = tact |
|
./lsopt/lsline.F |
178 |
LSLINE |
if (td .ne. 0.0) go to 500 |
|
./lsopt/lsline.F |
192 |
LSLINE |
& 'td, tg, tact, ifail = ', td, tg, tact, ifail |
|
./lsopt/lsline.F |
202 |
LSLINE |
test = barr*(td-tg) |
|
./lsopt/lsline.F |
204 |
LSLINE |
right = td-test |
|
./lsopt/lsline.F |
216 |
LSLINE |
& 'td, tg, tact, ifail = ', td, tg, tact, ifail |
|
./lsopt/lsline.F |
232 |
LSLINE |
if (td .eq. 0.0) go to 950 |
|
./lsopt/lsline.F |
233 |
LSLINE |
if (td-tg .lt. tmin) go to 920 |
|
./lsopt/lsline.F |
82 |
LSLINE |
double precision tg, fg, td, ta |
|
./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 |
1321 |
SOLIR |
td(i,j,np+1,1)=0.0 |
|
./pkg/fizhi/fizhi_swrad.F |
1322 |
SOLIR |
td(i,j,np+1,2)=0.0 |
|
./pkg/fizhi/fizhi_swrad.F |
1471 |
SOLIR |
td(i,j,k,1)=td1t(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1497 |
SOLIR |
td(i,j,k,2)=td2t(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 |
1717 |
SOLUV |
td(i,j,np+1,1)=0.0 |
|
./pkg/fizhi/fizhi_swrad.F |
1718 |
SOLUV |
td(i,j,np+1,2)=0.0 |
|
./pkg/fizhi/fizhi_swrad.F |
1843 |
SOLUV |
td(i,j,k,1)=td1t(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1869 |
SOLUV |
td(i,j,k,2)=td2t(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 |
2005 |
DELEDD |
td = expmn(-taup*csm) |
|
./pkg/fizhi/fizhi_swrad.F |
2030 |
DELEDD |
all1 = (gm3 - alf2 * zth )*xx*td |
|
./pkg/fizhi/fizhi_swrad.F |
2057 |
DELEDD |
tt = - ((fll-ell*st4)*td-bll*st2)*st1 |
|
./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 |
2241 |
CLDFLX |
tda(i,j,1,ih,1)=td(i,j,1,ih) |
|
./pkg/fizhi/fizhi_swrad.F |
2244 |
CLDFLX |
tda(i,j,1,ih,2)=td(i,j,1,ih) |
|
./pkg/fizhi/fizhi_swrad.F |
2254 |
CLDFLX |
tda(i,j,k,ih,1)= tda(i,j,k-1,ih,1)*td(i,j,k,ih) |
|
./pkg/fizhi/fizhi_swrad.F |
2275 |
CLDFLX |
tda(i,j,k,ih,im)= tda(i,j,k-1,ih,im)*td(i,j,k,im) |
|
./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 |
2418 |
CLDFLX |
tda(i,j,k,ih,im)= tda(i,j,k-1,ih,im)*td(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) |
|
./pkg/fizhi/fizhi_turb.F |
1140 |
TURBIO |
call DIAG_VEGTILE_FILL (td,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
212 |
TURBIO |
_RL tc(istrip),td(istrip),qa(istrip) |
|
./pkg/fizhi/fizhi_turb.F |
523 |
TURBIO |
call STRIPIT (tdeep,td,nchptot,nchp,istrip,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
769 |
TURBIO |
U tc, td, qa, swet1, swet2, swet3, capacity, snowdepth, |
|
./pkg/fizhi/fizhi_turb.F |
868 |
TURBIO |
call PSTBMPIT(td,qdiaglsm(1,7),istrip,nchp,nchptot,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
903 |
TURBIO |
call PASTIT (td,tdeep,istrip,nchp,nchptot,1,nn) |