| 73 |
fi |
fi |
| 74 |
} |
} |
| 75 |
|
|
| 76 |
|
# Check for broken environments (eg. cygwin, MacOSX w/HFS+) that |
| 77 |
|
# cannot distinguish [*.F/*.F90] from [*.f/*.f90] files. |
| 78 |
|
check_for_broken_Ff() { |
| 79 |
|
# First check the ability to create a *.F/.f pair. |
| 80 |
|
cat <<EOF >> ./hello.F |
| 81 |
|
program hello |
| 82 |
|
write(*,*) 'hi' |
| 83 |
|
stop |
| 84 |
|
end |
| 85 |
|
EOF |
| 86 |
|
cp ./hello.F ./hello.f |
| 87 |
|
RETVAL=$? |
| 88 |
|
if test "x$RETVAL" != x0 ; then |
| 89 |
|
FEXT='fp' |
| 90 |
|
F90EXT='fp90' |
| 91 |
|
return |
| 92 |
|
fi |
| 93 |
|
rm -f ./hello.f |
| 94 |
|
|
| 95 |
|
# Then check the ability of ${MAKE} to use the two. |
| 96 |
|
test -e Makefile && mv -f Makefile Makefile.bak |
| 97 |
|
cat <<EOF >> Makefile |
| 98 |
|
.SUFFIXES: |
| 99 |
|
hello.f: hello.F |
| 100 |
|
cp -f hello.F hello.f |
| 101 |
|
EOF |
| 102 |
|
( $MAKE hello.f ) > /dev/null 2>&1 |
| 103 |
|
RETVAL=$? |
| 104 |
|
if test "x$RETVAL" != x0 -o ! -f ./hello.f ; then |
| 105 |
|
FEXT='fp' |
| 106 |
|
F90EXT='fp90' |
| 107 |
|
return |
| 108 |
|
fi |
| 109 |
|
rm -f ./hello.f ./hello.F Makefile |
| 110 |
|
test -e Makefile && mv -f Makefile.bak Makefile |
| 111 |
|
|
| 112 |
|
# Both tests passed, so use the default. |
| 113 |
|
FEXT='F' |
| 114 |
|
F90EXT='F90' |
| 115 |
|
} |
| 116 |
|
|
| 117 |
|
|
| 118 |
# Guess possible config options for this host |
# Guess possible config options for this host |
| 119 |
find_possible_configs() { |
find_possible_configs() { |
| 120 |
|
|
| 539 |
|
|
| 540 |
|
|
| 541 |
check_netcdf_libs() { |
check_netcdf_libs() { |
| 542 |
cat <<EOF > genmake_tnc.F |
cat <<EOF > genmake_tnc.for |
| 543 |
program fgennc |
program fgennc |
| 544 |
#include "netcdf.inc" |
#include "netcdf.inc" |
| 545 |
integer iret, ncid, xid |
integer iret, ncid, xid |
| 551 |
IF (iret .NE. NF_NOERR) write(*,*) NF_STRERROR(iret) |
IF (iret .NE. NF_NOERR) write(*,*) NF_STRERROR(iret) |
| 552 |
end |
end |
| 553 |
EOF |
EOF |
| 554 |
$CPP genmake_tnc.F > genmake_tnc.f \ |
$CPP genmake_tnc.for > genmake_tnc.f \ |
| 555 |
&& $FC $FFLAGS $FOPTIM -o genmake_tnc genmake_tnc.f $LIBS >> genmake_tnc.log 2>&1 |
&& $FC $FFLAGS $FOPTIM -o genmake_tnc genmake_tnc.f $LIBS >> genmake_tnc.log 2>&1 |
| 556 |
RET_COMPILE=$? |
RET_COMPILE=$? |
| 557 |
test -x ./genmake_tnc && ./genmake_tnc >> genmake_tnc.log 2>&1 |
test -x ./genmake_tnc && ./genmake_tnc >> genmake_tnc.log 2>&1 |
| 560 |
HAVE_NETCDF=t |
HAVE_NETCDF=t |
| 561 |
else |
else |
| 562 |
# try again with "-lnetcdf" added to the libs |
# try again with "-lnetcdf" added to the libs |
| 563 |
$CPP genmake_tnc.F > genmake_tnc.f \ |
$CPP genmake_tnc.for > genmake_tnc.f \ |
| 564 |
&& $FC $FFLAGS $FOPTIM -o genmake_tnc genmake_tnc.f \ |
&& $FC $FFLAGS $FOPTIM -o genmake_tnc genmake_tnc.f \ |
| 565 |
$LIBS -lnetcdf >> genmake_tnc_2.log 2>&1 |
$LIBS -lnetcdf >> genmake_tnc_2.log 2>&1 |
| 566 |
RET_COMPILE=$? |
RET_COMPILE=$? |
| 646 |
if test "x$MITGCM_IEEE" != x ; then |
if test "x$MITGCM_IEEE" != x ; then |
| 647 |
IEEE=$MITGCM_IEEE |
IEEE=$MITGCM_IEEE |
| 648 |
fi |
fi |
| 649 |
|
FEXT= |
| 650 |
|
F90EXT= |
| 651 |
|
|
| 652 |
AUTODIFF_PKG_USED=f |
AUTODIFF_PKG_USED=f |
| 653 |
AD_OPTFILE= |
AD_OPTFILE= |
| 934 |
fi |
fi |
| 935 |
fi |
fi |
| 936 |
|
|
| 937 |
|
# Check for broken systems that cannot correctly distinguish *.F and *.f files |
| 938 |
|
if test "x$FEXT" = x -a "x$F90EXT" = x ; then |
| 939 |
|
check_for_broken_Ff |
| 940 |
|
fi |
| 941 |
|
|
| 942 |
echo " getting AD_OPTFILE information: " |
echo " getting AD_OPTFILE information: " |
| 943 |
if test "x${AD_OPTFILE}" = x ; then |
if test "x${AD_OPTFILE}" = x ; then |
| 944 |
if test "x$MITGCM_AD_OF" = x ; then |
if test "x$MITGCM_AD_OF" = x ; then |
| 1697 |
cat f90srclist.inc >> $MAKEFILE |
cat f90srclist.inc >> $MAKEFILE |
| 1698 |
cat hlist.inc >> $MAKEFILE |
cat hlist.inc >> $MAKEFILE |
| 1699 |
cat ad_flow_files.inc >> $MAKEFILE |
cat ad_flow_files.inc >> $MAKEFILE |
| 1700 |
echo >> $MAKEFILE |
echo >> $MAKEFILE |
| 1701 |
echo 'F77FILES = $(SRCFILES:.F=.f)' >> $MAKEFILE |
echo 'F77FILES = $(SRCFILES:.'$FEXT'=.f)' >> $MAKEFILE |
| 1702 |
echo 'F90FILES = $(F90SRCFILES:.F90=.f90)' >> $MAKEFILE |
echo 'F90FILES = $(F90SRCFILES:.'$F90EXT'=.f90)' >> $MAKEFILE |
| 1703 |
echo 'OBJFILES = $(SRCFILES:.F=.o) $(CSRCFILES:.c=.o) $(F90SRCFILES:.F90=.o)' >> $MAKEFILE |
echo 'OBJFILES = $(SRCFILES:.'$FEXT'=.o) $(CSRCFILES:.c=.o) $(F90SRCFILES:.'$F90EXT'=.o)' >> $MAKEFILE |
| 1704 |
|
echo >> $MAKEFILE |
| 1705 |
|
echo '.SUFFIXES:' >> $MAKEFILE |
| 1706 |
|
echo '.SUFFIXES: .o .f .p .'$FEXT' .c .'$F90EXT' .f90' >> $MAKEFILE |
| 1707 |
|
|
| 1708 |
rm -f srclist.inc csrclist.inc hlist.inc flist.tmp clist.tmp f90srclist.inc |
rm -f srclist.inc csrclist.inc hlist.inc flist.tmp clist.tmp f90srclist.inc |
| 1709 |
rm -f ad_flow_files.inc |
rm -f ad_flow_files.inc |
| 1710 |
|
|
| 1711 |
cat >>$MAKEFILE <<EOF |
cat >>$MAKEFILE <<EOF |
| 1712 |
|
|
|
.SUFFIXES: |
|
|
.SUFFIXES: .o .f .p .F .c .F90 .f90 |
|
|
|
|
| 1713 |
all: \$(EXECUTABLE) |
all: \$(EXECUTABLE) |
| 1714 |
\$(EXECUTABLE): \$(SPECIAL_FILES) \$(SRCFILES) \$(CSRCFILES) \$(HEADERFILES) \$(F90SRCFILES) \$(OBJFILES) |
\$(EXECUTABLE): \$(SPECIAL_FILES) \$(SRCFILES) \$(CSRCFILES) \$(HEADERFILES) \$(F90SRCFILES) \$(OBJFILES) |
| 1715 |
@echo Creating \$@ ... |
@echo Creating \$@ ... |
| 1759 |
@echo Creating \$@ ... |
@echo Creating \$@ ... |
| 1760 |
echo "$FC_NAMEMANGLE" > \$@ |
echo "$FC_NAMEMANGLE" > \$@ |
| 1761 |
|
|
| 1762 |
# The normal chain of rules is ( .F - .f - .o ) |
# The normal chain of rules is ( .$FEXT - .f - .o ) |
| 1763 |
.F.f: |
.$FEXT.f: |
| 1764 |
\$(CPP) \$(DEFINES) \$(INCLUDES) > \$@ |
\$(CPP) \$(DEFINES) \$(INCLUDES) > \$@ |
| 1765 |
.f.o: |
.f.o: |
| 1766 |
\$(FC) \$(FFLAGS) \$(FOPTIM) -c \$< |
\$(FC) \$(FFLAGS) \$(FOPTIM) -c \$< |
| 1767 |
.F90.f90: |
.$F90EXT.f90: |
| 1768 |
\$(CPP) \$(DEFINES) \$(INCLUDES) > \$@ |
\$(CPP) \$(DEFINES) \$(INCLUDES) > \$@ |
| 1769 |
.f90.o: |
.f90.o: |
| 1770 |
\$(F90C) \$(F90FLAGS) \$(F90OPTIM) -c \$< |
\$(F90C) \$(F90FLAGS) \$(F90OPTIM) -c \$< |
| 1771 |
.c.o: |
.c.o: |
| 1772 |
\$(CC) \$(CFLAGS) -c \$< |
\$(CC) \$(CFLAGS) -c \$< |
| 1773 |
|
|
| 1774 |
# Special exceptions that use the ( .F - .p - .f - .o ) rule-chain |
# Special exceptions that use the ( .$FEXT - .p - .f - .o ) rule-chain |
| 1775 |
.F.p: |
.$FEXT.p: |
| 1776 |
\$(CPP) \$(DEFINES) \$(INCLUDES) > \$@ |
\$(CPP) \$(DEFINES) \$(INCLUDES) > \$@ |
| 1777 |
.p.f: |
.p.f: |
| 1778 |
\$(KPP) \$(KFLAGS1)\$@ \$(KFLAGS2) \$< |
\$(KPP) \$(KFLAGS1)\$@ \$(KFLAGS2) \$< |