Lines Matching defs:itrdrv
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
78 real*8, allocatable, dimension(:,:) :: HBrg
79 real*8, allocatable, dimension(:) :: eBrg
80 real*8, allocatable, dimension(:) :: yBrg
81 real*8, allocatable, dimension(:) :: Rcos, Rsin
85 integer, allocatable, dimension(:,:) :: rowp
86 integer, allocatable, dimension(:) :: colm
87 real*8, allocatable, dimension(:,:) :: lhsK
88 real*8, allocatable, dimension(:,:) :: EGmass
89 real*8, allocatable, dimension(:,:) :: EGmasst
91 integer iTurbWall(nshg)
92 real*8 yInlet(3), yInletg(3)
93 integer imapped, imapInlet(nshg) !for now, used for setting Blower conditions
97 real*8 vortmax, vortmaxg
314 867 continue
425 9876 continue
592 1000 continue !check this
781 2000 continue !end of NSTEP loop
782 2001 continue
800 3000 continue !end of NTSEQ loop