[Dart-dev] DART/branches Revision: 12448

[dart at ucar.edu]

nancy at ucar.edu
2018-03-14 15:21:52 -0600 (Wed, 14 Mar 2018)
80
define function return type so it can be used;
declare missing local variable.




Modified: DART/branches/rma_netcdf_utils/assimilation_code/modules/utilities/netcdf_utilities_mod.f90
===================================================================
--- DART/branches/rma_netcdf_utils/assimilation_code/modules/utilities/netcdf_utilities_mod.f90	2018-03-14 21:20:04 UTC (rev 12447)
+++ DART/branches/rma_netcdf_utils/assimilation_code/modules/utilities/netcdf_utilities_mod.f90	2018-03-14 21:21:52 UTC (rev 12448)
@@ -1411,7 +1411,7 @@
 character(len=*), intent(in), optional :: filename
 
 character(len=*), parameter :: routine = 'nc_get_variable_size_Nd'
-integer :: ret, ndims, varid, dimids(NF90_MAX_VAR_DIMS)
+integer :: ret, i, ndims, 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, ncid)
@@ -1641,6 +1641,7 @@
 function has_scale_off(ncid, varid)
 integer, intent(in) :: ncid
 integer, intent(in) :: varid
+logical :: has_scale_off
 
 integer :: ret