https://github.com/geodynamics/citcoms
Revision 2df8b9d517aca1720fe038f996be222cce5c7095 authored by thwbecker on 04 January 2021, 18:59:01 UTC, committed by thwbecker on 04 January 2021, 18:59:01 UTC
1 parent 870cb39
Raw File
Tip revision: 2df8b9d517aca1720fe038f996be222cce5c7095 authored by thwbecker on 04 January 2021, 18:59:01 UTC
Added an option to iterate on the viscosity prefactors for the first timestep such that layer averages match them (useful for instantaneous circulation computations with powerlaw rheologies, for example).
Tip revision: 2df8b9d
CitcomSViscosity.net.in
//
// time: Fri Jun 25 10:59:37 2004
//
// version: 3.2.0 (format), 4.3.0 (DX)
//
//
//
// macro reference (direct): RTFtoXYZ @dxmacrodir@/RTFtoXYZ.net
include "RTFtoXYZ.net"
//
// Begin MDF
// MODULE CitcomSViscosity
// CATEGORY Macros
// DESCRIPTION new macro
// INPUT input_1; group or series or value list or string list; (no default);  
// OUTPUT output_1; field;  
// End MDF
// workspace: width = 500, height = 400
// layout: snap = 0, width = 50, height = 50, align = NN
//
macro CitcomSViscosity(
 input_1
) -> (
 output_1
) {
    // 
    // node Input[1]: x = 0, y = 0, inputs = 0, label = Input
    // parameter: position = 1, name = 'input_1', value = ' ', descriptive = 0, description = ' ', required = 0, visible = 1
    //
CitcomSViscosity_Input_1_out_1 = input_1;
    // 
    // node Select[1]: x = 14, y = 80, inputs = 3, label = Select
    // input[2]: defaulting = 0, visible = 1, type = 32, value = "viscosity"
    //
CitcomSViscosity_Select_1_out_1 = 
    Select(
    CitcomSViscosity_Input_1_out_1,
    "viscosity",
    NULL
    ) [instance: 1, cache: 1];
    // 
    // node RTFtoXYZ[1]: x = 0, y = 221, inputs = 1, label = RTFtoXYZ
    //
CitcomSViscosity_RTFtoXYZ_1_out_1 = 
    RTFtoXYZ(
    CitcomSViscosity_Select_1_out_1
    ) [instance: 1, cache: 1];
    // 
    // node Output[1]: x = 0, y = 301, inputs = 1, label = Output
    // parameter: position = 1, name = 'output_1', value = ' ', descriptive = 0, description = ' ', required = 0, visible = 1
    //
output_1 = CitcomSViscosity_RTFtoXYZ_1_out_1;
// network: end of macro body
}
CitcomSViscosity_Input_1_out_1 = NULL;
CitcomSViscosity_Select_1_out_1 = NULL;
CitcomSViscosity_RTFtoXYZ_1_out_1 = NULL;
back to top