[Nek5000-users] Regarding Post-Processing
nek5000-users at lists.mcs.anl.gov
nek5000-users at lists.mcs.anl.gov
Tue Jun 30 10:08:01 CDT 2015
Hi Neks,
I would like to post process the 0.f00* files. I set my Nsteps = 0 to
run in post processing mode.
and used the below code. Can someone tell me how to create the
'file.list' file ?
I tried creating a file.list, something like this:
ca0.f00001
ca0.f00002
ca0.f00003
. .
. .
. .
but still I get error "Bad integer for item 1 in list input "
subroutine userchk
include 'SIZE'
include 'TOTAL'
include 'RESTART'
logical if_drag_out,if_torq_out
character*80 filename(9999)
parameter (lt=lx1*ly1*lz1*lelt)
real l2(lx1,ly1,lz1,nelt)
integer nfiles
ntot = nx1*ny1*nz1*nelv
ifreguo = .true.
if (nid.eq.0) then
open(unit=199,file='file.list',form='formatted',status='old')
read(199,*) nfiles
read(199,'(A80)') (filename(i),i=1,nfiles)
close(199)
endif
call bcast(nfiles,isize)
call bcast(filename,nfiles*80)
do i = 1,nfiles
call load_fld(filename(i))
call lambda2(L2)
ifto = .true.
call outpost(vx,vy,vz,pr,l2,'his')
enddo
call exitt
Thanks,
Kamal
More information about the Nek5000-users
mailing list