From 0f363832a58c39968e9ab51c7c208f7018bf4e0b Mon Sep 17 00:00:00 2001
From: eschnett <>
Date: Tue, 20 Mar 2001 16:27:00 +0000
Subject: Coupled initial data as well.

Coupled initial data as well.
Added parameter files and a gnuplot examination script.

darcs-hash:20010320162726-f6438-3a4b060ec6665c40e10bf3a2995649a34e6bf071.gz
---
 CarpetExtra/IDSpaceTimeToy/schedule.ccl        |  5 +++--
 CarpetExtra/IDSpaceTimeToy/src/InitialData.F77 | 12 +++++++++++-
 2 files changed, 14 insertions(+), 3 deletions(-)

(limited to 'CarpetExtra/IDSpaceTimeToy')

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 
-- 
cgit v1.2.3