[Dart-dev] DART/branches Revision: 12039

[dart at ucar.edu]

nancy at ucar.edu
2017-11-03 11:49:57 -0600 (Fri, 03 Nov 2017)
151
max_dims is the limit on number of different dimensions
in a file.  max_var_dims is max dims for a single variable.
we wanted the latter, not former.




Modified: DART/branches/recam/assimilation_code/modules/utilities/netcdf_utilities_mod.f90
===================================================================
--- DART/branches/recam/assimilation_code/modules/utilities/netcdf_utilities_mod.f90	2017-11-03 17:26:19 UTC (rev 12038)
+++ DART/branches/recam/assimilation_code/modules/utilities/netcdf_utilities_mod.f90	2017-11-03 17:49:57 UTC (rev 12039)
@@ -908,7 +908,7 @@
 character(len=*), intent(in), optional :: filename
 
 character(len=*), parameter :: routine = 'nc_get_variable_size_1d'
-integer :: ret, varid, dimids(NF90_MAX_DIMS)
+integer :: ret, varid, dimids(NF90_MAX_VAR_DIMS)
 
 ret = nf90_inq_varid(ncid, varname, varid)
 call nc_check(ret, routine, 'inquire variable id for '//trim(varname), context, filename)
@@ -932,7 +932,7 @@
 character(len=*), intent(in), optional :: filename
 
 character(len=*), parameter :: routine = 'nc_get_variable_size_Nd'
-integer :: ret, varid, dimids(NF90_MAX_DIMS)
+integer :: ret, varid, dimids(NF90_MAX_VAR_DIMS)
 
 ret = nf90_inq_varid(ncid, varname, varid)
 call nc_check(ret, routine, 'inquire variable id for '//trim(varname), context, filename)