[cig-commits] r14836 - mc/3D/CitcomS/trunk/lib

[tan2 at geodynamics.org]

Author: tan2
Date: 2009-05-01 15:15:05 -0700 (Fri, 01 May 2009)
New Revision: 14836

Modified:
   mc/3D/CitcomS/trunk/lib/Drive_solvers.c
Log:
Removing angular momentum in pseudo free surface case

Modified: mc/3D/CitcomS/trunk/lib/Drive_solvers.c
===================================================================
--- mc/3D/CitcomS/trunk/lib/Drive_solvers.c	2009-05-01 22:14:29 UTC (rev 14835)
+++ mc/3D/CitcomS/trunk/lib/Drive_solvers.c	2009-05-01 22:15:05 UTC (rev 14836)
@@ -263,8 +263,10 @@
   }
 
   /* remove the rigid rotation component from the velocity solution */
-  if(E->sphere.caps == 12 && E->control.remove_rigid_rotation)
+  if((E->sphere.caps == 12) &&
+     (E->control.remove_rigid_rotation || E->control.remove_angular_momentum)) {
       remove_rigid_rot(E);
+  }
 
   get_STD_freesurf(E,E->slice.freesurf);