diff options
| author | rhaas <rhaas@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45> | 2012-11-09 01:53:19 +0000 |
|---|---|---|
| committer | rhaas <rhaas@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45> | 2012-11-09 01:53:19 +0000 |
| commit | 8f20160a840373295253d3b1a39d4fd91e78156d (patch) | |
| tree | 226f834fb971af6a10b6a2921aeff589b49c1078 /src/GRHydro_Minima.F90 | |
| parent | 1b3ed3ef46cd5ffeea2f6f9f9ccfb54d973c0982 (diff) | |
GRHydro: Introduce GRHydro_tau_min = 10^-10 max(tau(t=0)) to be used in tau rescaling in con2prim failures.
From: Bruno Coutinho Mundim <bcmsma@astro.rit.edu>
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinEvolve/GRHydro/trunk@437 c83d129a-5a75-4d5a-9c4d-ed3a5855bf45
Diffstat (limited to 'src/GRHydro_Minima.F90')
| -rw-r--r-- | src/GRHydro_Minima.F90 | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/GRHydro_Minima.F90 b/src/GRHydro_Minima.F90 index d3e2897..5f870cd 100644 --- a/src/GRHydro_Minima.F90 +++ b/src/GRHydro_Minima.F90 @@ -46,6 +46,8 @@ subroutine GRHydro_Rho_Minima_Setup(CCTK_ARGUMENTS) if (initial_atmosphere_factor > 0.0) GRHydro_rho_min = GRHydro_rho_min * initial_atmosphere_factor + GRHydro_tau_min = tau_rel_min + return end subroutine GRHydro_Rho_Minima_Setup |