gdmemvarcreated.f90

Go to the documentation of this file.

subroutine gdmemvarcreated(var, url, length, xtype, long_name, overwrite, err)
  use gtdata_memory_types, only: gd_mem_variable, gd_mem_variable_entry
  use gtdata_memory_generic, only: put_attr
  use gtdata_memory_internal, only: memtab, memtab_add

  type(gd_mem_variable), intent(out):: var
  character(*), intent(in):: url
  integer, intent(in):: length
  character(*), intent(in), optional:: xtype, long_name
  logical, intent(in), optional:: overwrite
  logical, intent(out), optional:: err
  type(gd_mem_variable_entry), pointer:: ent
  integer:: stat
continue
  stat = memtab_add(var, url)
  if (stat /= 0) then
    if (present(err)) err = .true.
    return
  endif
  ent => memtab(var%id)
  if (present(xtype)) then
    ent%xtype = xtype
  else
    ent%xtype = "real"
  endif
  allocate(ent%dbuf(length))
  nullify(ent%attr, ent%current)
  if (present(long_name)) call put_attr(var, "long_name", long_name)
  if (present(err)) err = .false.
end subroutine gdmemvarcreated