1046 |
FFLAGS= |
FFLAGS= |
1047 |
FOPTIM= |
FOPTIM= |
1048 |
FEXTRAFLAGS= |
FEXTRAFLAGS= |
1049 |
|
USE_EXTENDED_SRC= |
1050 |
|
EXTENDED_SRC_FLAG= |
1051 |
CFLAGS= |
CFLAGS= |
1052 |
KFLAGS1= |
KFLAGS1= |
1053 |
KFLAGS2= |
KFLAGS2= |
1404 |
fi |
fi |
1405 |
|
|
1406 |
# Find the MITgcm ${THISVER} |
# Find the MITgcm ${THISVER} |
1407 |
if test -f "${ROOTDIR}/doc/tag-index" ; then |
version_file="${ROOTDIR}/doc/tag-index" |
1408 |
THISVER=`grep '^checkpoint' ${ROOTDIR}/doc/tag-index | head -1` |
if test -f $version_file ; then |
1409 |
|
THISVER=`grep '^checkpoint' $version_file | head -1` |
1410 |
|
#- remove ./BUILD_INFO.h file if older than version_file |
1411 |
|
if test -f ./BUILD_INFO.h -a ./BUILD_INFO.h -ot $version_file ; then |
1412 |
|
echo " remove ./BUILD_INFO.h (older than ${version_file})" |
1413 |
|
rm -f ./BUILD_INFO.h |
1414 |
|
fi |
1415 |
fi |
fi |
1416 |
|
|
1417 |
if test "x$MAKEFILE" = x ; then |
if test "x$MAKEFILE" = x ; then |
1648 |
INCLUDES="$INCLUDES $GSLINC" |
INCLUDES="$INCLUDES $GSLINC" |
1649 |
LIBS="$LIBS $GSLLIB" |
LIBS="$LIBS $GSLLIB" |
1650 |
fi |
fi |
1651 |
|
#- if USE_EXTENDED_SRC is set, add EXTENDED_SRC_FLAG to FFLAGS : |
1652 |
|
if test ! "x$USE_EXTENDED_SRC" = x ; then |
1653 |
|
FFLAGS="$FFLAGS $EXTENDED_SRC_FLAG" |
1654 |
|
F90FIXEDFORMAT="$F90FIXEDFORMAT $EXTENDED_SRC_FLAG" |
1655 |
|
fi |
1656 |
|
|
1657 |
printf "\n=== Checking system libraries ===\n" |
printf "\n=== Checking system libraries ===\n" |
1658 |
printf " Do we have the system() command using $FC... " |
printf " Do we have the system() command using $FC... " |
1775 |
|
|
1776 |
|
|
1777 |
printf "\n=== Setting defaults ===\n" |
printf "\n=== Setting defaults ===\n" |
1778 |
printf " Adding MODS directories: " |
printf " Adding MODS directories: " |
1779 |
|
MPI_LNKF= |
1780 |
for d in $MODS ; do |
for d in $MODS ; do |
1781 |
if test ! -d $d ; then |
if test ! -d $d ; then |
1782 |
echo |
echo |
1783 |
echo "Error: MODS directory \"$d\" not found!" |
echo "Error: MODS directory \"$d\" not found!" |
1784 |
exit 1 |
exit 1 |
1785 |
else |
else |
1786 |
printf " $d" |
printf "$d " |
1787 |
SOURCEDIRS="$SOURCEDIRS $d" |
SOURCEDIRS="$SOURCEDIRS $d" |
1788 |
INCLUDEDIRS="$INCLUDEDIRS $d" |
INCLUDEDIRS="$INCLUDEDIRS $d" |
1789 |
|
#------------------------------------------------------- |
1790 |
|
# Put special links so that MPI specific files are used |
1791 |
|
MPI_FILES=`(cd $d ; find . -name "*_mpi" -print)` |
1792 |
|
for i in $MPI_FILES ; do |
1793 |
|
ii=`echo $i | sed 's:^\./::'` |
1794 |
|
name=`echo $ii | sed 's:_mpi::' ` |
1795 |
|
if test "x$MPI" = x ; then |
1796 |
|
# NO: We undo an _mpi symbolically linked file |
1797 |
|
if test -L $name ; then |
1798 |
|
cmp $name "$d/$ii" > /dev/null 2>&1 |
1799 |
|
RETVAL=$? |
1800 |
|
if test "x$RETVAL" = x0 ; then |
1801 |
|
printf "Un-linking $name ; " |
1802 |
|
rm -f $name |
1803 |
|
fi |
1804 |
|
fi |
1805 |
|
else |
1806 |
|
# YES: We symbolically link this file (with conditions if already there) |
1807 |
|
if test -L $name ; then |
1808 |
|
cmp $d/$ii $name > /dev/null 2>&1 |
1809 |
|
RETVAL=$? |
1810 |
|
yy=0 ; |
1811 |
|
for xx in $MPI_LNKF ; do if test $xx = $name ; then yy=1 ; fi ; done |
1812 |
|
if test "x$RETVAL" != x0 -a $yy = 0 ; then |
1813 |
|
# remove sym-link if different and has not just been linked |
1814 |
|
printf "Un-link + " |
1815 |
|
rm -f $name |
1816 |
|
fi |
1817 |
|
if test "x$RETVAL" = x0 ; then |
1818 |
|
# if identical, keep sym-link and keep record of it |
1819 |
|
MPI_LNKF="$MPI_LNKF $name" |
1820 |
|
fi |
1821 |
|
fi |
1822 |
|
if ! test -f $name ; then |
1823 |
|
# make sym-link and keep record of it |
1824 |
|
printf "Linking $ii to $name ; " |
1825 |
|
ln -sf $d/$ii $name |
1826 |
|
MPI_LNKF="$MPI_LNKF $name" |
1827 |
|
fi |
1828 |
|
fi |
1829 |
|
done |
1830 |
|
#------------------------------------------------------- |
1831 |
fi |
fi |
1832 |
done |
done |
1833 |
echo |
echo |
1834 |
|
#echo "MPI_LNKF='$MPI_LNKF'" |
1835 |
|
|
1836 |
if test "x${PLATFORM}" = x ; then |
if test "x${PLATFORM}" = x ; then |
1837 |
PLATFORM=$p_PLATFORM |
PLATFORM=$p_PLATFORM |
2673 |
-rm -rf *.o |
-rm -rf *.o |
2674 |
-rm -rf *.$FS *.flowdir |
-rm -rf *.$FS *.flowdir |
2675 |
-rm -rf *.f$FS90 *_mod.h *_mod.F90 *.FF90 *.mod-whirl ad_input* |
-rm -rf *.f$FS90 *_mod.h *_mod.F90 *.FF90 *.mod-whirl ad_input* |
2676 |
-rm -rf temp.sed reslice.dat |
-rm -rf temp.sed |
2677 |
Clean: |
Clean: |
2678 |
@make clean |
@make clean |
2679 |
@make cleanlinks |
@make cleanlinks |
2739 |
# The normal chain of rules is ( .F - .$FS - .o ) |
# The normal chain of rules is ( .F - .$FS - .o ) |
2740 |
|
|
2741 |
## This nullifies any default implicit rules concerning these two file types: |
## This nullifies any default implicit rules concerning these two file types: |
2742 |
%.o : %.F |
## %.o : %.F |
2743 |
|
|
2744 |
.F.$FS: |
.F.$FS: |
2745 |
\$(CPP) \$(DEFINES) \$(INCLUDES) > \$@ |
\$(CPP) \$(DEFINES) \$(INCLUDES) > \$@ |
2771 |
#=== Automatic Differentiation Rules === |
#=== Automatic Differentiation Rules === |
2772 |
#=== for TAMC/TAF ====================== |
#=== for TAMC/TAF ====================== |
2773 |
|
|
2774 |
if test "x$OPENAD" == x ; then |
if test "x$OPENAD" = x ; then |
2775 |
|
|
2776 |
cat >>$MAKEFILE <<EOF |
cat >>$MAKEFILE <<EOF |
2777 |
|
|
2995 |
f95_test_mods.f90: \$(OPENAD_SUPPORT_F90_SRC_FILES:F90=$FS90) |
f95_test_mods.f90: \$(OPENAD_SUPPORT_F90_SRC_FILES:F90=$FS90) |
2996 |
cat \$^ > \$@ |
cat \$^ > \$@ |
2997 |
|
|
2998 |
f95_test.f90: all_mods.xb.x2w.w2f.pp.f$FS90 \$(NON_AD_F77_SRC_FILES:.F=_cb2m.f$FS90) ad_input_code.w2f.canon.xb.x2w.w2f.rs.pp.f$FS90 |
f95_test.f90: all_mods.xb.x2w.w2f.pp.f$FS90 \$(NON_AD_F77_SRC_FILES:.F=_cb2m.f$FS90) ad_input_code.w2f.pre.xb.x2w.w2f.td.pp.f$FS90 |
2999 |
cat \$^ > \$@ |
cat \$^ > \$@ |
3000 |
|
|
3001 |
f95_test.out: f95_test_mods.f90 f95_test.f90 |
f95_test.out: f95_test_mods.f90 f95_test.f90 |
3002 |
f95 -fixed -w=unused -maxcontin=132 -c f95_test_mods.f90 > \$@ 2>&1 |
f95 -fixed -w=unused -maxcontin=132 -c f95_test_mods.f90 > \$@ 2>&1 |
3003 |
f95 -fixed -w=unused -maxcontin=132 -c -fixed f95_test.f90 >> \$@ 2>&1 |
f95 -fixed -w=unused -maxcontin=132 -c -fixed f95_test.f90 >> \$@ 2>&1 |
3004 |
|
|
3005 |
AD_OBJ_FILES=\$(OPENAD_SUPPORT_F90_SRC_FILES:.F90=.o) \$(OPENAD_SUPPORT_C_SRC_FILES:.c=.o) all_mods.xb.x2w.w2f.pp.o ad_input_code.w2f.canon.xb.x2w.w2f.rs.pp.o \$(NON_AD_F77_SRC_FILES:.F=_cb2m.o) \$(C_SRC_FILES:.c=.o) \$(F90_SRC_FILES:.F90=.o) |
AD_OBJ_FILES=\$(OPENAD_SUPPORT_F90_SRC_FILES:.F90=.o) \$(OPENAD_SUPPORT_C_SRC_FILES:.c=.o) all_mods.xb.x2w.w2f.pp.o ad_input_code.w2f.pre.xb.x2w.w2f.td.pp.o \$(NON_AD_F77_SRC_FILES:.F=_cb2m.o) \$(C_SRC_FILES:.c=.o) \$(F90_SRC_FILES:.F90=.o) |
3006 |
|
|
3007 |
\$(EXE_AD): \$(ALL_LINKED_FILES) \$(addsuffix _mod.h, \$(CB2M_F90_SRC_NAMES)) \$(AD_OBJ_FILES) |
\$(EXE_AD): \$(ALL_LINKED_FILES) \$(addsuffix _mod.h, \$(CB2M_F90_SRC_NAMES)) \$(AD_OBJ_FILES) |
3008 |
@echo Creating \$@ ... |
@echo Creating \$@ ... |
3009 |
\$(LINK) -o \$@ \$(FFLAGS) \$(FOPTIM) \$(AD_OBJ_FILES) \$(LIBS) |
\$(LINK) -o \$@ \$(FFLAGS) \$(FOPTIM) \$(AD_OBJ_FILES) \$(LIBS) |
3010 |
|
|
3011 |
# makefile debug rule |
# makefile debug rule |
3012 |
openad: ad_input_code.w2f.canon.xb.x2w.w2f.rs.pp.f$FS90 |
openad: ad_input_code.w2f.pre.xb.x2w.w2f.td.pp.f$FS90 |
3013 |
.PHONY: openad |
.PHONY: openad |
3014 |
|
|
3015 |
# create the module files |
# create the module files |
3055 |
cat w2f__types.f90 \$(basename \$<).w2f.f > \$@ |
cat w2f__types.f90 \$(basename \$<).w2f.f > \$@ |
3056 |
|
|
3057 |
# canonicalizer |
# canonicalizer |
3058 |
ad_input_code_sf.w2f.canon.f$FS90: ad_input_code_sf.w2f.f$FS90 canon.v1.py |
ad_input_code_sf.w2f.pre.f$FS90: ad_input_code_sf.w2f.f$FS90 preProcess.py |
3059 |
python canon.v1.py --r8 \$< > \$@ |
./preProcess.py -H -S \$< -o \$@ |
3060 |
|
|
3061 |
# F -> WHIRL |
# F -> WHIRL |
3062 |
# note that the canonicalized version cuts off at col 72 |
# note that the canonicalized version cuts off at col 72 |
3064 |
# as we are in fixed mode and cut of exactly there. |
# as we are in fixed mode and cut of exactly there. |
3065 |
# Otherwise mfef90 patches in spaces to fill up to 72 (or 132) |
# Otherwise mfef90 patches in spaces to fill up to 72 (or 132) |
3066 |
# characters respectively. |
# characters respectively. |
3067 |
ad_input_code_sf.w2f.canon.B: ad_input_code_sf.w2f.canon.f$FS90 mfef90 |
ad_input_code_sf.w2f.pre.B: ad_input_code_sf.w2f.pre.f$FS90 mfef90 |
3068 |
./mfef90 -r8 -z -F \$< |
./mfef90 -r8 -z -F \$< |
3069 |
mv \$<.B \$@ |
mv \$<.B \$@ |
3070 |
|
|
3071 |
# WHIRL -> XAIF |
# WHIRL -> XAIF |
3072 |
ad_input_code_sf.w2f.canon.xaif : ad_input_code_sf.w2f.canon.B whirl2xaif |
ad_input_code_sf.w2f.pre.xaif : ad_input_code_sf.w2f.pre.B whirl2xaif |
3073 |
./whirl2xaif -s -n --debug 1 -o \$@ \$< |
./whirl2xaif -s -n --debug 1 -o \$@ \$< |
3074 |
|
|
3075 |
# XAIF -> XAIF' |
# XAIF -> XAIF' |
3076 |
ad_input_code_sf.w2f.canon.xb.xaif : ad_input_code_sf.w2f.canon.xaif xaif.xsd xaif_base.xsd xaif_inlinable_intrinsics.xsd xaif_derivative_propagator.xsd xaif_output.xsd openad_adm |
ad_input_code_sf.w2f.pre.xb.xaif : ad_input_code_sf.w2f.pre.xaif xaif.xsd xaif_base.xsd xaif_inlinable_intrinsics.xsd xaif_derivative_propagator.xsd xaif_output.xsd oadDriver |
3077 |
./openad_adm -f -t forward_step -i \$< -c \${XAIFSCHEMAROOT}/schema/examples/inlinable_intrinsics.xaif -o \$@ -I -r |
./oadDriver -f -t forward_step -i \$< -c \${XAIFSCHEMAROOT}/schema/examples/inlinable_intrinsics.xaif -o \$@ -I -r |
3078 |
|
|
3079 |
# XAIF' -> WHIRL' |
# XAIF' -> WHIRL' |
3080 |
ad_input_code_sf.w2f.canon.xb.x2w.B : ad_input_code_sf.w2f.canon.xb.xaif xaif2whirl |
ad_input_code_sf.w2f.pre.xb.x2w.B : ad_input_code_sf.w2f.pre.xb.xaif xaif2whirl |
3081 |
./xaif2whirl --debug 1 --structured ad_input_code_sf.w2f.canon.B \$< |
./xaif2whirl --debug 1 --structured ad_input_code_sf.w2f.pre.B \$< |
3082 |
|
|
3083 |
# WHIRL' -> F' |
# WHIRL' -> F' |
3084 |
ad_input_code_sf.w2f.canon.xb.x2w.w2f.f$FS90: ad_input_code_sf.w2f.canon.xb.x2w.B whirl2f whirl2f_be |
ad_input_code_sf.w2f.pre.xb.x2w.w2f.f$FS90: ad_input_code_sf.w2f.pre.xb.x2w.B whirl2f whirl2f_be |
3085 |
./whirl2f -FLIST:ftn_file=\$@ -openad \$< |
./whirl2f -FLIST:ftn_file=\$@ -openad \$< |
3086 |
|
|
|
# undo slice hiding |
|
3087 |
# insert template directives |
# insert template directives |
3088 |
ad_input_code_sf.w2f.canon.xb.x2w.w2f.rs.f$FS90: ad_input_code_sf.w2f.canon.xb.x2w.w2f.f$FS90 reslicer.py ../OAD_support/insertTemplateDir.bash |
ad_input_code_sf.w2f.pre.xb.x2w.w2f.td.f$FS90: ad_input_code_sf.w2f.pre.xb.x2w.w2f.f$FS90 ../OAD_support/insertTemplateDir.bash |
3089 |
python reslicer.py \$< > \$<.1 |
../OAD_support/insertTemplateDir.bash \$< \$@ |
|
../OAD_support/insertTemplateDir.bash \$<.1 \$@ |
|
|
rm \$<.1 |
|
3090 |
|
|
3091 |
|
PPEXTRAS=\$(wildcard ../OAD_support/ad_template.*.F) ../OAD_support/ad_inline.F |
3092 |
# postprocess F' |
# postprocess F' |
3093 |
ad_input_code_sf.w2f.canon.xb.x2w.w2f.rs.pp.f$FS90: ad_input_code_sf.w2f.canon.xb.x2w.w2f.rs.f$FS90 multi-pp.pl ../OAD_support/ad_inline.f \$(wildcard ../OAD_support/ad_template.*.f) |
ad_input_code_sf.w2f.pre.xb.x2w.w2f.td.pp.f$FS90: ad_input_code_sf.w2f.pre.xb.x2w.w2f.td.f$FS90 multi-pp.pl \$(PPEXTRAS:.F=.f) |
3094 |
perl multi-pp.pl -inline=../OAD_support/ad_inline.f \$< |
perl multi-pp.pl -inline=../OAD_support/ad_inline.f \$< |
3095 |
# the postprocessor still gets the name wrong |
# the postprocessor still gets the name wrong |
3096 |
cat \$<.pp | sed 's/RETURN//' > \$@ |
cat \$<.pp | sed 's/RETURN//' > \$@ |
3097 |
|
|
3098 |
# extract all transformed modules |
# extract all transformed modules |
3099 |
all_mods.xb.x2w.w2f.pp.f$FS90: ad_input_code_sf.w2f.canon.xb.x2w.w2f.rs.pp.f$FS90 |
all_mods.xb.x2w.w2f.pp.f$FS90: ad_input_code_sf.w2f.pre.xb.x2w.w2f.td.pp.f$FS90 |
3100 |
cat \$< | sed -n '/MODULE /,/END MODULE/p' > \$@ |
cat \$< | sed -n '/MODULE /,/END MODULE/p' > \$@ |
3101 |
|
|
3102 |
# remove the transformed globals module from the |
# remove the transformed globals module from the |
3103 |
# transformed ad_input_code file |
# transformed ad_input_code file |
3104 |
# and remove for now the duplicate variables |
# and remove for now the duplicate variables |
3105 |
# and fix 2 data statements |
# and fix 2 data statements |
3106 |
ad_input_code.w2f.canon.xb.x2w.w2f.rs.pp.f$FS90: ad_input_code_sf.w2f.canon.xb.x2w.w2f.rs.pp.f$FS90 |
ad_input_code.w2f.pre.xb.x2w.w2f.td.pp.f$FS90: ad_input_code_sf.w2f.pre.xb.x2w.w2f.td.pp.f$FS90 |
3107 |
cat \$< | sed '/MODULE /,/END MODULE/d' | sed '/^ INTEGER(w2f__i4) DOLOOP_UB/d' > \$@ |
cat \$< | sed '/MODULE /,/END MODULE/d' | sed '/^ INTEGER(w2f__i4) DOLOOP_UB/d' > \$@ |
3108 |
|
|
3109 |
# setup some links |
# setup some links |
3123 |
%.pl: |
%.pl: |
3124 |
\$(LN) \${OPENADFORTTK}/bin/\$@ . |
\$(LN) \${OPENADFORTTK}/bin/\$@ . |
3125 |
|
|
3126 |
%.py: |
preProcess.py: |
3127 |
\$(LN) \${OPENADROOT}/OpenADFortTk/tools/canonicalize/\$@ . |
\$(LN) \${OPENADFORTTK_BASE}/tools/SourceProcessing/\$@ . |
3128 |
|
|
3129 |
whirl2f whirl2f_be: |
whirl2f whirl2f_be: |
3130 |
\$(LN) \${OPEN64ROOT}/whirl2f/\$@ . |
\$(LN) \${OPEN64ROOT}/whirl2f/\$@ . |
3131 |
|
|
3132 |
openad_adm: |
oadDriver: |
3133 |
\$(LN) \${XAIFBOOSTERROOT}/xaifBooster/algorithms/BasicBlockPreaccumulationReverse/test/t \$@ |
\$(LN) \${XAIFBOOSTERROOT}/xaifBooster/algorithms/BasicBlockPreaccumulationReverse/driver/oadDriver \$@ |
3134 |
|
|
3135 |
# ============ end OpenAD specific section ============== |
# ============ end OpenAD specific section ============== |
3136 |
|
|