diff options
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) |