gtdata_netcdf_file_generic.f90

Go to the documentation of this file.

!
!= netCDF ファイルのオープンクローズに関する手続きの引用仕様
!
! Authors::   Yasuhiro MORIKAWA, Eizi TOYODA
! Version::   $Id: gtdata_netcdf_file_generic.f90,v 1.1 2009-04-28 11:05:59 morikawa Exp $
! Tag Name::  $Name:  $
! Copyright:: Copyright (C) GFD Dennou Club, 2000-2009. All rights reserved.
! License::   See COPYRIGHT[link:../../COPYRIGHT]
!

module gtdata_netcdf_file_generic
  !
  != netCDF ファイルのオープンクローズに関する手続きの引用仕様
  !
  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

  ! 非公開なので gtdata_netcdf_generic には置かない
  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