| /phasta/phSolver/common/ |
| H A D | dtn.f | 23 real*8 BC(nshg,ndofBC),y(nshg,ndof),tmp(nsclr)
28 do j=1,nsclr
31 call Dirichlet2Neumann(nsclr, itype, tmp)
38 do j=1,nsclr
109 real*8 BCB(npro,nshlb,ndBCB), tmpBCB(npro,nshlb,nsclr),
110 & BC(nshg,ndofBC), tmpBC(nshg,nsclr)
112 nstart=ndofBC-nsclr
116 do j=1,nsclr
123 call localb(tmpBC,tmpBCB,ienb,nsclr,'gather ')
126 do j=1,nsclr
|
| H A D | INIprofile.f | 54 if(nsclr.eq.1)then
86 if(nsclr.eq.1)then
118 if(nsclr.eq.1)then
|
| H A D | gendat.f | 164 if(nsclr.gt.0) then
180 do isclr=1,nsclr
|
| H A D | genini.f | 149 do isclr=1,nsclr
|
| H A D | readnblk.f | 168 nsclr=impl(1)/100
169 ndof=ndof+nsclr ! number of sclr transport equations to solve
|
| H A D | genbc1.f | 33 do isclr=1,nsclr
|
| H A D | input.f | 218 write (23,*) scdiff(5),nsclr,isclr,nsolt
|
| H A D | common_c.h | 214 int nsclr, isclr,nsolt, nosource; member
|
| H A D | common.h | 83 common /sclrs/ scdiff(5),tdecay,nsclr,isclr,nsolt,nosource,
|
| H A D | input.config | 101 # impl=10*logical(solflow)+nsclr*100 +
|
| /phasta/phSolver/compressible/ |
| H A D | itrdrv.f | 264 nsclrsol=nsclr ! total number of scalars solved. At
341 if(nsclr.gt.0 .and. tdecay.ne.1) then
343 BC(:,7:6+nsclr)= BC(:,7:6+nsclr)*tdecay
346 if(nosource.eq.1) BC(:,7:6+nsclr)= BC(:,7:6+nsclr)*0.8
401 if (nsclr.gt.zero) then
402 do isclr=1,nsclr
607 if(iupdate.eq.nsclr+1) isclr=0
658 do isclr=1,nsclr
|
| /phasta/phSolver/incompressible/ |
| H A D | itrdrv.f | 289 do isclr=1,nsclr
369 do isclr=1,nsclr
835 if((nsclr+nsolt).gt.0) then
1499 nsclrsol=nsolt+nsclr ! total number of scalars solved At
1907 if(nsclr.gt.0) !nut
|
| /phasta/M2NFixBnd/src/ |
| H A D | readnblk.f | 263 nsclr=impl(1)/100
264 ndof=ndof+nsclr ! number of sclr transport equations to solve
|
| /phasta/AcuStat/include/ |
| H A D | commonAcuStat_c.h | 171 int nsclr, isclr,nsolt, nosource; member
|
| H A D | commonAcuStat.h | 72 common /sclrs/ scdiff(5),tdecay,nsclr,isclr,nsolt,nosource,
|
| /phasta/M2N/include/ |
| H A D | commonM2N_c.h | 171 int nsclr, isclr,nsolt, nosource; member
|
| H A D | commonM2N.h | 72 common /sclrs/ scdiff(5),tdecay,nsclr,isclr,nsolt,nosource,
|
| /phasta/M2NFixBnd/include/ |
| H A D | commonM2NFixBnd_c.h | 171 int nsclr, isclr,nsolt, nosource; member
|
| H A D | commonM2NFixBnd.h | 72 common /sclrs/ scdiff(5),tdecay,nsclr,isclr,nsolt,nosource,
|
| /phasta/M2N/src/ |
| H A D | readnblk.f | 282 nsclr=impl(1)/100
283 ndof=ndof+nsclr ! number of sclr transport equations to solve
|