diff options
Diffstat (limited to 'src/D3_extract.F')
-rw-r--r-- | src/D3_extract.F | 10 |
1 files changed, 3 insertions, 7 deletions
diff --git a/src/D3_extract.F b/src/D3_extract.F index f5f6850..854ae1d 100644 --- a/src/D3_extract.F +++ b/src/D3_extract.F @@ -169,15 +169,11 @@ c ------------------------------------------------------------------ & ADMmass_int1,ADMmass_int2,momentum_int1,momentum_int2, & momentum_int3,spin_int1,spin_int2,spin_int3,Extract_temp3d) -c ------------------------------------------------------------------ -c Now this is done the grid on processor 0 has correct values and the -c grid on all other processors have junk. This means that processor -c 0 needs to calculate the wave forms and the other processors have -c to sit and do nothing. So we shall put this in a conditional -c to only happen on processor 0. -c PW Jan 31 98 if (myproc .eq. 0) then + + print *,psis(5,5) + c ------------------------------------------------------------------ c c 3. Transform tensor components to polar coordinates on 2-surface |