[Commits] [svn:einsteintoolkit] GRHydro_InitData/trunk/ (Rev. 111)

[knarf at cct.lsu.edu]

User: knarf
Date: 2010/08/16 01:33 PM

Added:
 /trunk/
  interface.ccl.omni

Log:
 ccl using omni

File Changes:

Directory: /trunk/
==================

File [added]: interface.ccl.omni
Delta lines: +84 -0
===================================================================
--- trunk/interface.ccl.omni	                        (rev 0)
+++ trunk/interface.ccl.omni	2010-08-16 18:33:26 UTC (rev 111)
@@ -0,0 +1,84 @@
+# Interface definition for thorn GRHydro_Init_Data
+# $Header$
+
+implements: GRHydro_init_data
+inherits: GRHydro grid
+
+#USES INCLUDE: EOS_Base.inc
+USES INCLUDE: SpaceMask.h
+#USES INCLUDE: EOS_Base.h
+
+
+SUBROUTINE SpatialDet(CCTK_REAL IN gxx, CCTK_REAL IN gxy, \
+                      CCTK_REAL IN gxz, CCTK_REAL IN gyy, \
+		      CCTK_REAL IN gyz, CCTK_REAL IN gzz, \
+		      CCTK_REAL OUT det)
+
+
+SUBROUTINE Prim2ConPoly(CCTK_INT IN handle, \
+                        CCTK_REAL IN gxx, CCTK_REAL IN gxy, CCTK_REAL IN gxz, \
+			CCTK_REAL IN gyy, CCTK_REAL IN gyz, CCTK_REAL IN gzz, \
+			CCTK_REAL IN det, CCTK_REAL OUT dens, \
+			CCTK_REAL OUT sx, CCTK_REAL OUT sy, \
+			CCTK_REAL OUT sz, CCTK_REAL OUT tau, \
+			CCTK_REAL IN rho, CCTK_REAL IN velx, \
+			CCTK_REAL IN vely, \
+			CCTK_REAL IN velz, CCTK_REAL OUT epsilon, \
+			CCTK_REAL OUT press, CCTK_REAL OUT w_lorentz)
+
+
+SUBROUTINE Prim2ConGen(CCTK_INT IN handle, \
+                          CCTK_REAL IN gxx, CCTK_REAL IN gxy, \
+                          CCTK_REAL IN gxz, CCTK_REAL IN gyy, \
+                          CCTK_REAL IN gyz, CCTK_REAL IN gzz, \
+                          CCTK_REAL IN det, CCTK_REAL OUT dens, \
+                          CCTK_REAL OUT sx, CCTK_REAL OUT sy, \
+                          CCTK_REAL OUT sz, CCTK_REAL OUT tau, \
+                          CCTK_REAL IN rho, CCTK_REAL IN velx, \
+                          CCTK_REAL IN vely, \
+                          CCTK_REAL IN velz, CCTK_REAL IN epsilon, \
+                          CCTK_REAL OUT press, CCTK_REAL OUT w_lorentz)
+
+SUBROUTINE Con2PrimPoly(CCTK_INT IN handle, CCTK_REAL OUT dens, \
+                        CCTK_REAL OUT sx, CCTK_REAL OUT sy, \
+			CCTK_REAL OUT sz, CCTK_REAL OUT tau, \
+			CCTK_REAL OUT rho, CCTK_REAL OUT velx, \
+			CCTK_REAL OUT vely, CCTK_REAL OUT velz, \
+			CCTK_REAL OUT epsilon, CCTK_REAL OUT press, \
+			CCTK_REAL OUT w_lorentz, CCTK_REAL IN uxx, \
+			CCTK_REAL IN uxy, CCTK_REAL IN uxz, CCTK_REAL IN uyy, \
+			CCTK_REAL IN uyz, CCTK_REAL IN uzz, CCTK_REAL IN det, \
+			CCTK_REAL IN x, CCTK_REAL IN y, CCTK_REAL IN z, \
+			CCTK_REAL IN r, CCTK_REAL IN rho_min, \
+			CCTK_INT IN GRHydro_reflevel, CCTK_REAL IN GRHydro_C2P_failed)
+
+
+USES FUNCTION SpatialDet
+USES FUNCTION Prim2ConPoly
+USES FUNCTION Prim2ConGen
+USES FUNCTION Con2PrimPoly
+
+protected:
+
+CCTK_REAL simple_wave_grid_functions TYPE=GF TIMELEVELS=1 tags='checkpoint="no"'
+{
+  simple_tmp
+  c_s
+} "1D arrays for the simple-wave routine"
+
+CCTK_REAL simple_wave_scalars TYPE=scalar
+{
+     simple_rho_0
+     simple_eps_0
+} "values at v=0"
+
+CCTK_REAL simple_wave_output TYPE=GF TIMELEVELS=1 tags='checkpoint="no"'
+{
+  simple_rho
+  simple_eps
+#  simple_entropy
+} "output variables for the simple-wave routine"
+
+private:
+
+CCTK_INT GRHydro_init_data_reflevel type = SCALAR tags='checkpoint="no"' "Refinement level GRHydro is working on right now"