gtdata_netcdf_generic.f90

Go to the documentation of this file.

 
 
module gtdata_netcdf_generic
  !
 
  implicit none
 
  !---------------------------------------------------------------------------
  !---------------------------------------------------------------------------
 
  interface open
    recursive subroutine gdncvaropen(var, url, writable, err)
      use gtdata_netcdf_types, only: gd_nc_variable
      type(gd_nc_variable), intent(out):: var
      character(len = *), intent(in):: url
      logical, intent(in), optional:: writable
      logical, intent(out), optional:: err
    end subroutine gdncvaropen
    subroutine gdncvaropenbydimord(var, src_var, dimord, err)
      use gtdata_netcdf_types, only: gd_nc_variable
      type(gd_nc_variable), intent(out):: var
      type(gd_nc_variable), intent(in):: src_var
      integer, intent(in):: dimord
      logical, intent(out), optional:: err
    end subroutine gdncvaropenbydimord
  end interface
 
  interface search_dim
    integer function gdncsearchdim(var, dimname)
      use gtdata_netcdf_types, only: gd_nc_variable
      type(gd_nc_variable), intent(in):: var
      character(len = *), intent(in):: dimname
    end function gdncsearchdim
  end interface
 
  interface create
    subroutine gdncvarcreate(var, url, xtype, dims, overwrite, err)
      use gtdata_netcdf_types, only: gd_nc_variable
      type(gd_nc_variable), intent(out):: var
      character(len = *), intent(in):: url
      character(len = *), intent(in):: xtype
      type(gd_nc_variable), intent(in):: dims(:)
      logical, intent(in), optional:: overwrite
      logical, intent(out), optional:: err
    end subroutine gdncvarcreate
    subroutine gdncvarcreated(var, url, xtype, length, overwrite, err)
      use gtdata_netcdf_types, only: gd_nc_variable
      type(gd_nc_variable), intent(out):: var
      character(len = *), intent(in):: url
      character(len = *), intent(in):: xtype
      integer, intent(in):: length
      logical, intent(in), optional:: overwrite
      logical, intent(out), optional:: err
    end subroutine gdncvarcreated
  end interface
 
  interface
    subroutine gdncvardel(varname, hint, stat)
      character(len = *), intent(in):: varname
      character(len = *), intent(in):: hint
      integer, intent(out):: stat
    end subroutine gdncvardel
  end interface
 
  interface close
    subroutine gdncvarclose(var, err)
      use gtdata_netcdf_types, only: gd_nc_variable
      type(gd_nc_variable), intent(in):: var
      logical, intent(out), optional:: err
    end subroutine gdncvarclose
  end interface
 
  !---------------------------------------------------------------------------
  !---------------------------------------------------------------------------
 
  interface tostring
    function gdncvartostring(var) result(result)
      use dc_types, only: string
      use gtdata_netcdf_types, only: gd_nc_variable
      character(string):: result
      type(gd_nc_variable), intent(in):: var
    end function gdncvartostring
  end interface
 
  interface inquire
 
    subroutine gdncvarinquire(var, ndims, dimlen, growable, name, url, xtype)
      use gtdata_netcdf_types, only: gd_nc_variable
      type(gd_nc_variable), intent(in):: var
      integer, intent(out), optional:: ndims
      integer, intent(out), optional:: dimlen
      logical, intent(out), optional:: growable
      character(*), intent(out), optional:: name
      character(*), intent(out), optional:: url
      character(*), intent(out), optional:: xtype
    end subroutine gdncvarinquire
 
    subroutine gdncvarinquireia(var, dimlen)
      use gtdata_netcdf_types, only: gd_nc_variable
      type(gd_nc_variable), intent(in):: var
      integer, intent(out):: dimlen(:)
    end subroutine gdncvarinquireia
 
    subroutine gdncattrinquire(var, attrname, xtype)
      use gtdata_netcdf_types, only: gd_nc_variable
      type(gd_nc_variable), intent(in):: var
      character(len=*), intent(in):: attrname
      character(len=*), intent(out), optional:: xtype
    end subroutine gdncattrinquire
 
  end interface
 
  interface inquireplus
 
    subroutine gdncattrinquireplus(var, attrname, varid, nf_attrname)
      use gtdata_netcdf_types, only: gd_nc_variable
      type(gd_nc_variable), intent(in):: var
      character(len=*), intent(in):: attrname
      integer, intent(out):: varid
      character(len=*), intent(out):: nf_attrname
    end subroutine gdncattrinquireplus
 
  end interface
 
  !---------------------------------------------------------------------------
  !---------------------------------------------------------------------------
 
  interface attr_rewind
    subroutine gdncvarattrrewind(var)
      use gtdata_netcdf_types, only: gd_nc_variable
      type(gd_nc_variable), intent(in):: var
    end subroutine gdncvarattrrewind
  end interface
 
  interface attr_next
    subroutine gdncvarattrnext(var, name, end)
      use gtdata_netcdf_types, only: gd_nc_variable
      type(gd_nc_variable), intent(in):: var
      character(len = *), intent(out):: name
      logical, intent(out), optional:: end
    end subroutine gdncvarattrnext
  end interface
 
  interface get_attr
 
    subroutine gdncattrgetchar(var, name, value, default, stat)
      use gtdata_netcdf_types, only: gd_nc_variable
      type(gd_nc_variable), intent(in):: var
      character(len = *), intent(in):: name
      character(len = *), intent(out):: value
      character(len = *), intent(in):: default
      integer, intent(out):: stat
    end subroutine gdncattrgetchar
 
    subroutine gdncvargetattrlogical(var, name, value, default)
      use gtdata_netcdf_types, only: gd_nc_variable
      type(gd_nc_variable), intent(in):: var
      character(len = *), intent(in):: name
      logical, intent(out):: value
      logical, intent(in), optional:: default
    end subroutine gdncvargetattrlogical
 
    subroutine gdncattrgetreal(var, name, value, stat, default)
      use gtdata_netcdf_types, only: gd_nc_variable
      type(gd_nc_variable), intent(in):: var
      character(len = *), intent(in):: name
      real, intent(out):: value(:)
      integer, intent(out):: stat
      real, intent(in), optional:: default
    end subroutine gdncattrgetreal
 
    subroutine gdncattrgetdouble(var, name, value, stat, default)
      use dc_types, only: dp
      use gtdata_netcdf_types, only: gd_nc_variable
      type(gd_nc_variable), intent(in):: var
      character(len = *), intent(in):: name
      real(DP), intent(out):: value(:)
      integer, intent(out):: stat
      real(DP), intent(in), optional:: default
    end subroutine gdncattrgetdouble
 
    subroutine gdncattrgetint(var, name, value, stat, default)
      use gtdata_netcdf_types, only: gd_nc_variable
      type(gd_nc_variable), intent(in):: var
      character(len = *), intent(in):: name
      integer, intent(out):: value(:)
      integer, intent(out):: stat
      integer, intent(in), optional:: default
    end subroutine gdncattrgetint
 
  end interface
 
  interface put_attr
 
    subroutine gdncvarputattrreal(var, name, value, err)
      use gtdata_netcdf_types, only: gd_nc_variable
      type(gd_nc_variable), intent(in):: var
      character(len = *), intent(in):: name
      real, intent(in):: value(:)
      logical, intent(out), optional:: err
    end subroutine gdncvarputattrreal
 
    subroutine gdncvarputattrdouble(var, name, value, err)
      use dc_types, only: dp
      use gtdata_netcdf_types, only: gd_nc_variable
      type(gd_nc_variable), intent(in):: var
      character(len = *), intent(in):: name
      real(DP), intent(in):: value(:)
      logical, intent(out), optional:: err
    end subroutine gdncvarputattrdouble
 
    subroutine gdncvarputattrint(var, name, value, err)
      use gtdata_netcdf_types, only: gd_nc_variable
      type(gd_nc_variable), intent(in):: var
      character(len = *), intent(in):: name
      integer, intent(in):: value(:)
      logical, intent(out), optional:: err
    end subroutine gdncvarputattrint
 
    subroutine gdncvarputattrlogical(var, name, value, err)
      use gtdata_netcdf_types, only: gd_nc_variable
      type(gd_nc_variable), intent(in):: var
      character(len = *), intent(in):: name
      logical, intent(in):: value
      logical, intent(out), optional:: err
    end subroutine gdncvarputattrlogical
 
    subroutine gdncvarputattrchar(var, name, value, xtype, err)
      use gtdata_netcdf_types, only: gd_nc_variable
      type(gd_nc_variable), intent(in):: var
      character(len = *), intent(in):: name
      character(len = *), intent(in):: value
      character(len = *), intent(in), optional:: xtype
      logical, intent(out), optional:: err
    end subroutine gdncvarputattrchar
 
  end interface
 
  interface del_attr
    subroutine gdncvardelattr(var, name, err)
      use gtdata_netcdf_types, only: gd_nc_variable
      type(gd_nc_variable), intent(in):: var
      character(len = *), intent(in):: name
      logical, intent(out), optional:: err
    end subroutine gdncvardelattr
  end interface
 
  interface copy_attr
    subroutine gdncvarattrcopy(to, attrname, from, stat)
      use gtdata_netcdf_types, only: gd_nc_variable
      type(gd_nc_variable), intent(in):: to
      character(len = *), intent(in):: attrname
      type(gd_nc_variable), intent(in):: from
      integer, intent(out):: stat
    end subroutine gdncvarattrcopy
  end interface
 
  !---------------------------------------------------------------------------
  !---------------------------------------------------------------------------
 
  interface get
 
    subroutine gdncvargetreal(var, start, count, stride, imap, &
      & siz, value, iostat)
      use gtdata_netcdf_types, only: gd_nc_variable
      type(gd_nc_variable), intent(in):: var
      integer, intent(in):: start(:)
      integer, intent(in):: count(:)
      integer, intent(in):: stride(:)
      integer, intent(in):: imap(:)
      integer, intent(in):: siz
      real, intent(out):: value(siz)
      integer, intent(out):: iostat
    end subroutine gdncvargetreal
 
    subroutine gdncvargetdouble(var, start, count, stride, imap, &
      & siz, value, iostat)
      use dc_types, only: dp
      use gtdata_netcdf_types, only: gd_nc_variable
      type(gd_nc_variable), intent(in):: var
      integer, intent(in):: start(:)
      integer, intent(in):: count(:)
      integer, intent(in):: stride(:)
      integer, intent(in):: imap(:)
      integer, intent(in):: siz
      real(DP), intent(out):: value(siz)
      integer, intent(out):: iostat
    end subroutine gdncvargetdouble
 
    subroutine gdncvargetint(var, start, count, stride, imap, &
      & siz, value, iostat)
      use dc_types, only: dp
      use gtdata_netcdf_types, only: gd_nc_variable
      type(gd_nc_variable), intent(in):: var
      integer, intent(in):: start(:)
      integer, intent(in):: count(:)
      integer, intent(in):: stride(:)
      integer, intent(in):: imap(:)
      integer, intent(in):: siz
      integer, intent(out):: value(siz)
      integer, intent(out):: iostat
    end subroutine gdncvargetint
 
  end interface
 
  interface put
 
    subroutine gdncvarputreal(var, start, count, stride, imap, &
      & siz, value, iostat)
      use gtdata_netcdf_types, only: gd_nc_variable
      type(gd_nc_variable), intent(in):: var
      integer, intent(in):: start(:)
      integer, intent(in):: count(:)
      integer, intent(in):: stride(:)
      integer, intent(in):: imap(:)
      integer, intent(in):: siz
      real, intent(in):: value(siz)
      integer, intent(out):: iostat
    end subroutine gdncvarputreal
 
    subroutine gdncvarputdouble(var, start, count, stride, imap, &
      & siz, value, iostat)
      use dc_types, only: dp
      use gtdata_netcdf_types, only: gd_nc_variable
      type(gd_nc_variable), intent(in):: var
      integer, intent(in):: start(:)
      integer, intent(in):: count(:)
      integer, intent(in):: stride(:)
      integer, intent(in):: imap(:)
      integer, intent(in):: siz
      real(DP), intent(in):: value(siz)
      integer, intent(out):: iostat
    end subroutine gdncvarputdouble
 
    subroutine gdncvarputint(var, start, count, stride, imap, &
      & siz, value, iostat)
      use gtdata_netcdf_types, only: gd_nc_variable
      type(gd_nc_variable), intent(in):: var
      integer, intent(in):: start(:)
      integer, intent(in):: count(:)
      integer, intent(in):: stride(:)
      integer, intent(in):: imap(:)
      integer, intent(in):: siz
      integer, intent(in):: value(siz)
      integer, intent(out):: iostat
    end subroutine gdncvarputint
 
    subroutine gdncvarputchar(var, start, count, stride, imap, &
      & siz, value, iostat)
      use gtdata_netcdf_types, only: gd_nc_variable
      type(gd_nc_variable), intent(in):: var
      integer, intent(in):: start(:)
      integer, intent(in):: count(:)
      integer, intent(in):: stride(:)
      integer, intent(in):: imap(:)
      integer, intent(in):: siz
      character(*), intent(in):: value(siz)
      integer, intent(out):: iostat
    end subroutine gdncvarputchar
 
  end interface
 
  !---------------------------------------------------------------------------
  !---------------------------------------------------------------------------
 
  interface var_search
        
    subroutine gdncvarsearchinit(iter, urlBase)
      use gtdata_netcdf_types, only: gd_nc_variable_search
      type(gd_nc_variable_search), intent(out):: iter
      character(len = *), intent(in):: urlBase
    end subroutine gdncvarsearchinit
 
    subroutine gdncvarsearchnext(iter, url, end)
      use gtdata_netcdf_types, only: gd_nc_variable_search
      type(gd_nc_variable_search), intent(inout):: iter
      character(len = *), intent(out):: url
      logical, intent(out):: end
    end subroutine gdncvarsearchnext
 
  end interface
 
  interface
    subroutine gdncvarsync(var, stat)
      use gtdata_netcdf_types, only: gd_nc_variable
      type(gd_nc_variable), intent(in), optional:: var
      integer, intent(out), optional:: stat
    end subroutine gdncvarsync
  end interface
 
  interface
    subroutine gdncxtypename(ixtype, xtype)
      integer, intent(in):: ixtype
      character(*), intent(out):: xtype
    end subroutine gdncxtypename
  end interface
 
end module gtdata_netcdf_generic