Add files via upload

code/build

@@ -0,0 +1,153 @@
+#!/usr/bin/perl -w
+
+# $Id: build,v 1.1 2009/06/09 21:51:53 daven Exp $
+
+=head1 NAME
+
+BUILD
+
+=head1 SYNOPSIS
+
+BUILD is a Perl script which compiles the GEOS-CHEM code
+for a given combination of platform and compiler.
+
+=head1 REQUIRES
+
+Perl 5.003
+
+=head1 EXPORTS
+
+none
+
+=head1 DESCRIPTION
+
+build
+Methods are provided for compiling the GEOS-CHEM model
+
+=head1 METHODS
+
+getMakeFile : Prints a separator line to stdout
+main        : Driver program
+
+=head1 MODIFICATION HISTORY
+
+bmy, 04 Dec 2002 - INITIAL VERSION
+bmy, 03 Nov 2005 - Modified for Intel "ifort" compiler
+bmy, 29 Nov 2005 - Now use "and" instead of double ampersands
+
+=head1 AUTHOR
+
+Bob Yantosca (bmy@io.harvard.edu)
+
+=head1 SEE ALSO
+
+trun, bmrun
+
+=head1 COPYRIGHT
+
+Copyright 2002-2005, Bob Yantosca.  All rights reserved.
+
+=cut
+
+require 5.003;      # need this version of Perl or newer
+use English;        # English language module
+use Carp;           # detailed error msgs
+use strict;         # forces implicit variable declarations
+
+#------------------------------------------------------------------------------
+
+sub getMakeFile() {
+
+  #=========================================================================
+  # Subroutine getMakeFile examines the "define.h" file in order to
+  # determine the name of the makefile which will be used to compile
+  # GEOS-CHEM for the given platform and compiler.  (bmy, 12/4/03, 11/3/05)
+  #
+  # Calling Sequence:
+  # ------------------------------------------------------------------------
+  # $makeFile = getMakeFile();
+  #
+  # NOTES:
+  # (1 ) Now searches for Intel "ifort" compiler makefile "Makefile.ifort
+  #       if LINUX_IFORT switch is #defined. (bmy, 11/3/05)
+  #=========================================================================
+
+  # Local variables
+  my $line  = "";
+  my @lines = "";
+
+  # Read "define.h" into a string array
+  open( INPUT, "define.h" ) or croak "getDefaults: Can't open define.h";
+  chomp( @lines = <INPUT> );
+  close( INPUT );
+
+  # Process each line individually
+  foreach $line ( @lines ) {
+
+    # Determine makefile name from the defined C-preprocessor switch
+    if ( $line =~ "#define" and !( $line =~ "!#define" ) ) {
+      if    ( $line =~ "COMPAQ"      ) { return( "Makefile.compaq" ); }
+      elsif ( $line =~ "IBM"         ) { return( "Makefile.ibm"    ); }
+      elsif ( $line =~ "LINUX_PGI"   ) { return( "Makefile.pgi"    ); }
+      elsif ( $line =~ "LINUX_IFC"   ) { return( "Makefile.ifc"    ); }
+      elsif ( $line =~ "LINUX_EFC"   ) { return( "Makefile.efc"    ); }
+      elsif ( $line =~ "LINUX_IFORT" ) { return( "Makefile.ifort"  ); }
+      elsif ( $line =~ "LINUX"       ) { return( "Makefile.linux"  ); }
+      elsif ( $line =~ 'SGI'         ) { return( "Makefile.sgi"    ); }
+      elsif ( $line =~ 'SPARC'       ) { return( "Makefile.sparc"  ); }
+    }
+  }
+
+  # Otherwise return failure
+  return( '' );
+}
+
+#------------------------------------------------------------------------------
+
+sub main() {
+
+  #=========================================================================
+  # Perl script "build" compiles GEOS-CHEM with the correct makefile for
+  # a given operating system and compiler.  Examines the "define.h" file
+  # in order to determine the makefile name. (bmy, 12/4/03)
+  #
+  # Arguments as Input:
+  # ------------------------------------------------------------------------
+  # (1 ) $target : Name of the makefile target to build (default is "geos")
+  #
+  # NOTES:
+  # (1 ) Need to set system variables for Intel IFORT compiler (bmy, 11/3/05)
+  # (2 ) Now use "and" to avoid conflict w/ the sub mit command (bmy, 11/18/05)
+  #==========================================================================
+
+  # Local variables
+  my $makeFile = "";
+  my $target   = "geos";
+
+   # If an argument has been passed, then redefine $target
+  if ( scalar( @ARGV ) > 0 ) { $target = $ARGV[0]; }
+
+  # Get the makefile name by examining "define.h"
+  $makeFile = getMakeFile();
+
+  # Compile GEOS-CHEM w/ the right makefile
+  if ( length( $makeFile ) > 0 ) {
+    print "Compiling $target in $makeFile\n";
+
+    # Need to set system variables for Intel IFORT compiler (bmy, 11/3/05)
+    #if ( $makeFile =~ "ifort" and !( $target =~ "clean" ) )
+    #   { qx( source /usr/local/bin/ifortvars.sh; make $target -f $makeFile ); }
+    #else
+    #   { qx( make $target -f $makeFile ); }
+    qx( make $target -f $makeFile );
+
+  } else { die "Could not find makefile name!\n" }
+}
+
+#------------------------------------------------------------------------------
+
+# Execute MAIN program
+main();
+
+# Exit normally
+exit(0);