gdmemvarclose.f90 File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	gdmemvarclose (var)

Function/Subroutine Documentation

gdmemvarclose()

subroutine gdmemvarclose

(

type(gd_mem_variable), intent(in)

var

)

Definition at line 2 of file gdmemvarclose.f90.

  use gtdata_memory_types, only: gd_mem_variable, gd_mem_variable_entry
  use gtdata_memory_internal, only: memtab_lookup

  type(gd_mem_variable), intent(in):: var
  type(gd_mem_variable_entry), pointer:: ent
  if (memtab_lookup(var, ent) /= 0) return
  deallocate(ent%dbuf)
  if (associated(ent%attr)) deallocate(ent%attr)
  if (associated(ent%current)) deallocate(ent%current)
  ent%name = ""