From 76b228fd6970b23f43eb891b6e80952c7960f30e Mon Sep 17 00:00:00 2001 From: Stephan Schulz <stephan.schulz-x2q@rub.de> Date: Mon, 1 Feb 2021 14:26:08 +0100 Subject: [PATCH] the change from ALL_VTK_OUTPUT to something different in the examples was somehow reverted at some place --- example/ALL_Staggered_f.F90 | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/example/ALL_Staggered_f.F90 b/example/ALL_Staggered_f.F90 index 88a9576..d316a11 100644 --- a/example/ALL_Staggered_f.F90 +++ b/example/ALL_Staggered_f.F90 @@ -139,7 +139,7 @@ contains integer :: my_rank, maximum_rank integer :: i,j type(ALL_t) :: jall -#ifdef ALL_VTK_OUTPUT +#ifdef ALL_VTK_OUTPUT_EXAMPLE character (len=ALL_ERROR_LENGTH) :: error_msg #endif @@ -209,7 +209,7 @@ contains write(stdout,'(a,i0,"/",i0)') "Starting step: ", current_step, number_of_steps flush(stdout) endif -#ifdef ALL_VTK_OUTPUT +#ifdef ALL_VTK_OUTPUT_EXAMPLE call ALL_reset_error() call jall%print_vtk_outlines(current_step) if(ALL_error() /= 0) then @@ -227,7 +227,7 @@ contains call MPI_Barrier(MPI_COMM_WORLD, error) enddo -#ifdef ALL_VTK_OUTPUT +#ifdef ALL_VTK_OUTPUT_EXAMPLE call ALL_reset_error() call jall%print_vtk_outlines(current_step) if(ALL_error() /= 0) then -- GitLab