[cig-commits] r16204 - mc/3D/CitcomS/trunk/lib
becker at geodynamics.org
becker at geodynamics.org
Mon Feb 1 11:43:36 PST 2010
Author: becker
Date: 2010-02-01 11:43:36 -0800 (Mon, 01 Feb 2010)
New Revision: 16204
Modified:
mc/3D/CitcomS/trunk/lib/Viscosity_structures.c
mc/3D/CitcomS/trunk/lib/viscosity_descriptions.h
Log:
Changed internal variable name for use_se_smoothing,
as per Eh's suggestion.
Modified: mc/3D/CitcomS/trunk/lib/Viscosity_structures.c
===================================================================
--- mc/3D/CitcomS/trunk/lib/Viscosity_structures.c 2010-02-01 17:56:47 UTC (rev 16203)
+++ mc/3D/CitcomS/trunk/lib/Viscosity_structures.c 2010-02-01 19:43:36 UTC (rev 16204)
@@ -146,7 +146,7 @@
input_float("lv_channel_thickness",&(E->viscosity.lv_channel_thickness),"0.0047",m);
input_float("lv_reduction",&(E->viscosity.lv_reduction),"0.5",m);
- input_boolean("use_ne_visc_smooth",&(E->viscosity.use_ne_visc_smooth),"off",m);
+ input_boolean("use_ne_visc_smooth",&(E->viscosity.SMOOTH),"off",m);
input_boolean("VMAX",&(E->viscosity.MAX),"off",m);
if (E->viscosity.MAX)
@@ -294,7 +294,7 @@
/* interpolate from gauss quadrature points to node points for output */
visc_from_gint_to_nodes(E,evisc,visc,E->mesh.levmax);
- if(E->viscosity.use_ne_visc_smooth){ /* go the other way, for
+ if(E->viscosity.SMOOTH){ /* go the other way, for
smoothing */
visc_from_nodes_to_gint(E,visc,evisc,E->mesh.levmax);
}
Modified: mc/3D/CitcomS/trunk/lib/viscosity_descriptions.h
===================================================================
--- mc/3D/CitcomS/trunk/lib/viscosity_descriptions.h 2010-02-01 17:56:47 UTC (rev 16203)
+++ mc/3D/CitcomS/trunk/lib/viscosity_descriptions.h 2010-02-01 19:43:36 UTC (rev 16204)
@@ -51,7 +51,6 @@
float zlith;
float zbase_layer[CITCOM_MAX_VISC_LAYER]; /* new */
- int use_ne_visc_smooth;
/* low viscosity channel and wedge stuff */
int channel;
More information about the CIG-COMMITS
mailing list