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