Skip to content
Snippets Groups Projects
Commit f6b9ee16 authored by Dave Whipp's avatar Dave Whipp
Browse files

Added passing of nest to write_global_output subroutine

parent 7844de6f
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
Showing
with 2 additions and 2 deletions
src/DOUAR.f90
+ 2
− 2
View file @ f6b9ee16
...@@ -785,7 +785,7 @@ do while (istep.le.params%nstep) ...@@ -785,7 +785,7 @@ do while (istep.le.params%nstep)
!-------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------
if (params%debug>=2) then if (params%debug>=2) then
call show_time (total,step,inc,1,'write global output$') call show_time (total,step,inc,1,'write global output$')
call write_global_output(params,istep,iter,current_time,osolve,ov,vo,surface,cl,zi,'debug') call write_global_output(params,istep,iter,current_time,osolve,ov,vo,surface,cl,zi,nest,'debug')
call mpi_barrier (mpi_comm_world,ierr) call mpi_barrier (mpi_comm_world,ierr)
! call slices (params,osolve,ov,vo,sections,istep,iter,iter_nl) ! call slices (params,osolve,ov,vo,sections,istep,iter,iter_nl)
end if end if
...@@ -1420,7 +1420,7 @@ do while (istep.le.params%nstep) ...@@ -1420,7 +1420,7 @@ do while (istep.le.params%nstep)
!-------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------
!-------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------
call show_time (total,step,inc,1,'Write output$') call show_time (total,step,inc,1,'Write output$')
call write_global_output (params,istep,iter-1,current_time,osolve,ov,vo,surface,cl,zi,'final') call write_global_output (params,istep,iter-1,current_time,osolve,ov,vo,surface,cl,zi,nest,'final')
call mpi_barrier (mpi_comm_world,ierr) call mpi_barrier (mpi_comm_world,ierr)
!-------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------
......
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