907 |
program fgennc |
program fgennc |
908 |
#include "netcdf.inc" |
#include "netcdf.inc" |
909 |
EOF |
EOF |
910 |
if test ! "x$MPI" = x ; then |
#if test ! "x$MPI" = x ; then |
911 |
echo '#include "mpif.h"' >> genmake_tnc.F |
# echo '#include "mpif.h"' >> genmake_tnc.F |
912 |
fi |
#fi |
913 |
cat <<EOF >> genmake_tnc.F |
cat <<EOF >> genmake_tnc.F |
914 |
integer iret, ncid, xid |
integer iret, ncid, xid |
915 |
iret = nf_create('genmake_tnc.nc', NF_CLOBBER, ncid) |
iret = nf_create('genmake_tnc.nc', NF_CLOBBER, ncid) |
1092 |
echo " --> set HAVE_LAPACK='$HAVE_LAPACK'" >> $LOGFILE |
echo " --> set HAVE_LAPACK='$HAVE_LAPACK'" >> $LOGFILE |
1093 |
} |
} |
1094 |
|
|
1095 |
|
check_HAVE_FLUSH() { |
1096 |
|
if test ! "x$SKIP_CHECK_FLUSH" = x ; then |
1097 |
|
return |
1098 |
|
fi |
1099 |
|
echo >> $LOGFILE |
1100 |
|
echo "running: check_HAVE_FLUSH()" >> $LOGFILE |
1101 |
|
cat <<EOF > genmake_tflsh.$FS |
1102 |
|
program fgenflsh |
1103 |
|
integer iounit |
1104 |
|
character*9 fname |
1105 |
|
iounit = 26 |
1106 |
|
fname = 'tmp.tflsh' |
1107 |
|
open(iounit,FILE=fname,STATUS='unknown') |
1108 |
|
write(iounit,*) 'genmake_tflsh: hello' |
1109 |
|
call flush(iounit) |
1110 |
|
close(iounit) |
1111 |
|
end |
1112 |
|
EOF |
1113 |
|
echo "=== genmake_tflsh.$FS >>>" > genmake_tflsh.log |
1114 |
|
cat genmake_tflsh.$FS >> genmake_tflsh.log |
1115 |
|
echo "<<< genmake_tflsh.$FS ===" >> genmake_tflsh.log |
1116 |
|
|
1117 |
|
echo "$FC $FFLAGS $FOPTIM -c genmake_tflsh.$FS \ " >> genmake_tflsh.log |
1118 |
|
echo " && $LINK $FFLAGS $FOPTIM -o genmake_tflsh.o $LIBS" >> genmake_tflsh.log |
1119 |
|
$FC $FFLAGS $FOPTIM -c genmake_tflsh.$FS >> genmake_tflsh.log 2>&1 \ |
1120 |
|
&& $LINK $FFLAGS $FOPTIM -o genmake_tflsh genmake_tflsh.o $LIBS >> genmake_tflsh.log 2>&1 |
1121 |
|
RET_COMPILE=$? |
1122 |
|
|
1123 |
|
if test "x$RET_COMPILE" = x0 ; then |
1124 |
|
HAVE_FLUSH=t |
1125 |
|
#cat genmake_tflsh.log >> $LOGFILE |
1126 |
|
echo " check_HAVE_FLUSH: successful" >> $LOGFILE |
1127 |
|
else |
1128 |
|
HAVE_FLUSH=f |
1129 |
|
cat genmake_tflsh.log >> $LOGFILE |
1130 |
|
fi |
1131 |
|
rm -f genmake_tflsh* |
1132 |
|
echo " --> set HAVE_FLUSH='$HAVE_FLUSH'" >> $LOGFILE |
1133 |
|
} |
1134 |
|
|
1135 |
############################################################################### |
############################################################################### |
1136 |
# Sequential part of script starts here |
# Sequential part of script starts here |
1188 |
DEVEL= |
DEVEL= |
1189 |
HAVE_TEST_L= |
HAVE_TEST_L= |
1190 |
|
|
1191 |
|
# comment this line out to enable lapack test |
1192 |
|
SKIP_LAPACK_CHECK=t |
1193 |
|
|
1194 |
# DEFINES checked by test compilation or command-line |
# DEFINES checked by test compilation or command-line |
1195 |
HAVE_SYSTEM= |
HAVE_SYSTEM= |
1196 |
HAVE_FDATE= |
HAVE_FDATE= |
1202 |
HAVE_ETIME= |
HAVE_ETIME= |
1203 |
IGNORE_TIME= |
IGNORE_TIME= |
1204 |
HAVE_LAPACK= |
HAVE_LAPACK= |
1205 |
|
HAVE_FLUSH= |
1206 |
|
|
1207 |
MODS= |
MODS= |
1208 |
TOOLSDIR= |
TOOLSDIR= |
1256 |
# The following state is not directly set by command-line switches |
# The following state is not directly set by command-line switches |
1257 |
gm_s4="LN S64 LINK PACKAGES INCLUDES FFLAGS FOPTIM" |
gm_s4="LN S64 LINK PACKAGES INCLUDES FFLAGS FOPTIM" |
1258 |
gm_s5="CFLAGS LIBS KPP KFLAGS1 KFLAGS2 KPPFILES NOOPTFILES NOOPTFLAGS" |
gm_s5="CFLAGS LIBS KPP KFLAGS1 KFLAGS2 KPPFILES NOOPTFILES NOOPTFLAGS" |
1259 |
gm_s6="TOOLSDIR SOURCEDIRS INCLUDEDIRS EXEDIR EXECUTABLE EXEHOOK" |
gm_s6="PWD TOOLSDIR SOURCEDIRS INCLUDEDIRS EXEDIR EXECUTABLE EXEHOOK" |
1260 |
gm_s7="PWD THISHOST THISUSER THISDATE THISVER MACHINE" |
gm_s7="THISHOST THISUSER THISDATE THISVER MACHINE FC_NAMEMANGLE" |
1261 |
gm_s8="FC_NAMEMANGLE HAVE_NETCDF HAVE_SYSTEM HAVE_FDATE HAVE_ETIME HAVE_LAPACK" |
gm_s8="HAVE_NETCDF HAVE_SYSTEM HAVE_FDATE HAVE_ETIME HAVE_LAPACK HAVE_FLUSH" |
1262 |
|
|
1263 |
# The following are all related to adjoint/tangent-linear stuff |
# The following are all related to adjoint/tangent-linear stuff |
1264 |
gm_s10="AUTODIFF_PKG_USED AD_OPTFILE TAMC TAF AD_TAMC_FLAGS AD_TAF_FLAGS" |
gm_s10="AUTODIFF_PKG_USED AD_OPTFILE TAMC TAF AD_TAMC_FLAGS AD_TAF_FLAGS" |
1926 |
else |
else |
1927 |
echo "no" |
echo "no" |
1928 |
fi |
fi |
|
DEFINES="$DEFINES $IGNORE_TIME" |
|
1929 |
|
|
1930 |
|
printf " Can we call FLUSH intrinsic subroutine... " |
1931 |
|
check_HAVE_FLUSH |
1932 |
|
if test "x$HAVE_FLUSH" = xt ; then |
1933 |
|
DEFINES="$DEFINES -DHAVE_FLUSH" |
1934 |
|
echo "yes" |
1935 |
|
else |
1936 |
|
echo "no" |
1937 |
|
fi |
1938 |
|
|
1939 |
|
DEFINES="$DEFINES $IGNORE_TIME" |
1940 |
if test "x$EMBED_SRC" = xt ; then |
if test "x$EMBED_SRC" = xt ; then |
1941 |
build_embed_encode |
build_embed_encode |
1942 |
fi |
fi |
2534 |
OAD_DONT_TRANSFORM="/dev/null" |
OAD_DONT_TRANSFORM="/dev/null" |
2535 |
OAD_KEEP_ORIGINAL="/dev/null" |
OAD_KEEP_ORIGINAL="/dev/null" |
2536 |
OAD_CB2M_FILES="/dev/null" |
OAD_CB2M_FILES="/dev/null" |
2537 |
|
OADTOOLS="$TOOLSDIR/OAD_support" |
2538 |
|
test -f "oadtempflile" && \rm -f "oadtempflile" |
2539 |
|
cat >> "oadtempflile" <<EOF |
2540 |
|
$OADTOOLS |
2541 |
|
EOF |
2542 |
echo " looking for dontCompile file: " |
echo " looking for dontCompile file: " |
2543 |
for i in "." $MODS ; do |
for i in "." $MODS ; do |
2544 |
if test -r $i"/dontCompile" ; then |
if test -r $i"/dontCompile" ; then |
2746 |
EXEDIR = ${EXEDIR} |
EXEDIR = ${EXEDIR} |
2747 |
EXECUTABLE = \$(EXEDIR)/${EXECUTABLE} |
EXECUTABLE = \$(EXEDIR)/${EXECUTABLE} |
2748 |
TOOLSDIR = ${TOOLSDIR} |
TOOLSDIR = ${TOOLSDIR} |
2749 |
|
OADTOOLS = ${OADTOOLS} |
2750 |
|
|
2751 |
#eh3 new defines for the adjoint work |
#eh3 new defines for the adjoint work |
2752 |
AUTODIFF = ${ROOTDIR}/pkg/autodiff |
AUTODIFF = ${ROOTDIR}/pkg/autodiff |
2770 |
cat >>$MAKEFILE <<EOF |
cat >>$MAKEFILE <<EOF |
2771 |
# Unix ln (link) |
# Unix ln (link) |
2772 |
LN = ${LN} |
LN = ${LN} |
|
# C preprocessor |
|
|
CPP = cat \$< | ${S64} | ${CPP} |
|
2773 |
# Dependency generator |
# Dependency generator |
2774 |
MAKEDEPEND = ${MAKEDEPEND} |
MAKEDEPEND = ${MAKEDEPEND} |
2775 |
# Special preprocessor (KAP on DECs, FPP on Crays) |
# Special preprocessor (KAP on DECs, FPP on Crays) |
2952 |
## This nullifies any default implicit rules concerning these two file types: |
## This nullifies any default implicit rules concerning these two file types: |
2953 |
## %.o : %.F |
## %.o : %.F |
2954 |
|
|
2955 |
|
# C preprocessing and replacing the _d in constants: |
2956 |
|
CPPCMD = cat \$< | ${CPP} \$(DEFINES) \$(INCLUDES) | ${S64} |
2957 |
|
|
2958 |
.F.$FS: |
.F.$FS: |
2959 |
\$(CPP) \$(DEFINES) \$(INCLUDES) > \$@ |
\$(CPPCMD) > \$@ |
2960 |
.$FS.o: |
.$FS.o: |
2961 |
\$(FC) \$(FFLAGS) \$(FOPTIM) -c \$< |
\$(FC) \$(FFLAGS) \$(FOPTIM) -c \$< |
2962 |
.F.o: |
.F.o: |
2963 |
\$(FC) \$(FFLAGS) \$(FOPTIM) -c \$< |
\$(FC) \$(FFLAGS) \$(FOPTIM) -c \$< |
2964 |
.F90.$FS90: |
.F90.$FS90: |
2965 |
\$(CPP) \$(DEFINES) \$(INCLUDES) > \$@ |
\$(CPPCMD) > \$@ |
2966 |
.FF90.f$FS90: |
.FF90.f$FS90: |
2967 |
\$(CPP) \$(DEFINES) \$(INCLUDES) > \$@ |
\$(CPPCMD) > \$@ |
2968 |
.$FS90.o: |
.$FS90.o: |
2969 |
\$(F90C) \$(F90FLAGS) \$(F90OPTIM) -c \$< |
\$(F90C) \$(F90FLAGS) \$(F90OPTIM) -c \$< |
2970 |
.f$FS90.o: |
.f$FS90.o: |
2973 |
.c.o: |
.c.o: |
2974 |
\$(CC) \$(CFLAGS) \$(DEFINES) \$(INCLUDES) -c \$< |
\$(CC) \$(CFLAGS) \$(DEFINES) \$(INCLUDES) -c \$< |
2975 |
.flow.flowdir: |
.flow.flowdir: |
2976 |
\$(CPP) \$(DEFINES) \$(INCLUDES) > \$@ |
\$(CPPCMD) > \$@ |
2977 |
|
|
2978 |
# Special exceptions that use the ( .F - .p - .$FS - .o ) rule-chain |
# Special exceptions that use the ( .F - .p - .$FS - .o ) rule-chain |
2979 |
.F.p: |
.F.p: |
2980 |
\$(CPP) \$(DEFINES) \$(INCLUDES) > \$@ |
\$(CPPCMD) > \$@ |
2981 |
.p.$FS: |
.p.$FS: |
2982 |
\$(KPP) \$(KFLAGS1)\$@ \$(KFLAGS2) \$< |
\$(KPP) \$(KFLAGS1)\$@ \$(KFLAGS2) \$< |
2983 |
|
|
3243 |
\$(LINK) -o \$@ \$(FFLAGS) \$(FOPTIM) \$(AD_OBJ_FILES_S2) \$(LIBS) |
\$(LINK) -o \$@ \$(FFLAGS) \$(FOPTIM) \$(AD_OBJ_FILES_S2) \$(LIBS) |
3244 |
|
|
3245 |
# create sources files modules from header files containing common blocks |
# create sources files modules from header files containing common blocks |
3246 |
%_mod.FF90 : %.h ../OAD_support/cb2mGetModules.csh ../OAD_support/cb2mGetModules.awk |
%_mod.FF90 : %.h \${OADTOOLS}/cb2mGetModules.csh \${OADTOOLS}/cb2mGetModules.awk |
3247 |
../OAD_support/cb2mGetModules.csh $< ../OAD_support/cb2mGetModules.awk |
\${OADTOOLS}/cb2mGetModules.csh $< \${OADTOOLS}/cb2mGetModules.awk |
3248 |
|
|
3249 |
# create new header files with USE statements for the new modules made above |
# create new header files with USE statements for the new modules made above |
3250 |
%_mod.h : %.h ../OAD_support/cb2mGetHeaders.csh ../OAD_support/cb2mGetHeaders.awk |
%_mod.h : %.h \${OADTOOLS}/cb2mGetHeaders.csh \${OADTOOLS}/cb2mGetHeaders.awk |
3251 |
../OAD_support/cb2mGetHeaders.csh $< ../OAD_support/cb2mGetHeaders.awk \$(CB2M_F90_SRC_NAMES) |
\${OADTOOLS}/cb2mGetHeaders.csh $< \${OADTOOLS}/cb2mGetHeaders.awk \$(CB2M_F90_SRC_NAMES) |
3252 |
|
|
3253 |
# change the include directives of everybody to refer to the new header files with the USE statements |
# change the include directives of everybody to refer to the new header files with the USE statements |
3254 |
%_cb2m.FF90 : %.F ../OAD_support/cb2mUseModules.bash |
%_cb2m.FF90 : %.F \${OADTOOLS}/cb2mUseModules.bash |
3255 |
../OAD_support/cb2mUseModules.bash $< ${MPI} |
\${OADTOOLS}/cb2mUseModules.bash $< ${MPI} |
3256 |
|
|
3257 |
# makefile debug rule |
# makefile debug rule |
3258 |
small_f: \$(CB2M_F90_PP_SRC_FILES) |
small_f: \$(CB2M_F90_PP_SRC_FILES) |
3274 |
|
|
3275 |
# replace stop statements (to avoid the implied unstructured control flow) with print statements |
# replace stop statements (to avoid the implied unstructured control flow) with print statements |
3276 |
ad_input_code_sf.pre.s2p.f90 : ad_input_code_sf.pre.f90 |
ad_input_code_sf.pre.s2p.f90 : ad_input_code_sf.pre.f90 |
3277 |
cat \$< | sed -f ../OAD_support/stop2print.sed > ad_input_code_sf.pre.s2p.f90 |
cat \$< | sed -f \${OADTOOLS}/stop2print.sed > ad_input_code_sf.pre.s2p.f90 |
3278 |
|
|
3279 |
# F -> WHIRL |
# F -> WHIRL |
3280 |
ad_input_code_sf.pre.s2p.B: ad_input_code_sf.pre.s2p.f90 |
ad_input_code_sf.pre.s2p.B: ad_input_code_sf.pre.s2p.f90 |
3297 |
\${OPEN64ROOT}/whirl2f/whirl2f -FLIST:ftn_file=\$@ -openad \$< |
\${OPEN64ROOT}/whirl2f/whirl2f -FLIST:ftn_file=\$@ -openad \$< |
3298 |
|
|
3299 |
# insert template directives |
# insert template directives |
3300 |
ad_input_code_sf.pre.s2p.xb.x2w.w2f.td.f$FS90: ad_input_code_sf.pre.s2p.xb.x2w.w2f.f$FS90 ../OAD_support/insertTemplateDir.bash |
ad_input_code_sf.pre.s2p.xb.x2w.w2f.td.f$FS90: ad_input_code_sf.pre.s2p.xb.x2w.w2f.f$FS90 \${OADTOOLS}/insertTemplateDir.bash |
3301 |
../OAD_support/insertTemplateDir.bash \$< \$@ |
\${OADTOOLS}/insertTemplateDir.bash \$< \$@ |
3302 |
|
|
3303 |
PPEXTRAS=\$(wildcard ../OAD_support/ad_template.*.F) ../OAD_support/ad_inline.F |
PPEXTRAS=\$(wildcard \${OADTOOLS}/ad_template.*.F) \${OADTOOLS}/ad_inline.F |
3304 |
# postprocess F' |
# postprocess F' |
3305 |
postProcess.tag: ad_input_code_sf.pre.s2p.xb.x2w.w2f.td.f$FS90 \$(PPEXTRAS:.F=.f) | w2f__types.f90 |
postProcess.tag: ad_input_code_sf.pre.s2p.xb.x2w.w2f.td.f$FS90 \$(PPEXTRAS:.F=.f) | w2f__types.f90 |
3306 |
\${OPENADFORTTK_BASE}/tools/SourceProcessing/postProcess.py --progress --timing --infoUnitFile w2f__types.f90 --outputFormat=fixed --separateOutput --pathSuffix "" --filenameSuffix "_oad" -m r -i ../OAD_support/ad_inline.f \$< |
\${OPENADFORTTK_BASE}/tools/SourceProcessing/postProcess.py --progress --timing --infoUnitFile w2f__types.f90 --outputFormat=fixed --separateOutput --pathSuffix "" --filenameSuffix "_oad" -m r -i \${OADTOOLS}/ad_inline.f \$< |
3307 |
# the target is a placeholder to trigger a single execution of the rule |
# the target is a placeholder to trigger a single execution of the rule |
3308 |
touch \$@ |
touch \$@ |
3309 |
# put this so make knows about the postprocessing output |
# put this so make knows about the postprocessing output |
3315 |
|
|
3316 |
# link the support files: |
# link the support files: |
3317 |
\$(OPENAD_SUPPORT_F90_SRC_FILES) \$(OPENAD_SUPPORT_C_SRC_FILES): |
\$(OPENAD_SUPPORT_F90_SRC_FILES) \$(OPENAD_SUPPORT_C_SRC_FILES): |
3318 |
\$(LN) ../OAD_support/\$@ . |
\$(LN) \${OADTOOLS}/\$@ . |
3319 |
|
|
3320 |
AD_CLEAN += *_mod.h *_mod.F90 *.FF90 *.mod-whirl temp.sed oad_cp.* postProcess.tag \$(PPEXTRAS:.F=.f) |
AD_CLEAN += *_mod.h *_mod.F90 *.FF90 *.mod-whirl temp.sed oad_cp.* postProcess.tag \$(PPEXTRAS:.F=.f) |
3321 |
|
|