User: szilagyi Date: 2013/11/18 04:58 PM
Modified: /branches/tapir/src/ NullSHRE_WTSphHarm.F90
Log: debugging io
File Changes:
Directory: /branches/tapir/src/ ===============================
File [modified]: NullSHRE_WTSphHarm.F90 Delta lines: +4 -4 =================================================================== --- branches/tapir/src/NullSHRE_WTSphHarm.F90 2013-11-18 22:58:04 UTC (rev 36) +++ branches/tapir/src/NullSHRE_WTSphHarm.F90 2013-11-18 22:58:19 UTC (rev 37) @@ -85,13 +85,13 @@ type (gf2d), dimension(2) :: angular_tensor_1_n, angular_tensor_1_s
logical, parameter :: output_gij = .false. - logical, parameter :: output_lapse = .true. - logical, parameter :: output_shift = .true. + logical, parameter :: output_lapse = .false. + logical, parameter :: output_shift = .false. logical, parameter :: output_dgij = .false. logical, parameter :: output_ell = .false. logical, parameter :: output_w0parts = .false. - logical, parameter :: output_u1parts = .false. - logical, parameter :: output_bondi = .false. + logical, parameter :: output_u1parts = .true. + logical, parameter :: output_bondi = .true.
CCTK_INT :: a, b angular_tensor_1_n(1)%d => tmp1(:,:,1)