Commit 4c9a20ff authored by Serhiy Mochalskyy's avatar Serhiy Mochalskyy
Browse files

modified output

parent 602f94d1
Pipeline #3631 skipped
......@@ -77,18 +77,24 @@ end do
call computing_s_ww_inverse
!=================================================
call MPI_BARRIER(MPI_COMM_WORLD,ier)
time2=MPI_WTIME()
if(rank==0) write(*,*) 'Total wall clock time before output =', (time2-time1)/3600.0, ' hours'
if(rank==0) write(*,*) '======================================================================='
!=================================================
call output
!=================================================
if(rank==0) write(*,*) 'Program FINISH'
if(rank==0) write(*,*) '==============================================================='
if(rank==0) write(*,*) '======================================================================='
call MPI_BARRIER(MPI_COMM_WORLD,ier)
time2=MPI_WTIME()
time3=MPI_WTIME()
if(rank==0) write(*,*) 'Total wall clock time =', (time2-time1)/3600.0, ' hours'
if(rank==0) write(*,*) '==============================================================='
if(rank==0) write(*,*) 'Total wall clock time including output=', (time3-time1)/3600.0, ' hours'
if(rank==0) write(*,*) '======================================================================='
end subroutine resistive_wall_response
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