[cig-commits] [commit] master: Update solidus.cc (f1b6231)

cig_noreply at geodynamics.org cig_noreply at geodynamics.org
Tue May 20 12:19:57 PDT 2014


Repository : https://github.com/geodynamics/aspect

On branch  : master
Link       : https://github.com/geodynamics/aspect/compare/a21aaa79d75b89a3d50d5c865e7dc51d309da9b9...b2eaff9e459f8351633e8b4b43c1284c90373873

>---------------------------------------------------------------

commit f1b623146818b33c06a2679746ff332c06ba6c74
Author: SiqiZhang <SiqiZhang at users.noreply.github.com>
Date:   Fri May 16 11:30:52 2014 -0500

    Update solidus.cc


>---------------------------------------------------------------

f1b623146818b33c06a2679746ff332c06ba6c74
 source/initial_conditions/solidus.cc | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/source/initial_conditions/solidus.cc b/source/initial_conditions/solidus.cc
index 89c6ef0..81f613d 100644
--- a/source/initial_conditions/solidus.cc
+++ b/source/initial_conditions/solidus.cc
@@ -103,7 +103,7 @@ namespace aspect
         if(dim==3)
             Phi=atan2(position(0),position(2));
         else
-            Phi=M_PI;
+            Phi=0.;
         double T_solidus,T_perturbation;
         double litho_thick_theta;
         double Depth=this->geometry_model->depth(position);
@@ -124,7 +124,7 @@ namespace aspect
         else
             T_solidus=Solidus_curve.T(0,sqrt(position.square()))+deltaT;
 
-        T_perturbation=Depth/( this->geometry_model->maximal_depth() )*Magnitude_T*sin(n*Theta)*sin(n*Phi);
+        T_perturbation=Depth/( this->geometry_model->maximal_depth() )*Magnitude_T*sin(n*Theta)*cos(n*Phi);
         return T_solidus+T_perturbation;
     }
 



More information about the CIG-COMMITS mailing list