https://github.com/geodynamics/citcoms
Revision 94c4295a4d31d75d07bc34b3034359392639ca31 authored by Michael Gurnis on 13 March 2007, 00:56:07 UTC, committed by Michael Gurnis on 13 March 2007, 00:56:07 UTC
1 parent 14d3b40
Raw File
Tip revision: 94c4295a4d31d75d07bc34b3034359392639ca31 authored by Michael Gurnis on 13 March 2007, 00:56:07 UTC
Refactored the regional parts of the code so that the age grids are read in from the same code as are the velocity and material files. Moved the guts of Regional_lith_age_read_files.c to Regional_read_input_from_files.c. This nearly makes the structure of Full and Regional the same -- refactoring that Leif initiated last year
Tip revision: 94c4295
dxgeneralsurf.sh
#!/bin/sh
#
# ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
#
#<LicenseText>
#
# CitcomS.py by Eh Tan, Eun-seo Choi, and Pururav Thoutireddy.
# Copyright (C) 2002-2005, California Institute of Technology.
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
#
#</LicenseText>
#
# ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
#
# Create OpenDX .general file for combined Citcom surf data
#

if [ -z $1 ]; then
    echo "usage: " `basename $0` file1 [file2 ...]
    exit
fi


for i; do

    if [ ! -f $i ]; then
	echo file \'$1\' not exist
	exit
    fi

    echo processing $i ...
    output=$i.general
    grid=`head -n 1 $i | awk '{print $3, $2, $1}'`

    echo file = $i > $output
    echo grid = $grid >> $output
    echo format = ascii >> $output
    echo interleaving = field >> $output
    echo majority = row >> $output
    echo header = lines 1 >> $output
    echo field = locations, topography, heatflux, surf_velocity >> $output
    echo structure = 2-vector, scalar, scalar, 2-vector >> $output
    echo type = float, float, float, float >> $output
    echo >> $output
    echo end >> $output

done


# version
# $Id$

# End of file
back to top