gtdata_netcdf_file_types.f90

Go to the documentation of this file.

!
!= netCDF ファイルのオープンクローズ用のオブジェクト
!
! Authors::   Yasuhiro MORIKAWA, Eizi TOYODA
! Version::   $Id: gtdata_netcdf_file_types.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_types
  !
  !== netCDF ファイルのオープンクローズ用のオブジェクト
  !
  use dc_types, only: string
  use dc_trace, only: beginsub, endsub, dbgmessage
 
  implicit none
  private
 
  type gd_nc_file_id_entry
    integer:: id
    integer:: count
    logical:: writable
    character(len = STRING):: filename
    type(gd_nc_file_id_entry), pointer:: next
  end type gd_nc_file_id_entry
 
  public:: gd_nc_file_id_entry
 
end module gtdata_netcdf_file_types