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_int.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_int.F')
| -rw-r--r-- | src/AHFinder_int.F | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/src/AHFinder_int.F b/src/AHFinder_int.F index 27b612e..1878630 100644 --- a/src/AHFinder_int.F +++ b/src/AHFinder_int.F @@ -167,7 +167,7 @@ call CCTK_ReductionArrayHandle(reduction_handle,"sum") if (reduction_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 @@ -621,10 +621,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 call CCTK_VarIndex (in_array_indices(1), "einstein::gxx") |