gtdata_netcdf_file_generic.f90

Go to the documentation of this file.

 
 
module gtdata_netcdf_file_generic
  !
  use dc_types, only: string
  use dc_trace, only: beginsub, endsub, dbgmessage
 
  implicit none
  private
 
  public:: gdncfileopen, gdncfileclose, gdncfilereopen
  public:: gdncfiledatamode, gdncfiledefinemode, gdncfilesync
  public:: gdncfileinquire
 
  interface
 
    subroutine gdncfileopen(fileid, filename, writable, overwrite, stat, err)
      integer, intent(out):: fileid
      character(len = *), intent(in):: filename
      logical, intent(in), optional:: writable
      logical, intent(in), optional:: overwrite
      logical, intent(out), optional:: err
      integer, intent(out), optional:: stat
    end subroutine gdncfileopen
  end interface
 
  interface
 
    subroutine gdncfileclose(fileid, err)
      integer, intent(in):: fileid
      logical, intent(out), optional:: err
    end subroutine gdncfileclose
  end interface
 
  interface
 
    subroutine gdncfilereopen(fileid, err)
      integer, intent(in):: fileid
      logical, intent(out), optional:: err
    end subroutine gdncfilereopen
  end interface
 
  interface
 
    integer function gdncfiledatamode(fileid) result(result)
      integer, intent(in):: fileid
    end function gdncfiledatamode
  end interface
 
  interface
 
    integer function gdncfiledefinemode(fileid) result(result)
      integer, intent(in):: fileid
    end function gdncfiledefinemode
  end interface
 
  interface
 
    subroutine gdncfilesync(fileid, stat)
      integer, intent(in), optional:: fileid
      integer, intent(out), optional:: stat
    end subroutine gdncfilesync
  end interface
 
  interface gdncfileinquire
    subroutine gdncfileinquirename(fileid, name)
      integer, intent(in):: fileid
      character(len = *), intent(out):: name
    end subroutine gdncfileinquirename
  end interface
 
end module gtdata_netcdf_file_generic