| /phasta/phSolver/compressible/ |
| H A D | itrdrv.f | 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… local
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)
719 ybar(:,idof) =tfact*yold(:,idof) +
720 & (one-tfact)*ybar(:,idof)
725 ybar(:,ndof+idof) = tfact*yold(:,idof)**2 +
726 & (one-tfact)*ybar(:,ndof+idof)
[all …]
|
| /phasta/phSolver/incompressible/ |
| H A D | itrdrv.f | 97 real*8, allocatable, dimension(:,:) :: ybar, strain, vorticity local
167 allocate(ybar(nshg,irank2ybar)) ! more space for vorticity if requested
170 allocate(ybar(nshg,irank2ybar))
172 ybar = zero ! Initialize ybar to zero, which is essential
631 & call collectErrorYbar(ybar,yold,wallssVec,wallssVecBar,
688 & ybar,'d',nshg,17,lstep)
691 & ybar,'d',nshg,13,lstep)
748 deallocate(ybar)
1841 subroutine collectErrorYbar(ybar,yold,wallssVec,wallssVecBar, argument
1844 real*8 ybar(nshg,irank2yphbar),yold(nshg,ndof),vorticity(nshg,5) local
[all …]
|
| /phasta/AcuStat/ |
| H A D | AcuStat_input.dat | 13 This Script is primary used to accumulate the statistics from the ybar field and write the solution…
16 2) accumulated ybar field;
21 …r restart files along with the associated number of time steps inside the ybar, error and yphavg f…
|
| /phasta/M2NFixBnd/src/ |
| H A D | readnblk.f | 19 real*8, allocatable :: ybar(:,:) variable
380 allocate( ybar(nshg,ndofybar) )
381 ybar(:,:) = -9.87654321e32
387 ybar(1:nshg2,1:ndofybar)=qread(1:nshg2,1:ndofybar)
627 call commuMax (ybar, point2ilwork, ndofybar, 'in '//char(0))
628 call commuMax (ybar, point2ilwork, ndofybar, 'out'//char(0))
693 call mpi_allreduce(maxval(ybar(:,idof)),globmax,1,MPI_DOUBLE,
695 call mpi_allreduce(minval(ybar(:,idof)),globmin,1,MPI_DOUBLE,
791 call Write_Field(myrank,'a','ybar',4,ybar,'d',
793 deallocate(ybar)
|
| /phasta/M2N/ |
| H A D | M2N_input.dat | 1 120 # time step of the restart files for fields to reduce (solution, ybar, etc)
3 1 # Reduce the ybar field? (0/1)
|
| /phasta/M2N/src/ |
| H A D | readnblk.f | 19 real*8, allocatable :: ybar(:,:) variable
400 allocate( ybar(nshg,ndofybar) )
402 call readdatablock(descriptor,fname1//char(0) ,ybar,iqsiz,
864 ybarN(intvID,idof) = ybar(i,idof)
985 qsend( (ifill-1)*numvar+sumvar) = ybar(i,idof)
1211 deallocate(ybar)
|
| /phasta/phSolver/ |
| H A D | CHANGES | 73 introduced ybar: time averaged fields:
74 ybar(:,1) - ybar(:,3) is average velocity components
75 ybar(:,4) is average pressure
76 ybar(:,5) is average speed
78 "Print ybar: True"
79 dumped into restart files with tag "ybar"
|
| /phasta/AcuStat/src/ |
| H A D | readnblk.f | 19 real*8, allocatable :: ybar(:,:) variable
|
| /phasta/converterIO/ |
| H A D | README.md | 49 We can always add more fields if needed, especially for the restart files (ybar, dwal, error, etc).
|
| /phasta/phSolver/common/ |
| H A D | input.config | 156 Print ybar: False # F ioybar = 0, T ioybar = 1
|