diff options
| -rw-r--r-- | src/InitSymBound.F90 | 4 | ||||
| -rw-r--r-- | src/WaveToy.F90 | 10 |
2 files changed, 7 insertions, 7 deletions
diff --git a/src/InitSymBound.F90 b/src/InitSymBound.F90 index 9142825..958aafa 100644 --- a/src/InitSymBound.F90 +++ b/src/InitSymBound.F90 @@ -25,11 +25,11 @@ @@*/ -subroutine WaveToyFreeF90_InitSymBound(CCTK_FARGUMENTS) +subroutine WaveToyFreeF90_InitSymBound(CCTK_ARGUMENTS) implicit none - DECLARE_CCTK_FARGUMENTS + DECLARE_CCTK_ARGUMENTS INTEGER, DIMENSION(3) :: sym = 1 diff --git a/src/WaveToy.F90 b/src/WaveToy.F90 index ea6b410..eaa279c 100644 --- a/src/WaveToy.F90 +++ b/src/WaveToy.F90 @@ -32,11 +32,11 @@ @@*/ -subroutine WaveToyFreeF90_Evolution(CCTK_FARGUMENTS) +subroutine WaveToyFreeF90_Evolution(CCTK_ARGUMENTS) implicit none - DECLARE_CCTK_FARGUMENTS + DECLARE_CCTK_ARGUMENTS DECLARE_CCTK_PARAMETERS ! Declare local variables @@ -109,11 +109,11 @@ end subroutine WaveToyFreeF90_Evolution @@*/ -subroutine WaveToyFreeF90_Boundaries(CCTK_FARGUMENTS) +subroutine WaveToyFreeF90_Boundaries(CCTK_ARGUMENTS) implicit none - DECLARE_CCTK_FARGUMENTS + DECLARE_CCTK_ARGUMENTS DECLARE_CCTK_PARAMETERS DECLARE_CCTK_FUNCTIONS @@ -125,7 +125,7 @@ subroutine WaveToyFreeF90_Boundaries(CCTK_FARGUMENTS) call CartSymBCGroup(ierr,cctkGH,"wavetoyfreef90::temps") if (CCTK_EQUALS(bound,"flat")) then - call ApplyFlatBC(ierr,cctkGH,sw,"wavetoyfreef90::phi_tmp") + call FlatBCVar(ierr,cctkGH,sw,"wavetoyfreef90::phi_tmp") else if (CCTK_EQUALS(bound,"radiation")) then call RadiativeBCVar(ierr,cctkGH,zero,one,sw, & "wavetoyfreef90::phi_tmp","wavetoy::phi") |