[Dart-dev] DART/branches Revision: 12410

[dart at ucar.edu]

nancy at ucar.edu
2018-03-01 13:21:46 -0700 (Thu, 01 Mar 2018)
91
from tim - correct the length of a local variable.
declared with the wrong NF90 constant.




Modified: DART/branches/rma_trunk/assimilation_code/modules/io/state_structure_mod.f90
===================================================================
--- DART/branches/rma_trunk/assimilation_code/modules/io/state_structure_mod.f90	2018-02-27 20:51:13 UTC (rev 12409)
+++ DART/branches/rma_trunk/assimilation_code/modules/io/state_structure_mod.f90	2018-03-01 20:21:46 UTC (rev 12410)
@@ -1584,7 +1584,7 @@
 integer :: num_dims
 integer :: array_ids(NF90_MAX_VAR_DIMS)
 integer :: array_lengths(NF90_MAX_VAR_DIMS)
-character(len=NF90_MAX_VAR_DIMS) :: dim_name
+character(len=NF90_MAX_NAME) :: dim_name
 integer  :: missingINT, spval_int
 real(r4) :: missingR4,  spval_r4
 real(r8) :: missingR8,  spval_r8