[Dart-dev] DART/branches Revision: 12269

dart at ucar.edu dart at ucar.edu
Wed Jan 3 15:29:16 MST 2018


thoar at ucar.edu
2018-01-03 15:29:16 -0700 (Wed, 03 Jan 2018)
109
Removing nc_get_variable_info() routine. To be added later, if need be.
It exists on the rma_coamps branch.




Modified: DART/branches/mmc/assimilation_code/modules/utilities/netcdf_utilities_mod.f90
===================================================================
--- DART/branches/mmc/assimilation_code/modules/utilities/netcdf_utilities_mod.f90	2018-01-03 22:24:52 UTC (rev 12268)
+++ DART/branches/mmc/assimilation_code/modules/utilities/netcdf_utilities_mod.f90	2018-01-03 22:29:16 UTC (rev 12269)
@@ -40,7 +40,6 @@
           nc_define_double_variable,    &
           nc_put_variable,              &
           nc_get_variable,              &
-          nc_get_variable_info,         &
           nc_add_global_creation_time,  &
           nc_redef,                     &
           nc_enddef,                    &
@@ -847,65 +846,8 @@
 
 end subroutine nc_get_real_3d
 
-
 !--------------------------------------------------------------------
-!> Query and return information about a netCDF variable given the variable name.
-!> Optionally returns the type of variable, the number of dimensions, 
-!> the dimension names and lengths, the number of attributes (but not the attribute values (yet))
-
-subroutine nc_get_variable_info(ncid, varname, xtype, ndims, dimlens, dimnames, natts, &
-                                context, filename)
-
-integer,          intent(in)            :: ncid
-character(len=*), intent(in)            :: varname
-integer,          intent(out), optional :: xtype
-integer,          intent(out), optional :: ndims
-integer,          intent(out), optional :: dimlens(:)
-character(len=*), intent(out), optional :: dimnames(:)
-integer,          intent(out), optional :: natts
-character(len=*), intent(in) , optional :: context
-character(len=*), intent(in) , optional :: filename
-
-character(len=*), parameter :: routine = 'nc_get_variable_info'
-
-integer :: ret, varid, dimid, ii
-integer :: myndims
-integer :: mydimids(NF90_MAX_VAR_DIMS)
-integer :: mydimlens(NF90_MAX_VAR_DIMS)
-character(len=NF90_MAX_NAME) :: mydimnames(NF90_MAX_VAR_DIMS)
-
-ret = nf90_inq_varid(ncid, varname, varid)
-call nc_check(ret, routine, 'inq_varid for '//trim(varname), context, filename)
-
-ret = nf90_inquire_variable(ncid, varid, xtype=xtype, ndims=myndims, &
-                            dimids=mydimids, natts=natts) 
-call nc_check(ret, routine, 'inquire_variable for '//trim(varname), context, filename)
-
-if (present(dimlens) .or. present(dimnames)) then  ! more work to do 
-
-   !>@todo do we want to make sure dimlens, dimnames are long enough
-   if (present(dimlens))  dimlens  = 0
-   if (present(dimnames)) dimnames = 'null'
-
-   do ii = 1,myndims
-
-      dimid = mydimids(ii)
-      ret = nf90_inquire_dimension(ncid, dimid, name=mydimnames(ii), len=mydimlens(ii))
-
-      write(msgstring1,*)'inquire_dimension ',ii,' for "'//trim(varname)//'"'
-      call nc_check(ret, routine, msgstring1, context, filename)
-
-   enddo
-endif
-
-if (present(   ndims)) ndims             = myndims
-if (present( dimlens)) dimlens(1:ndims)  = mydimlens(1:ndims)
-if (present(dimnames)) dimnames(1:ndims) = mydimnames(1:ndims)
-
-end subroutine nc_get_variable_info
-
 !--------------------------------------------------------------------
-!--------------------------------------------------------------------
 ! misc section: file operations, standard timestamp routine
 
 subroutine nc_add_global_creation_time(ncid, context, filename)


More information about the Dart-dev mailing list