modified output

src_3d/resistive_wall_response.f90

@@ -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