Some cleaning up

src_nek/nek_moose.f

@@ -63,16 +63,21 @@ C=======================================================================
       include 'CTIMER'
       common /cht_coupler/ pstep
       integer pstep 
-
+      logical ifdoin
+      character*3 prefix 
       real*4 papi_mflops
       integer*8 papi_flops
       integer icall, kstep, knstep, i
 
+      pstep=2
       if (param(103).gt.0)   call q_filter      (param(103))
       call setup_convect (pstep)  ! Save convective velocity _after_ filter
 
       call userchk
-      call prepost (.false.,'his')
+
+      prefix='his'
+      ifdoin=.false. 
+      call prepost (ifdoin,prefix)
       call in_situ_check()
 
       if (mod(istep,nsteps).eq.0) lastep=1
@@ -123,7 +128,7 @@ C=======================================================================
       enddo
 
 c     For Testing
-      call nek_testp()
+c     call nek_testp()
       return
       end
 C=======================================================================