Revision db34189a4cc8afa725438397e42cb391338a2f06 authored by Leif Strand on 27 July 2005, 09:06 UTC, committed by Leif Strand on 27 July 2005, 09:06 UTC
1 parent bdc080d
Raw File
Tip revision: db34189a4cc8afa725438397e42cb391338a2f06 authored by Leif Strand on 27 July 2005, 09:06 UTC
Merged changes fron trunk: "[...] uniprocessor examples work again [...]".
Tip revision: db34189
 *                              CitcomS
 *                 ---------------------------------
 *                              Authors:
 *           Louis Moresi, Shijie Zhong, Lijie Han, Eh Tan,
 *           Clint Conrad, Michael Gurnis, and Eun-seo Choi
 *          (c) California Institute of Technology 1994-2005
 *        By downloading and/or installing this software you have
 *       agreed to the bundled with this software.
 *             Free for non-commercial academic research ONLY.
 *      This program is distributed WITHOUT ANY WARRANTY whatsoever.
 *  Copyright June 2005, by the California Institute of Technology.
 *  ALL RIGHTS RESERVED. United States Government Sponsorship Acknowledged.
 *  Any commercial use must be negotiated with the Office of Technology
 *  Transfer at the California Institute of Technology. This software
 *  may be subject to U.S. export control laws and regulations. By
 *  accepting this software, the user agrees to comply with all
 *  applicable U.S. export laws and regulations, including the
 *  International Traffic and Arms Regulations, 22 C.F.R. 120-130 and
 *  the Export Administration Regulations, 15 C.F.R. 730-744. User has
 *  the responsibility to obtain export licenses, or other export
 *  authority as may be required before exporting such information to
 *  foreign countries or providing access to foreign nationals.  In no
 *  event shall the California Institute of Technology be liable to any
 *  party for direct, indirect, special, incidental or consequential
 *  damages, including lost profits, arising out of the use of this
 *  software and its documentation, even if the California Institute of
 *  Technology has been advised of the possibility of such damage.
 *  The California Institute of Technology specifically disclaims any
 *  warranties, including the implied warranties or merchantability and
 *  fitness for a particular purpose. The software and documentation
 *  provided hereunder is on an "as is" basis, and the California
 *  Institute of Technology has no obligations to provide maintenance,
 *  support, updates, enhancements or modifications.
/* in this file define the contents of the VISC_OPT data structure
   which is used to store information used to create predefined 
   viscosity fields, those determined from prior input, those
   related to temperature/pressure/stress/anything else. */

struct VISC_OPT {
    void (* update_viscosity)();
    int update_allowed;		/* determines whether visc field can evolve */
    int EQUIVDD;			/* Whatever the structure, average in the end */
    int equivddopt;
    int proflocx;			/* use depth dependence from given x,y location */
    int proflocy;
    int SMOOTH;
    int smooth_cycles;

    char STRUCTURE[20];		/* which option to determine viscosity field, one of .... */
    int FROM_SYSTEM;
    int FROM_FILE;
    int FROM_SPECS;
				/* System ... */
    int RHEOL;			/* 1,2 */
    int rheol_layers;
    int num_mat;

    int ncmb;
    int nlm;
    int n410;
    int nlith;
    float zcmb;
    float zlm;
    float z410;
    float zlith;

    int FREEZE;
    float freeze_thresh;
    float freeze_value;

    int MAX;
    float max_value;
    int MIN;
    float min_value;

    int SDEPV;
    float sdepv_misfit;
    int sdepv_normalize;
    float sdepv_expt[40];
    float sdepv_trns[40];

    int TDEPV;
    int TDEPV_AVE;
    float N0[40];
    float E[40],T0[40];
    float T[40],Z[40];

    int weak_blobs;
    float weak_blobx[40];
    float weak_bloby[40];
    float weak_blobz[40];
    float weak_blobwidth[40];
    float weak_blobmag[40];
    int weak_zones;
    float weak_zonex1[40];
    float weak_zoney1[40];
    float weak_zonez1[40];
    float weak_zonex2[40];
    float weak_zoney2[40];
    float weak_zonez2[40];
    float weak_zonewidth[40];
    float weak_zonemag[40];
    int guess;
    char old_file[100];
				/* Specification info */
				/* Prespecified viscosity parameters */
    char VISC_OPT[20];

    int layers;			/* number of layers with properties .... */
    float layer_depth[40];
    float layer_visc[40];

    int SLABLVZ;			/* slab structure imposed on top of 3 layer structure */
    int slvzd1,slvzd2,slvzd3;	        /* layer thicknesses (nodes) */
    int slvzD1,slvzD2;		        /* slab posn & length */
    float slvzn1,slvzn2,slvzn3,slvzN;   /* viscosities */

    int COSX;
    float cosx_epsilon;
    float cosx_k;
    int cosx_exp;
    int EXPX;
    float expx_epsilon;

    int RESDEPV;
    float RESeta0[40];

    int CHEMDEPV;
    float CH0[40];
    float CHEMeta0[40];
} viscosity;
back to top