diff options
| author | rhaas <rhaas@ac85fae7-cede-4708-beff-ae01c7fa1c26> | 2013-04-10 17:54:27 +0000 |
|---|---|---|
| committer | rhaas <rhaas@ac85fae7-cede-4708-beff-ae01c7fa1c26> | 2013-04-10 17:54:27 +0000 |
| commit | 6670e935f9a18108f5a9a16a69de3ccaf8996dbe (patch) | |
| tree | f704b2b2a6f3fdb5a5b24d854103090f4d04b0e9 | |
| parent | dbf5b7f2ee9d7a8dec2301cb8ecd554e552831f7 (diff) | |
GRHydro: revert meaning of cyl_r_inner and cyl_r_outer so that they now
make sense
From: Roland Haas <rhaas@caltech.edu>
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/GRHydro_InitData/trunk@210 ac85fae7-cede-4708-beff-ae01c7fa1c26
| -rw-r--r-- | param.ccl | 8 | ||||
| -rw-r--r-- | src/GRHydro_CylindricalExplosionM.F90 | 32 |
2 files changed, 20 insertions, 20 deletions
@@ -284,22 +284,22 @@ CCTK_REAL cyl_r_outer "Outer Radius" CCTK_REAL cyl_rho_inner "density in inner core" { (0:* :: "any positive number" -} 1.d-4 +} 1.d-2 CCTK_REAL cyl_press_inner "pressure in inner core" { (0:* :: "any positive number" -} 3.d-5 +} 1.d0 CCTK_REAL cyl_rho_outer "density in outer region" { (0:* :: "any positive number" -} 1.d-2 +} 1.d-4 CCTK_REAL cyl_press_outer "pressure in outer region" { (0:* :: "any positive number" -} 1.d0 +} 3.d-5 # For magnetic advected loop test: diff --git a/src/GRHydro_CylindricalExplosionM.F90 b/src/GRHydro_CylindricalExplosionM.F90 index d038c18..f6feeac 100644 --- a/src/GRHydro_CylindricalExplosionM.F90 +++ b/src/GRHydro_CylindricalExplosionM.F90 @@ -65,27 +65,27 @@ subroutine GRHydro_cylindricalexplosionM(CCTK_ARGUMENTS) if (.not. CCTK_EQUALS(initial_Bvec, "cylexp")) then call CCTK_WARN(1, "When using the cyclindrical explosion initial data, please also select 'cylexp' for initial_Bvec. I will proceed as if this was set") end if - + !!$Uses Bx_init, By_init and Bz_init to set magnetic field strength !!$Original tests had Bx_init = 0.1, 1.0 with By_init=Bz_init = 0 - + bvcxl = Bx_init bvcyl = By_init bvczl = Bz_init - -!!$Inner radius and outer radius (Komissarov's defaults) -! r_inner = 8.d-1 -! r_outer = 1.d0 - r_inner = cyl_r_inner - r_outer = cyl_r_outer - -!!$Inner values - rhol = cyl_rho_inner - pressl = cyl_press_inner - -!!$Outer values - rhor = cyl_rho_outer - pressr = cyl_press_outer + +!!$Inner radius and outer radius (Komissarov's defaults) +! r_inner = 8.d-1 +! r_outer = 1.d0 + r_inner = cyl_r_inner + r_outer = cyl_r_outer + +!!$Inner values + rhor = cyl_rho_inner + pressr = cyl_press_inner + +!!$Outer values + rhol = cyl_rho_outer + pressl = cyl_press_outer !!$Adiabatic index for test gam = gl_gamma |