[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