diff options
-rw-r--r-- | interface.ccl | 6 | ||||
-rw-r--r-- | schedule.ccl | 2 | ||||
-rw-r--r-- | src/WaveToy.F77 | 4 |
3 files changed, 4 insertions, 8 deletions
diff --git a/interface.ccl b/interface.ccl index c23b8a0..1237dc6 100644 --- a/interface.ccl +++ b/interface.ccl @@ -8,12 +8,8 @@ public: cctk_real scalarevolve type = GF { phi -} "The evolved scalar field" - -cctk_real scalarold type = GF -{ phi_old -} "The scalar field at the last timestep" +} "The evolved scalar field" private: diff --git a/schedule.ccl b/schedule.ccl index a78fd34..b611c4a 100644 --- a/schedule.ccl +++ b/schedule.ccl @@ -1,7 +1,7 @@ # Schedule definitions for thorn WaveToy77 # $Header$ -STORAGE: scalarevolve,scalarold +STORAGE: scalarevolve schedule WaveToyF77_Startup at STARTUP { diff --git a/src/WaveToy.F77 b/src/WaveToy.F77 index 63df689..53cd99f 100644 --- a/src/WaveToy.F77 +++ b/src/WaveToy.F77 @@ -108,7 +108,7 @@ c ----------------- @desc Boundary conditions for the wave equation @enddesc - @calls ApplySymmetry,ApplyFlatBC,ApplyRadiativeBC + @calls CartSymBCGroup,FlatBC,RadiativeBC @history @endhistory @@ -144,7 +144,7 @@ c --------------------- c Apply the symmetry boundary conditions on any coordinate axes c ------------------------------------------------------------- - call ApplySymmetry(cctkGH,"wavetoyf77::scalartmps") + call CartSymBCGroup(ierr,cctkGH,"wavetoyf77::scalartmps") c Apply the outer boundary conditions c ----------------------------------- |