Lines Matching refs:yphbar
102 real*8, allocatable, dimension(:,:,:) :: yphbar local
194 allocate(yphbar(nshg,irank2yphbar,nphasesincycle)) ! more space for vorticity
197 allocate(yphbar(nshg,irank2yphbar,nphasesincycle))
199 yphbar = zero
632 & vorticity,yphbar,rerr,irank2ybar,irank2yphbar)
707 & nphasesincycle,yphbar(:,:,iphase),'d',nshg,15,lstep)
710 & nphasesincycle,yphbar(:,:,iphase),'d',nshg,11,lstep)
753 deallocate(yphbar)
1842 & vorticity,yphbar,rerr,irank2ybar,irank2yphbar) argument
1845 real*8 yphbar(nshg,irank2yphbar,nphasesincycle) local
1963 yphbar(:,1,iphase-1) = tfactphase*yold(:,1) +
1964 & (one-tfactphase)*yphbar(:,1,iphase-1)
1965 yphbar(:,2,iphase-1) = tfactphase*yold(:,2) +
1966 & (one-tfactphase)*yphbar(:,2,iphase-1)
1967 yphbar(:,3,iphase-1) = tfactphase*yold(:,3) +
1968 & (one-tfactphase)*yphbar(:,3,iphase-1)
1969 yphbar(:,4,iphase-1) = tfactphase*yold(:,4) +
1970 & (one-tfactphase)*yphbar(:,4,iphase-1)
1971 yphbar(:,5,iphase-1) = tfactphase*sqrt(yold(:,1)**2
1973 & (one-tfactphase)*yphbar(:,5,iphase-1)
1974 yphbar(:,6,iphase-1) =
1976 & +(one-tfactphase)*yphbar(:,6,iphase-1)
1978 yphbar(:,7,iphase-1) =
1980 & +(one-tfactphase)*yphbar(:,7,iphase-1)
1982 yphbar(:,8,iphase-1) =
1984 & +(one-tfactphase)*yphbar(:,8,iphase-1)
1986 yphbar(:,9,iphase-1) =
1988 & +(one-tfactphase)*yphbar(:,9,iphase-1)
1990 yphbar(:,10,iphase-1) =
1992 & +(one-tfactphase)*yphbar(:,10,iphase-1)
1994 yphbar(:,11,iphase-1) =
1996 & +(one-tfactphase)*yphbar(:,11,iphase-1)
1999 yphbar(:,12,iphase-1) =
2001 & +(one-tfactphase)*yphbar(:,12,iphase-1)
2002 yphbar(:,13,iphase-1) =
2004 & +(one-tfactphase)*yphbar(:,13,iphase-1)
2005 yphbar(:,14,iphase-1) =
2007 & +(one-tfactphase)*yphbar(:,14,iphase-1)
2008 yphbar(:,15,iphase-1) =
2010 & +(one-tfactphase)*yphbar(:,15,iphase-1)