diff options
| author | rhaas <rhaas@ac85fae7-cede-4708-beff-ae01c7fa1c26> | 2012-11-09 01:59:09 +0000 |
|---|---|---|
| committer | rhaas <rhaas@ac85fae7-cede-4708-beff-ae01c7fa1c26> | 2012-11-09 01:59:09 +0000 |
| commit | a0d787cd49f3782f29b231ae26f51ed1d1c0642a (patch) | |
| tree | 7f82186d76692e21e15618f8263d82f0ff2ecbe5 /src/GRHydro_Bondi_new.F90 | |
| parent | 38d16ca397dc071be711cdabba836acb432423dd (diff) | |
GRHydro_InitData: port smoother velocity matching to mag. bondi routine.
From: Bruno Coutinho Mundim <bcmsma@astro.rit.edu>
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/GRHydro_InitData/trunk@179 ac85fae7-cede-4708-beff-ae01c7fa1c26
Diffstat (limited to 'src/GRHydro_Bondi_new.F90')
| -rw-r--r-- | src/GRHydro_Bondi_new.F90 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/GRHydro_Bondi_new.F90 b/src/GRHydro_Bondi_new.F90 index a0077c2..b31ba7c 100644 --- a/src/GRHydro_Bondi_new.F90 +++ b/src/GRHydro_Bondi_new.F90 @@ -148,7 +148,7 @@ subroutine GRHydro_Bondi_Iso(CCTK_ARGUMENTS) u_bondi(i),v_bondi(i) end do close(47) - + !!$ write(debug_message,'(a,4f22.14)') "i=1:",r_bondi(1),rho_bondi(1),& !!$ u_bondi(1),v_bondi(1) !!$ call CCTK_INFO(debug_message) |