332 |
IEEE=$MITGCM_IEEE |
IEEE=$MITGCM_IEEE |
333 |
fi |
fi |
334 |
|
|
335 |
|
AUTODIFF_PKG_USED=f |
336 |
|
AD_OPTFILE= |
337 |
|
|
338 |
# The following state can be set directly by command-line switches |
# The following state can be set directly by command-line switches |
339 |
gm_s1="OPTFILE PDEPEND PDEFAULT MAKEFILE PLATFORM ROOTDIR MODS DISABLE ENABLE NOOPT" |
gm_s1="OPTFILE PDEPEND PDEFAULT MAKEFILE PLATFORM ROOTDIR MODS DISABLE ENABLE NOOPT" |
340 |
gm_s2="FC IEEE MPI JAM DUMPSTATE STANDARDDIRS" |
gm_s2="FC IEEE MPI JAM DUMPSTATE STANDARDDIRS" |
345 |
gm_s5="TOOLSDIR SOURCEDIRS INCLUDEDIRS PWD MAKE THISHOSTNAME THISDATE MACHINE" |
gm_s5="TOOLSDIR SOURCEDIRS INCLUDEDIRS PWD MAKE THISHOSTNAME THISDATE MACHINE" |
346 |
gm_s6="EXECUTABLE EXEHOOK EXEDIR PACKAGES_CONF" |
gm_s6="EXECUTABLE EXEHOOK EXEDIR PACKAGES_CONF" |
347 |
|
|
348 |
gm_state="COMMANDL $gm_s1 $gm_s2 $gm_s3 $gm_s4 $gm_s5 $gm_s6" |
# The following are all related to adjoint/tangent-linear stuff |
349 |
|
gm_s7="AUTODIFF_PKG_USED AD_OPTFILE TAMC TAF DIFF_FLAGS AD_TAMC_FLAGS AD_TAF_FLAGS" |
350 |
|
gm_s8="FTL_TAMC_FLAGS FTL_TAF_FLAGS SVD_TAMC_FLAGS SVD_TAF_FLAGS" |
351 |
|
gm_s9="" |
352 |
|
|
353 |
|
gm_state="COMMANDL $gm_s1 $gm_s2 $gm_s3 $gm_s4 $gm_s5 $gm_s6 $gm_s7 $gm_s8" |
354 |
|
|
355 |
|
|
356 |
echo |
echo |
383 |
# n=$(( $n + 1 )) |
# n=$(( $n + 1 )) |
384 |
#done |
#done |
385 |
#parse_options |
#parse_options |
|
|
|
386 |
ac_prev= |
ac_prev= |
387 |
for ac_option ; do |
for ac_option ; do |
388 |
|
|
407 |
-optfile=* | --optfile=* | -of=* | --of=*) |
-optfile=* | --optfile=* | -of=* | --of=*) |
408 |
OPTFILE=$ac_optarg ;; |
OPTFILE=$ac_optarg ;; |
409 |
|
|
410 |
|
-adoptfile | --adoptfile | -ad | --ad) |
411 |
|
ac_prev=AD_OPTFILE ;; |
412 |
|
-adoptfile=* | --adoptfile=* | -adof=* | --adof=*) |
413 |
|
AD_OPTFILE=$ac_optarg ;; |
414 |
|
|
415 |
-pdepend | --pdepend) |
-pdepend | --pdepend) |
416 |
ac_prev=PDEPEND ;; |
ac_prev=PDEPEND ;; |
417 |
-pdepend=* | --pdepend=*) |
-pdepend=* | --pdepend=*) |
575 |
fi |
fi |
576 |
fi |
fi |
577 |
|
|
578 |
|
echo " getting AD_OPTFILE information: " |
579 |
|
if test "x${AD_OPTFILE}" = x ; then |
580 |
|
if test "x$MITGCM_AD_OF" = x ; then |
581 |
|
AD_OPTFILE=$ROOTDIR/tools/adjoint_options/adjoint_default |
582 |
|
else |
583 |
|
AD_OPTFILE=$MITGCM_AD_OF |
584 |
|
fi |
585 |
|
fi |
586 |
|
if test "x${AD_OPTFILE}" != xNONE ; then |
587 |
|
if test -f "$AD_OPTFILE" -a -r "$AD_OPTFILE" ; then |
588 |
|
echo " using AD_OPTFILE=\"$AD_OPTFILE\"" |
589 |
|
source "$AD_OPTFILE" |
590 |
|
RETVAL=$? |
591 |
|
if test "x$RETVAL" != x0 ; then |
592 |
|
echo -n "Error: failed to source AD_OPTFILE \"$AD_OPTFILE\"" |
593 |
|
echo "--please check that variable syntax is bash-compatible" |
594 |
|
exit 1 |
595 |
|
fi |
596 |
|
if test "x$DUMPSTATE" != xf ; then |
597 |
|
cp -f $AD_OPTFILE "genmake_ad_optfile" |
598 |
|
fi |
599 |
|
else |
600 |
|
echo "Error: can't read AD_OPTFILE=\"$AD_OPTFILE\"" |
601 |
|
exit 1 |
602 |
|
fi |
603 |
|
fi |
604 |
|
|
605 |
# Check that FC, LINK, CPP, and S64 are defined. If not, complain |
# Check that FC, LINK, CPP, and S64 are defined. If not, complain |
606 |
# and abort! |
# and abort! |
607 |
if test "x$FC" = x ; then |
if test "x$FC" = x ; then |
877 |
if test -d $adr ; then |
if test -d $adr ; then |
878 |
SOURCEDIRS="$SOURCEDIRS $adr" |
SOURCEDIRS="$SOURCEDIRS $adr" |
879 |
INCLUDEDIRS="$INCLUDEDIRS $adr" |
INCLUDEDIRS="$INCLUDEDIRS $adr" |
880 |
|
if test "x$i" = xautodiff ; then |
881 |
|
AUTODIFF_PKG_USED=t |
882 |
|
fi |
883 |
else |
else |
884 |
echo "Error: the directory \"$adr\" for package $i doesn't exist" |
echo "Error: the directory \"$adr\" for package $i doesn't exist" |
885 |
exit 1 |
exit 1 |
1042 |
done |
done |
1043 |
|
|
1044 |
|
|
1045 |
|
# Here, we build the list of files to be "run through" the adjoint |
1046 |
|
# compiler. |
1047 |
|
if test -f ./ad_files ; then |
1048 |
|
rm -f ./ad_files |
1049 |
|
fi |
1050 |
|
echo " Creating the list of files for the adjoint compiler." |
1051 |
|
for i in $SOURCEDIRS ; do |
1052 |
|
list_files=`( cd $i && ls -1 *.list 2>/dev/null )` |
1053 |
|
for j in $list_files ; do |
1054 |
|
cat $i/$j >> ad_files |
1055 |
|
done |
1056 |
|
done |
1057 |
|
|
1058 |
|
cat <<EOF > adjoint_sed |
1059 |
|
s/call adopen(/call adopen ( mythid,\\ |
1060 |
|
\& /g |
1061 |
|
s/call adclose(/call adclose( mythid,\\ |
1062 |
|
\& /g |
1063 |
|
s/call adread(/call adread ( mythid,\\ |
1064 |
|
\& /g |
1065 |
|
s/call adwrite(/call adwrite( mythid,\\ |
1066 |
|
\& /g |
1067 |
|
|
1068 |
|
EOF |
1069 |
|
|
1070 |
echo |
echo |
1071 |
echo "=== Creating the Makefile ===" |
echo "=== Creating the Makefile ===" |
1072 |
echo " setting INCLUDES" |
echo " setting INCLUDES" |
1087 |
echo -n 'CSRCFILES = ' > csrclist.inc |
echo -n 'CSRCFILES = ' > csrclist.inc |
1088 |
echo -n 'F90SRCFILES = ' > f90srclist.inc |
echo -n 'F90SRCFILES = ' > f90srclist.inc |
1089 |
echo -n 'HEADERFILES = ' > hlist.inc |
echo -n 'HEADERFILES = ' > hlist.inc |
1090 |
|
echo -n 'AD_FLOW_FILES = ' > ad_flow_files.inc |
1091 |
alldirs="$SOURCEDIRS $INCLUDEDIRS ." |
alldirs="$SOURCEDIRS $INCLUDEDIRS ." |
1092 |
for d in $alldirs ; do |
for d in $alldirs ; do |
1093 |
deplist= |
deplist= |
1094 |
sfiles=`( cd $d; echo *.[h,c,F] )` |
sfiles=`( cd $d; echo *.[h,c,F] *.flow )` |
1095 |
sfiles=`( echo $sfiles; cd $d; echo *.F90 )` |
sfiles=`( echo $sfiles; cd $d; echo *.F90 )` |
1096 |
for sf in $sfiles ; do |
for sf in $sfiles ; do |
1097 |
if test ! -r ".links.tmp/$sf" ; then |
if test ! -r ".links.tmp/$sf" ; then |
1116 |
echo " \\" >> hlist.inc |
echo " \\" >> hlist.inc |
1117 |
echo -n " $sf" >> hlist.inc |
echo -n " $sf" >> hlist.inc |
1118 |
;; |
;; |
1119 |
|
flow) |
1120 |
|
echo " \\" >> ad_flow_files.inc |
1121 |
|
echo -n " $sf" >> ad_flow_files.inc |
1122 |
|
;; |
1123 |
esac |
esac |
1124 |
fi |
fi |
1125 |
fi |
fi |
1136 |
echo "" >> csrclist.inc |
echo "" >> csrclist.inc |
1137 |
echo "" >> f90srclist.inc |
echo "" >> f90srclist.inc |
1138 |
echo "" >> hlist.inc |
echo "" >> hlist.inc |
1139 |
|
echo "" >> ad_flow_files.inc |
1140 |
|
|
1141 |
if test -e $MAKEFILE ; then |
if test -e $MAKEFILE ; then |
1142 |
mv -f $MAKEFILE "$MAKEFILE.bak" |
mv -f $MAKEFILE "$MAKEFILE.bak" |
1178 |
EXECUTABLE = \$(EXEDIR)/${EXECUTABLE} |
EXECUTABLE = \$(EXEDIR)/${EXECUTABLE} |
1179 |
TOOLSDIR = ${TOOLSDIR} |
TOOLSDIR = ${TOOLSDIR} |
1180 |
|
|
1181 |
|
#eh3 new defines for the adjoint work |
1182 |
|
AUTODIFF = ${ROOTDIR}/pkg/autodiff |
1183 |
|
|
1184 |
EOF |
EOF |
1185 |
|
|
1186 |
# Note: figure out some way to add Hyades JAM libraries here |
# Note: figure out some way to add Hyades JAM libraries here |
1226 |
|
|
1227 |
EOF |
EOF |
1228 |
|
|
1229 |
cat srclist.inc >> $MAKEFILE |
cat srclist.inc >> $MAKEFILE |
1230 |
cat csrclist.inc >> $MAKEFILE |
cat csrclist.inc >> $MAKEFILE |
1231 |
cat f90srclist.inc >> $MAKEFILE |
cat f90srclist.inc >> $MAKEFILE |
1232 |
cat hlist.inc >> $MAKEFILE |
cat hlist.inc >> $MAKEFILE |
1233 |
|
cat ad_flow_files.inc >> $MAKEFILE |
1234 |
|
echo >> $MAKEFILE |
1235 |
echo 'F77FILES = $(SRCFILES:.F=.f)' >> $MAKEFILE |
echo 'F77FILES = $(SRCFILES:.F=.f)' >> $MAKEFILE |
1236 |
echo 'F90FILES = $(F90SRCFILES:.F90=.f90)' >> $MAKEFILE |
echo 'F90FILES = $(F90SRCFILES:.F90=.f90)' >> $MAKEFILE |
1237 |
echo 'OBJFILES = $(SRCFILES:.F=.o) $(CSRCFILES:.c=.o) $(F90SRCFILES:.F90=.o)' >> $MAKEFILE |
echo 'OBJFILES = $(SRCFILES:.F=.o) $(CSRCFILES:.c=.o) $(F90SRCFILES:.F90=.o)' >> $MAKEFILE |
1238 |
|
|
1239 |
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 |
1240 |
|
rm -f ad_flow_files.inc |
1241 |
|
|
1242 |
cat >>$MAKEFILE <<EOF |
cat >>$MAKEFILE <<EOF |
1243 |
|
|
1273 |
-find \$(EXEDIR) -name "fort.*" -exec rm {} \; |
-find \$(EXEDIR) -name "fort.*" -exec rm {} \; |
1274 |
-rm -f \$(EXECUTABLE) output.txt |
-rm -f \$(EXECUTABLE) output.txt |
1275 |
|
|
1276 |
|
Makefile: makefile |
1277 |
makefile: |
makefile: |
1278 |
${0} $@ |
${0} $@ |
1279 |
cleanlinks: |
cleanlinks: |
1297 |
.p.f: |
.p.f: |
1298 |
\$(KPP) \$(KFLAGS1)\$@ \$(KFLAGS2) \$< |
\$(KPP) \$(KFLAGS1)\$@ \$(KFLAGS2) \$< |
1299 |
|
|
1300 |
|
#========================================= |
1301 |
|
#=== Automatic Differentiation Rules === |
1302 |
|
|
1303 |
|
TAMC = ${TAMC} |
1304 |
|
TAF = ${TAF} |
1305 |
|
|
1306 |
|
EOF |
1307 |
|
|
1308 |
|
ad_vars="AD_TAMC_FLAGS AD_TAF_FLAGS" |
1309 |
|
ad_vars="$ad_vars FTL_TAMC_FLAGS FTL_TAF_FLAGS" |
1310 |
|
ad_vars="$ad_vars SVD_TAMC_FLAGS SVD_TAF_FLAGS" |
1311 |
|
for i in $ad_vars ; do |
1312 |
|
name=$i |
1313 |
|
t1="t2=\$"`echo $i` |
1314 |
|
eval $t1 |
1315 |
|
printf "%-20s = " $name >> $MAKEFILE |
1316 |
|
echo $t2 >> $MAKEFILE |
1317 |
|
done |
1318 |
|
|
1319 |
|
echo " Add the source list for AD code generation" |
1320 |
|
echo >> $MAKEFILE |
1321 |
|
echo -n "AD_FILES = " >> $MAKEFILE |
1322 |
|
AD_FILES=`cat ad_files` |
1323 |
|
for i in $AD_FILES ; do |
1324 |
|
echo " \\" >> $MAKEFILE |
1325 |
|
echo -n " $i" >> $MAKEFILE |
1326 |
|
done |
1327 |
|
echo >> $MAKEFILE |
1328 |
|
|
1329 |
|
cat >>$MAKEFILE <<EOF |
1330 |
|
|
1331 |
|
|
1332 |
|
ad_input_code.f: \$(F77FILES) |
1333 |
|
@make \$(AD_FLOW_FILES) |
1334 |
|
cat \$(AD_FLOW_FILES) \$(AD_FILES) > ad_input_code.f |
1335 |
|
|
1336 |
|
|
1337 |
|
ad_taf_output.f: ad_input_code.f |
1338 |
|
\$(TAF) \$(AD_TAF_FLAGS) ad_input_code.f |
1339 |
|
cat ad_input_code_ad.f | sed -f adjoint_sed > ad_taf_output.f |
1340 |
|
|
1341 |
|
ad_taf: ad_taf_output.o \$(OBJFILES) |
1342 |
|
\$(LINK) -o ${EXECUTABLE} \$(FFLAGS) \$(FOPTIM) \$(OBJFILES) ad_taf_output.o \$(LIBS) |
1343 |
|
|
1344 |
|
|
1345 |
|
ad_tamc_output.f: ad_input_code.f |
1346 |
|
\$(TAMC) \$(AD_TAMC_FLAGS) ad_input_code.f |
1347 |
|
cat ad_input_code_ad.f | sed -f adjoint_sed > ad_taf_output.f |
1348 |
|
|
1349 |
|
ad_tamc: ad_tamc_output.o \$(OBJFILES) |
1350 |
|
\$(LINK) -o ${EXECUTABLE} \$(FFLAGS) \$(FOPTIM) \$(OBJFILES) ad_tamc_output.o \$(LIBS) |
1351 |
|
|
1352 |
|
|
1353 |
|
flt_taf_output.f: ad_input_code.f |
1354 |
|
\$(TAF) \$(FTL_TAF_FLAGS) ad_input_code.f |
1355 |
|
cat ad_input_code_ad.f | sed -f adjoint_sed > flt_taf_output.f |
1356 |
|
|
1357 |
|
flt_taf: flt_taf_output.o \$(OBJFILES) |
1358 |
|
\$(LINK) -o ${EXECUTABLE} \$(FFLAGS) \$(FOPTIM) \$(OBJFILES) flt_taf_output.o \$(LIBS) |
1359 |
|
|
1360 |
|
|
1361 |
|
|
1362 |
|
#========================================= |
1363 |
|
|
1364 |
EOF |
EOF |
1365 |
|
|
1366 |
if test "x$EXEHOOK" != x ; then |
if test "x$EXEHOOK" != x ; then |