historyautoputaxismpi.f90 File Reference

Settings of data on whole area of axes (for MPI) . More...

Go to the source code of this file.

Functions/Subroutines
subroutine	historyautoputaxismpireal (dim, array)
subroutine	historyautoputaxismpidouble (dim, array)
subroutine	historyautoputaxismpiint (dim, array)

Detailed Description

Settings of data on whole area of axes (for MPI)

.

Author

Yasuhiro MORIKAWA

Copyright

Copyright (C) GFD Dennou Club, 2008-2026. All rights reserved.
License is BSD-2-Clause. See COPYRIGHT in detail

Definition in file historyautoputaxismpi.f90.

Function/Subroutine Documentation

historyautoputaxismpidouble()

subroutine historyautoputaxismpidouble	(	character(*), intent(in)	dim,
		real(dp), dimension(:), intent(in)	array
	)

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.

Parameters

[in]	dim	Name of dimensional variable. This name must be specified by an argument dims in HistoryAutoCreate.
[in]	array	Data of axes.

Definition at line 136 of file historyautoputaxismpi.f90.

    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)

References dc_trace::beginsub(), gtool_historyauto_internal::data_axes_whole, dc_error::dc_noerr, dc_types::dp, dc_trace::endsub(), gtool_historyauto_internal::gthst_axes, dc_error::hst_enoaxisname, gtool_historyauto_internal::numdims, dc_error::storeerror(), and dc_types::string.

Here is the call graph for this function:

historyautoputaxismpiint()

subroutine historyautoputaxismpiint	(	character(*), intent(in)	dim,
		integer, dimension(:), intent(in)	array
	)

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.

Parameters

[in]	dim	Name of dimensional variable. This name must be specified by an argument dims in HistoryAutoCreate.
[in]	array	Data of axes.

Definition at line 226 of file historyautoputaxismpi.f90.

    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)

References dc_trace::beginsub(), gtool_historyauto_internal::data_axes_whole, dc_error::dc_noerr, dc_trace::endsub(), gtool_historyauto_internal::gthst_axes, dc_error::hst_enoaxisname, gtool_historyauto_internal::numdims, dc_error::storeerror(), and dc_types::string.

Here is the call graph for this function:

historyautoputaxismpireal()

subroutine historyautoputaxismpireal	(	character(*), intent(in)	dim,
		real, dimension(:), intent(in)	array
	)

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.

Parameters

[in]	dim	Name of dimensional variable. This name must be specified by an argument dims in HistoryAutoCreate.
[in]	array	Data of axes.

Definition at line 60 of file historyautoputaxismpi.f90.

    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)

References dc_trace::beginsub(), gtool_historyauto_internal::data_axes_whole, dc_error::dc_noerr, dc_trace::endsub(), gtool_historyauto_internal::gthst_axes, dc_error::hst_enoaxisname, gtool_historyauto_internal::numdims, dc_error::storeerror(), and dc_types::string.

Here is the call graph for this function: