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

[schnetter at cct.lsu.edu]

User: eschnett
Date: 2010/10/04 11:38 AM

Modified:
 /trunk/src/
  GRHydro_Prim2ConM.F90

Log:
 Correct inconsistent argument list in call to prim2conpolytypeM

File Changes:

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

File [modified]: GRHydro_Prim2ConM.F90
Delta lines: +7 -5
===================================================================
--- trunk/src/GRHydro_Prim2ConM.F90	2010-09-29 21:47:21 UTC (rev 158)
+++ trunk/src/GRHydro_Prim2ConM.F90	2010-10-04 16:38:06 UTC (rev 159)
@@ -287,17 +287,19 @@
              gyyl,gyzl,gzzl, &
              avg_detl,densminus(i,j,k),sxminus(i,j,k),&
              syminus(i,j,k),szminus(i,j,k),tauminus(i,j,k),&
-             Bvecxminus(i,j,k),Bvecyminus(i,j,k),Bveczminus(i,j,k),rhominus(i,j,k), &
+             Bvecxminus(i,j,k),Bvecyminus(i,j,k),Bveczminus(i,j,k),&
+             rhominus(i,j,k),&
              velxminus(i,j,k),velyminus(i,j,k),velzminus(i,j,k),&
              epsminus(i,j,k),pressminus(i,j,k),w_lorentzminus(i, j, k))
  
         call prim2conpolytypeM(GRHydro_eos_handle, gxxr,gxyr,gxzr,&
              gyyr,gyzr,gzzr, &
-             avg_detr, densplus(i,j,k),sxplus(i,j,k),&
-             syplus(i,j,k),szplus(i,j ,k),tauplus(i,j,k),&
+             avg_detr,densplus(i,j,k),sxplus(i,j,k),&
+             syplus(i,j,k),szplus(i,j,k),tauplus(i,j,k),&
              Bvecxplus(i,j,k),Bvecyplus(i,j,k),Bveczplus(i,j,k),&
-             rhoplus(i,j,k),epsplus(i,j,k),pressplus(i,j,k),&
-             w_lorentzplus(i,j,k)) 
+             rhoplus(i,j,k),&
+             velxplus(i,j,k),velyplus(i,j,k),velzplus(i,j,k),&
+             epsplus(i,j,k),pressplus(i,j,k),w_lorentzplus(i, j, k))
 
         if (densminus(i,j,k) .ne. densminus(i,j,k)) then
         !$OMP CRITICAL