Commit 6033cd81 authored by Espen Sollum's avatar Espen Sollum
Browse files

Increased stack size in sort2. Bugfix for unallocated creceptor0

parent 890ef04e
......@@ -96,7 +96,7 @@ LIBS = -leccodes -leccodes_f90 -lm $(NCOPT)
FFLAGS = -I$(INCPATH1) -I$(INCPATH2) -O$(O_LEV) -g -cpp -m64 -mcmodel=medium -fconvert=little-endian -frecord-marker=4 -fmessage-length=0 -flto=jobserver -O$(O_LEV) $(NCOPT) $(FUSER) #-Warray-bounds -fcheck=all # -march=native
DBGFLAGS = -I$(INCPATH1) -I$(INCPATH2) -O$(O_LEV_DBG) -g3 -ggdb3 -cpp -m64 -mcmodel=medium -fconvert=little-endian -frecord-marker=4 -fmessage-length=0 -flto=jobserver -O$(O_LEV_DBG) $(NCOPT) -fbacktrace -Wall -fdump-core $(FUSER) # -ffpe-trap=invalid,overflow,denormal,underflow,zero -Warray-bounds -fcheck=all
DBGFLAGS = -I$(INCPATH1) -I$(INCPATH2) -O$(O_LEV_DBG) -g3 -ggdb3 -cpp -m64 -mcmodel=medium -fconvert=little-endian -frecord-marker=4 -fmessage-length=0 -flto=jobserver -O$(O_LEV_DBG) $(NCOPT) -fbacktrace -Wall -fdump-core $(FUSER) -Warray-bounds -fcheck=all # -ffpe-trap=invalid,overflow,denormal,underflow,zero -Warray-bounds -fcheck=all
LDFLAGS = $(FFLAGS) -L$(LIBPATH1) -Wl,-rpath,$(LIBPATH1) $(LIBS) #-L$(LIBPATH2)
LDDEBUG = $(DBGFLAGS) -L$(LIBPATH1) -Wl,-rpath,$(LIBPATH1) $(LIBS) #-L$(LIBPATH2)
......
......@@ -360,7 +360,11 @@ contains
#ifdef USE_MPIINPLACE
if (lroot) write(*,*) 'Using MPI_IN_PLACE operations'
#else
if (lroot) allocate(creceptor0(maxreceptor,maxspec))
if (lroot) then
allocate(creceptor0(maxreceptor,maxspec))
else
allocate(creceptor0(1,1))
end if
if (lroot) write(*,*) 'Not using MPI_IN_PLACE operations'
#endif
goto 101
......
......@@ -7,7 +7,7 @@ subroutine sort2(n,arr,brr)
integer :: n
integer :: arr(n),brr(n)
integer,parameter :: m=7,nstack=50
integer,parameter :: m=7,nstack=300
integer :: i,ir,j,jstack,k,l,istack(nstack)
integer :: a,b,temp
jstack=0
......
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