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

[cott at tapir.caltech.edu]

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