diff options
author | eschnett <> | 2001-03-20 16:27:00 +0000 |
---|---|---|
committer | eschnett <> | 2001-03-20 16:27:00 +0000 |
commit | 0f363832a58c39968e9ab51c7c208f7018bf4e0b (patch) | |
tree | 3c9634626aeae8bdf24f6fd4ffef0c31a4a8bf3f /CarpetExtra/IDSpaceTimeToy | |
parent | df4a7756bc05f4c73adfb96f45095d746540df40 (diff) |
Coupled initial data as well.
Coupled initial data as well.
Added parameter files and a gnuplot examination script.
darcs-hash:20010320162726-f6438-3a4b060ec6665c40e10bf3a2995649a34e6bf071.gz
Diffstat (limited to 'CarpetExtra/IDSpaceTimeToy')
-rw-r--r-- | CarpetExtra/IDSpaceTimeToy/schedule.ccl | 5 | ||||
-rw-r--r-- | CarpetExtra/IDSpaceTimeToy/src/InitialData.F77 | 12 |
2 files changed, 14 insertions, 3 deletions
diff --git a/CarpetExtra/IDSpaceTimeToy/schedule.ccl b/CarpetExtra/IDSpaceTimeToy/schedule.ccl index e4b8e2a0d..6a852d30b 100644 --- a/CarpetExtra/IDSpaceTimeToy/schedule.ccl +++ b/CarpetExtra/IDSpaceTimeToy/schedule.ccl @@ -1,12 +1,13 @@ # Schedule definitions for thorn IDSpaceTimeToy -# $Header: /home/eschnett/C/carpet/Carpet/CarpetExtra/IDSpaceTimeToy/schedule.ccl,v 1.2 2001/03/18 22:37:10 eschnett Exp $ +# $Header: /home/eschnett/C/carpet/Carpet/CarpetExtra/IDSpaceTimeToy/schedule.ccl,v 1.3 2001/03/20 17:27:26 eschnett Exp $ schedule IDSpaceTimeToy_Startup at STARTUP { LANG: Fortran } "Register banner" -schedule IDSpaceTimeToy_InitialData as SpaceTimeToy_InitialData at INITIAL +schedule IDSpaceTimeToy_InitialData as SpaceTimeToy_InitialData at INITIAL \ + after IDHydroToy_InitialData { LANG: Fortran STORAGE: spacetimetoy::spacetimeevolve diff --git a/CarpetExtra/IDSpaceTimeToy/src/InitialData.F77 b/CarpetExtra/IDSpaceTimeToy/src/InitialData.F77 index e9c3fe215..4fcc252de 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.2 2001/03/19 21:30:42 eschnett Exp $ +c $Header: /home/eschnett/C/carpet/Carpet/CarpetExtra/IDSpaceTimeToy/src/InitialData.F77,v 1.3 2001/03/20 17:27:26 eschnett Exp $ #include "cctk.h" #include "cctk_Parameters.h" @@ -94,4 +94,14 @@ c Use kx,ky,kz as number of modes in each direction. end if + do k=1,cctk_lsh(3) + do j=1,cctk_lsh(2) + do i=1,cctk_lsh(1) + + psi(i,j,k) = psi(i,j,k) - u(i,j,k) + + end do + end do + end do + end |