Home
last modified time | relevance | path

Searched refs:ndof (Results 1 – 25 of 117) sorted by relevance

12345

/phasta/phSolver/common/
H A Drestar.f28 dimension q(nshg,ndof),ac(nshg,ndof)
41 if(ndof.gt.4) q(:,5:ndof)=qold(:,5:ndof)
45 if(ndof.gt.4) ac(:,5:ndof)=acold(:,5:ndof)
57 allocate( qold(nshg,ndof) )
58 allocate( acold(nshg,ndof) )
76 if(ndof.gt.4) qold(:,5:ndof) = q(:,5:ndof)
80 if(ndof.gt.4) acold(:,5:ndof) = ac(:,5:ndof)
82 iqoldsiz=nshg*ndof
83 call write_restart(myrank, lstep, nshg, ndof,
H A Dreadnblk.f167 ndof = nsd + 2
169 ndof=ndof+nsclr ! number of sclr transport equations to solve
171 ndofBC = ndof + I3nsd ! dimension of BC array
173 ndBCB = ndof + 1 ! dimension of BCB array
174 nsymdf = (ndof*(ndof + 1)) / 2 ! symm. d.o.f.'s
344 allocate( BCinp(numpbc,ndof+7) )
349 allocate( BCinp(1,ndof+7) )
359 BCinp(:,1:(ndof+7))=BCinpread(:,1:(ndof+7))
499 allocate( qold(nshg,ndof) )
504 if(ndof2.ne.ndof) then
[all …]
H A Dproces.f24 dimension y(nshg,ndof),
27 & ac(nshg,ndof)
45 real*8 bcinterp(100,ndof+1),interp_mask(ndof)
111 read(654,*) ninterp,ibcmatch,(interp_mask(j),j=1,ndof)
115 read(654,*) (bcinterp(i,j),j=1,ndof+1) ! distance to wall+
144 do j=1,ndof
H A Dgenibc.f57 if (mod(nn,50).eq.1) write(iecho,1000)ititle,(j,j=1,ndof)
62 itemp(ndof) = mod(iBCtmp(nb)/ 2,2)
63 write(iecho,1100) n,(itemp(i),i=1,ndof)
H A Dgenini.f33 & BC(nshg,ndofBC), y(nshg,ndof),
34 & ac(nshg,ndof), x(numnp,nsd),
163 if (mod(n,50) .eq. 1) write(iecho,1000) ititle,(i,i=1,ndof)
164 write (iecho,1100) n, (y(n,i),i=1,ndof)
/phasta/phSolver/incompressible/
H A DitrPC.f11 real*8 y(nshg,ndof), acold(nshg,ndof)
69 real*8 y(nshg,ndof), ac(nshg,ndof),
70 & u(nshg,nsd), yold(nshg,ndof),
71 & acold(nshg,ndof), uold(nshg,nsd)
121 real*8 y(nshg,ndof), ac(nshg,ndof),
152 real*8 y(nshg,ndof), ac(nshg,ndof),
172 real*8 y(nshg,ndof), ac(nshg,ndof),
216 real*8 yold(nshg,ndof), acold(nshg,ndof),
217 & y(nshg,ndof), ac(nshg,ndof),
218 & yAlpha(nshg,ndof), acAlpha(nshg,ndof),
[all …]
H A Dtimedata.f43 allocate (varts(ntspts,ndof))
45 allocate (ivarts(ntspts*ndof))
46 allocate (ivartsg(ntspts*ndof))
48 allocate (vartssoln(ntspts*ndof))
49 allocate (vartssolng(ntspts*ndof))
H A Dasiq.f27 dimension y(nshg,ndof), x(numnp,nsd),
32 dimension yl(npro,nshl,ndof), xl(npro,nenl,nsd),
53 call localy(y, yl, ien, ndof, 'gather ')
95 dimension y(nshg,ndof), x(numnp,nsd),
100 dimension yl(npro,nshl,ndof), xl(npro,nenl,nsd),
111 call localy(y, yl, ien, ndof, 'gather ')
H A Dsolfar.f82 real*8 y(nshg,ndof), ac(nshg,ndof),
83 & yold(nshg,ndof), acold(nshg,ndof),
101 real*8 yAlpha(nshg,ndof), acAlpha(nshg,ndof),
104 & solinc(nshg,ndof), CGsol(nshg)
391 real*8 y(nshg,ndof), ac(nshg,ndof),
392 & yold(nshg,ndof), acold(nshg,ndof),
409 real*8 yAlpha(nshg,ndof), acAlpha(nshg,ndof),
H A DasiqGradV.f25 dimension y(nshg,ndof), x(numnp,nsd),
30 dimension yl(npro,nshl,ndof), xl(npro,nenl,nsd),
50 call localy(y, yl, ien, ndof, 'gather ')
H A De3.f40 dimension yl(npro,nshl,ndof),
41 & acl(npro,nshl,ndof),
51 dimension g1yi(npro,ndof), g2yi(npro,ndof),
52 & g3yi(npro,ndof), shg(npro,nshl,nsd),
179 real*8 yl(npro,nshl,ndof), acl(npro,nshl,ndof),
H A Dsoldir.f18 dimension y(nshg,ndof), ac(nshg,ndof),
19 & yold(nshg,ndof), acold(nshg,ndof),
/phasta/phSolver/compressible/
H A Dtimedata.f9032 allocate (varts( ntspts,ndof))
40 allocate (ivarts( ntspts*ndof))
41 allocate (ivartsg( ntspts*ndof))
42 allocate (vartssoln( ntspts*ndof))
43 allocate (vartssolng(ntspts*ndof))
44 allocate (vartsbuff( ntspts,ndof,nbuff))
167 & ndof*ntspts
200 vartssoln((jj-1)*ndof+1:jj*ndof)=varts(jj,:)
205 do k=1,ndof*ntspts
210 call MPI_REDUCE(vartssoln, vartssolng, ndof*ntspts,
[all …]
H A DitrPC.f10 real*8 y(nshg,ndof), acold(nshg,ndof)
61 real*8 yold(nshg,ndof), acold(nshg,ndof),
62 & y(nshg,ndof), ac(nshg,ndof)
132 real*8 y(nshg,ndof), ac(nshg,ndof), Dy(nshg,nflow)
133 real*8 yold(nshg,ndof), acold(nshg,ndof)
159 real*8 y(nshg,ndof), ac(nshg,ndof), Dyt(nshg)
160 real*8 yold(nshg,ndof), acold(nshg,ndof)
181 real*8 yold(nshg,ndof), acold(nshg,ndof),
182 & y(nshg,ndof), ac(nshg,ndof)
H A Ditrdrv.f45 dimension y(nshg,ndof), ac(nshg,ndof),
46 & yold(nshg,ndof), acold(nshg,ndof),
52 & rest(nshg), solinc(nshg,ndof)
60 dimension ifath(numnp), velbar(nfath,ndof), nsons(nfath)
61 …real*8 rerr(nshg,10),ybar(nshg,ndof+8) ! 8 is for avg. of square as uu, vv, ww, pp, TT, uv, uw, an…
197 ybar(:,1:ndof) = y(:,1:ndof)
199 ybar(:,ndof+idof) = y(:,idof)*y(:,idof)
201 ybar(:,ndof+6) = y(:,1)*y(:,2)
202 ybar(:,ndof+7) = y(:,1)*y(:,3)
203 ybar(:,ndof+8) = y(:,2)*y(:,3)
[all …]
H A Dasiflx.f15 dimension y(nshg,ndof), ac(nshg,ndof),
22 dimension ycl(npro,nshl,ndof), acl(npro,nshl,ndof),
43 call localy(y, ycl, ien, ndof, 'gather ')
44 call localy(ac, acl, ien, ndof, 'gather ')
H A Dasigmr.f29 dimension ycl(npro,nshl,ndofl), acl(npro,nshl,ndof),
140 dimension y(nshg,ndof),
141 & ac(nshg,ndof),
150 dimension ycl(npro,nshl,ndof),
151 & acl(npro,nshl,ndof), dwl(npro,nenl),
166 call localy (y, ycl, ien, ndof, 'gather ')
167 call localy (ac, acl, ien, ndof, 'gather ')
H A Ditrfdi.f39 dimension y(nshg,ndof), ypre(nshg,nflow),
40 & x(numnp,nsd), ac(nshg,ndof),
48 dimension tmpy(nshg,ndof)
189 dimension y(nshg,ndof), ypre(nshg,ndof),
197 dimension ytmp(nshg,ndof), rtmp(nshg,nflow)
H A Dasiq.f26 dimension y(nshg,ndof), x(numnp,nsd),
34 dimension ycl(npro,nshl,ndof), xl(npro,nenl,nsd),
50 call localy(y, ycl, ien, ndof, 'gather ')
H A DrstatCheck.f27 real*8 y(nshg,ndof),ac(nshg,ndof)
114 real*8 y(nshg,ndof),ac(nshg,ndof)
H A Dbflux.f45 dimension y(nshg,ndof), ac(nshg,ndof),
56 & q(nshg,ndof), qq(nshg,8),
70 q(:,1:ndof)=y(:,1:ndof)
136 write (iout, 2000) n, (q(n,i), i=1,ndof)
336 & (q(k,i), i=1,ndof),
H A Dasbres.f16 & yc(nshg,ndof), shpb(nshl,ngaussb),
23 & ycl(npro,nshl,ndof), rml(npro,nshl,nflow)
37 call localy(yc, ycl, ienb, ndof, 'gather ')
/phasta/M2N/src/
H A Dreadnblk.f281 ndof = nsd + 2
283 ndof=ndof+nsclr ! number of sclr transport equations to solve
285 ndofBC = ndof + I3nsd ! dimension of BC array
287 ndBCB = ndof + 1 ! dimension of BCB array
289 nsymdf = (ndof*(ndof + 1)) / 2 ! symm. d.o.f.'s
352 ndof=ndof2
358 qold(:,1:ndof)=qread(:,1:ndof)
756 allocate(qoldN(nshgN,ndof))! size of my final mapped field array
817 numvar = 1+ndof+ndofybar+ndoferrors
858 do idof=1,ndof
[all …]
/phasta/checkphasta/
H A Dcheckphasta.cpp56 int ndof; in main() local
73 read_solution(&solution, &solsize, &nshg, &ndof, in main()
75 printf("nshg: %d, ndof: %d\n", nshg, ndof); in main()
76 assert(solsize == ndof*nshg); in main()
142 int ndof; in read_solution() local
156 ndof = iarray[1]; in read_solution()
158 *size = nshg*ndof; in read_solution()
159 solution = (double*) malloc(sizeof(double)*nshg*ndof); in read_solution()
167 *ndofo = ndof; in read_solution()
/phasta/M2NFixBnd/src/
H A Dreadnblk.f59 integer :: ndof, ndoferrors, ndofybar local
262 ndof = nsd + 2
264 ndof=ndof+nsclr ! number of sclr transport equations to solve
266 ndofBC = ndof + I3nsd ! dimension of BC array
268 ndBCB = ndof + 1 ! dimension of BCB array
270 nsymdf = (ndof*(ndof + 1)) / 2 ! symm. d.o.f.'s
329 ndof=ndof2 !This must be the same anyway
330 allocate( qold(nshg,ndof) )
621 call commuMax (qold, point2ilwork, ndof, 'in '//char(0))
622 call commuMax (qold, point2ilwork, ndof, 'out'//char(0))
[all …]

12345