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/IDSpaceTimeToy | |
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/IDSpaceTimeToy')
-rw-r--r-- | CarpetExtra/IDSpaceTimeToy/param.ccl | 6 | ||||
-rw-r--r-- | CarpetExtra/IDSpaceTimeToy/src/InitialData.F77 | 4 |
2 files changed, 7 insertions, 3 deletions
diff --git a/CarpetExtra/IDSpaceTimeToy/param.ccl b/CarpetExtra/IDSpaceTimeToy/param.ccl index 8a708604c..706bad6d7 100644 --- a/CarpetExtra/IDSpaceTimeToy/param.ccl +++ b/CarpetExtra/IDSpaceTimeToy/param.ccl @@ -1,10 +1,14 @@ # Parameter definitions for thorn IDSpaceTimeToy -# $Header: /home/eschnett/C/carpet/Carpet/CarpetExtra/IDSpaceTimeToy/param.ccl,v 1.1 2001/03/17 16:05:49 eschnett Exp $ +# $Header: /home/eschnett/C/carpet/Carpet/CarpetExtra/IDSpaceTimeToy/param.ccl,v 1.2 2001/08/26 13:59:41 schnetter Exp $ shares: grid USES KEYWORD type +shares: hydrotoy + +USES BOOLEAN hydrotoy_active + restricted: KEYWORD initial_data "Type of initial data" diff --git a/CarpetExtra/IDSpaceTimeToy/src/InitialData.F77 b/CarpetExtra/IDSpaceTimeToy/src/InitialData.F77 index 5582ed669..4fe16680d 100644 --- a/CarpetExtra/IDSpaceTimeToy/src/InitialData.F77 +++ b/CarpetExtra/IDSpaceTimeToy/src/InitialData.F77 @@ -1,5 +1,5 @@ c -*-Fortran-*- -c $Header: /home/eschnett/C/carpet/Carpet/CarpetExtra/IDSpaceTimeToy/src/InitialData.F77,v 1.4 2001/03/26 02:28:54 eschnett Exp $ +c $Header: /home/eschnett/C/carpet/Carpet/CarpetExtra/IDSpaceTimeToy/src/InitialData.F77,v 1.5 2001/08/26 13:59:47 schnetter Exp $ #include "cctk.h" #include "cctk_Parameters.h" @@ -124,7 +124,7 @@ c Use kx,ky,kz as number of modes in each direction. end if - 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) |