diff options
author | cott <cott@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45> | 2010-12-18 12:00:43 +0000 |
---|---|---|
committer | cott <cott@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45> | 2010-12-18 12:00:43 +0000 |
commit | fb77adb61072dcb5269afeb86007f57a6f9ecbd6 (patch) | |
tree | 300027b907790e661964932ad82bfc6829557aa8 /src/GRHydro_Con2Prim.F90 | |
parent | 4a898f83d4bc26c98893bd498924ea78b40351a1 (diff) |
* remove unused variables
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinEvolve/GRHydro/trunk@191 c83d129a-5a75-4d5a-9c4d-ed3a5855bf45
Diffstat (limited to 'src/GRHydro_Con2Prim.F90')
-rw-r--r-- | src/GRHydro_Con2Prim.F90 | 16 |
1 files changed, 7 insertions, 9 deletions
diff --git a/src/GRHydro_Con2Prim.F90 b/src/GRHydro_Con2Prim.F90 index 3eea7e2..b629b32 100644 --- a/src/GRHydro_Con2Prim.F90 +++ b/src/GRHydro_Con2Prim.F90 @@ -50,7 +50,7 @@ subroutine Conservative2Primitive(CCTK_ARGUMENTS) 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 @@ subroutine Conservative2Primitive(CCTK_ARGUMENTS) 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 @@ subroutine Conservative2PrimitiveBounds(CCTK_ARGUMENTS) 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 @@ subroutine Conservative2PrimitivePolytype(CCTK_ARGUMENTS) 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 @@ subroutine Conservative2PrimitivePolytype(CCTK_ARGUMENTS) !!$ 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 @@ subroutine Con2PrimBoundsPolytype(CCTK_ARGUMENTS) 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 @@ subroutine Con2PrimBoundsTracer(CCTK_ARGUMENTS) 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 @@ subroutine Conservative2PrimitiveGeneral(CCTK_ARGUMENTS) 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 @@ subroutine Con2PrimPolytypeGeneral(CCTK_ARGUMENTS) DECLARE_CCTK_FUNCTIONS CCTK_INT :: i, j, k, itracer, nx, ny, nz - CCTK_REAL :: psi4pt character(len=100) warnline CCTK_INT :: count, ierr |