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... " |
2629 |
-rm -rf *.o |
-rm -rf *.o |
2630 |
-rm -rf *.$FS *.flowdir |
-rm -rf *.$FS *.flowdir |
2631 |
-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* |
2632 |
-rm -rf temp.sed reslice.dat |
-rm -rf temp.sed |
2633 |
Clean: |
Clean: |
2634 |
@make clean |
@make clean |
2635 |
@make cleanlinks |
@make cleanlinks |
2951 |
f95_test_mods.f90: \$(OPENAD_SUPPORT_F90_SRC_FILES:F90=$FS90) |
f95_test_mods.f90: \$(OPENAD_SUPPORT_F90_SRC_FILES:F90=$FS90) |
2952 |
cat \$^ > \$@ |
cat \$^ > \$@ |
2953 |
|
|
2954 |
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 |
2955 |
cat \$^ > \$@ |
cat \$^ > \$@ |
2956 |
|
|
2957 |
f95_test.out: f95_test_mods.f90 f95_test.f90 |
f95_test.out: f95_test_mods.f90 f95_test.f90 |
2958 |
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 |
2959 |
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 |
2960 |
|
|
2961 |
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) |
2962 |
|
|
2963 |
\$(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) |
2964 |
@echo Creating \$@ ... |
@echo Creating \$@ ... |
2965 |
\$(LINK) -o \$@ \$(FFLAGS) \$(FOPTIM) \$(AD_OBJ_FILES) \$(LIBS) |
\$(LINK) -o \$@ \$(FFLAGS) \$(FOPTIM) \$(AD_OBJ_FILES) \$(LIBS) |
2966 |
|
|
2967 |
# makefile debug rule |
# makefile debug rule |
2968 |
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 |
2969 |
.PHONY: openad |
.PHONY: openad |
2970 |
|
|
2971 |
# create the module files |
# create the module files |
3011 |
cat w2f__types.f90 \$(basename \$<).w2f.f > \$@ |
cat w2f__types.f90 \$(basename \$<).w2f.f > \$@ |
3012 |
|
|
3013 |
# canonicalizer |
# canonicalizer |
3014 |
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 |
3015 |
python canon.v1.py --r8 \$< > \$@ |
./preProcess.py -H -S \$< -o \$@ |
3016 |
|
|
3017 |
# F -> WHIRL |
# F -> WHIRL |
3018 |
# note that the canonicalized version cuts off at col 72 |
# note that the canonicalized version cuts off at col 72 |
3020 |
# as we are in fixed mode and cut of exactly there. |
# as we are in fixed mode and cut of exactly there. |
3021 |
# Otherwise mfef90 patches in spaces to fill up to 72 (or 132) |
# Otherwise mfef90 patches in spaces to fill up to 72 (or 132) |
3022 |
# characters respectively. |
# characters respectively. |
3023 |
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 |
3024 |
./mfef90 -r8 -z -F \$< |
./mfef90 -r8 -z -F \$< |
3025 |
mv \$<.B \$@ |
mv \$<.B \$@ |
3026 |
|
|
3027 |
# WHIRL -> XAIF |
# WHIRL -> XAIF |
3028 |
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 |
3029 |
./whirl2xaif -s -n --debug 1 -o \$@ \$< |
./whirl2xaif -s -n --debug 1 -o \$@ \$< |
3030 |
|
|
3031 |
# XAIF -> XAIF' |
# XAIF -> XAIF' |
3032 |
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 openad_adm |
3033 |
./openad_adm -f -t forward_step -i \$< -c \${XAIFSCHEMAROOT}/schema/examples/inlinable_intrinsics.xaif -o \$@ -I -r |
./openad_adm -f -t forward_step -i \$< -c \${XAIFSCHEMAROOT}/schema/examples/inlinable_intrinsics.xaif -o \$@ -I -r |
3034 |
|
|
3035 |
# XAIF' -> WHIRL' |
# XAIF' -> WHIRL' |
3036 |
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 |
3037 |
./xaif2whirl --debug 1 --structured ad_input_code_sf.w2f.canon.B \$< |
./xaif2whirl --debug 1 --structured ad_input_code_sf.w2f.pre.B \$< |
3038 |
|
|
3039 |
# WHIRL' -> F' |
# WHIRL' -> F' |
3040 |
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 |
3041 |
./whirl2f -FLIST:ftn_file=\$@ -openad \$< |
./whirl2f -FLIST:ftn_file=\$@ -openad \$< |
3042 |
|
|
|
# undo slice hiding |
|
3043 |
# insert template directives |
# insert template directives |
3044 |
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 |
3045 |
python reslicer.py \$< > \$<.1 |
../OAD_support/insertTemplateDir.bash \$< \$@ |
|
../OAD_support/insertTemplateDir.bash \$<.1 \$@ |
|
|
rm \$<.1 |
|
3046 |
|
|
3047 |
# postprocess F' |
# postprocess F' |
3048 |
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 ../OAD_support/ad_inline.f \$(wildcard ../OAD_support/ad_template.*.f) |
3049 |
perl multi-pp.pl -inline=../OAD_support/ad_inline.f \$< |
perl multi-pp.pl -inline=../OAD_support/ad_inline.f \$< |
3050 |
# the postprocessor still gets the name wrong |
# the postprocessor still gets the name wrong |
3051 |
cat \$<.pp | sed 's/RETURN//' > \$@ |
cat \$<.pp | sed 's/RETURN//' > \$@ |
3052 |
|
|
3053 |
# extract all transformed modules |
# extract all transformed modules |
3054 |
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 |
3055 |
cat \$< | sed -n '/MODULE /,/END MODULE/p' > \$@ |
cat \$< | sed -n '/MODULE /,/END MODULE/p' > \$@ |
3056 |
|
|
3057 |
# remove the transformed globals module from the |
# remove the transformed globals module from the |
3058 |
# transformed ad_input_code file |
# transformed ad_input_code file |
3059 |
# and remove for now the duplicate variables |
# and remove for now the duplicate variables |
3060 |
# and fix 2 data statements |
# and fix 2 data statements |
3061 |
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 |
3062 |
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' > \$@ |
3063 |
|
|
3064 |
# setup some links |
# setup some links |
3078 |
%.pl: |
%.pl: |
3079 |
\$(LN) \${OPENADFORTTK}/bin/\$@ . |
\$(LN) \${OPENADFORTTK}/bin/\$@ . |
3080 |
|
|
3081 |
%.py: |
preProcess.py: |
3082 |
\$(LN) \${OPENADROOT}/OpenADFortTk/tools/canonicalize/\$@ . |
\$(LN) \${OPENADFORTTK_BASE}/tools/SourceProcessing/\$@ . |
3083 |
|
|
3084 |
whirl2f whirl2f_be: |
whirl2f whirl2f_be: |
3085 |
\$(LN) \${OPEN64ROOT}/whirl2f/\$@ . |
\$(LN) \${OPEN64ROOT}/whirl2f/\$@ . |