| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_swrad.F |
1255 |
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 |
1329 |
SOLIR |
td(i,j,np+1,1)=0.0 |
|
./pkg/fizhi/fizhi_swrad.F |
1330 |
SOLIR |
td(i,j,np+1,2)=0.0 |
|
./pkg/fizhi/fizhi_swrad.F |
1479 |
SOLIR |
td(i,j,k,1)=td1t(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1505 |
SOLIR |
td(i,j,k,2)=td2t(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1538 |
SOLIR |
call CLDFLX (m,n,np,ict,icb,cc,rr,tt,td,rs,ts, |
|
./pkg/fizhi/fizhi_swrad.F |
1679 |
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 |
1725 |
SOLUV |
td(i,j,np+1,1)=0.0 |
|
./pkg/fizhi/fizhi_swrad.F |
1726 |
SOLUV |
td(i,j,np+1,2)=0.0 |
|
./pkg/fizhi/fizhi_swrad.F |
1851 |
SOLUV |
td(i,j,k,1)=td1t(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1877 |
SOLUV |
td(i,j,k,2)=td2t(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1909 |
SOLUV |
call CLDFLX (m,n,np,ict,icb,cc,rr,tt,td,rs,ts, |
|
./pkg/fizhi/fizhi_swrad.F |
1948 |
DELEDD |
subroutine DELEDD(tau,ssc,g0,csm,rr,tt,td) |
|
./pkg/fizhi/fizhi_swrad.F |
1992 |
DELEDD |
_RL rr,tt,td |
|
./pkg/fizhi/fizhi_swrad.F |
2013 |
DELEDD |
td = expmn(-taup*csm) |
|
./pkg/fizhi/fizhi_swrad.F |
2038 |
DELEDD |
all1 = (gm3 - alf2 * zth )*xx*td |
|
./pkg/fizhi/fizhi_swrad.F |
2065 |
DELEDD |
tt = - ((fll-ell*st4)*td-bll*st2)*st1 |
|
./pkg/fizhi/fizhi_swrad.F |
2160 |
CLDFLX |
subroutine CLDFLX (m,n,np,ict,icb,cc,rr,tt,td,rs,ts, |
|
./pkg/fizhi/fizhi_swrad.F |
2198 |
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 |
2249 |
CLDFLX |
tda(i,j,1,ih,1)=td(i,j,1,ih) |
|
./pkg/fizhi/fizhi_swrad.F |
2252 |
CLDFLX |
tda(i,j,1,ih,2)=td(i,j,1,ih) |
|
./pkg/fizhi/fizhi_swrad.F |
2262 |
CLDFLX |
tda(i,j,k,ih,1)= tda(i,j,k-1,ih,1)*td(i,j,k,ih) |
|
./pkg/fizhi/fizhi_swrad.F |
2283 |
CLDFLX |
tda(i,j,k,ih,im)= tda(i,j,k-1,ih,im)*td(i,j,k,im) |
|
./pkg/fizhi/fizhi_swrad.F |
2318 |
CLDFLX |
rra(i,j,k,1,is)=rr(i,j,k,is)+(td(i,j,k,is) |
|
./pkg/fizhi/fizhi_swrad.F |
2336 |
CLDFLX |
rra(i,j,k,im,is)= rr(i,j,k,im)+(td(i,j,k,im) |
|
./pkg/fizhi/fizhi_swrad.F |
2426 |
CLDFLX |
tda(i,j,k,ih,im)= tda(i,j,k-1,ih,im)*td(i,j,k,is) |
|
./pkg/fizhi/fizhi_swrad.F |
2442 |
CLDFLX |
rra(i,j,k,im,is)= rr(i,j,k,ih)+(td(i,j,k,ih) |
|
./pkg/fizhi/fizhi_turb.F |
1075 |
TURBIO |
call DIAG_VEGTILE_FILL (td,igrd,chfrstr,istrip,nchp,nn, |
|
./pkg/fizhi/fizhi_turb.F |
228 |
TURBIO |
_RL tc(istrip),td(istrip),qa(istrip) |
|
./pkg/fizhi/fizhi_turb.F |
496 |
TURBIO |
call STRIPIT (tdeep,td,nchptot,nchp,istrip,1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
746 |
TURBIO |
U tc, td, qa, swet1, swet2, swet3, capacity, snowdepth, |
|
./pkg/fizhi/fizhi_turb.F |
839 |
TURBIO |
call PASTIT (td,tdeep,istrip,nchp,nchptot,1,nn) |
|
./pkg/obcs/obcs_add_tides.F |
104 |
OBCS_ADD_TIDES |
DO td=1,tidalComponents |
|
./pkg/obcs/obcs_add_tides.F |
106 |
OBCS_ADD_TIDES |
& maskS(i,jB,k,bi,bj) * OBNam(i,td,bi,bj) * |
|
./pkg/obcs/obcs_add_tides.F |
107 |
OBCS_ADD_TIDES |
& COS( 2.D0 * PI * (myTime-OBNph(i,td,bi,bj)) / |
|
./pkg/obcs/obcs_add_tides.F |
108 |
OBCS_ADD_TIDES |
& tidalPeriod(td) ) |
|
./pkg/obcs/obcs_add_tides.F |
122 |
OBCS_ADD_TIDES |
DO td=1,tidalComponents |
|
./pkg/obcs/obcs_add_tides.F |
124 |
OBCS_ADD_TIDES |
& maskS(i,1+jB,k,bi,bj)* OBSam(i,td,bi,bj) * |
|
./pkg/obcs/obcs_add_tides.F |
125 |
OBCS_ADD_TIDES |
& COS( 2.D0 * PI * (myTime-OBSph(i,td,bi,bj)) / |
|
./pkg/obcs/obcs_add_tides.F |
126 |
OBCS_ADD_TIDES |
& tidalPeriod(td) ) |
|
./pkg/obcs/obcs_add_tides.F |
52 |
OBCS_ADD_TIDES |
INTEGER td |
|
./pkg/obcs/obcs_add_tides.F |
68 |
OBCS_ADD_TIDES |
DO td=1,tidalComponents |
|
./pkg/obcs/obcs_add_tides.F |
70 |
OBCS_ADD_TIDES |
& maskW(iB,j,k,bi,bj) * OBEam(j,td,bi,bj) * |
|
./pkg/obcs/obcs_add_tides.F |
71 |
OBCS_ADD_TIDES |
& COS( 2.D0 * PI * (myTime-OBEph(j,td,bi,bj)) / |
|
./pkg/obcs/obcs_add_tides.F |
72 |
OBCS_ADD_TIDES |
& tidalPeriod(td) ) |
|
./pkg/obcs/obcs_add_tides.F |
86 |
OBCS_ADD_TIDES |
DO td=1,tidalComponents |
|
./pkg/obcs/obcs_add_tides.F |
88 |
OBCS_ADD_TIDES |
& maskW(1+iB,j,k,bi,bj) * OBWam(j,td,bi,bj) * |
|
./pkg/obcs/obcs_add_tides.F |
89 |
OBCS_ADD_TIDES |
& COS( 2.D0 * PI * (myTime-OBWph(j,td,bi,bj)) / |
|
./pkg/obcs/obcs_add_tides.F |
90 |
OBCS_ADD_TIDES |
& tidalPeriod(td) ) |
|
./pkg/opps/opps_calc.F |
744 |
NLOPPS |
td(k2+1)=td(k2) - entrainrate*(thmix - td(k2)) |
|
./pkg/opps/opps_calc.F |
840 |
NLOPPS |
tda(k2) = td(k2) |
|
./pkg/opps/opps_calc.F |
851 |
NLOPPS |
tda(maxdepth) = td(maxdepth) |
|
./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 |