#!/bin/bash # --------------------------------------------------------------------------- # # comp : Compiler script for use in ad3 (customized for hardware and # # optimization). Note that this script will not be replaced if part # # of WAVEWATCH III is re-installed. Used by ad3. # # # # use : comp name # # name: name of source code file without the extension. # # # # error codes : 1 : input error # # 2 : no environment file $ww3_env found. # # 3 : error in creating scratch directory. # # 4 : w3adc error. # # 5 : compiler error. # # # # remarks : # # # # - This script runs from the scratch directory, where it should remain. # # # # - For this script to interact with ad3, it needs to generate / leave # # following files : # # $name.f90 : Source code (generated by ad3). # # $name.o : Object module. # # $name.l : Listing file. # # comp.stat.$name : status file of compiler, containing number of errors # # and number of warnings (generated by comp). # # # # - Upon (first) installation of WAVEWATCH III the user needs to check the # # following parts of this script : # # sec. 2.b : Provide correct compiler/options. # # sec. 3.a : Provide correct error capturing. # # sec. 3.d : Remove unnecessary files. # # # # - This version is made for the Intel ifort version 12 on Xeon Westmere # # - On zeus the -list option slows down the compilation time by an order # # of magnitude. For this section 1.c is added. # # # # Hendrik L. Tolman # # June 2012 # # --------------------------------------------------------------------------- # # 1. Preparations # # --------------------------------------------------------------------------- # # 1.a Check and process input if [ "$#" != '1' ] then echo "usage: comp name" ; exit 1 fi name="$1" # 1.b Initial clean-up - - - - - - - - - - - - - - - - - - - - - - - - - - - - rm -f $name.l rm -f $name.o rm -f comp.stat.$name # 1.c Set listing option - - - - - - - - - - - - - - - - - - - - - - - - - - - list=' -Mlist' list= # --------------------------------------------------------------------------- # # 2. Compile # # --------------------------------------------------------------------------- # # Add here the correct compiler call including command line options # Note: - do not invoke a link step # - if possible, generate a listing $name.l # - make sure the compiler point to the proper directory where the # modules are stored ($m_path), see examples below. # 2.a Determine file extension - - - - - - - - - - - - - - - - - - - - - - - - # .f90 assumes free format, .f assumes fixed format, change if necessary # *** file extension (fext) is set and exported by calling program (ad3) *** # *** (nothing to do here) *** # 2.b Perform compilation - - - - - - - - - - - - - - - - - - - - - - - - - - # Save compiler exit code in $OK # # Intel compiler on Linux ---------------------------------------------------- # 2.b.1 Build options and determine compiler name # Note that all but GrADS output is forced to big endian data opt="-c $list -module $path_m" opt="$opt -fastsse" opt="$opt -i4 -r4" opt="$opt -traceback" if [ "$name" != 'gx_outp' ] && [ "$name" != 'gx_outf' ] && \ [ "$name" != 'ww3_gspl' ] then opt="$opt -byteswapio" fi if [ "$mpi_mod" = 'yes' ] then comp=ftn else comp=ftn fi if [ "$omp_mod" = 'yes' ] then opt="$opt -mp" fi if [ "$netcdf_compile" = 'yes' ] then case $WWATCH3_NETCDF in NC3) opt="$opt -I$NETCDF_INCDIR" ;; NC4) if [ "$mpi_mod" = 'no' ]; then comp="`$NETCDF_CONFIG --fc`"; fi opt="$opt -I`$NETCDF_CONFIG --includedir`" ;; esac fi opt="$opt -I$path_i" opt="$opt $ESMF_F90COMPILEPATHS" opt="$opt $EXTRA_COMP_OPTIONS" # 2.b.2 Compile $comp $opt $name.$fext > $name.out 2> $name.err OK="$?" # 2.b.2 Process listing if [ -s $name.lst ] then mv $name.lst $name.l fi # 2.b.3 Add test output to listing for later viewing if [ -s $name.l ] then echo '------------' >> $name.l echo "$comp $opt" >> $name.l echo '------------' >> $name.l cat $name.out >> $name.l 2> /dev/null echo '------------' >> $name.l cat $name.err >> $name.l 2> /dev/null echo '------------' >> $name.l fi # --------------------------------------------------------------------------- # # 3. Postprocessing # # --------------------------------------------------------------------------- # # 3.a Capture errors # nr_err : number of errors. # nr_war : number of errors. nr_err='0' nr_war='0' if [ -s $name.err ] then echo > /dev/null grep inform $name.err | grep warnings | grep severes > $name.err2 mv $name.err2 $name.err err_lines=`wc -l $name.err | awk '{ print $1 }'` nr_inf=0 nr_war=0 nr_sev=0 nr_fat=0 line=1 while [ "$line" -le "$err_lines" ] do nr_loc=`sed -n "$line,${line}p" $name.err | awk '{ print $1}'` nr_inf=$(($nr_inf + $nr_loc)) nr_loc=`sed -n "$line,${line}p" $name.err | awk '{ print $3}'` nr_war=$(($nr_war + $nr_loc)) nr_loc=`sed -n "$line,${line}p" $name.err | awk '{ print $5}'` nr_sev=$(($nr_sev + $nr_loc)) nr_loc=`sed -n "$line,${line}p" $name.err | awk '{ print $7}'` nr_fat=$(($nr_fat + $nr_loc)) line=$(($line + 1)) done nr_err=$(($nr_sev + $nr_fat)) nr_war=$(($nr_war + $nr_inf)) else if [ "$OK" != '0' ] then nr_err='1' fi fi # 3.b Make file comp.stat.$name - - - - - - - - - - - - - - - - - - - - - - - - - - echo "ERROR $nr_err" > comp.stat.$name echo "WARNING $nr_war" >> comp.stat.$name # 3.c Prepare listing - - - - - - - - - - - - - - - - - - - - - - - - - - - - # if compiler does not provide listing, make listing from source code # and compiler messages. Second input line for w3list identifies if # comment lines are to be numbered. if [ ! -f $name.l ] then echo "$name.$fext" > w3list.inp echo "T" >> w3list.inp w3list < w3list.inp 2> /dev/null rm -f w3list.inp mv w3list.out $name.l echo '------------' >> $name.l echo "$comp $opt" >> $name.l echo '------------' >> $name.l cat $name.out >> $name.l #2> /dev/null echo '------------' >> $name.l cat $name.err >> $name.l #2> /dev/null echo '------------' >> $name.l fi # 3.d Remove unwanted files - - - - - - - - - - - - - - - - - - - - - - - - - # include here unwanted files generated by the compiler # rm -f $name.out # rm -f $name.err # end of comp --------------------------------------------------------------- #