diff options
| author | diener <diener@2a26948c-0e4f-0410-aee8-f1d3e353619c> | 2003-05-02 10:40:25 +0000 |
|---|---|---|
| committer | diener <diener@2a26948c-0e4f-0410-aee8-f1d3e353619c> | 2003-05-02 10:40:25 +0000 |
| commit | 11237939d932a29eb65ac50b7414f5e0dabed203 (patch) | |
| tree | 982e10b490cb2cb05b90c4db085edb600c9da6ac | |
| parent | 85897765cfaebc036284a1a9cfc2ec506796179d (diff) | |
Changed some info messages.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/EHFinder/trunk@101 2a26948c-0e4f-0410-aee8-f1d3e353619c
| -rw-r--r-- | src/EHFinder_Integrate2.F90 | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/src/EHFinder_Integrate2.F90 b/src/EHFinder_Integrate2.F90 index fb9aa88..cc77255 100644 --- a/src/EHFinder_Integrate2.F90 +++ b/src/EHFinder_Integrate2.F90 @@ -311,15 +311,15 @@ subroutine EHFinder_IntegrateCentroid(CCTK_ARGUMENTS) call CCTK_GrouplbndGN ( ierr, cctkGH, 1, lbnd, "ehfinder::eh_centroid2" ) if ( ierr .lt. 0 ) then - call CCTK_WARN ( 0, "cannot get lower bounds for area array" ) + call CCTK_WARN ( 0, "cannot get lower bounds for centroid array" ) end if call CCTK_GroupubndGN ( ierr, cctkGH, 1, ubnd, "ehfinder::eh_centroid2" ) if ( ierr .lt. 0 ) then - call CCTK_WARN ( 0, "cannot get upper bounds for area array" ) + call CCTK_WARN ( 0, "cannot get upper bounds for centroid array" ) end if call CCTK_GrouplshGN ( ierr, cctkGH, 1, lsh, "ehfinder::eh_centroid2" ) if ( ierr .lt. 0 ) then - call CCTK_WARN ( 0, "cannot get local size for area array" ) + call CCTK_WARN ( 0, "cannot get local size for centroid array" ) end if ! eh_centroid2_x(sn) = eh_centroid2_x(sn) / eh_area2(sn) @@ -331,6 +331,8 @@ subroutine EHFinder_IntegrateCentroid(CCTK_ARGUMENTS) eh_centroid2_x(k) = centroid_x / eh_area2(k) eh_centroid2_y(k) = centroid_y / eh_area2(k) eh_centroid2_z(k) = centroid_z / eh_area2(k) +! print*,centroid_x,centroid_y,centroid_z +! print*,eh_area2(k) end if ! write(info_message,'(a19,3(f10.5))') 'Horizon centroid = ', & @@ -339,9 +341,9 @@ subroutine EHFinder_IntegrateCentroid(CCTK_ARGUMENTS) ! eh_centroid2_z(sn) write(info_message,'(a19,3(f10.5))') 'Horizon centroid = ', & - centroid_x, & - centroid_y, & - centroid_z + eh_centroid2_x(sn), & + eh_centroid2_y(sn), & + eh_centroid2_z(sn) call CCTK_INFO(info_message) end subroutine EHFinder_IntegrateCentroid |