[Dart-dev] DART/branches Revision: 12627

[dart at ucar.edu]

nancy at ucar.edu
2018-06-05 14:15:41 -0600 (Tue, 05 Jun 2018)
99
for the new entry point get_maxdist() declare the
function return type in these location modules.




Modified: DART/branches/recam/assimilation_code/location/annulus/location_mod.f90
===================================================================
--- DART/branches/recam/assimilation_code/location/annulus/location_mod.f90	2018-06-05 20:12:45 UTC (rev 12626)
+++ DART/branches/recam/assimilation_code/location/annulus/location_mod.f90	2018-06-05 20:15:41 UTC (rev 12627)
@@ -638,6 +638,7 @@
 function get_maxdist(gc, obs_type)
 type(get_close_type), intent(in) :: gc
 integer, optional,    intent(in) :: obs_type
+real(r8) :: get_maxdist
 
 get_maxdist = gc%maxdist
 

Modified: DART/branches/recam/assimilation_code/location/channel/location_mod.f90
===================================================================
--- DART/branches/recam/assimilation_code/location/channel/location_mod.f90	2018-06-05 20:12:45 UTC (rev 12626)
+++ DART/branches/recam/assimilation_code/location/channel/location_mod.f90	2018-06-05 20:15:41 UTC (rev 12627)
@@ -1057,6 +1057,7 @@
 function get_maxdist(gc, obs_type)
 type(get_close_type), intent(in) :: gc
 integer, optional,    intent(in) :: obs_type
+real(r8) :: get_maxdist
 
 get_maxdist = gc%maxdist
 

Modified: DART/branches/recam/assimilation_code/location/column/location_mod.f90
===================================================================
--- DART/branches/recam/assimilation_code/location/column/location_mod.f90	2018-06-05 20:12:45 UTC (rev 12626)
+++ DART/branches/recam/assimilation_code/location/column/location_mod.f90	2018-06-05 20:15:41 UTC (rev 12627)
@@ -537,6 +537,7 @@
 function get_maxdist(gc, obs_type)
 type(get_close_type), intent(in) :: gc
 integer, optional,    intent(in) :: obs_type
+real(r8) :: get_maxdist
 
 get_maxdist = gc%maxdist