[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