[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