Commit 8876fa68 authored by Elia Merzari's avatar Elia Merzari

Some cleaning up

parent 069d2a7c
Pipeline #2767 failed with stages
in 306 minutes and 24 seconds
......@@ -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=======================================================================
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment