[Dart-dev] DART/branches Revision: 12634

[dart at ucar.edu]

nancy at ucar.edu
2018-06-05 14:32:15 -0600 (Tue, 05 Jun 2018)
81
make sure to only reference existing dimensions, not the
entire declared array.




Modified: DART/branches/recam/assimilation_code/modules/io/state_structure_mod.f90
===================================================================
--- DART/branches/recam/assimilation_code/modules/io/state_structure_mod.f90	2018-06-05 20:29:00 UTC (rev 12633)
+++ DART/branches/recam/assimilation_code/modules/io/state_structure_mod.f90	2018-06-05 20:32:15 UTC (rev 12634)
@@ -610,7 +610,7 @@
    !>         is the slowest varying dimension.  For now am assuming that
    !>         there can only be one unlimited dimension. Just subtract 
    !>         to get 'spatial' dimensions.
-   if ( any(domain%variable(ivar)%io_info%io_dimIds(:) == domain%unlimDimId) ) then
+   if ( any(domain%variable(ivar)%io_info%io_dimIds(1:num_dims) == domain%unlimDimId) ) then
       domain%variable(ivar)%numdims = num_dims - 1 
       domain%variable(ivar)%var_has_unlim = .TRUE.
    else