gtdata_netcdf_file_internal.f90

Go to the documentation of this file.

!>
!> @file gtdata_netcdf_file_internal.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 Internal constants, variables, procedures used in "gtdata_netcdf_file"
!> @enden
!>
!> @ja
!> @brief gtdata_netcdf_file 内で使用される内部向け定数, 変数, 手続き群
!> @endja
!>
 
!>
!> @private
!>
!> @en
!> @brief Internal constants, variables, procedures used in "gtdata_netcdf_file"
!>
!> This module provides internal variables for managing the list of
!> open netCDF files.
!> @enden
!>
!> @ja
!> @brief gtdata_netcdf_file 内で使用される内部向け定数, 変数, 手続き群
!>
!> このモジュールはオープンされた netCDF ファイルのリストを管理するための
!> 内部変数を提供します。
!> @endja
!>
module gtdata_netcdf_file_internal
  !
  use gtdata_netcdf_file_types, only: gd_nc_file_id_entry
  implicit none
 
  type(gd_nc_file_id_entry), save, pointer:: id_head
    !< @en ID table for open/close of netCDF files @enden
    !< @ja netCDF ファイルのオープンクローズのための ID テーブル @endja
 
  logical, save:: id_used = .false.
    !< @en Flag indicating whether id_head has been initialized @enden
    !< @ja id_head が初期化済みかを示すフラグ @endja
 
end module gtdata_netcdf_file_internal