Home
last modified time | relevance | path

Searched refs:dwal (Results 1 – 6 of 6) sorted by relevance

/phasta/M2NFixBnd/src/
H A Dreadnblk.f17 real*8, allocatable :: dwal(:) variable
531 allocate( dwal(nshg) )
532 dwal(:) = -9.87654321e32
537 dwal(1:nshg2)=qread1(1:nshg2)
661 call commuMax (dwal, point2ilwork, 1, 'in '//char(0))
662 call commuMax (dwal, point2ilwork, 1, 'out'//char(0))
759 call mpi_allreduce(maxval(dwal(:)), globmax, 1, MPI_DOUBLE,
761 call mpi_allreduce(minval(dwal(:)), globmin, 1, MPI_DOUBLE,
822 call Write_Field(myrank,'a','dwal',4,dwal,'d',
824 deallocate(dwal)
/phasta/AcuStat/src/
H A Dreadnblk.f17 real*8, allocatable :: dwal(:) variable
403 allocate( dwal(nshg2) )
404 dwal(:) = -9.87654321e32
409 dwal(1:nshg2) = qread1(1:nshg2)
476 call write_field(myrank, 'a', 'dwal', 4, dwal,
495 deallocate(dwal)
/phasta/AcuStat/
H A DAcuStat_input.dat5 1 # copy dwal? (0/1)
20 6) If requested (optional), dwal field (from the last time step).
/phasta/M2N/src/
H A Dreadnblk.f17 real*8, allocatable :: dwal(:) variable
543 allocate( dwal(nshg) )
545 call readdatablock(descriptor,fname1//char(0), dwal, iqsiz,
890 dwalN(intvID) = dwal(i)
1020 qsend( (ifill-1)*numvar+sumvar) = dwal(i)
1183 write(700+ifileN) intvID, dwal(i)
1185 write(700+ifileN,925) intvID, dwal(i)
1223 deallocate(dwal)
/phasta/M2N/
H A DM2N_input.dat7 1 # Reduce the dwal? (0/1)
/phasta/converterIO/
H A DREADME.md49 We can always add more fields if needed, especially for the restart files (ybar, dwal, error, etc).