User: szilagyi Date: 2013/10/31 04:25 PM

Modified: /branches/tapir/src/ NullSHRE_WTSphHarm.F90

Log: tweak debugging output

File Changes:

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

File [modified]: NullSHRE_WTSphHarm.F90 Delta lines: +26 -1 =================================================================== --- branches/tapir/src/NullSHRE_WTSphHarm.F90 2013-10-31 02:17:59 UTC (rev 17) +++ branches/tapir/src/NullSHRE_WTSphHarm.F90 2013-10-31 21:25:34 UTC (rev 18) @@ -66,7 +66,7 @@ null_lsh, zeta, alpha_n%d, alpha_s%d, cctk_time)

- ! null vector + ! null vector and parts of it call NullDecomp_WriteCoefsForRealFunc('ell_x_wt', cctkGH, truncate, & null_lsh, zeta, ell_n(1)%d, ell_s(1)%d, cctk_time)

@@ -80,6 +80,31 @@ null_lsh, zeta, ell_n(4)%d, ell_s(4)%d, cctk_time)

+ call NullDecomp_WriteCoefsForRealFunc('s_x_wt', cctkGH, truncate, & + null_lsh, zeta, sa_n(1)%d, sa_s(1)%d, cctk_time) + + call NullDecomp_WriteCoefsForRealFunc('s_y_wt', cctkGH, truncate, & + null_lsh, zeta, sa_n(2)%d, sa_s(2)%d, cctk_time) + + call NullDecomp_WriteCoefsForRealFunc('s_z_wt', cctkGH, truncate, & + null_lsh, zeta, sa_n(3)%d, sa_s(3)%d, cctk_time) + + call NullDecomp_WriteCoefsForRealFunc('n_x_wt', cctkGH, truncate, & + null_lsh, zeta, na_n(1)%d, na_s(1)%d, cctk_time) + + call NullDecomp_WriteCoefsForRealFunc('n_y_wt', cctkGH, truncate, & + null_lsh, zeta, na_n(2)%d, na_s(2)%d, cctk_time) + + call NullDecomp_WriteCoefsForRealFunc('n_z_wt', cctkGH, truncate, & + null_lsh, zeta, na_n(3)%d, na_s(3)%d, cctk_time) + + call NullDecomp_WriteCoefsForRealFunc('n_t_wt', cctkGH, truncate, & + null_lsh, zeta, na_n(4)%d, na_s(4)%d, cctk_time) + + + call NullDecomp_WriteCoefsForRealFunc('elldenom_wt', cctkGH, truncate, & + null_lsh, zeta, elld_n%d, elld_s%d, cctk_time) + ! xb, rb, r_l, r_t call NullDecomp_WriteCoefsForRealFunc('X_wt', cctkGH, truncate, & null_lsh, zeta, x_wt_n%d, x_wt_s%d, cctk_time)