User: cott Date: 2010/12/18 06:00 AM

Modified: /trunk/src/ GRHydro_Con2Prim.F90

Log: * remove unused variables

File Changes:

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

File [modified]: GRHydro_Con2Prim.F90 Delta lines: +7 -9 =================================================================== --- trunk/src/GRHydro_Con2Prim.F90 2010-12-17 21:30:18 UTC (rev 190) +++ trunk/src/GRHydro_Con2Prim.F90 2010-12-18 12:00:43 UTC (rev 191) @@ -50,7 +50,7 @@ DECLARE_CCTK_PARAMETERS

integer :: i, j, k, itracer, nx, ny, nz - CCTK_REAL :: uxx, uxy, uxz, uyy, uyz, uzz, det, psi4pt, pmin, epsmin + CCTK_REAL :: uxx, uxy, uxz, uyy, uyz, uzz, det, pmin, epsmin logical :: epsnegative character(len=100) warnline

@@ -91,7 +91,7 @@ GRHydro_rho_min,xeps,xtemp,xye,pmin,epsmin,keyerr,anyerr)

!$OMP PARALLEL DO PRIVATE(i,j,itracer,& - !$OMP uxx, uxy, uxz, uyy, uyz, uzz, det, psi4pt, epsnegative) + !$OMP uxx, uxy, uxz, uyy, uyz, uzz, det, epsnegative) do k = 1, nz do j = 1, ny do i = 1, nx @@ -805,7 +805,7 @@ CCTK_REAL :: uxxl, uxyl, uxzl, uyyl, uyzl, uzzl,& uxxr, uxyr, uxzr, uyyr, uyzr, uzzr, pmin, epsmin CCTK_REAL :: gxxl,gxyl,gxzl,gyyl,gyzl,gzzl,avg_detl,& - gxxr,gxyr,gxzr,gyyr,gyzr,gzzr,avg_detr,psi4r,psi4l + gxxr,gxyr,gxzr,gyyr,gyzr,gzzr,avg_detr logical :: epsnegative character(len=100) warnline

@@ -1020,7 +1020,7 @@ DECLARE_CCTK_PARAMETERS

integer :: i, j, k, itracer, nx, ny, nz - CCTK_REAL :: uxx, uxy, uxz, uyy, uyz, uzz, det, psi4pt + CCTK_REAL :: uxx, uxy, uxz, uyy, uyz, uzz, det

CCTK_INT :: type_bits, atmosphere CCTK_INT :: type2_bits @@ -1048,7 +1048,7 @@ !!$ do j = GRHydro_stencil + 1, ny - GRHydro_stencil !!$ do i = GRHydro_stencil + 1, nx - GRHydro_stencil !$OMP PARALLEL DO PRIVATE(i,j,itracer,& - !$OMP uxx, uxy, uxz, uyy, uyz, uzz, det, psi4pt) + !$OMP uxx, uxy, uxz, uyy, uyz, uzz, det) do k = 1, nz do j = 1, ny do i = 1, nx @@ -1385,7 +1385,7 @@ CCTK_REAL :: uxxl, uxyl, uxzl, uyyl, uyzl, uzzl,& uxxr, uxyr, uxzr, uyyr, uyzr, uzzr CCTK_REAL :: gxxl,gxyl,gxzl,gyyl,gyzl,gzzl,avg_detl,& - gxxr,gxyr,gxzr,gyyr,gyzr,gzzr,avg_detr,psi4r,psi4l + gxxr,gxyr,gxzr,gyyr,gyzr,gzzr,avg_detr

CCTK_INT :: type_bits, atmosphere CCTK_INT :: type2_bits @@ -1482,7 +1482,7 @@ CCTK_REAL :: uxxl, uxyl, uxzl, uyyl, uyzl, uzzl,& uxxr, uxyr, uxzr, uyyr, uyzr, uzzr CCTK_REAL :: gxxl,gxyl,gxzl,gyyl,gyzl,gzzl,avg_detl,& - gxxr,gxyr,gxzr,gyyr,gyzr,gzzr,avg_detr,psi4r,psi4l + gxxr,gxyr,gxzr,gyyr,gyzr,gzzr,avg_detr

nx = cctk_lsh(1) ny = cctk_lsh(2) @@ -1643,7 +1643,6 @@ DECLARE_CCTK_FUNCTIONS

CCTK_INT :: i, j, k, itracer, nx, ny, nz, ierr - CCTK_REAL :: psi4pt character(len=100) warnline

integer :: maxerrloc(3) @@ -2143,7 +2142,6 @@ DECLARE_CCTK_FUNCTIONS

CCTK_INT :: i, j, k, itracer, nx, ny, nz - CCTK_REAL :: psi4pt character(len=100) warnline

CCTK_INT :: count, ierr