historyautoputaxismpi.f90

Go to the documentation of this file.

!--
! *** Caution!! ***
!
! This file is generated from "historyautoputaxismpi.rb2f90" by Ruby 3.3.8.
! Please do not edit this file directly.
!
! [JAPANESE]
!
! ※※※ 注意!!! ※※※
!
! このファイルは "historyautoputaxismpi.rb2f90" から Ruby 3.3.8
! によって自動生成されたファイルです.
! このファイルを直接編集しませんようお願い致します.
!
!
!++
!> @file historyautoputaxismpi.f90
!>
!> @author Yasuhiro MORIKAWA
!> @copyright Copyright (C) GFD Dennou Club, 2008-2026. All rights reserved. <br/>
!>            License is BSD-2-Clause. See [COPYRIGHT](@ref COPYRIGHT) in detail
!>
!> @en
!> @brief Settings of data on whole area of axes (for MPI)
!> @enden
!>
!> @ja
!> @brief 領域全体の座標データの設定 (MPI 用)
!> @endja
 
  !> @en
  !> @brief Set data of axes in whole area (for MPI).
  !>
  !> When MPI is used, if data on each node is integrated and
  !> output to one file, give data of axes in whole area to
  !> this subroutine.
  !> And give .true. to optional logical argument *flag_mpi_gather*
  !> in HistoryAutoCreate.
  !>
  !> @param[in] dim   Name of dimensional variable.
  !>                   This name must be specified by
  !>                   an argument *dims* in HistoryAutoCreate.
  !> @param[in] array Data of axes.
  !> @enden
  !>
  !> @ja
  !> @brief 領域全体の座標データの設定 (MPI 用).
  !>
  !> MPI 使用時に, 各々のノード上のデータを単一ファイルに
  !> 集約して出力する場合には,
  !> このサブルーチンに領域全体の座標データを与えてください.
  !> また, HistoryAutoCreate のオプショナル論理型引数 *flag_mpi_gather*
  !> に .true. を与えてください.
  !>
  !> @param[in] dim   座標変数の名称.
  !>                   ここで指定するものは, HistoryAutoCreate の
  !>                   引数 *dims* で既に指定されていなければなりません.
  !> @param[in] array 座標データ.
  !> @endja
  subroutine historyautoputaxismpireal( dim, array )
    use gtool_historyauto_internal, only: numdims, gthst_axes, data_axes_whole
    use gtool_history, only: historyaxisinquire
    use dc_trace, only: beginsub, endsub
    use dc_error, only: storeerror, dc_noerr, hst_enoaxisname
    use dc_message, only: messagenotify
    use dc_types, only: string
    implicit none
    character(*), intent(in):: dim
                    
    real, intent(in):: array(:)
                    
    integer:: i, dimsize
    character(STRING):: name
    integer:: stat
    character(STRING):: cause_c
    character(*), parameter:: subname = "HistoryAutoPutAxisMPIReal"
  continue
    call beginsub(subname, 'dim=%c', c1 = trim(dim) )
    stat = dc_noerr
    cause_c = ""
 
    do i = 1, numdims
      call historyaxisinquire( &
        & axis = gthst_axes(i), &  ! (in)
        & name = name )            ! (out)
      if ( trim(dim) == trim(name) ) then
        dimsize = size( array )
        allocate( data_axes_whole(i) % a_axis( dimsize ) )
        data_axes_whole(i) % a_axis(:) = array(:)
        goto 999
      end if
    end do
 
    stat = hst_enoaxisname
    cause_c = dim
 
    ! 終了処理, 例外処理
    ! Termination and Exception handling
    !
999 continue
    call storeerror( stat, subname, cause_c = cause_c )
    call endsub(subname)
  end subroutine historyautoputaxismpireal
 
 
 
  !> @en
  !> @brief Set data of axes in whole area (for MPI).
  !>
  !> When MPI is used, if data on each node is integrated and
  !> output to one file, give data of axes in whole area to
  !> this subroutine.
  !> And give .true. to optional logical argument *flag_mpi_gather*
  !> in HistoryAutoCreate.
  !>
  !> @param[in] dim   Name of dimensional variable.
  !>                   This name must be specified by
  !>                   an argument *dims* in HistoryAutoCreate.
  !> @param[in] array Data of axes.
  !> @enden
  !>
  !> @ja
  !> @brief 領域全体の座標データの設定 (MPI 用).
  !>
  !> MPI 使用時に, 各々のノード上のデータを単一ファイルに
  !> 集約して出力する場合には,
  !> このサブルーチンに領域全体の座標データを与えてください.
  !> また, HistoryAutoCreate のオプショナル論理型引数 *flag_mpi_gather*
  !> に .true. を与えてください.
  !>
  !> @param[in] dim   座標変数の名称.
  !>                   ここで指定するものは, HistoryAutoCreate の
  !>                   引数 *dims* で既に指定されていなければなりません.
  !> @param[in] array 座標データ.
  !> @endja
  subroutine historyautoputaxismpidouble( dim, array )
    use gtool_historyauto_internal, only: numdims, gthst_axes, data_axes_whole
    use gtool_history, only: historyaxisinquire
    use dc_trace, only: beginsub, endsub
    use dc_error, only: storeerror, dc_noerr, hst_enoaxisname
    use dc_message, only: messagenotify
    use dc_types, only: string, dp
    implicit none
    character(*), intent(in):: dim
                                                  ! 座標変数の名称.
                              !
                              ! ここで指定するものは, HistoryAutoCreate の
                              ! 引数 *dims* で既に指定されてい
                              ! なければなりません.
                              !
                              ! Name of dimensional variable.
                              !
                              ! This name must be specified by
                              ! an argument *dims* in "HistoryAutoCreate".
                              !
                    
    real(DP), intent(in):: array(:)
                                                  ! 座標データ.
                              !
                              ! Data of axes.
                    
    integer:: i, dimsize
    character(STRING):: name
    integer:: stat
    character(STRING):: cause_c
    character(*), parameter:: subname = "HistoryAutoPutAxisMPIDouble"
  continue
    call beginsub(subname, 'dim=%c', c1 = trim(dim) )
    stat = dc_noerr
    cause_c = ""
 
    do i = 1, numdims
      call historyaxisinquire( &
        & axis = gthst_axes(i), &  ! (in)
        & name = name )            ! (out)
      if ( trim(dim) == trim(name) ) then
        dimsize = size( array )
        allocate( data_axes_whole(i) % a_axis( dimsize ) )
        data_axes_whole(i) % a_axis(:) = array(:)
        goto 999
      end if
    end do
 
    stat = hst_enoaxisname
    cause_c = dim
 
    ! 終了処理, 例外処理
    ! Termination and Exception handling
    !
999 continue
    call storeerror( stat, subname, cause_c = cause_c )
    call endsub(subname)
  end subroutine historyautoputaxismpidouble
 
 
 
  !> @en
  !> @brief Set data of axes in whole area (for MPI).
  !>
  !> When MPI is used, if data on each node is integrated and
  !> output to one file, give data of axes in whole area to
  !> this subroutine.
  !> And give .true. to optional logical argument *flag_mpi_gather*
  !> in HistoryAutoCreate.
  !>
  !> @param[in] dim   Name of dimensional variable.
  !>                   This name must be specified by
  !>                   an argument *dims* in HistoryAutoCreate.
  !> @param[in] array Data of axes.
  !> @enden
  !>
  !> @ja
  !> @brief 領域全体の座標データの設定 (MPI 用).
  !>
  !> MPI 使用時に, 各々のノード上のデータを単一ファイルに
  !> 集約して出力する場合には,
  !> このサブルーチンに領域全体の座標データを与えてください.
  !> また, HistoryAutoCreate のオプショナル論理型引数 *flag_mpi_gather*
  !> に .true. を与えてください.
  !>
  !> @param[in] dim   座標変数の名称.
  !>                   ここで指定するものは, HistoryAutoCreate の
  !>                   引数 *dims* で既に指定されていなければなりません.
  !> @param[in] array 座標データ.
  !> @endja
  subroutine historyautoputaxismpiint( dim, array )
    use gtool_historyauto_internal, only: numdims, gthst_axes, data_axes_whole
    use gtool_history, only: historyaxisinquire
    use dc_trace, only: beginsub, endsub
    use dc_error, only: storeerror, dc_noerr, hst_enoaxisname
    use dc_message, only: messagenotify
    use dc_types, only: string
    implicit none
    character(*), intent(in):: dim
                    
    integer, intent(in):: array(:)
                    
    integer:: i, dimsize
    character(STRING):: name
    integer:: stat
    character(STRING):: cause_c
    character(*), parameter:: subname = "HistoryAutoPutAxisMPIInt"
  continue
    call beginsub(subname, 'dim=%c', c1 = trim(dim) )
    stat = dc_noerr
    cause_c = ""
 
    do i = 1, numdims
      call historyaxisinquire( &
        & axis = gthst_axes(i), &  ! (in)
        & name = name )            ! (out)
      if ( trim(dim) == trim(name) ) then
        dimsize = size( array )
        allocate( data_axes_whole(i) % a_axis( dimsize ) )
        data_axes_whole(i) % a_axis(:) = array(:)
        goto 999
      end if
    end do
 
    stat = hst_enoaxisname
    cause_c = dim
 
    ! 終了処理, 例外処理
    ! Termination and Exception handling
    !
999 continue
    call storeerror( stat, subname, cause_c = cause_c )
    call endsub(subname)
  end subroutine historyautoputaxismpiint
 
 
!--
! vi:set readonly sw=4 ts=8:
!
!Local Variables:
!mode: f90
!buffer-read-only: t
!End:
!
!++