diff options
Diffstat (limited to 'src/GRHydro_BondiM_new.F90')
-rw-r--r-- | src/GRHydro_BondiM_new.F90 | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/src/GRHydro_BondiM_new.F90 b/src/GRHydro_BondiM_new.F90 index 346bc19..d03a1c2 100644 --- a/src/GRHydro_BondiM_new.F90 +++ b/src/GRHydro_BondiM_new.F90 @@ -149,12 +149,14 @@ subroutine GRHydro_BondiM_Iso(CCTK_ARGUMENTS) v_bondi(i) = vtmp enddo - open (47,file="bondi.asc",form="formatted") - do i=1,N_points - write(47,'(i5,4f22.14)')i,r_bondi(i),rho_bondi(i),& - u_bondi(i),v_bondi(i) - end do - close(47) + if (CCTK_MyProc(cctkGH) == 0) then + open (47,file="bondi.asc",form="formatted") + do i=1,N_points + write(47,'(i5,4f22.14)')i,r_bondi(i),rho_bondi(i),& + u_bondi(i),v_bondi(i) + end do + close(47) + end if !!$ write(debug_message,'(a,4f22.14)') "i=1:",r_bondi(1),rho_bondi(1),& !!$ u_bondi(1),v_bondi(1) |