[Dart-dev] DART/branches Revision: 11083

[dart at ucar.edu]

nancy at ucar.edu
2017-02-09 15:49:32 -0700 (Thu, 09 Feb 2017)
65
make the index values into get_state() be i8,
not just integer.




Modified: DART/branches/rma_single_file/models/9var/model_mod.f90
===================================================================
--- DART/branches/rma_single_file/models/9var/model_mod.f90	2017-02-09 22:29:43 UTC (rev 11082)
+++ DART/branches/rma_single_file/models/9var/model_mod.f90	2017-02-09 22:49:32 UTC (rev 11083)
@@ -524,7 +524,7 @@
 real(r8),            intent(out) :: expected_obs(ens_size)
 integer,             intent(out) :: istatus(ens_size)
 
-integer  :: lower_index, upper_index
+integer(i8)  :: lower_index, upper_index
 real(r8) :: lctn, lctnfrac
 
 ! All interps okay for now