gdmemvarattrrewind.f90

Go to the documentation of this file.

subroutine gdmemvarattrrewind(var)
  use gtdata_memory_types, only: gd_mem_variable, gd_mem_variable_entry
  use gtdata_memory_internal, only: memtab_lookup
  use netcdf, only: nf90_noerr
  type(gd_mem_variable), intent(in):: var
  type(gd_mem_variable_entry), pointer:: ent

  if (memtab_lookup(var, ent) /= nf90_noerr) return
  nullify(ent%current)
end subroutine gdmemvarattrrewind