[Commits] [svn:einsteintoolkit] GRHydro/trunk/src/ (Rev. 385)

[rhaas at tapir.caltech.edu]

User: rhaas
Date: 2012/07/05 12:36 AM

Modified:
 /trunk/src/
  GRHydro_UpdateMask.F90

Log:
 GRHydro: remove superflous code, unused variables

File Changes:

Directory: /trunk/src/
======================

File [modified]: GRHydro_UpdateMask.F90
Delta lines: +2 -18
===================================================================
--- trunk/src/GRHydro_UpdateMask.F90	2012-07-05 05:36:47 UTC (rev 384)
+++ trunk/src/GRHydro_UpdateMask.F90	2012-07-05 05:36:48 UTC (rev 385)
@@ -169,22 +169,6 @@
   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 @@
   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 @@
   DECLARE_CCTK_PARAMETERS
 
   CCTK_INT :: i, j, k
-  CCTK_REAL :: det, psi4pt
+  CCTK_REAL :: det
   CCTK_REAL :: rho_min
 
   CCTK_INT :: eos_handle