diff options
| author | miguel <miguel@89daf98e-ef62-4674-b946-b8ff9de2216c> | 2001-01-25 13:10:36 +0000 |
|---|---|---|
| committer | miguel <miguel@89daf98e-ef62-4674-b946-b8ff9de2216c> | 2001-01-25 13:10:36 +0000 |
| commit | 5f777fbafe7726e63e507485a5cccb78500f6f46 (patch) | |
| tree | 8f471689df10884a0961d1b839ed2040352677c6 /src/AHFinder_mask.F | |
| parent | f753cf5efd24c88ceed4e015f4fbd7c47f140231 (diff) | |
Minor changes.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/AHFinder/trunk@171 89daf98e-ef62-4674-b946-b8ff9de2216c
Diffstat (limited to 'src/AHFinder_mask.F')
| -rw-r--r-- | src/AHFinder_mask.F | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/src/AHFinder_mask.F b/src/AHFinder_mask.F index 448cff2..f833e77 100644 --- a/src/AHFinder_mask.F +++ b/src/AHFinder_mask.F @@ -75,8 +75,9 @@ if (ahfgrid(i,j,k).lt.(0.8D0*ahf_maskshrink-one)*c0(0)) then ahmask(i,j,k) = zero else - ahmask(i,j,k) = (ahfgrid(i,j,k) - (0.8D0*ahf_maskshrink-one)*c0(0)) - . / (0.2D0*ahf_maskshrink*c0(0)) + ahmask(i,j,k) = (ahfgrid(i,j,k) + . - (0.8D0*ahf_maskshrink-one)*c0(0)) + . / (0.2D0*ahf_maskshrink*c0(0)) end if end if @@ -87,12 +88,12 @@ ! Now find the minumum of rhor across processors. call CCTK_ReductionArrayHandle(reduce_handle,"minimum") - rhortemp = rhor call CCTK_ReduceLocalScalar(ierr ,cctkGH,-1,reduce_handle, - . rhortemp,rhor,CCTK_VARIABLE_REAL) + . rhor,rhortemp,CCTK_VARIABLE_REAL) + rhor = rhortemp if (ierr.ne.0) then - call CCTK_WARN(1,"AHFinder_mask:Reduction of rhor failed!"); + call CCTK_WARN(1,"AHFinder_mask:Reduction of rhor failed!") end if |