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