diff options
author | bmundim <bmundim@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45> | 2010-12-31 18:54:31 +0000 |
---|---|---|
committer | bmundim <bmundim@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45> | 2010-12-31 18:54:31 +0000 |
commit | 73d4c00c79692336f19aeb09fc948681aac421f7 (patch) | |
tree | 58ed66c3f936468517df79cf65749e0c7f4bc254 /src/GRHydro_TmunuM.F90 | |
parent | 4d03a2ddb4348a2e9caf153a37ac109956dba7f1 (diff) |
RIT MHD development:
Revert previous commit changes to schedule.ccl
Merge MHD and GRHydro routines:
Boundaries, CalcUpdate, PPM, Reconstruct(poly), RegisterGZ,
RegisterVars
Solve a few race conditions arising in the "magnetic" routines.
This is still being tested, since it passes tests with intel
compilers but fails for gnu ones.
Alias function GRHydro_Con2PrimM_pt for C2P2CM test.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinEvolve/GRHydro/trunk@202 c83d129a-5a75-4d5a-9c4d-ed3a5855bf45
Diffstat (limited to 'src/GRHydro_TmunuM.F90')
-rw-r--r-- | src/GRHydro_TmunuM.F90 | 15 |
1 files changed, 8 insertions, 7 deletions
diff --git a/src/GRHydro_TmunuM.F90 b/src/GRHydro_TmunuM.F90 index 5464e45..6315a44 100644 --- a/src/GRHydro_TmunuM.F90 +++ b/src/GRHydro_TmunuM.F90 @@ -74,16 +74,17 @@ DECLARE_CCTK_ARGUMENTS - CCTK_REAL velxlow, velylow, velzlow - CCTK_REAL betaxlow, betaylow, betazlow, beta2 - CCTK_REAL Bvecxlow,Bvecylow,Bveczlow - CCTK_REAL bdotv,b2,bxlow,bylow,bzlow,btlow,dum - CCTK_REAL utlow,rhohstarw2,pstar - CCTK_REAL bdotbeta,vdotbeta - CCTK_INT i,j,k + CCTK_REAL :: velxlow, velylow, velzlow + CCTK_REAL :: betaxlow, betaylow, betazlow, beta2 + CCTK_REAL :: Bvecxlow,Bvecylow,Bveczlow + CCTK_REAL :: bdotv,b2,bxlow,bylow,bzlow,btlow,dum + CCTK_REAL :: utlow,rhohstarw2,pstar + CCTK_REAL :: bdotbeta,vdotbeta + CCTK_INT :: i,j,k !$OMP PARALLEL DO PRIVATE(i,j,velxlow, velylow, velzlow,& + !$OMP Bvecxlow,Bvecylow,Bveczlow, bdotv,dum,b2,bxlow,bylow,bzlow,& !$OMP betaxlow, betaylow, betazlow, beta2, bdotbeta,vdotbeta,utlow, btlow,& !$OMP rhohstarw2,pstar) |