#!/usr/bin/perl -w
#-----------------------
# Set memory parameters (pjh, 8/26/2010) may not need to be exactly these; modify threads as needed
#     qx(limit stacksize unlimited);
#     qx(setenv OMP_NUM_THREADS 8);
#     qx(setenv KMP_STACKSIZE 100m);
#---------------------------------------------------------------------------
# Make output files readable by everyone
umask(022);
#---------------------------------------------------------------------------
# Create local shadow variables
my $sCodeDir = qq(/home/disk/p/mzatko/Desktop/GEOS-Chem_zans/Code.v9-01-01);
my $sRunDir  = qq(/home/disk/p/mzatko/Desktop/GEOS-Chem_zans/runs_v9_01_01);
my $sLog     = qq(/home/disk/p/mzatko/Desktop/GEOS-Chem_zans/runs_v9_01_01/log);
#---------------------------------------------------------------------------
# Timestamp start of run
qx(echo '===> Run began at' `date` >> $sLog); 
#---------------------------------------------------------------------------
# Change to the run directory
chdir( qq($sRunDir) ) or die( qq(Cannot cd to $sRunDir) );
if ( $? != 0 ) {
qx(echo 'ERROR: Cannot change to run directory!' >> $sLog );    
exit(1);}
#---------------------------------------------------------------------------
# Run the GEOS-CHEM code
qx(time geos >> $sLog );
if ( $? != 0 ) {
qx(echo 'ERROR running GEOS-CHEM!' >> $sLog );    
exit(1);}
#---------------------------------------------------------------------------
# Rename the binary punch file
qx( mv -f ctm.bpch ctm.bpch.v9-01-01 );                    
#---------------------------------------------------------------------------
# Timestamp end of run
qx(echo '===> Run ended at' `date` >> $sLog);
#---------------------------------------------------------------------------
# Exit normally
exit(0);