Skip to content
Snippets Groups Projects
Commit a7e6bdfd authored by Lionel GUEZ's avatar Lionel GUEZ
Browse files

Bug fix in procedure get_1_outerm.

parent bf045ac7
No related branches found
No related tags found
No related merge requests found
......@@ -48,6 +48,15 @@ endif
SHELL = bash
LINK.o = $(FC) $(LDFLAGS) $(TARGET_ARCH)
%.o: %.f
@echo "Building $@..."
@$(COMPILE.f) $(OUTPUT_OPTION) $<
%: %.o
@echo "Linking $@..."
@$(LINK.o) $^ $(LOADLIBES) $(LDLIBS) -o $@
.DELETE_ON_ERROR:
.PHONY: all clean clobber depend
all: ${execut} log
......@@ -77,7 +86,7 @@ clobber: clean
log:
hostname >$@
${FC} ${version_flag} >>$@ 2>&1
echo -e "\nFC = ${FC}\n\nCPPFLAGS = ${CPPFLAGS}\n\nFFLAGS = ${FFLAGS}\n\nLDLIBS = ${LDLIBS}\n\nLDFLAGS = ${LDFLAGS}" >>$@
@echo -e "\nFC = ${FC}\n\nCPPFLAGS = ${CPPFLAGS}\n\nFFLAGS = ${FFLAGS}\n\nLDLIBS = ${LDLIBS}\n\nLDFLAGS = ${LDFLAGS}" >>$@
ifneq ($(MAKECMDGOALS), clobber)
include ${makefile_dir}/depend.mk
......
......@@ -63,7 +63,7 @@ contains
if (get_1_outerm%n_points == 0) then
! null ssh contour
get_1_outerm%ssh = missing_ssh
get_1_outerm%area = 0.
get_1_outerm%area = - 1.
else
level_good = innermost_level
mask = ssh /= huge(0.)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment