From a911fd254cf28fc07e6223be83fd51508ca1b3f6 Mon Sep 17 00:00:00 2001
From: schnetter <>
Date: Wed, 18 Jun 2003 18:08:00 +0000
Subject: WaveToyMoL: Produce more output.

WaveToyMoL: Produce more output.
WaveToyFO: Add parameter files.
*.F77: Fix bugs.

darcs-hash:20030618180829-07bb3-0bfc535397f0e58ad8079502f731b0706a25e058.gz
---
 CarpetExtra/IDScalarWaveFO/src/initialdata.F77 | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'CarpetExtra/IDScalarWaveFO')

diff --git a/CarpetExtra/IDScalarWaveFO/src/initialdata.F77 b/CarpetExtra/IDScalarWaveFO/src/initialdata.F77
index 15d6e0934..59774e2b7 100644
--- a/CarpetExtra/IDScalarWaveFO/src/initialdata.F77
+++ b/CarpetExtra/IDScalarWaveFO/src/initialdata.F77
@@ -1,4 +1,4 @@
-c     $Header: /home/eschnett/C/carpet/Carpet/CarpetExtra/IDScalarWaveFO/src/initialdata.F77,v 1.1 2003/06/18 18:24:29 schnetter Exp $
+c     $Header: /home/eschnett/C/carpet/Carpet/CarpetExtra/IDScalarWaveFO/src/initialdata.F77,v 1.2 2003/06/18 20:08:29 schnetter Exp $
 
 #include "cctk.h"
 #include "cctk_Arguments.h"
@@ -22,17 +22,17 @@ c     $Header: /home/eschnett/C/carpet/Carpet/CarpetExtra/IDScalarWaveFO/src/ini
      $              + wave_number(2)*(y(i,j,k)-phase_offset(2))
      $              + wave_number(3)*(z(i,j,k)-phase_offset(3))
      $              + omega*(cctk_time-time_offset)))
-               psix(i,j,k) = - amplitude * (2*pi)**2 * wave_number(1) * omega * cos (2*pi *
+               psix(i,j,k) = amplitude * wave_number(1) / omega * cos (2*pi *
      $              ( wave_number(1)*(x(i,j,k)-phase_offset(1))
      $              + wave_number(2)*(y(i,j,k)-phase_offset(2))
      $              + wave_number(3)*(z(i,j,k)-phase_offset(3))
      $              + omega*(cctk_time-time_offset)))
-               psiy(i,j,k) = - amplitude * (2*pi)**2 * wave_number(2) * omega * cos (2*pi *
+               psiy(i,j,k) = amplitude * wave_number(2) / omega * cos (2*pi *
      $              ( wave_number(1)*(x(i,j,k)-phase_offset(1))
      $              + wave_number(2)*(y(i,j,k)-phase_offset(2))
      $              + wave_number(3)*(z(i,j,k)-phase_offset(3))
      $              + omega*(cctk_time-time_offset)))
-               psiz(i,j,k) = - amplitude * (2*pi)**2 * wave_number(3) * omega * cos (2*pi *
+               psiz(i,j,k) = amplitude * wave_number(3) / omega * cos (2*pi *
      $              ( wave_number(1)*(x(i,j,k)-phase_offset(1))
      $              + wave_number(2)*(y(i,j,k)-phase_offset(2))
      $              + wave_number(3)*(z(i,j,k)-phase_offset(3))
-- 
cgit v1.2.3