diff options
author | schnetter <> | 2001-08-26 11:58:00 +0000 |
---|---|---|
committer | schnetter <> | 2001-08-26 11:58:00 +0000 |
commit | e93ba7bbf376b2ac42eca2d298e5bf08d9abf902 (patch) | |
tree | af318f4aaafee2dda9a0565c886b6ae4a0470d7e /CarpetExtra/SpaceTimeToy/src | |
parent | c93aafce1700484798d804c0e17834c79aae97fa (diff) |
1. Added interface for AMR. Carpet still contains no clusterer, but
1. Added interface for AMR. Carpet still contains no clusterer, but
the application can now determine where to refine.
2. Made scalars (again) available all the time. This allows the
scheduler to use scalars.
darcs-hash:20010826115851-07bb3-eca06f09fe49430522d9770bdf5ff2e99f7578a6.gz
Diffstat (limited to 'CarpetExtra/SpaceTimeToy/src')
-rw-r--r-- | CarpetExtra/SpaceTimeToy/src/SpaceTimeToy.F77 | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/CarpetExtra/SpaceTimeToy/src/SpaceTimeToy.F77 b/CarpetExtra/SpaceTimeToy/src/SpaceTimeToy.F77 index a5d8eab8c..304837390 100644 --- a/CarpetExtra/SpaceTimeToy/src/SpaceTimeToy.F77 +++ b/CarpetExtra/SpaceTimeToy/src/SpaceTimeToy.F77 @@ -1,5 +1,5 @@ c -*-Fortran-*- -c $Header: /home/eschnett/C/carpet/Carpet/CarpetExtra/SpaceTimeToy/src/SpaceTimeToy.F77,v 1.8 2001/04/23 08:10:22 schnetter Exp $ +c $Header: /home/eschnett/C/carpet/Carpet/CarpetExtra/SpaceTimeToy/src/SpaceTimeToy.F77,v 1.9 2001/08/26 13:59:58 schnetter Exp $ #include "cctk.h" #include "cctk_Parameters.h" @@ -29,7 +29,7 @@ c Copy end do end do - if (cctk_isthornactive("hydrotoy").eq.1) then + if (hydrotoy_active.eq.1) then do k=1,cctk_lsh(3) do j=1,cctk_lsh(2) @@ -103,7 +103,7 @@ c Average end do end do - if (cctk_isthornactive("hydrotoy").eq.1) then + if (hydrotoy_active.eq.1) then do k=1,cctk_lsh(3) do j=1,cctk_lsh(2) |