[Commits] [svn:einsteintoolkit] NullSHRExtract/branches/tapir/src/ (Rev. 18)
bela at caltech.edu
bela at caltech.edu
Thu Oct 31 16:25:34 CDT 2013
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)
More information about the Commits
mailing list