#!/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 Portland pgf90 compiler versions 6 and up. # # # # Hendrik L. Tolman # # February 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 # --------------------------------------------------------------------------- # # 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) *** # 2.b Perform compilation - - - - - - - - - - - - - - - - - - - - - - - - - - # Save compiler exit code in $OK # # Portland Group Inc FORTRAN on Redhad Linux -------------------------------- # 2.b.1 Build options and determine compiler name # compilation options opt="-c -Mlist -module $path_m" ; fast="yes" # opt="-c -Mlist -fast -module $path_m" # opt="-c -O0 -g -traceback -Mbounds -Mchkfpstk -Mchkptr -Mchkstk -Mlist -module $path_m" ; fast= if [ "$name" != 'ww3_gspl' ] then opt="$opt -byteswapio" fi if [ "$fast" = 'yes' ] then if [ "$name" = 'w3iogrmd' ] || [ "$name" = 'w3iogomd' ] then opt="-O3 $opt" else opt="-fast $opt" fi else opt="-O3 $opt" fi # mpi implementation if [ "$mpi_mod" = 'yes' ] then comp=mpif90 else comp=pgf90 fi # open mpi implementation if [ "$omp_mod" = 'yes' ] then opt="$opt -mp" fi # oasis coupler include dir if [ "$oasis_mod" = 'yes' ] then opt="$opt -I$OASISDIR/build/lib/psmile.MPI1" fi # netcdf include dir 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 # ftn include dir 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 --------------------------------------------------------------- #