[Dart-dev] DART/branches Revision: 12898
dart at ucar.edu
dart at ucar.edu
Tue Oct 9 15:16:06 MDT 2018
nancy at ucar.edu
2018-10-09 15:16:05 -0600 (Tue, 09 Oct 2018)
457
separate the declaration of a variable and setting an
initial value. if they're on the same line it becomes
a 'save' variable and keeps its value across multiple
calls. this is not what is intended for this code.
(i can't see anyplace in our code where we are calling
read_state() multiple times with and without inflation,
but i must have had some test program that did because
i found this error.)
TLDR: fix a bug that i don't think affected anyone.
Modified: DART/branches/radiance/assimilation_code/modules/io/state_vector_io_mod.f90
===================================================================
--- DART/branches/radiance/assimilation_code/modules/io/state_vector_io_mod.f90 2018-10-08 21:41:12 UTC (rev 12897)
+++ DART/branches/radiance/assimilation_code/modules/io/state_vector_io_mod.f90 2018-10-09 21:16:05 UTC (rev 12898)
@@ -178,8 +178,10 @@
type(adaptive_inflate_type), optional, intent(in) :: post_inflate_handle
logical, optional, intent(in) :: perturb_from_single_copy
-logical :: inflation_handles = .false.
+logical :: inflation_handles
+inflation_handles = .false.
+
if ( .not. module_initialized ) call state_vector_io_init() ! to read the namelist
! check whether file_info handle is initialized
More information about the Dart-dev
mailing list