[Commits] [svn:einsteintoolkit] NullEvolve/branches/tapir/src/ (Rev. 20)

[bela at caltech.edu]

User: szilagyi
Date: 2014/01/03 01:03 AM

Modified:
 /branches/tapir/src/
  NullEvol_Bdry.F90, NullEvol_Evol.F90, NullEvol_InitialData.F90, NullEvol_Step.F90

Log:
 remove references to some of the debugging variables

File Changes:

Directory: /branches/tapir/src/
===============================

File [modified]: NullEvol_Bdry.F90
Delta lines: +6 -6
===================================================================
--- branches/tapir/src/NullEvol_Bdry.F90	2014-01-03 03:34:36 UTC (rev 19)
+++ branches/tapir/src/NullEvol_Bdry.F90	2014-01-03 07:03:44 UTC (rev 20)
@@ -30,8 +30,8 @@
      jcn(:,:,i) = (0.,0.)
      jcs(:,:,i) = (0.,0.)
 
-     eth2jcn(:,:,i) = (0.,0.)
-     eth2jcs(:,:,i) = (0.,0.)
+     ! eth2jcn(:,:,i) = (0.,0.)
+     ! eth2jcs(:,:,i) = (0.,0.)
 
      ucn(:,:,i) = (0.,0.)
      ucs(:,:,i) = (0.,0.)
@@ -85,8 +85,8 @@
      jcn(:,:,i) = (0.,0.)
      jcs(:,:,i) = (0.,0.)
 
-     eth2jcn(:,:,i) = (0.,0.)
-     eth2jcs(:,:,i) = (0.,0.)
+     ! eth2jcn(:,:,i) = (0.,0.)
+     ! eth2jcs(:,:,i) = (0.,0.)
 
      ucn(:,:,i) = (0.,0.)
      ucs(:,:,i) = (0.,0.)
@@ -142,8 +142,8 @@
 
      write(*,*)"RANDOM_J", i, max(maxval(abs(jcn(:,:,:i))), maxval(abs(jcs(:,:,:i)))) 
 
-     eth2jcn(:,:,i) = (0.,0.)
-     eth2jcs(:,:,i) = (0.,0.)
+     ! eth2jcn(:,:,i) = (0.,0.)
+     ! eth2jcs(:,:,i) = (0.,0.)
 
      ucn(:,:,i) = (0.,0.)
      ucs(:,:,i) = (0.,0.)

File [modified]: NullEvol_Evol.F90
Delta lines: +1 -2
===================================================================
--- branches/tapir/src/NullEvol_Evol.F90	2014-01-03 03:34:36 UTC (rev 19)
+++ branches/tapir/src/NullEvol_Evol.F90	2014-01-03 07:03:44 UTC (rev 20)
@@ -52,8 +52,7 @@
     CCTK_REAL :: rh
     CCTK_COMPLEX :: ii = (0. , 1.)
 
-    CCTK_INT cran, B
-    CCTK_INT, parameter :: cran_max = 2
+    CCTK_INT B
 
     if (FirstTime) then
        FirstTime = .false.

File [modified]: NullEvol_InitialData.F90
Delta lines: +5 -5
===================================================================
--- branches/tapir/src/NullEvol_InitialData.F90	2014-01-03 03:34:36 UTC (rev 19)
+++ branches/tapir/src/NullEvol_InitialData.F90	2014-01-03 07:03:44 UTC (rev 20)
@@ -28,8 +28,8 @@
   ! cctk_delta_time set by null step (called below)
 
   
-  eth2jcn = (0.,0.)
-  eth2jcs = (0.,0.)
+  ! eth2jcn = (0.,0.)
+  ! eth2jcs = (0.,0.)
 
   dxjcn = (0.,0.)
   dxjcs = (0.,0.)
@@ -240,8 +240,8 @@
       jcn(:,:,i) = EG_mask * jcn(:,:,i)
       jcs(:,:,i) = EG_mask * jcs(:,:,i)
 
-      eth2jcn(:,:,i) = EQ_mask * eth2jcn(:,:,i)
-      eth2jcs(:,:,i) = EQ_mask * eth2jcs(:,:,i)
+      ! eth2jcn(:,:,i) = EQ_mask * eth2jcn(:,:,i)
+      ! eth2jcs(:,:,i) = EQ_mask * eth2jcs(:,:,i)
 
   end do
 
@@ -288,7 +288,7 @@
   DECLARE_CCTK_PARAMETERS
 
   jcs = ii*1.d+50; jcs_p = ii*1.d+50; jcn = ii*1.d+50; jcn_p = ii*1.d+50
-  eth2jcs = ii*1.d+50; eth2jcs_p = ii*1.d+50; eth2jcn = ii*1.d+50; eth2jcn_p = ii*1.d+50
+  ! eth2jcs = ii*1.d+50; eth2jcs_p = ii*1.d+50; eth2jcn = ii*1.d+50; eth2jcn_p = ii*1.d+50
   ucs = ii*1.d+50; ucs_p = ii*1.d+50; ucn = ii*1.d+50; ucn_p = ii*1.d+50
   wcs = 1.d+50; wcs_p = 1.d+50; wcn = 1.d+50; wcn_p = 1.d+50
   bcs = 1.d+50; bcs_p = 1.d+50; bcn = 1.d+50; bcn_p = 1.d+50

File [modified]: NullEvol_Step.F90
Delta lines: +4 -4
===================================================================
--- branches/tapir/src/NullEvol_Step.F90	2014-01-03 03:34:36 UTC (rev 19)
+++ branches/tapir/src/NullEvol_Step.F90	2014-01-03 07:03:44 UTC (rev 20)
@@ -161,15 +161,15 @@
      end if
 
 !Compute eth2_j
-   call NullInterp_d2 (eth2jcn(:,:,i), jcn(:,:,i), two, one, one)
-   call NullInterp_d2 (eth2jcs(:,:,i), jcs(:,:,i), two, one, one)
+   ! call NullInterp_d2 (eth2jcn(:,:,i), jcn(:,:,i), two, one, one)
+   ! call NullInterp_d2 (eth2jcs(:,:,i), jcs(:,:,i), two, one, one)
 
 !Mask J and eth2_J
       jcn(:,:,i) = EG_mask * jcn(:,:,i)
       jcs(:,:,i) = EG_mask * jcs(:,:,i)
 
-      eth2jcn(:,:,i) = EQ_mask * eth2jcn(:,:,i)
-      eth2jcs(:,:,i) = EQ_mask * eth2jcs(:,:,i)
+      ! eth2jcn(:,:,i) = EQ_mask * eth2jcn(:,:,i)
+      ! eth2jcs(:,:,i) = EQ_mask * eth2jcs(:,:,i)
 
   end do