[Dart-dev] DART/branches Revision: 11747

[dart at ucar.edu]

nancy at ucar.edu
2017-06-15 17:11:08 -0600 (Thu, 15 Jun 2017)
62
make consistent with i4/i8 in get_close() family of routines




Modified: DART/branches/coamps/assimilation_code/location/oned/location_mod.f90
===================================================================
--- DART/branches/coamps/assimilation_code/location/oned/location_mod.f90	2017-06-15 18:49:20 UTC (rev 11746)
+++ DART/branches/coamps/assimilation_code/location/oned/location_mod.f90	2017-06-15 23:11:08 UTC (rev 11747)
@@ -418,7 +418,7 @@
 type(get_close_type),          intent(in)  :: gc
 type(location_type),           intent(in)  :: base_loc, locs(:)
 integer,                       intent(in)  :: base_type, loc_qtys(:), loc_types(:) 
-integer,                       intent(out) :: num_close, close_ind(:)
+integer(i8),                   intent(out) :: num_close, close_ind(:)
 real(r8),            optional, intent(out) :: dist(:)
 type(ensemble_type), optional, intent(in)  :: ensemble_handle
 
@@ -436,7 +436,7 @@
 type(location_type),           intent(in)  :: base_loc, locs(:)
 integer,                       intent(in)  :: base_type, loc_qtys(:)
 integer(i8),                   intent(in)  :: loc_indx(:) 
-integer,                       intent(out) :: num_close, close_ind(:)
+integer(i8),                   intent(out) :: num_close, close_ind(:)
 real(r8),            optional, intent(out) :: dist(:)
 type(ensemble_type), optional, intent(in)  :: ensemble_handle
 
@@ -453,7 +453,7 @@
 type(get_close_type),          intent(in)  :: gc
 type(location_type),           intent(in)  :: base_loc, locs(:)
 integer,                       intent(in)  :: base_type, loc_qtys(:)
-integer,                       intent(out) :: num_close, close_ind(:)
+integer(i8),                   intent(out) :: num_close, close_ind(:)
 real(r8),            optional, intent(out) :: dist(:)
 type(ensemble_type), optional, intent(in)  :: ensemble_handle