diff options
author | tradke <tradke@89daf98e-ef62-4674-b946-b8ff9de2216c> | 2001-11-06 14:22:08 +0000 |
---|---|---|
committer | tradke <tradke@89daf98e-ef62-4674-b946-b8ff9de2216c> | 2001-11-06 14:22:08 +0000 |
commit | 0e1241aeb6a0355731bd10d9ab2ec9464ef9995f (patch) | |
tree | cd58a52913d7d19d248699e40a994dbbe47187e2 /src/AHFinder_gau.F | |
parent | 00509ec41c3a325dd37a50700aee5bf8c39073ce (diff) |
Give some better warnings if a coordinate system / interpolator /reduction
handle couldn't be obtained because you forgot to activate approrpiate thorns.
Thanks to Michael for pointing this out.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/AHFinder/trunk@256 89daf98e-ef62-4674-b946-b8ff9de2216c
Diffstat (limited to 'src/AHFinder_gau.F')
-rw-r--r-- | src/AHFinder_gau.F | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/src/AHFinder_gau.F b/src/AHFinder_gau.F index 3b1bc67..6ecc2f6 100644 --- a/src/AHFinder_gau.F +++ b/src/AHFinder_gau.F @@ -197,10 +197,9 @@ call CCTK_ReductionArrayHandle(sum_handle,"sum") if (sum_handle.lt.0) then - call CCTK_WARN(1,"Cannot get reduction handle.") + call CCTK_WARN(1,"Cannot get handle for sum reduction ! Forgot to activate an implementation providing reduction operators ??") end if - ! ************************************** ! *** ALLOCATE MEMORY FOR ARRAYS *** ! ************************************** @@ -730,10 +729,14 @@ call CCTK_InterpHandle (interp_handle, "third-order uniform cartesian") endif + if (interp_handle .lt. 0) then + call CCTK_WARN(0,"Cannot get handle for cart3d coordinate system ! Forgot to activate an implementation providing coordinates ??") + endif + call CCTK_CoordSystemHandle (coord_system_handle, "cart3d") - if (interp_handle .lt. 0 .or. coord_system_handle .lt. 0) then - call CCTK_WARN (0, "Couldn't get handles for interpolation operator and/or coordinate system") + if (coord_system_handle .lt. 0) then + call CCTK_WARN(0,"Cannot get handle for interpolation ! Forgot to activate an implementation providing interpolation operators ??") endif ! Interpolation. |