diff options
| author | allen <allen@f80f6fb6-8356-4fd4-90bc-d84ad503c100> | 1999-09-27 15:43:21 +0000 |
|---|---|---|
| committer | allen <allen@f80f6fb6-8356-4fd4-90bc-d84ad503c100> | 1999-09-27 15:43:21 +0000 |
| commit | f18ca6b9d89738650c6d53340044c6b44048df75 (patch) | |
| tree | 196ad075c94b971abf3f3bfa88d3b991a88d2f6b | |
| parent | 3ae41eae97b5baf8b87beb90a9501bbf80cc03db (diff) | |
Restructuring a litte
git-svn-id: http://svn.cactuscode.org/arrangements/CactusWave/WaveToyF90/trunk@22 f80f6fb6-8356-4fd4-90bc-d84ad503c100
| -rw-r--r-- | interface.ccl | 6 | ||||
| -rw-r--r-- | schedule.ccl | 2 | ||||
| -rw-r--r-- | src/WaveToy.F | 4 |
3 files changed, 4 insertions, 8 deletions
diff --git a/interface.ccl b/interface.ccl index 536f479..7a90d2a 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 5d511dc..e493d3f 100644 --- a/schedule.ccl +++ b/schedule.ccl @@ -1,7 +1,7 @@ # Schedule definitions for thorn WaveToy90 # $Header$ -STORAGE: scalarevolve,scalarold +STORAGE: scalarevolve schedule WaveToyF90_Startup at STARTUP { diff --git a/src/WaveToy.F b/src/WaveToy.F index 1c9bc8f..d493fe3 100644 --- a/src/WaveToy.F +++ b/src/WaveToy.F @@ -101,7 +101,7 @@ @desc Boundary conditions for the wave equation @enddesc - @calls ApplyFlatBC,ApplyRadiativeBC + @calls FlatBC,RadiativeBC @calledby @history @@ -122,7 +122,7 @@ CCTK_REAL,parameter :: zero = 0.0 CCTK_REAL,parameter :: one = 1.0 - call ApplySymmetry(cctkGH,"wavetoyf90::temps") + call CartSymBCGroup(ierr,cctkGH,"wavetoyf90::temps") if (CCTK_EQUALS(bound,"flat")) then call ApplyFlatBC(ierr,cctkGH,sw,"wavetoyf90::phi_tmp") |