gtdata_netcdf_file_types.f90

Go to the documentation of this file.

!>
!> @file gtdata_netcdf_file_types.f90
!>
!> @author Yasuhiro MORIKAWA, Eizi TOYODA
!> @copyright Copyright (C) GFD Dennou Club, 2000-2026. All rights reserved. <br/>
!>            License is BSD-2-Clause. See [COPYRIGHT](@ref COPYRIGHT) in detail
!>
!> @en
!> @brief Type definitions for netCDF file open/close operations
!> @enden
!>
!> @ja
!> @brief netCDF ファイルのオープンクローズ用の型定義
!> @endja
!>
 
!>
!> @en
!> @brief Type definitions for netCDF file open/close operations
!>
!> This module provides the GD_NC_FILE_ID_ENTRY type used to manage
!> netCDF file handles with reference counting.
!> @enden
!>
!> @ja
!> @brief netCDF ファイルのオープンクローズ用の型定義
!>
!> このモジュールは netCDF ファイルハンドルを参照カウントで管理するための
!> GD_NC_FILE_ID_ENTRY 型を提供します。
!> @endja
!>
module gtdata_netcdf_file_types
  !
  use dc_types, only: string
  use dc_trace, only: beginsub, endsub, dbgmessage
 
  implicit none
  private
 
  !>
  !> @en
  !> @brief Entry for netCDF file ID management
  !>
  !> This derived type stores information about an open netCDF file,
  !> including its ID, reference count, and access mode. Multiple entries
  !> are linked together to form a list of open files.
  !> @enden
  !>
  !> @ja
  !> @brief netCDF ファイル ID 管理用エントリ
  !>
  !> この派生型はオープンされた netCDF ファイルの情報を格納します。
  !> ファイルID、参照カウント、アクセスモードを含みます。
  !> 複数のエントリがリンクされ、オープンファイルのリストを構成します。
  !> @endja
  !>
  type gd_nc_file_id_entry
    integer:: id                                   !< @en netCDF file ID @enden @ja netCDF ファイル ID @endja
    integer:: count                                !< @en Reference count @enden @ja 参照カウント @endja
    logical:: writable                             !< @en Writable flag @enden @ja 書込可能フラグ @endja
    character(len = STRING):: filename             !< @en File name @enden @ja ファイル名 @endja
    type(gd_nc_file_id_entry), pointer:: next      !< @en Pointer to next entry @enden @ja 次エントリへのポインタ @endja
  end type gd_nc_file_id_entry
 
  public:: gd_nc_file_id_entry
 
end module gtdata_netcdf_file_types