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