Removed gfortran flag that caused a bug in the old version on the clu…

…ster. Added a check to an allocate statement to deallocate the array first
MintonGroup · May 27, 2021 · d3fc7b9 · d3fc7b9
1 parent 7ee863e
commit d3fc7b9
Show file tree

Hide file tree

Showing 3 changed files with 2 additions and 3 deletions.
diff --git a/Makefile.Defines b/Makefile.Defines
@@ -65,7 +65,7 @@ FORTRAN = ifort
 FFLAGS  = -init=snan,arrays -traceback -no-wrap-margin -O3 -g -shared-intel -debug inline-debug-info -qopt-report=5 $(SIMDVEC) $(STRICTREAL) $(PAR)
 
 
-GDEBUG = -ggdb -g3 -Og -fbacktrace -fbounds-check -fcheck=all -ffpe-trap=zero,invalid,overflow,underflow,denormal
+GDEBUG = -ggdb -g3 -Og -fbacktrace -fbounds-check 
 GPRODUCTION = -O3
 GPAR = -fopenmp -ftree-parallelize-loops=4
 GMEM = -fsanitize=undefined -fsanitize=address -fsanitize=leak 

diff --git a/examples/rmvs_swifter_comparison/mars_ejecta/advisor_script.sh b/examples/rmvs_swifter_comparison/mars_ejecta/advisor_script.sh
diff --git a/src/rmvs/rmvs_step.f90 b/src/rmvs/rmvs_step.f90
@@ -540,6 +540,7 @@ subroutine rmvs_end_planetocentric(pl, cb, tp)
             associate(cbenci => pl%planetocentric(i)%cb, &
                       tpenci => pl%planetocentric(i)%tp, &
                       plenci => pl%planetocentric(i)%pl)
+               if (allocated(tpind)) deallocate(tpind)
                allocate(tpind(nenc(i)))
                ! Index array of encountering test particles
                if (allocated(encmask)) deallocate(encmask)