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 | |
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')
8 files changed, 38 insertions, 22 deletions
diff --git a/CarpetExtra/SpaceTimeToy/par/spacetimetoy_periodic.par b/CarpetExtra/SpaceTimeToy/par/spacetimetoy_periodic.par index 481e1f24d..0bcc7a94e 100644 --- a/CarpetExtra/SpaceTimeToy/par/spacetimetoy_periodic.par +++ b/CarpetExtra/SpaceTimeToy/par/spacetimetoy_periodic.par @@ -7,12 +7,12 @@ # @enddesc # @@*/ # -# $Header: /home/eschnett/C/carpet/Carpet/CarpetExtra/SpaceTimeToy/par/spacetimetoy_periodic.par,v 1.3 2001/04/23 08:10:20 schnetter Exp $ +# $Header: /home/eschnett/C/carpet/Carpet/CarpetExtra/SpaceTimeToy/par/spacetimetoy_periodic.par,v 1.4 2001/08/26 13:59:52 schnetter Exp $ -ActiveThorns = "Boundary IOBasic IOUtil Time Cart3d Carpet CarpetIOASCII CarpetIOFlexIO CarpetLib CarpetSlab IDSpaceTimeToy SpaceTimeToy" +ActiveThorns = "Boundary IOBasic IOUtil Time Cart3d Carpet CarpetIOASCII CarpetIOFlexIO CarpetLib CarpetSlab IDSpaceTimeToy SpaceTimeToy HydroToy" Carpet::poison_new_timelevels = yes -Carpet::check_for_poison = yes +#Carpet::check_for_poison = yes Carpet::checksum_timelevels = yes Cactus::cctk_itlast = 120 @@ -52,6 +52,8 @@ IOFlexIO::out3D_format = IEEE SpaceTimeToy::icn_iterations = 2 SpaceTimeToy::bound = radiation +HydroToy::hydrotoy_active = no + IDSpaceTimeToy::initial_data = plane IDSpaceTimeToy::kx = 0.222222222222222 # 2 / ((32-2) * 0.3) IDSpaceTimeToy::ky = 0.151515151515152 # 2 / ((46-2) * 0.3) diff --git a/CarpetExtra/SpaceTimeToy/par/spacetimetoy_periodic_coarse.par b/CarpetExtra/SpaceTimeToy/par/spacetimetoy_periodic_coarse.par index 95b1884e9..b55dcbd75 100644 --- a/CarpetExtra/SpaceTimeToy/par/spacetimetoy_periodic_coarse.par +++ b/CarpetExtra/SpaceTimeToy/par/spacetimetoy_periodic_coarse.par @@ -7,12 +7,12 @@ # @enddesc # @@*/ # -# $Header: /home/eschnett/C/carpet/Carpet/CarpetExtra/SpaceTimeToy/par/spacetimetoy_periodic_coarse.par,v 1.5 2001/04/23 08:10:21 schnetter Exp $ +# $Header: /home/eschnett/C/carpet/Carpet/CarpetExtra/SpaceTimeToy/par/spacetimetoy_periodic_coarse.par,v 1.6 2001/08/26 13:59:53 schnetter Exp $ -ActiveThorns = "Boundary IOBasic IOUtil Time Cart3d Carpet CarpetIOASCII CarpetIOFlexIO CarpetLib CarpetSlab IDSpaceTimeToy SpaceTimeToy" +ActiveThorns = "Boundary IOBasic IOUtil Time Cart3d Carpet CarpetIOASCII CarpetIOFlexIO CarpetLib CarpetSlab IDSpaceTimeToy SpaceTimeToy Hydrotoy" Carpet::poison_new_timelevels = yes -Carpet::check_for_poison = yes +#Carpet::check_for_poison = yes Carpet::checksum_timelevels = yes Cactus::cctk_itlast = 60 @@ -52,6 +52,8 @@ IOFlexIO::out3D_format = IEEE SpaceTimeToy::icn_iterations = 2 SpaceTimeToy::bound = radiation +HydroToy::hydrotoy_active = no + IDSpaceTimeToy::initial_data = plane IDSpaceTimeToy::kx = 0.222222222222222 # 2 / ((32-2) * 0.3) IDSpaceTimeToy::ky = 0.151515151515152 # 2 / ((46-2) * 0.3) diff --git a/CarpetExtra/SpaceTimeToy/par/spacetimetoy_periodic_coarse_rl2.par b/CarpetExtra/SpaceTimeToy/par/spacetimetoy_periodic_coarse_rl2.par index df1ab595d..45be9dba9 100644 --- a/CarpetExtra/SpaceTimeToy/par/spacetimetoy_periodic_coarse_rl2.par +++ b/CarpetExtra/SpaceTimeToy/par/spacetimetoy_periodic_coarse_rl2.par @@ -7,12 +7,12 @@ # @enddesc # @@*/ # -# $Header: /home/eschnett/C/carpet/Carpet/CarpetExtra/SpaceTimeToy/par/spacetimetoy_periodic_coarse_rl2.par,v 1.5 2001/04/23 08:10:21 schnetter Exp $ +# $Header: /home/eschnett/C/carpet/Carpet/CarpetExtra/SpaceTimeToy/par/spacetimetoy_periodic_coarse_rl2.par,v 1.6 2001/08/26 13:59:54 schnetter Exp $ -ActiveThorns = "Boundary IOBasic IOUtil Time Cart3d Carpet CarpetIOASCII CarpetIOFlexIO CarpetLib CarpetSlab IDSpaceTimeToy SpaceTimeToy" +ActiveThorns = "Boundary IOBasic IOUtil Time Cart3d Carpet CarpetIOASCII CarpetIOFlexIO CarpetLib CarpetSlab IDSpaceTimeToy SpaceTimeToy Hydrotoy" Carpet::poison_new_timelevels = yes -Carpet::check_for_poison = yes +#Carpet::check_for_poison = yes Carpet::checksum_timelevels = yes Cactus::cctk_itlast = 120 @@ -56,6 +56,8 @@ IOFlexIO::out3D_format = IEEE SpaceTimeToy::icn_iterations = 2 SpaceTimeToy::bound = radiation +HydroToy::hydrotoy_active = no + IDSpaceTimeToy::initial_data = plane IDSpaceTimeToy::kx = 0.222222222222222 # 2 / ((32-2) * 0.3) IDSpaceTimeToy::ky = 0.151515151515152 # 2 / ((46-2) * 0.3) diff --git a/CarpetExtra/SpaceTimeToy/par/spacetimetoy_periodic_coarse_rl3.par b/CarpetExtra/SpaceTimeToy/par/spacetimetoy_periodic_coarse_rl3.par index ec078235d..5a15f3e71 100644 --- a/CarpetExtra/SpaceTimeToy/par/spacetimetoy_periodic_coarse_rl3.par +++ b/CarpetExtra/SpaceTimeToy/par/spacetimetoy_periodic_coarse_rl3.par @@ -7,12 +7,12 @@ # @enddesc # @@*/ # -# $Header: /home/eschnett/C/carpet/Carpet/CarpetExtra/SpaceTimeToy/par/spacetimetoy_periodic_coarse_rl3.par,v 1.6 2001/04/23 08:10:21 schnetter Exp $ +# $Header: /home/eschnett/C/carpet/Carpet/CarpetExtra/SpaceTimeToy/par/spacetimetoy_periodic_coarse_rl3.par,v 1.7 2001/08/26 13:59:54 schnetter Exp $ -ActiveThorns = "Boundary IOBasic IOUtil Time Cart3d Carpet CarpetIOASCII CarpetIOFlexIO CarpetLib CarpetSlab IDSpaceTimeToy SpaceTimeToy" +ActiveThorns = "Boundary IOBasic IOUtil Time Cart3d Carpet CarpetIOASCII CarpetIOFlexIO CarpetLib CarpetSlab IDSpaceTimeToy SpaceTimeToy Hydrotoy" Carpet::poison_new_timelevels = yes -Carpet::check_for_poison = yes +#Carpet::check_for_poison = yes Carpet::checksum_timelevels = yes Cactus::cctk_itlast = 240 @@ -56,6 +56,8 @@ IOFlexIO::out3D_format = IEEE SpaceTimeToy::icn_iterations = 2 SpaceTimeToy::bound = radiation +HydroToy::hydrotoy_active = no + IDSpaceTimeToy::initial_data = plane IDSpaceTimeToy::kx = 0.222222222222222 # 2 / ((32-2) * 0.3) IDSpaceTimeToy::ky = 0.151515151515152 # 2 / ((46-2) * 0.3) diff --git a/CarpetExtra/SpaceTimeToy/par/spacetimetoy_periodic_rl2.par b/CarpetExtra/SpaceTimeToy/par/spacetimetoy_periodic_rl2.par index 14175ee15..1114944af 100644 --- a/CarpetExtra/SpaceTimeToy/par/spacetimetoy_periodic_rl2.par +++ b/CarpetExtra/SpaceTimeToy/par/spacetimetoy_periodic_rl2.par @@ -7,12 +7,12 @@ # @enddesc # @@*/ # -# $Header: /home/eschnett/C/carpet/Carpet/CarpetExtra/SpaceTimeToy/par/spacetimetoy_periodic_rl2.par,v 1.5 2001/04/23 08:10:21 schnetter Exp $ +# $Header: /home/eschnett/C/carpet/Carpet/CarpetExtra/SpaceTimeToy/par/spacetimetoy_periodic_rl2.par,v 1.6 2001/08/26 13:59:55 schnetter Exp $ -ActiveThorns = "Boundary IOBasic IOUtil Time Cart3d Carpet CarpetIOASCII CarpetIOFlexIO CarpetLib CarpetSlab IDSpaceTimeToy SpaceTimeToy" +ActiveThorns = "Boundary IOBasic IOUtil Time Cart3d Carpet CarpetIOASCII CarpetIOFlexIO CarpetLib CarpetSlab IDSpaceTimeToy SpaceTimeToy Hydrotoy" Carpet::poison_new_timelevels = yes -Carpet::check_for_poison = yes +#Carpet::check_for_poison = yes Carpet::checksum_timelevels = yes Cactus::cctk_itlast = 240 @@ -56,6 +56,8 @@ IOFlexIO::out3D_format = IEEE SpaceTimeToy::icn_iterations = 2 SpaceTimeToy::bound = radiation +HydroToy::hydrotoy_active = no + IDSpaceTimeToy::initial_data = plane IDSpaceTimeToy::kx = 0.222222222222222 # 2 / ((32-2) * 0.3) IDSpaceTimeToy::ky = 0.151515151515152 # 2 / ((46-2) * 0.3) diff --git a/CarpetExtra/SpaceTimeToy/par/spacetimetoy_periodic_rl3.par b/CarpetExtra/SpaceTimeToy/par/spacetimetoy_periodic_rl3.par index 6dfb5e485..8ccee9f95 100644 --- a/CarpetExtra/SpaceTimeToy/par/spacetimetoy_periodic_rl3.par +++ b/CarpetExtra/SpaceTimeToy/par/spacetimetoy_periodic_rl3.par @@ -7,12 +7,12 @@ # @enddesc # @@*/ # -# $Header: /home/eschnett/C/carpet/Carpet/CarpetExtra/SpaceTimeToy/par/spacetimetoy_periodic_rl3.par,v 1.4 2001/04/23 08:10:21 schnetter Exp $ +# $Header: /home/eschnett/C/carpet/Carpet/CarpetExtra/SpaceTimeToy/par/spacetimetoy_periodic_rl3.par,v 1.5 2001/08/26 13:59:56 schnetter Exp $ -ActiveThorns = "Boundary IOBasic IOUtil Time Cart3d Carpet CarpetIOASCII CarpetIOFlexIO CarpetLib CarpetSlab IDSpaceTimeToy SpaceTimeToy" +ActiveThorns = "Boundary IOBasic IOUtil Time Cart3d Carpet CarpetIOASCII CarpetIOFlexIO CarpetLib CarpetSlab IDSpaceTimeToy SpaceTimeToy Hydrotoy" Carpet::poison_new_timelevels = yes -Carpet::check_for_poison = yes +#Carpet::check_for_poison = yes Carpet::checksum_timelevels = yes Cactus::cctk_itlast = 480 @@ -56,6 +56,8 @@ IOFlexIO::out3D_format = IEEE SpaceTimeToy::icn_iterations = 2 SpaceTimeToy::bound = radiation +HydroToy::hydrotoy_active = no + IDSpaceTimeToy::initial_data = plane IDSpaceTimeToy::kx = 0.222222222222222 # 2 / ((32-2) * 0.3) IDSpaceTimeToy::ky = 0.151515151515152 # 2 / ((46-2) * 0.3) diff --git a/CarpetExtra/SpaceTimeToy/param.ccl b/CarpetExtra/SpaceTimeToy/param.ccl index d48df8cff..0213a9f61 100644 --- a/CarpetExtra/SpaceTimeToy/param.ccl +++ b/CarpetExtra/SpaceTimeToy/param.ccl @@ -1,5 +1,9 @@ # Parameter definitions for thorn SpaceTimeToy -# $Header: /home/eschnett/C/carpet/Carpet/CarpetExtra/SpaceTimeToy/param.ccl,v 1.2 2001/03/21 22:57:40 eschnett Exp $ +# $Header: /home/eschnett/C/carpet/Carpet/CarpetExtra/SpaceTimeToy/param.ccl,v 1.3 2001/08/26 13:59:49 schnetter Exp $ + +shares: hydrotoy + +USES BOOLEAN hydrotoy_active private: 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) |