Skip to main content

Browse the archive

Revision 46ad5e8400baa04f39223b810704c853773305b6 authored by Thorsten Becker on 08 August 2007, 05:58:48 UTC, committed by Thorsten Becker on 08 August 2007, 05:58:48 UTC 
- added functions rtp2xyz, calc_cbase_at_tp, and 
  convert_pvec_to_cvec for spherical to Cartesian vector 
  conversion to Pan_problem_functions.c

  Added "safe_malloc" to the same file because I didn't like the way
  Malloc1 uses int as arguments (64 bit issues).


- added support for gzipped ascii output into subdirectories
  of data_dir, option gzdir. To use, need to compile with
  USE_GZDIR and link with the -lz zlib libraries.
  
  Within gzdir output mode, selected by 

  output_format=gzdir
  
  user can define vtk I/O (gzdir_vtkio=1) to write Cartesian
  coordinates and velocities that are easy to combine to a single vtk
  file in a post-processing step.

  If gzlib_vtkio=0 the gzdir output option is meant to be identical to
  the original ascii output, but files are all gzipped on the fly, and
  the output that changes with each cycle is placed into
  subdirectories of data_dir/ called data_dir/cycles/
  
  For gzdir I/O, data_name is not used at all, all single output files
  are placed in the data_dir/ directory without prefix.
  

- added a new rheology option, PDEPV, for pseudo-plasticity and 
  added a corresponding description to the manual.

- Modified Drive_solver stderr output to show v.v, and not only dv.dv/v.v
1 parent 5d9b20c
Raw File
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