[Dart-dev] [4820] DART/trunk/location/oned/location_mod.f90: At this point the oned locations mod does not support different cutoff

[nancy at ucar.edu]

Revision: 4820
Author:   nancy
Date:     2011-03-25 13:21:25 -0600 (Fri, 25 Mar 2011)
Log Message:
-----------
At this point the oned locations mod does not support different cutoff
distances by type.  catch if the user sets that option in the assim_tools
namelist and error out with a helpful error message.  there is no reason
that code couldn't be added here at some point.

Modified Paths:
--------------
    DART/trunk/location/oned/location_mod.f90

-------------- next part --------------
Modified: DART/trunk/location/oned/location_mod.f90
===================================================================
--- DART/trunk/location/oned/location_mod.f90	2011-03-25 17:20:27 UTC (rev 4819)
+++ DART/trunk/location/oned/location_mod.f90	2011-03-25 19:21:25 UTC (rev 4820)
@@ -517,8 +517,12 @@
 
 type(get_close_type), intent(inout) :: gc
 real(r8),             intent(in)    :: maxdist
-real(r8), intent(in), optional      :: maxdist_list(:)
+real(r8), optional,   intent(in)    :: maxdist_list(:)
 
+if (present(maxdist_list)) then
+   write(errstring,*)'oned locations does not support different cutoff distances by type'
+   call error_handler(E_ERR, 'get_close_maxdist_init', errstring, source, revision, revdate)
+endif
 
 ! Set the maximum distance in the structure
 gc%maxdist = maxdist