diff options
| author | rhaas <rhaas@ac85fae7-cede-4708-beff-ae01c7fa1c26> | 2012-08-09 06:08:06 +0000 |
|---|---|---|
| committer | rhaas <rhaas@ac85fae7-cede-4708-beff-ae01c7fa1c26> | 2012-08-09 06:08:06 +0000 |
| commit | d2b532c48a0ec8bd2eaa27ab01945df853820c5b (patch) | |
| tree | 0aea8356549829580ee70bc08487a07a1a85f116 /src/GRHydro_CylindricalExplosionM.F90 | |
| parent | 2b88146519d4cbb97b68f6e5f0f358c48e9509b9 (diff) | |
Snapshot of ET GRHydro_InitData rev. 132 with a poloidal magnetic field routine
added.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/GRHydro_InitData/trunk@134 ac85fae7-cede-4708-beff-ae01c7fa1c26
Diffstat (limited to 'src/GRHydro_CylindricalExplosionM.F90')
| -rw-r--r-- | src/GRHydro_CylindricalExplosionM.F90 | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/src/GRHydro_CylindricalExplosionM.F90 b/src/GRHydro_CylindricalExplosionM.F90 index bc8ab61..61a8ab0 100644 --- a/src/GRHydro_CylindricalExplosionM.F90 +++ b/src/GRHydro_CylindricalExplosionM.F90 @@ -70,9 +70,11 @@ subroutine GRHydro_cylindricalexplosionM(CCTK_ARGUMENTS) !!$Adiabatic index for test gam = (4.d0/3.d0) -!!$Inner radius and outer radius - r_inner = 8.d-1 - r_outer = 1.d0 +!!$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 = 1.d-4 |