gtdata_memory_generic.f90

Go to the documentation of this file.

!== Generic procedures for memory variable support
!
! Authors::   Yasuhiro MORIKAWA, Eizi TOYODA
! Version::   $Id: gtdata_memory_generic.f90,v 1.2 2009-04-29 05:25:06 morikawa Exp $
! Tag Name::  $Name:  $
! Copyright:: Copyright (C) GFD Dennou Club, 2001-2005. All rights reserved.
! License::   See COPYRIGHT[link:../../COPYRIGHT]
!
module gtdata_memory_generic
  ! いわゆるメモリ変数をサポートします (いまのところ１次元だけ)
  use dc_types, only: string, token, dp
  use gtdata_memory_types, only: gd_mem_variable

  private

  public:: create, Close
  public:: attr_rewind, attr_next, attr_true, del_attr, put_attr, get_attr

  interface create
    subroutine gdmemvarcreated(var, url, length, xtype, long_name, overwrite, err)
      use gtdata_memory_types, only: gd_mem_variable
      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
    end subroutine gdmemvarcreated

  end interface

  interface close
    subroutine gdmemvarclose(var)
      use gtdata_memory_types, only: gd_mem_variable
      type(gd_mem_variable), intent(in):: var
    end subroutine gdmemvarclose
  end interface

  interface attr_rewind
    subroutine gdmemvarattrrewind(var)
      use gtdata_memory_types, only: gd_mem_variable
      type(gd_mem_variable), intent(in):: var
    end subroutine gdmemvarattrrewind
  end interface

  interface attr_next
    subroutine gdmemvarattrnext(var, name, err)
      use gtdata_memory_types, only: gd_mem_variable
      type(gd_mem_variable), intent(in):: var
      character(len = *), intent(out):: name
      logical, intent(out), optional:: err
    end subroutine gdmemvarattrnext
  end interface

  interface attr_true
    logical function gdmemvarattrtrue(var, name, default) result(result)
      use gtdata_memory_types, only: gd_mem_variable
      type(gd_mem_variable), intent(in):: var
      character(len = *), intent(in):: name
      logical, intent(in), optional:: default
    end function gdmemvarattrtrue
  end interface

  interface del_attr
    subroutine gdmemvarattrdel(var, name, err)
      use gtdata_memory_types, only: gd_mem_variable
      type(gd_mem_variable), intent(in):: var
      character(len = *), intent(in):: name
      logical, intent(out), optional:: err
    end subroutine gdmemvarattrdel
  end interface

  interface put_attr
    subroutine gdmemvarattradd(var, attrname, attrval)
      use gtdata_memory_types, only: gd_mem_variable
      type(gd_mem_variable), intent(in):: var
      character(*), intent(in):: attrname
      character(*), intent(in):: attrval
    end subroutine gdmemvarattradd
  end interface

  interface get_attr
    subroutine gdmemvarattrget(var, name, value, err)
      use gtdata_memory_types, only: gd_mem_variable
      type(gd_mem_variable), intent(in):: var
      character(len = *), intent(in):: name
      character(len = *), intent(out):: value
      logical, intent(out), optional:: err
    end subroutine gdmemvarattrget
  end interface

end module gtdata_memory_generic