[cig-commits] r6947 - mc/3D/CitcomCU/branches/inflow-bcs/src

[tan2 at geodynamics.org]

Author: tan2
Date: 2007-05-23 13:53:23 -0700 (Wed, 23 May 2007)
New Revision: 6947

Modified:
   mc/3D/CitcomCU/branches/inflow-bcs/src/Boundary_conditions.c
   mc/3D/CitcomCU/branches/inflow-bcs/src/prototypes.h
Log:
Added a function for user-defined tbc. Right now, this function adds a circular, high temperature region for the plume source

Modified: mc/3D/CitcomCU/branches/inflow-bcs/src/Boundary_conditions.c
===================================================================
--- mc/3D/CitcomCU/branches/inflow-bcs/src/Boundary_conditions.c	2007-05-23 20:30:18 UTC (rev 6946)
+++ mc/3D/CitcomCU/branches/inflow-bcs/src/Boundary_conditions.c	2007-05-23 20:53:23 UTC (rev 6947)
@@ -183,6 +183,8 @@
 		horizontal_bc(E, E->TB, E->mesh.noz, 3, E->control.TBCtopval, FBZ, 1, E->mesh.levmax);
 	}
 
+	/* User-defined boundary conditions */
+	custom_temperature_boundary_conditions(E);
 
 
 	if(E->mesh.periodic_x || E->mesh.periodic_y)
@@ -204,6 +206,14 @@
 	return;
 }
 
+
+void custom_temperature_boundary_conditions(struct All_variables *E)
+{
+	temperature_imposed_botm_bcs(E, E->TB, 2);
+	return;
+}
+
+
 /* ========================================== */
 
 void velocity_refl_vert_bc(struct All_variables *E)

Modified: mc/3D/CitcomCU/branches/inflow-bcs/src/prototypes.h
===================================================================
--- mc/3D/CitcomCU/branches/inflow-bcs/src/prototypes.h	2007-05-23 20:30:18 UTC (rev 6946)
+++ mc/3D/CitcomCU/branches/inflow-bcs/src/prototypes.h	2007-05-23 20:53:23 UTC (rev 6947)
@@ -13,6 +13,7 @@
 /* Boundary_conditions.c */
 void velocity_boundary_conditions(struct All_variables *E);
 void temperature_boundary_conditions(struct All_variables *E);
+void custom_temperature_boundary_conditions(struct All_variables *E);
 void velocity_refl_vert_bc(struct All_variables *E);
 void temperature_refl_vert_bc(struct All_variables *E);
 void temperature_imposed_botm_bcs(struct All_variables *E, float *BC[], int dirn);