diff options
| author | knarf <knarf@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45> | 2011-02-10 15:23:57 +0000 |
|---|---|---|
| committer | knarf <knarf@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45> | 2011-02-10 15:23:57 +0000 |
| commit | 292d02d83d2070dfb28939ac3b2afd3818c3ed40 (patch) | |
| tree | d4df7d4135cec23de1768ef01568e4e29ef5351b /src/GRHydro_Prim2Con.F90 | |
| parent | 046909af36b75046af33a269b2652403c73e775b (diff) | |
fix declaration of xtemp, which has to be an array of 1 according to the function declaration of prim2con_hot
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinEvolve/GRHydro/trunk@217 c83d129a-5a75-4d5a-9c4d-ed3a5855bf45
Diffstat (limited to 'src/GRHydro_Prim2Con.F90')
| -rw-r--r-- | src/GRHydro_Prim2Con.F90 | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/GRHydro_Prim2Con.F90 b/src/GRHydro_Prim2Con.F90 index 0533e27..24d70ac 100644 --- a/src/GRHydro_Prim2Con.F90 +++ b/src/GRHydro_Prim2Con.F90 @@ -46,7 +46,7 @@ subroutine primitive2conservative(CCTK_ARGUMENTS) integer :: i, j, k CCTK_REAL :: gxxl,gxyl,gxzl,gyyl,gyzl,gzzl,avg_detl,& gxxr,gxyr,gxzr,gyyr,gyzr,gzzr,avg_detr - CCTK_REAL :: xtemp + CCTK_REAL :: xtemp(1) if(evolve_temper.ne.1) then !$OMP PARALLEL DO PRIVATE(i, j, avg_detl, avg_detr,& @@ -121,7 +121,7 @@ subroutine primitive2conservative(CCTK_ARGUMENTS) ! variable 'temperature' in prim2con at the interfaces ! We will instead use an average temperature as an initial ! guess. - xtemp = 0.5d0*(temperature(i,j,k) + & + xtemp(1) = 0.5d0*(temperature(i,j,k) + & temperature(i-xoffset,j-yoffset,k-zoffset)) call prim2con_hot(GRHydro_eos_handle, GRHydro_reflevel,& i,j,k,x(i,j,k),y(i,j,k),z(i,j,k),gxxl,gxyl,gxzl,gyyl,& @@ -138,7 +138,7 @@ subroutine primitive2conservative(CCTK_ARGUMENTS) ! variable 'temperature' in prim2con at the interfaces ! We will instead use an average temperature as an initial ! guess. - xtemp = 0.5d0*(temperature(i,j,k) + & + xtemp(1) = 0.5d0*(temperature(i,j,k) + & temperature(i+xoffset,j+yoffset,k+zoffset)) call prim2con_hot(GRHydro_eos_handle, GRHydro_reflevel, & i,j,k,x(i,j,k),y(i,j,k),z(i,j,k),gxxr,gxyr,gxzr,& |