File: gdncvarclose.f90

Required files

gtdata/gtdata_netcdf/gtdata_netcdf_file/gtdata_netcdf_file_generic.f90 dc_utils/dc_error.f90 gtdata/gtdata_netcdf/gtdata_netcdf_internal.f90 gtdata/gtdata_netcdf/gtdata_netcdf_types.f90

Methods

GDNcVarClose

Included Modules

gtdata_netcdf_types gtdata_netcdf_file_generic gtdata_netcdf_internal dc_error

Public Instance methods

GDNcVarClose( var, [err] )

*Subroutine* :
`var` :	`type(GD_NC_VARIABLE), intent(in)`
`err` :	`logical, intent(out), optional`

[Source]

subroutine GDNcVarClose(var, err)
  use gtdata_netcdf_types, only: GD_NC_VARIABLE
  use gtdata_netcdf_file_generic, only: GDNcFileClose, GDNcFileSync
  use gtdata_netcdf_internal, only: vtable_delete
  use dc_error
  implicit none
  type(GD_NC_VARIABLE), intent(in):: var
  logical, intent(out), optional:: err
  integer:: fileid
continue
  fileid = vtable_delete(var)
  if (fileid < 0) then
    call StoreError(fileid, 'GDNcVarClose', err)
    return
  endif
  call GDNcFileSync(fileid)
  call GDNcFileClose(fileid, err)
end subroutine