diff options
Diffstat (limited to 'src/GRHydro_CylindricalExplosionM.F90')
| -rw-r--r-- | src/GRHydro_CylindricalExplosionM.F90 | 32 |
1 files changed, 16 insertions, 16 deletions
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 |