gdmemvarcreated.f90 File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	gdmemvarcreated (var, url, length, xtype, long_name, overwrite, err)

Function/Subroutine Documentation

gdmemvarcreated()

subroutine gdmemvarcreated	(	type(gd_mem_variable), intent(out)	var,
		character(*), intent(in)	url,
		integer, intent(in)	length,
		character(*), intent(in), optional	xtype,
		character(*), intent(in), optional	long_name,
		logical, intent(in), optional	overwrite,
		logical, intent(out), optional	err
	)

Definition at line 2 of file gdmemvarcreated.f90.

References gtdata_memory_internal::memtab.

  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.