diff options
author | allen <allen@4451c3c6-1034-4891-99ea-21147727ccdf> | 1999-09-24 09:15:44 +0000 |
---|---|---|
committer | allen <allen@4451c3c6-1034-4891-99ea-21147727ccdf> | 1999-09-24 09:15:44 +0000 |
commit | 34e725ae921a0c3522bedd09925ab3262698839f (patch) | |
tree | 87234593dea03f0b1e4486cdd727d0db039eaba9 /src | |
parent | 07cfa9a5550f76b794a8c8f77830353998c0cca6 (diff) |
A bit of tidying
git-svn-id: http://svn.cactuscode.org/arrangements/CactusWave/WaveToyF77/trunk@29 4451c3c6-1034-4891-99ea-21147727ccdf
Diffstat (limited to 'src')
-rw-r--r-- | src/WaveToy.F77 | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/WaveToy.F77 b/src/WaveToy.F77 index 600c65f..63df689 100644 --- a/src/WaveToy.F77 +++ b/src/WaveToy.F77 @@ -149,11 +149,11 @@ c ------------------------------------------------------------- c Apply the outer boundary conditions c ----------------------------------- if (CCTK_EQUALS(bound,"flat")) then - call ApplyFlatBC(ierr,cctkGH,sw,"wavetoyf77::phi_next") + call FlatBCVar(ierr,cctkGH,sw,"wavetoyf77::phi_next") else if (CCTK_EQUALS(bound,"zero")) then - call ApplyConstantBC(ierr,cctkGH,zero,sw,"wavetoyf77::phi_next") + call ConstantBCVar(ierr,cctkGH,zero,sw,"wavetoyf77::phi_next") else if (CCTK_Equals(bound,"radiation").eq.1) then - call ApplyRadiativeBC(ierr,cctkGH,zero,one,sw,"wavetoyf77::phi_next", + call RadiativeBCVar(ierr,cctkGH,zero,one,sw,"wavetoyf77::phi_next", & "wavetoy::phi") end if |