gtdata_netcdf_internal.f90 File Reference

Go to the source code of this file.

Modules
module	gtdata_netcdf_internal

Functions/Subroutines
integer function, public	gtdata_netcdf_internal::vtable_add (var, entry)
subroutine	internal_build_dimids (ent, stat)
integer function, public	gtdata_netcdf_internal::vtable_delete (var)
integer function, public	gtdata_netcdf_internal::vtable_lookup (var, entry)
integer function, public	gtdata_netcdf_internal::vtable_set_attrid (var, attrid)

Variables
type(gd_nc_variable_entry), dimension(:), allocatable, target, save	gtdata_netcdf_internal::gdnctab
integer, parameter	gtdata_netcdf_internal::gdnctab_init_size = 16

Function/Subroutine Documentation

internal_build_dimids()

subroutine vtable_add::internal_build_dimids ( type(gd_nc_variable_entry), intent(inout)  ent, integer, intent(out)  stat  )

private

Definition at line 114 of file gtdata_netcdf_internal.f90.

Referenced by gtdata_netcdf_internal::vtable_add().

!!      use netcdf, only: &
!!        & NF90_NOERR, NF90_ENOMEM, NF90_INQUIRE_VARIABLE
      type(gd_nc_variable_entry), intent(inout):: ent
      integer, intent(out):: stat
      integer:: ndims
      if (ent%varid > 0) then
        stat = nf90_inquire_variable(ent%fileid, ent%varid, ndims = ndims)
        if (stat /= nf90_noerr) return
        if ((ent%dimid > 0) .and. (ndims /= 1)) goto 100
        if (ndims == 0) then
          nullify(ent%dimids)
          stat = nf90_noerr
          return
        endif
        allocate(ent%dimids(ndims), stat=stat)
        if (stat /= 0) then
          stat = nf90_enomem
          return
        endif
        stat = nf90_inquire_variable(ent%fileid, ent%varid, dimids = ent%dimids)
        if (stat /= nf90_noerr) return
        if ((ent%dimid > 0) .and. (ent%dimids(1) /= ent%dimid)) then
          deallocate(ent%dimids)
          goto 100
        endif
      else
        allocate(ent%dimids(1), stat=stat)
        if (stat /= 0) then
          stat = nf90_enomem
          return
        endif
        ent%dimids(1) = ent%dimid
      endif
      stat = nf90_noerr
      return

100   continue
      ent%varid = 0
      allocate(ent%dimids(1))
      ent%dimids(1) = ent%dimid

Here is the caller graph for this function: