diff options
| author | rhaas <rhaas@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45> | 2012-07-05 05:36:48 +0000 |
|---|---|---|
| committer | rhaas <rhaas@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45> | 2012-07-05 05:36:48 +0000 |
| commit | b7fc70097d5d453b086792bcbc761e8d54e2b571 (patch) | |
| tree | 8266c1d07844fe7cf18abf375c359503cc6ec83b /src/GRHydro_UpdateMask.F90 | |
| parent | 916cec6dc45edf47ed6a634f174638ba697201d7 (diff) | |
GRHydro: remove superflous code, unused variables
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinEvolve/GRHydro/trunk@385 c83d129a-5a75-4d5a-9c4d-ed3a5855bf45
Diffstat (limited to 'src/GRHydro_UpdateMask.F90')
| -rw-r--r-- | src/GRHydro_UpdateMask.F90 | 20 |
1 files changed, 2 insertions, 18 deletions
diff --git a/src/GRHydro_UpdateMask.F90 b/src/GRHydro_UpdateMask.F90 index 87247e0..8a916b3 100644 --- a/src/GRHydro_UpdateMask.F90 +++ b/src/GRHydro_UpdateMask.F90 @@ -169,22 +169,6 @@ subroutine GRHydro_SetupMask(CCTK_ARGUMENTS) DECLARE_CCTK_ARGUMENTS DECLARE_CCTK_PARAMETERS - ! Initialize all rhs variables and the mask. - ! The former vars need to be initialized since there is - ! no rhs computation in CCTK_INITIAL or POSTINITIAL. - - densrhs = 0.0d0 - taurhs = 0.0d0 - srhs = 0.0d0 - - if (evolve_tracer .ne. 0) then - cons_tracerrhs = 0.0d0 - endif - - if (evolve_y_e .ne. 0) then - y_e_con_rhs = 0.0d0 - endif - atmosphere_mask = 0 atmosphere_mask_real = 0 @@ -259,7 +243,7 @@ subroutine GRHydro_AtmosphereReset(CCTK_ARGUMENTS) DECLARE_CCTK_PARAMETERS CCTK_INT :: i, j, k - CCTK_REAL :: det, psi4pt + CCTK_REAL :: det ! save memory when MP is not used @@ -369,7 +353,7 @@ subroutine GRHydro_InitialAtmosphereReset(CCTK_ARGUMENTS) DECLARE_CCTK_PARAMETERS CCTK_INT :: i, j, k - CCTK_REAL :: det, psi4pt + CCTK_REAL :: det CCTK_REAL :: rho_min CCTK_INT :: eos_handle |