Home
last modified time | relevance | path

Searched refs:qold (Results 1 – 8 of 8) sorted by relevance

/phasta/phSolver/common/
H A Drestar.f39 q(:,1:3)=qold(:,2:4)
40 q(:,4)=qold(:,1)
41 if(ndof.gt.4) q(:,5:ndof)=qold(:,5:ndof)
47 deallocate(qold)
57 allocate( qold(nshg,ndof) )
74 qold(:,2:4) = q(:,1:3)
75 qold(:,1) = q(:,4)
76 if(ndof.gt.4) qold(:,5:ndof) = q(:,5:ndof)
84 & qold, acold)
104 deallocate(qold)
H A DINIprofile.f294 qold(nn,1)=97000
295 qold(nn,2)=0
296 qold(nn,3)=0
297 qold(nn,4)=0
298 qold(nn,5)=320
299 qold(nn,6)=1.825e-5
H A DsetBlowing_Duct.f30 BC(nn,2) = qold(nn,5) ! set Temp
32 BC(nn,4) = qold(nn,3) ! set and scale y velocity
34 BC(nn,7) = qold(nn,6) ! set SA variable
H A DsetBlowing_Duct3.f73 BC(nn,2) = qold(nn,5) ! Temp
75 BC(nn,4) = qold(nn,3) ! set y velocity
77 BC(nn,7) = qold(nn,6)
H A Dreadnblk.f14 real*8, allocatable :: qold(:,:) variable
499 allocate( qold(nshg,ndof) )
514 qold(:,1:ndof)=qread(:,1:ndof)
525 qold=zero
527 qold(:,1)=one ! avoid zero pressure
528 qold(:,nflow)=one ! avoid zero temperature
/phasta/M2NFixBnd/src/
H A Dreadnblk.f16 real*8, allocatable :: qold(:,:) variable
330 allocate( qold(nshg,ndof) )
331 qold(:,:) = -9.87654321e32
346 qold(1:nshg2,1:ndof2)=qread(1:nshg2,1:ndof2)
357 qold=zero
359 qold(:,1)=one ! avoid zero pressure
360 qold(:,nflow)=one ! avoid zero temperature
621 call commuMax (qold, point2ilwork, ndof, 'in '//char(0))
622 call commuMax (qold, point2ilwork, ndof, 'out'//char(0))
678 call mpi_allreduce(maxval(qold(:,idof)),globmax,1,MPI_DOUBLE,
[all …]
/phasta/AcuStat/src/
H A Dreadnblk.f16 real*8, allocatable :: qold(:,:) variable
348 allocate( qold(nshg2,ndof2) )
349 qold(:,:) = -9.87654321e32
355 qold(1:nshg2,1:ndof2) = qread(1:nshg2,1:ndof2)
452 & totsumts, nshg2, ndof2, qold)
484 deallocate(qybarcumul, qold)
/phasta/M2N/src/
H A Dreadnblk.f16 real*8, allocatable :: qold(:,:) variable
353 allocate( qold(nshg,ndof2) )
358 qold(:,1:ndof)=qread(:,1:ndof)
370 qold=zero
372 qold(:,1)=one ! avoid zero pressure
373 qold(:,nflow)=one ! avoid zero temperature
859 qoldN(intvID,idof) = qold(i,idof)
979 qsend( (ifill-1)*numvar+sumvar) = qold(i,idof)
1157 write(700+ifileN) intvID,(qold(i,j),j=1,ndof)
1159 write(700+ifileN,925) intvID,(qold(i,j),j=1,ndof)
[all …]