Searched defs:itrdrv (Results 1 – 2 of 2) sorted by relevance
| /phasta/phSolver/compressible/ |
| H A D | itrdrv.f | 1 subroutine itrdrv (y, ac, uold, x, subroutine
58 real*8 almit, alfit, gamit
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…
62 real*8, allocatable, dimension(:,:) :: vortG
63 real*8, allocatable, dimension(:,:,:) :: BDiag
71 real*8 vbc_prof(nshg,3)
72 character(len=60) fvarts
73 integer ifuncs(6), iarray(10)
74 integer BCdtKW, tsBase
76 real*8 elDw(numel) ! element average of DES d variable
[all …]
|
| /phasta/phSolver/incompressible/ |
| H A D | itrdrv.f | 1 subroutine itrdrv (y, ac, subroutine
55 real*8 y(nshg,ndof), ac(nshg,ndof),
56 & yold(nshg,ndof), acold(nshg,ndof),
57 & u(nshg,nsd), uold(nshg,nsd),
58 & x(numnp,nsd), solinc(nshg,ndof),
59 & BC(nshg,ndofBC), tf(nshg,ndof),
60 & GradV(nshg,nsdsq)
63 real*8 res(nshg,ndof)
65 real*8 shp(MAXTOP,maxsh,MAXQPT),
66 & shgl(MAXTOP,nsd,maxsh,MAXQPT),
[all …]
|