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