diff options
Diffstat (limited to 'src/GRHydro_Prim2ConAM.F90')
-rw-r--r-- | src/GRHydro_Prim2ConAM.F90 | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/GRHydro_Prim2ConAM.F90 b/src/GRHydro_Prim2ConAM.F90 index 35b2619..7bda654 100644 --- a/src/GRHydro_Prim2ConAM.F90 +++ b/src/GRHydro_Prim2ConAM.F90 @@ -438,7 +438,6 @@ subroutine Primitive2ConservativeCellsAM(CCTK_ARGUMENTS) DECLARE_CCTK_ARGUMENTS DECLARE_CCTK_PARAMETERS - CCTK_REAL :: xtemp(1) CCTK_INT :: i, j, k CCTK_REAL :: det CCTK_REAL :: maxtau0 @@ -631,7 +630,7 @@ subroutine prim2conpolytypeAM(handle, gxx, gxy, gxz, gyy, gyz, & CCTK_REAL :: gxx, gxy, gxz, gyy, gyz, gzz, det CCTK_REAL :: ddens, dsx, dsy, dsz, dtau, & drho, dvelx, dvely, dvelz, deps, dpress, dBvcx, dBvcy, dBvcz, & - w_tmp, w, vlowx, vlowy, vlowz, sqrtdet + w_tmp, w, vlowx, vlowy, vlowz CCTK_INT :: handle CCTK_REAL :: Bdotv,ab0,b2,blowx,blowy,blowz character(len=256) NaN_WarnLine |