src/io/netcdf/IcGrid_ncGridLoader.f90

Go to the documentation of this file.

module IcGrid_ncGridLoader

  ! モジュール引用 ; Use statement
  !

  ! 種類型パラメータ
  ! Kind type parameter
  !
  use dc_types, only: TOKEN, &
    &                 STRING 

  ! メッセージ出力
  ! Message dump
  !
  use dc_message, only: MessageNotify


  ! 正二十面体格子データの管理
  ! Manager of icosahedral grid
  !
  use IcGrid2D_FVM_Manager, only: &
    & IcGrid2D_FVM, malloc_GP_array, malloc_CV_array

  ! NetCDF からの正二十面格子格子データおよび物理場データの読み込み
  ! Reading icosahedral grid and physical field data from NetCDF
  !
  use IcGrid_ncReader_mod, only: &
    & IcGrid_ncReader, &
    & IcGrid_ncReader_Init, open_ncfile, read_GridData, close_ncfile

  ! 各種正二十面体格子の生成
  ! Construction of various icosahedral grids
  !
  use IcGrid2D_FVM_Builder, only: &
    & calc_CV_vertex, calc_CV_Area

  ! 宣言文 ; Declaration statement
  !
  implicit none
  private

  ! 公開手続き
  ! Public procedure
  !
  public :: load_gridData

  ! 公開変数
  ! Public variables
  !

contains

! 
subroutine load_gridData( &
  & ncfile_name, &  ! (in)
  & icgrid       &  ! (inout)
  & )

  ! 宣言文 ; Declaration statement
  !
  character(*), intent(in) :: ncfile_name
  type(IcGrid2D_FVM), intent(inout) :: icgrid
  
  ! 作業変数
  ! Work variables
  !
  type(IcGrid_ncReader) :: gridReader

  ! 実行文 ; Executable statement
  !

  call MessageNotify( 'M', 'IGMBaseLib IO::IcGrid_ncGridLoader::load_gridData',  &
    & 'Load IcGrid data from the NetCDF file `%c` ...', &
    & c1=trim(ncfile_name) )

  ! 正二十面体格子の格子点およびコントロールボリュームの座標情報を保持する配列のメモリを確保する.
  call malloc_GP_array(icgrid)
  call malloc_CV_array(icgrid)


  ! 次に, 格子座標データを格納した netCDF ファイルから格子座標データを読み取る.
  ! 読み取った格子座標情報は, IcGrid2D_FVM クラスのオブジェクトに保持される.
  call IcGrid_ncReader_Init(gridReader, icgrid)
  call open_ncFile(gridReader, ncfile_name)
  call read_GridData(gridReader)
  call close_ncFile(gridReader)

  ! 各格子点に付随するコントールボリュームの頂点座標および
  ! コントールボリュームの面積を求める. 
  call calc_CV_vertex(icgrid)
  call calc_CV_Area(icgrid)
  
end subroutine load_gridData

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
! 非公開手続き
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

end module IcGrid_ncGridLoader