gtool_historyauto_generic.f90

Go to the documentation of this file.

!--
! *** Caution!! ***
!
! This file is generated from "gtool_historyauto_generic.rb2f90" by Ruby 3.3.8.
! Please do not edit this file directly.
!
! [JAPANESE]
!
! ※※※ 注意!!! ※※※
!
! このファイルは "gtool_historyauto_generic.rb2f90" から Ruby 3.3.8
! によって自動生成されたファイルです.
! このファイルを直接編集しませんようお願い致します.
!
!
!++
!> @file gtool_historyauto_generic.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 Interface of procedures provided from gtool_historyauto
!> @enden
!>
!> @ja
!> @brief gtool_historyauto より提供される手続の引用仕様宣言
!> @endja
 
module gtool_historyauto_generic
  !> @en
  !> Interface of procedures provided from gtool_historyauto.
  !>
  !> See gtool_historyauto for brief and usage of this module.
  !>
  !> ### Procedures list
  !>
  !> - HistoryAutoCreate          : Initialization
  !> - HistoryAutoAddVariable     : Addition of variables
  !> - HistoryAutoPut             : Output of data
  !> - HistoryAutoClose           : Termination
  !> - HistoryAutoPutAxis         : Addition of data of axes
  !> - HistoryAutoAddWeight       : Addition of weights of axes
  !> - HistoryAutoAddAttr         : Addition of attributes
  !> - HistoryAutoAllVarFix       : Fix register of variables
  !> - HistoryAutoPutAxisMPI      : Specify data of axes in whole area (valid with MPI)
  !> - HistoryAutoChkOutput       : Check output setting of a variable
  !> - HistoryAutoChkOutputTiming : Check output setting of a variable (with elapsed time)
  !> @enden
  !>
  !> @ja
  !> gtool_historyauto より提供される手続の引用仕様宣言.
  !>
  !> モジュールの概要や使用方法については, gtool_historyauto を参照ください.
  !>
  !> ### 手続一覧
  !>
  !> - HistoryAutoCreate          : 初期化
  !> - HistoryAutoAddVariable     : 変数追加
  !> - HistoryAutoPut             : データ出力
  !> - HistoryAutoClose           : 終了処理
  !> - HistoryAutoPutAxis         : 座標データ追加
  !> - HistoryAutoAddWeight       : 座標重み追加
  !> - HistoryAutoAddAttr         : 属性追加
  !> - HistoryAutoAllVarFix       : 登録変数の確定
  !> - HistoryAutoPutAxisMPI      : 領域全体の座標データ指定 (MPI 使用時のみ有効)
  !> - HistoryAutoChkOutput       : 変数の出力設定の確認
  !> - HistoryAutoChkOutputTiming : 変数の出力設定の確認 (経過時間指定)
  !> @endja
  !>
 
  implicit none
  private
  public:: historyautocreate
  public:: historyautoclose
  public:: historyautoaddweight
  public:: historyautoputaxis
  public:: historyautoputaxismpi
  public:: historyautoaddvariable
  public:: historyautoput
  public:: historyautoaddattr
  public:: historyautoallvarfix
  public:: historyautochkoutput
  public:: historyautochkoutputtiming
 
  interface historyautocreate
 
    subroutine historyautocreate1( &
      & title, source, institution, &           ! (in)
      & dims, dimsizes, longnames, units, &     ! (in)
      & origin, terminus, &                     ! (in)
      & xtypes, conventions, gt_version, &      ! (in) optional
      & all_output, &                           ! (in) optional
      & file_prefix, &                          ! (in) optional
      & namelist_filename, &                    ! (in) optional
      & interval, &                             ! (in) optional
      & slice_start, slice_end, slice_stride, & ! (in) optional
      & space_average, &                        ! (in) optional
      & time_average, &                         ! (in) optional
      & newfile_interval, &                     ! (in) optional
      & rank, &                                 ! (in) optional
      & origin_date, origin_date_invalid, &     ! (in) optional
      & start_date,  cal, &                     ! (in) optional
      & flag_mpi_gather, flag_mpi_split &       ! (in) optional
      & ) !:doc-priority 40:
      use dc_types, only: dp
      use dc_date_types, only: dc_datetime
      use dc_calendar, only: dc_cal, dc_cal_date
 
      character(*), intent(in):: title
      character(*), intent(in):: source
      character(*), intent(in):: institution
      character(*), intent(in):: dims(:)
      integer, intent(in):: dimsizes (:)
      character(*), intent(in):: longnames (:)
      character(*), intent(in):: units(:)
      real(DP), intent(in):: origin
      real(DP), intent(in):: terminus
      character(*), intent(in),  optional:: xtypes(:)
      character(*), intent(in), optional:: conventions
      character(*), intent(in), optional:: gt_version
      logical, intent(in), optional:: all_output
      character(*), intent(in), optional:: file_prefix
      character(*), intent(in), optional:: namelist_filename
      real(DP), intent(in), optional:: interval
      integer, intent(in), optional:: slice_start(:)
      integer, intent(in), optional:: slice_end(:)
      integer, intent(in), optional:: slice_stride(:)
      logical, intent(in), optional:: space_average(:)
      logical, intent(in), optional:: time_average
      integer, intent(in), optional:: newfile_interval
      character(*), intent(in), optional:: rank
      type(dc_datetime), intent(in), optional:: origin_date
      logical, intent(in), optional:: origin_date_invalid
      type(dc_cal_date), intent(in), optional:: start_date
      type(dc_cal), intent(in), optional:: cal
      logical, intent(in), optional:: flag_mpi_gather
      logical, intent(in), optional:: flag_mpi_split
 
    end subroutine historyautocreate1
 
    subroutine historyautocreate2( &
      & title, source, institution, &           ! (in)
      & dims, dimsizes, longnames, units, &     ! (in)
      & xtypes, conventions, gt_version,&       ! (in) optional
      & all_output, &                           ! (in) optional
      & file_prefix, &                          ! (in) optional
      & namelist_filename, &                    ! (in) optional
      & interval, origin, terminus, &           ! (in) optional
      & slice_start, slice_end, slice_stride, & ! (in) optional
      & space_average, &                        ! (in) optional
      & time_average, &                         ! (in) optional
      & newfile_interval, &                     ! (in) optional
      & rank, &                                 ! (in) optional
      & origin_date, origin_date_invalid, &     ! (in) optional
      & start_date, cal, &                      ! (in) optional
      & flag_mpi_gather, flag_mpi_split &       ! (in) optional
      & ) !:doc-priority 60:
      use dc_date_types, only: dc_datetime, dc_difftime
      use dc_calendar, only: dc_cal, dc_cal_date
 
      character(*), intent(in):: title
      character(*), intent(in):: source
      character(*), intent(in):: institution
      character(*), intent(in):: dims(:)
      integer, intent(in):: dimsizes (:)
      character(*), intent(in):: longnames (:)
      character(*), intent(in):: units(:)
      character(*), intent(in),  optional:: xtypes(:)
      character(*), intent(in), optional:: conventions
      character(*), intent(in), optional:: gt_version
      logical, intent(in), optional:: all_output
      character(*), intent(in), optional:: file_prefix
      character(*), intent(in), optional:: namelist_filename
      real, intent(in), optional:: interval
      real, intent(in), optional:: origin
      real, intent(in), optional:: terminus
      integer, intent(in), optional:: slice_start(:)
      integer, intent(in), optional:: slice_end(:)
      integer, intent(in), optional:: slice_stride(:)
      logical, intent(in), optional:: space_average(:)
      logical, intent(in), optional:: time_average
      integer, intent(in), optional:: newfile_interval
      character(*), intent(in), optional:: rank
      type(dc_datetime), intent(in), optional:: origin_date
      logical, intent(in), optional:: origin_date_invalid
      type(dc_cal_date), intent(in), optional:: start_date
      type(dc_cal), intent(in), optional:: cal
      logical, intent(in), optional:: flag_mpi_gather
      logical, intent(in), optional:: flag_mpi_split
 
    end subroutine historyautocreate2
 
    subroutine historyautocreate3( &
      & title, source, institution, &           ! (in)
      & dims, dimsizes, longnames, units, &     ! (in)
      & origin, terminus, &                     ! (in)
      & xtypes, conventions, gt_version, &      ! (in) optional
      & all_output, &                           ! (in) optional
      & file_prefix, &                          ! (in) optional
      & namelist_filename, &                    ! (in) optional
      & interval, &                             ! (in) optional
      & slice_start, slice_end, slice_stride, & ! (in) optional
      & space_average, &                        ! (in) optional
      & time_average, &                         ! (in) optional
      & newfile_interval, &                     ! (in) optional
      & rank, &                                 ! (in) optional
      & origin_date, origin_date_invalid, &     ! (in) optional
      & start_date,  cal, &                     ! (in) optional
      & flag_mpi_gather, flag_mpi_split &       ! (in) optional
      & ) !:doc-priority 70:
      use dc_date_types, only: dc_datetime, dc_difftime
      use dc_calendar, only: dc_cal, dc_cal_date
 
      character(*), intent(in):: title
      character(*), intent(in):: source
      character(*), intent(in):: institution
      character(*), intent(in):: dims(:)
      integer, intent(in):: dimsizes (:)
      character(*), intent(in):: longnames (:)
      character(*), intent(in):: units(:)
      type(dc_difftime), intent(in):: origin
      type(dc_difftime), intent(in):: terminus
      character(*), intent(in),  optional:: xtypes(:)
      character(*), intent(in), optional:: conventions
      character(*), intent(in), optional:: gt_version
      logical, intent(in), optional:: all_output
      character(*), intent(in), optional:: file_prefix
      character(*), intent(in), optional:: namelist_filename
      type(dc_difftime), intent(in), optional:: interval
      integer, intent(in), optional:: slice_start(:)
      integer, intent(in), optional:: slice_end(:)
      integer, intent(in), optional:: slice_stride(:)
      logical, intent(in), optional:: space_average(:)
      logical, intent(in), optional:: time_average
      integer, intent(in), optional:: newfile_interval
      character(*), intent(in), optional:: rank
      type(dc_datetime), intent(in), optional:: origin_date
      logical, intent(in), optional:: origin_date_invalid
      type(dc_cal_date), intent(in), optional:: start_date
      type(dc_cal), intent(in), optional:: cal
      logical, intent(in), optional:: flag_mpi_gather
      logical, intent(in), optional:: flag_mpi_split
 
    end subroutine historyautocreate3
 
  end interface
 
  interface historyautoclose
    subroutine historyautoclose1
    end subroutine historyautoclose1
  end interface
 
  interface historyautoaddweight
 
 
    subroutine historyautoaddweightreal( &
      & dim, weight, &  ! (in)
      & units, xtype &  ! (in) optional
      & )
      use dc_types, only: dp
 
      character(*), intent(in):: dim
      real, intent(in):: weight(:)
      character(*), intent(in), optional:: units
      character(*), intent(in),  optional:: xtype
    end subroutine historyautoaddweightreal
 
 
    subroutine historyautoaddweightdouble( &
      & dim, weight, &  ! (in)
      & units, xtype &  ! (in) optional
      & )
      use dc_types, only: dp
 
      character(*), intent(in):: dim
      real(DP), intent(in):: weight(:)
      character(*), intent(in), optional:: units
      character(*), intent(in),  optional:: xtype
    end subroutine historyautoaddweightdouble
 
 
    subroutine historyautoaddweightint( &
      & dim, weight, &  ! (in)
      & units, xtype &  ! (in) optional
      & )
      use dc_types, only: dp
 
      character(*), intent(in):: dim
      integer, intent(in):: weight(:)
      character(*), intent(in), optional:: units
      character(*), intent(in),  optional:: xtype
    end subroutine historyautoaddweightint
 
 
  end interface
 
  interface historyautoputaxis
 
 
    subroutine historyautoputaxisreal( &
      & dim, array &  ! (in)
      & )
      use dc_types, only: dp
 
      character(*), intent(in):: dim
      real, intent(in):: array(:)
    end subroutine historyautoputaxisreal
 
 
    subroutine historyautoputaxisdouble( &
      & dim, array &  ! (in)
      & )
      use dc_types, only: dp
 
      character(*), intent(in):: dim
      real(DP), intent(in):: array(:)
    end subroutine historyautoputaxisdouble
 
 
    subroutine historyautoputaxisint( &
      & dim, array &  ! (in)
      & )
      use dc_types, only: dp
 
      character(*), intent(in):: dim
      integer, intent(in):: array(:)
    end subroutine historyautoputaxisint
 
 
  end interface
 
  interface historyautoputaxismpi
 
 
    subroutine historyautoputaxismpireal( dim, array )
      use dc_types, only: dp
 
      character(*), intent(in):: dim
      real, intent(in):: array(:)
    end subroutine historyautoputaxismpireal
 
 
    subroutine historyautoputaxismpidouble( dim, array )
      use dc_types, only: dp
 
      character(*), intent(in):: dim
      real(DP), intent(in):: array(:)
    end subroutine historyautoputaxismpidouble
 
 
    subroutine historyautoputaxismpiint( dim, array )
      use dc_types, only: dp
 
      character(*), intent(in):: dim
      integer, intent(in):: array(:)
    end subroutine historyautoputaxismpiint
 
 
  end interface
 
  interface historyautoaddvariable
 
    subroutine historyautoaddvariable1( &
      & varname, dims, longname, units, &      ! (in)
      & xtype, time_units, time_average, &     ! (in) optional
      & file, &                                ! (in) optional
      & origin, terminus, interval, &           ! (in) optional
      & slice_start, slice_end, slice_stride, & ! (in) optional
      & space_average, &                        ! (in) optional
      & newfile_interval &                      ! (in) optional
      & ) !:doc-priority 40:
      use dc_types, only: dp
 
      character(*), intent(in):: varname
      character(*), intent(in):: dims(:)
      character(*), intent(in):: longname
      character(*), intent(in):: units
      character(*), intent(in), optional:: xtype
      character(*), intent(in), optional:: time_units
      logical, intent(in), optional:: time_average
      character(*), intent(in), optional:: file
      real(DP), intent(in), optional:: origin
      real(DP), intent(in), optional:: terminus
      real(DP), intent(in), optional:: interval
      integer, intent(in), optional:: slice_start(:)
      integer, intent(in), optional:: slice_end(:)
      integer, intent(in), optional:: slice_stride(:)
      logical, intent(in), optional:: space_average(:)
      integer, intent(in), optional:: newfile_interval
 
    end subroutine historyautoaddvariable1
 
    subroutine historyautoaddvariable2( &
      & varname, dims, longname, units, &       ! (in)
      & xtype, time_units, time_average, &      ! (in) optional
      & file, &                                 ! (in) optional
      & origin, terminus, interval, &           ! (in) optional
      & slice_start, slice_end, slice_stride, & ! (in) optional
      & space_average, &                        ! (in) optional
      & newfile_interval &                      ! (in) optional
      & ) !:doc-priority 60:
      use dc_date_types, only: dc_difftime
 
      character(*), intent(in):: varname
      character(*), intent(in):: dims(:)
      character(*), intent(in):: longname
      character(*), intent(in):: units
      type(dc_difftime), intent(in):: origin
      type(dc_difftime), intent(in):: terminus
      type(dc_difftime), intent(in), optional:: interval
      character(*), intent(in), optional:: xtype
      character(*), intent(in), optional:: time_units
      logical, intent(in), optional:: time_average
      character(*), intent(in), optional:: file
      integer, intent(in), optional:: slice_start(:)
      integer, intent(in), optional:: slice_end(:)
      integer, intent(in), optional:: slice_stride(:)
      logical, intent(in), optional:: space_average(:)
      integer, intent(in), optional:: newfile_interval
 
    end subroutine historyautoaddvariable2
 
  end interface
 
  interface historyautoaddattr
 
 
    subroutine historyautoaddattrchar0( &
      & varname, attrname, value &                 ! (in)
      & )
      use dc_types, only: dp
 
      character(*), intent(in):: varname
      character(*), intent(in):: attrname
      character(*), intent(in):: value
    end subroutine historyautoaddattrchar0
 
 
    subroutine historyautoaddattrlogical0( &
      & varname, attrname, value &                 ! (in)
      & )
      use dc_types, only: dp
 
      character(*), intent(in):: varname
      character(*), intent(in):: attrname
      logical, intent(in):: value
    end subroutine historyautoaddattrlogical0
 
 
    subroutine historyautoaddattrint0( &
      & varname, attrname, value &                 ! (in)
      & )
      use dc_types, only: dp
 
      character(*), intent(in):: varname
      character(*), intent(in):: attrname
      integer, intent(in):: value
    end subroutine historyautoaddattrint0
 
 
    subroutine historyautoaddattrint1( &
      & varname, attrname, value &                 ! (in)
      & )
      use dc_types, only: dp
 
      character(*), intent(in):: varname
      character(*), intent(in):: attrname
      integer, intent(in):: value(:)
    end subroutine historyautoaddattrint1
 
 
    subroutine historyautoaddattrreal0( &
      & varname, attrname, value &                 ! (in)
      & )
      use dc_types, only: dp
 
      character(*), intent(in):: varname
      character(*), intent(in):: attrname
      real, intent(in):: value
    end subroutine historyautoaddattrreal0
 
 
    subroutine historyautoaddattrreal1( &
      & varname, attrname, value &                 ! (in)
      & )
      use dc_types, only: dp
 
      character(*), intent(in):: varname
      character(*), intent(in):: attrname
      real, intent(in):: value(:)
    end subroutine historyautoaddattrreal1
 
 
    subroutine historyautoaddattrdouble0( &
      & varname, attrname, value &                 ! (in)
      & )
      use dc_types, only: dp
 
      character(*), intent(in):: varname
      character(*), intent(in):: attrname
      real(DP), intent(in):: value
    end subroutine historyautoaddattrdouble0
 
 
    subroutine historyautoaddattrdouble1( &
      & varname, attrname, value &                 ! (in)
      & )
      use dc_types, only: dp
 
      character(*), intent(in):: varname
      character(*), intent(in):: attrname
      real(DP), intent(in):: value(:)
    end subroutine historyautoaddattrdouble1
 
 
  end interface
 
  interface historyautoput
 
 
    subroutine historyautoputdouble0( &
      & time, varname, value, &  ! (in)
      & err &                                   ! (out) optional
      & )  !:doc-priority 30:   
      use dc_date_types, only: dc_difftime
      use dc_types, only: dp
 
      real(DP), intent(in):: time
      character(*), intent(in):: varname
      real(DP), intent(in), target:: value
      logical, intent(out), optional:: err
    end subroutine historyautoputdouble0
 
 
    subroutine historyautoputdouble1( &
      & time, varname, array, &  ! (in)
      & err &                                   ! (out) optional
      & )  !:doc-priority 40:   
      use dc_date_types, only: dc_difftime
      use dc_types, only: dp
 
      real(DP), intent(in):: time
      character(*), intent(in):: varname
      real(DP), intent(in), target:: array(:)
      logical, intent(out), optional:: err
    end subroutine historyautoputdouble1
 
 
    subroutine historyautoputdouble2( &
      & time, varname, array, &  ! (in)
      & err &                                   ! (out) optional
      & )  !:doc-priority 40:   
      use dc_date_types, only: dc_difftime
      use dc_types, only: dp
 
      real(DP), intent(in):: time
      character(*), intent(in):: varname
      real(DP), intent(in), target:: array(:,:)
      logical, intent(out), optional:: err
    end subroutine historyautoputdouble2
 
 
    subroutine historyautoputdouble3( &
      & time, varname, array, &  ! (in)
      & err &                                   ! (out) optional
      & )  !:doc-priority 40:   
      use dc_date_types, only: dc_difftime
      use dc_types, only: dp
 
      real(DP), intent(in):: time
      character(*), intent(in):: varname
      real(DP), intent(in), target:: array(:,:,:)
      logical, intent(out), optional:: err
    end subroutine historyautoputdouble3
 
 
    subroutine historyautoputdouble4( &
      & time, varname, array, &  ! (in)
      & err &                                   ! (out) optional
      & )  !:doc-priority 40:   
      use dc_date_types, only: dc_difftime
      use dc_types, only: dp
 
      real(DP), intent(in):: time
      character(*), intent(in):: varname
      real(DP), intent(in), target:: array(:,:,:,:)
      logical, intent(out), optional:: err
    end subroutine historyautoputdouble4
 
 
    subroutine historyautoputdouble5( &
      & time, varname, array, &  ! (in)
      & err &                                   ! (out) optional
      & )  !:doc-priority 40:   
      use dc_date_types, only: dc_difftime
      use dc_types, only: dp
 
      real(DP), intent(in):: time
      character(*), intent(in):: varname
      real(DP), intent(in), target:: array(:,:,:,:,:)
      logical, intent(out), optional:: err
    end subroutine historyautoputdouble5
 
 
    subroutine historyautoputdouble6( &
      & time, varname, array, &  ! (in)
      & err &                                   ! (out) optional
      & )  !:doc-priority 40:   
      use dc_date_types, only: dc_difftime
      use dc_types, only: dp
 
      real(DP), intent(in):: time
      character(*), intent(in):: varname
      real(DP), intent(in), target:: array(:,:,:,:,:,:)
      logical, intent(out), optional:: err
    end subroutine historyautoputdouble6
 
 
    subroutine historyautoputdouble7( &
      & time, varname, array, &  ! (in)
      & err &                                   ! (out) optional
      & )  !:doc-priority 40:   
      use dc_date_types, only: dc_difftime
      use dc_types, only: dp
 
      real(DP), intent(in):: time
      character(*), intent(in):: varname
      real(DP), intent(in), target:: array(:,:,:,:,:,:,:)
      logical, intent(out), optional:: err
    end subroutine historyautoputdouble7
 
 
    subroutine historyautoputreal0( &
      & time, varname, value, &  ! (in)
      & err &                                   ! (out) optional
      & )  !:doc-priority 30:   
      use dc_date_types, only: dc_difftime
      use dc_types, only: dp
 
      real(DP), intent(in):: time
      character(*), intent(in):: varname
      real, intent(in), target:: value
      logical, intent(out), optional:: err
    end subroutine historyautoputreal0
 
 
    subroutine historyautoputreal1( &
      & time, varname, array, &  ! (in)
      & err &                                   ! (out) optional
      & )  !:doc-priority 40:   
      use dc_date_types, only: dc_difftime
      use dc_types, only: dp
 
      real(DP), intent(in):: time
      character(*), intent(in):: varname
      real, intent(in), target:: array(:)
      logical, intent(out), optional:: err
    end subroutine historyautoputreal1
 
 
    subroutine historyautoputreal2( &
      & time, varname, array, &  ! (in)
      & err &                                   ! (out) optional
      & )  !:doc-priority 40:   
      use dc_date_types, only: dc_difftime
      use dc_types, only: dp
 
      real(DP), intent(in):: time
      character(*), intent(in):: varname
      real, intent(in), target:: array(:,:)
      logical, intent(out), optional:: err
    end subroutine historyautoputreal2
 
 
    subroutine historyautoputreal3( &
      & time, varname, array, &  ! (in)
      & err &                                   ! (out) optional
      & )  !:doc-priority 40:   
      use dc_date_types, only: dc_difftime
      use dc_types, only: dp
 
      real(DP), intent(in):: time
      character(*), intent(in):: varname
      real, intent(in), target:: array(:,:,:)
      logical, intent(out), optional:: err
    end subroutine historyautoputreal3
 
 
    subroutine historyautoputreal4( &
      & time, varname, array, &  ! (in)
      & err &                                   ! (out) optional
      & )  !:doc-priority 40:   
      use dc_date_types, only: dc_difftime
      use dc_types, only: dp
 
      real(DP), intent(in):: time
      character(*), intent(in):: varname
      real, intent(in), target:: array(:,:,:,:)
      logical, intent(out), optional:: err
    end subroutine historyautoputreal4
 
 
    subroutine historyautoputreal5( &
      & time, varname, array, &  ! (in)
      & err &                                   ! (out) optional
      & )  !:doc-priority 40:   
      use dc_date_types, only: dc_difftime
      use dc_types, only: dp
 
      real(DP), intent(in):: time
      character(*), intent(in):: varname
      real, intent(in), target:: array(:,:,:,:,:)
      logical, intent(out), optional:: err
    end subroutine historyautoputreal5
 
 
    subroutine historyautoputreal6( &
      & time, varname, array, &  ! (in)
      & err &                                   ! (out) optional
      & )  !:doc-priority 40:   
      use dc_date_types, only: dc_difftime
      use dc_types, only: dp
 
      real(DP), intent(in):: time
      character(*), intent(in):: varname
      real, intent(in), target:: array(:,:,:,:,:,:)
      logical, intent(out), optional:: err
    end subroutine historyautoputreal6
 
 
    subroutine historyautoputreal7( &
      & time, varname, array, &  ! (in)
      & err &                                   ! (out) optional
      & )  !:doc-priority 40:   
      use dc_date_types, only: dc_difftime
      use dc_types, only: dp
 
      real(DP), intent(in):: time
      character(*), intent(in):: varname
      real, intent(in), target:: array(:,:,:,:,:,:,:)
      logical, intent(out), optional:: err
    end subroutine historyautoputreal7
 
 
    subroutine historyautoputint0( &
      & time, varname, value, &  ! (in)
      & err &                                   ! (out) optional
      & )  !:doc-priority 30:   
      use dc_date_types, only: dc_difftime
      use dc_types, only: dp
 
      real(DP), intent(in):: time
      character(*), intent(in):: varname
      integer, intent(in), target:: value
      logical, intent(out), optional:: err
    end subroutine historyautoputint0
 
 
    subroutine historyautoputint1( &
      & time, varname, array, &  ! (in)
      & err &                                   ! (out) optional
      & )  !:doc-priority 40:   
      use dc_date_types, only: dc_difftime
      use dc_types, only: dp
 
      real(DP), intent(in):: time
      character(*), intent(in):: varname
      integer, intent(in), target:: array(:)
      logical, intent(out), optional:: err
    end subroutine historyautoputint1
 
 
    subroutine historyautoputint2( &
      & time, varname, array, &  ! (in)
      & err &                                   ! (out) optional
      & )  !:doc-priority 40:   
      use dc_date_types, only: dc_difftime
      use dc_types, only: dp
 
      real(DP), intent(in):: time
      character(*), intent(in):: varname
      integer, intent(in), target:: array(:,:)
      logical, intent(out), optional:: err
    end subroutine historyautoputint2
 
 
    subroutine historyautoputint3( &
      & time, varname, array, &  ! (in)
      & err &                                   ! (out) optional
      & )  !:doc-priority 40:   
      use dc_date_types, only: dc_difftime
      use dc_types, only: dp
 
      real(DP), intent(in):: time
      character(*), intent(in):: varname
      integer, intent(in), target:: array(:,:,:)
      logical, intent(out), optional:: err
    end subroutine historyautoputint3
 
 
    subroutine historyautoputint4( &
      & time, varname, array, &  ! (in)
      & err &                                   ! (out) optional
      & )  !:doc-priority 40:   
      use dc_date_types, only: dc_difftime
      use dc_types, only: dp
 
      real(DP), intent(in):: time
      character(*), intent(in):: varname
      integer, intent(in), target:: array(:,:,:,:)
      logical, intent(out), optional:: err
    end subroutine historyautoputint4
 
 
    subroutine historyautoputint5( &
      & time, varname, array, &  ! (in)
      & err &                                   ! (out) optional
      & )  !:doc-priority 40:   
      use dc_date_types, only: dc_difftime
      use dc_types, only: dp
 
      real(DP), intent(in):: time
      character(*), intent(in):: varname
      integer, intent(in), target:: array(:,:,:,:,:)
      logical, intent(out), optional:: err
    end subroutine historyautoputint5
 
 
    subroutine historyautoputint6( &
      & time, varname, array, &  ! (in)
      & err &                                   ! (out) optional
      & )  !:doc-priority 40:   
      use dc_date_types, only: dc_difftime
      use dc_types, only: dp
 
      real(DP), intent(in):: time
      character(*), intent(in):: varname
      integer, intent(in), target:: array(:,:,:,:,:,:)
      logical, intent(out), optional:: err
    end subroutine historyautoputint6
 
 
    subroutine historyautoputint7( &
      & time, varname, array, &  ! (in)
      & err &                                   ! (out) optional
      & )  !:doc-priority 40:   
      use dc_date_types, only: dc_difftime
      use dc_types, only: dp
 
      real(DP), intent(in):: time
      character(*), intent(in):: varname
      integer, intent(in), target:: array(:,:,:,:,:,:,:)
      logical, intent(out), optional:: err
    end subroutine historyautoputint7
 
 
    subroutine historyautoputold1double0( &
      & time, varname, value, &  ! (in)
      & err &                                   ! (out) optional
      & )  !:doc-priority 60:
      use dc_date_types, only: dc_difftime
      use dc_types, only: dp
 
      type(dc_difftime), intent(in):: time
      character(*), intent(in):: varname
      real(DP), intent(in), target:: value
      logical, intent(out), optional:: err
    end subroutine historyautoputold1double0
 
 
    subroutine historyautoputold1double1( &
      & time, varname, array, &  ! (in)
      & err &                                   ! (out) optional
      & )  !:doc-priority 60:
      use dc_date_types, only: dc_difftime
      use dc_types, only: dp
 
      type(dc_difftime), intent(in):: time
      character(*), intent(in):: varname
      real(DP), intent(in), target:: array(:)
      logical, intent(out), optional:: err
    end subroutine historyautoputold1double1
 
 
    subroutine historyautoputold1double2( &
      & time, varname, array, &  ! (in)
      & err &                                   ! (out) optional
      & )  !:doc-priority 60:
      use dc_date_types, only: dc_difftime
      use dc_types, only: dp
 
      type(dc_difftime), intent(in):: time
      character(*), intent(in):: varname
      real(DP), intent(in), target:: array(:,:)
      logical, intent(out), optional:: err
    end subroutine historyautoputold1double2
 
 
    subroutine historyautoputold1double3( &
      & time, varname, array, &  ! (in)
      & err &                                   ! (out) optional
      & )  !:doc-priority 60:
      use dc_date_types, only: dc_difftime
      use dc_types, only: dp
 
      type(dc_difftime), intent(in):: time
      character(*), intent(in):: varname
      real(DP), intent(in), target:: array(:,:,:)
      logical, intent(out), optional:: err
    end subroutine historyautoputold1double3
 
 
    subroutine historyautoputold1double4( &
      & time, varname, array, &  ! (in)
      & err &                                   ! (out) optional
      & )  !:doc-priority 60:
      use dc_date_types, only: dc_difftime
      use dc_types, only: dp
 
      type(dc_difftime), intent(in):: time
      character(*), intent(in):: varname
      real(DP), intent(in), target:: array(:,:,:,:)
      logical, intent(out), optional:: err
    end subroutine historyautoputold1double4
 
 
    subroutine historyautoputold1double5( &
      & time, varname, array, &  ! (in)
      & err &                                   ! (out) optional
      & )  !:doc-priority 60:
      use dc_date_types, only: dc_difftime
      use dc_types, only: dp
 
      type(dc_difftime), intent(in):: time
      character(*), intent(in):: varname
      real(DP), intent(in), target:: array(:,:,:,:,:)
      logical, intent(out), optional:: err
    end subroutine historyautoputold1double5
 
 
    subroutine historyautoputold1double6( &
      & time, varname, array, &  ! (in)
      & err &                                   ! (out) optional
      & )  !:doc-priority 60:
      use dc_date_types, only: dc_difftime
      use dc_types, only: dp
 
      type(dc_difftime), intent(in):: time
      character(*), intent(in):: varname
      real(DP), intent(in), target:: array(:,:,:,:,:,:)
      logical, intent(out), optional:: err
    end subroutine historyautoputold1double6
 
 
    subroutine historyautoputold1double7( &
      & time, varname, array, &  ! (in)
      & err &                                   ! (out) optional
      & )  !:doc-priority 60:
      use dc_date_types, only: dc_difftime
      use dc_types, only: dp
 
      type(dc_difftime), intent(in):: time
      character(*), intent(in):: varname
      real(DP), intent(in), target:: array(:,:,:,:,:,:,:)
      logical, intent(out), optional:: err
    end subroutine historyautoputold1double7
 
 
    subroutine historyautoputold1real0( &
      & time, varname, value, &  ! (in)
      & err &                                   ! (out) optional
      & )  !:doc-priority 60:
      use dc_date_types, only: dc_difftime
      use dc_types, only: dp
 
      type(dc_difftime), intent(in):: time
      character(*), intent(in):: varname
      real, intent(in), target:: value
      logical, intent(out), optional:: err
    end subroutine historyautoputold1real0
 
 
    subroutine historyautoputold1real1( &
      & time, varname, array, &  ! (in)
      & err &                                   ! (out) optional
      & )  !:doc-priority 60:
      use dc_date_types, only: dc_difftime
      use dc_types, only: dp
 
      type(dc_difftime), intent(in):: time
      character(*), intent(in):: varname
      real, intent(in), target:: array(:)
      logical, intent(out), optional:: err
    end subroutine historyautoputold1real1
 
 
    subroutine historyautoputold1real2( &
      & time, varname, array, &  ! (in)
      & err &                                   ! (out) optional
      & )  !:doc-priority 60:
      use dc_date_types, only: dc_difftime
      use dc_types, only: dp
 
      type(dc_difftime), intent(in):: time
      character(*), intent(in):: varname
      real, intent(in), target:: array(:,:)
      logical, intent(out), optional:: err
    end subroutine historyautoputold1real2
 
 
    subroutine historyautoputold1real3( &
      & time, varname, array, &  ! (in)
      & err &                                   ! (out) optional
      & )  !:doc-priority 60:
      use dc_date_types, only: dc_difftime
      use dc_types, only: dp
 
      type(dc_difftime), intent(in):: time
      character(*), intent(in):: varname
      real, intent(in), target:: array(:,:,:)
      logical, intent(out), optional:: err
    end subroutine historyautoputold1real3
 
 
    subroutine historyautoputold1real4( &
      & time, varname, array, &  ! (in)
      & err &                                   ! (out) optional
      & )  !:doc-priority 60:
      use dc_date_types, only: dc_difftime
      use dc_types, only: dp
 
      type(dc_difftime), intent(in):: time
      character(*), intent(in):: varname
      real, intent(in), target:: array(:,:,:,:)
      logical, intent(out), optional:: err
    end subroutine historyautoputold1real4
 
 
    subroutine historyautoputold1real5( &
      & time, varname, array, &  ! (in)
      & err &                                   ! (out) optional
      & )  !:doc-priority 60:
      use dc_date_types, only: dc_difftime
      use dc_types, only: dp
 
      type(dc_difftime), intent(in):: time
      character(*), intent(in):: varname
      real, intent(in), target:: array(:,:,:,:,:)
      logical, intent(out), optional:: err
    end subroutine historyautoputold1real5
 
 
    subroutine historyautoputold1real6( &
      & time, varname, array, &  ! (in)
      & err &                                   ! (out) optional
      & )  !:doc-priority 60:
      use dc_date_types, only: dc_difftime
      use dc_types, only: dp
 
      type(dc_difftime), intent(in):: time
      character(*), intent(in):: varname
      real, intent(in), target:: array(:,:,:,:,:,:)
      logical, intent(out), optional:: err
    end subroutine historyautoputold1real6
 
 
    subroutine historyautoputold1real7( &
      & time, varname, array, &  ! (in)
      & err &                                   ! (out) optional
      & )  !:doc-priority 60:
      use dc_date_types, only: dc_difftime
      use dc_types, only: dp
 
      type(dc_difftime), intent(in):: time
      character(*), intent(in):: varname
      real, intent(in), target:: array(:,:,:,:,:,:,:)
      logical, intent(out), optional:: err
    end subroutine historyautoputold1real7
 
 
    subroutine historyautoputold1int0( &
      & time, varname, value, &  ! (in)
      & err &                                   ! (out) optional
      & )  !:doc-priority 60:
      use dc_date_types, only: dc_difftime
      use dc_types, only: dp
 
      type(dc_difftime), intent(in):: time
      character(*), intent(in):: varname
      integer, intent(in), target:: value
      logical, intent(out), optional:: err
    end subroutine historyautoputold1int0
 
 
    subroutine historyautoputold1int1( &
      & time, varname, array, &  ! (in)
      & err &                                   ! (out) optional
      & )  !:doc-priority 60:
      use dc_date_types, only: dc_difftime
      use dc_types, only: dp
 
      type(dc_difftime), intent(in):: time
      character(*), intent(in):: varname
      integer, intent(in), target:: array(:)
      logical, intent(out), optional:: err
    end subroutine historyautoputold1int1
 
 
    subroutine historyautoputold1int2( &
      & time, varname, array, &  ! (in)
      & err &                                   ! (out) optional
      & )  !:doc-priority 60:
      use dc_date_types, only: dc_difftime
      use dc_types, only: dp
 
      type(dc_difftime), intent(in):: time
      character(*), intent(in):: varname
      integer, intent(in), target:: array(:,:)
      logical, intent(out), optional:: err
    end subroutine historyautoputold1int2
 
 
    subroutine historyautoputold1int3( &
      & time, varname, array, &  ! (in)
      & err &                                   ! (out) optional
      & )  !:doc-priority 60:
      use dc_date_types, only: dc_difftime
      use dc_types, only: dp
 
      type(dc_difftime), intent(in):: time
      character(*), intent(in):: varname
      integer, intent(in), target:: array(:,:,:)
      logical, intent(out), optional:: err
    end subroutine historyautoputold1int3
 
 
    subroutine historyautoputold1int4( &
      & time, varname, array, &  ! (in)
      & err &                                   ! (out) optional
      & )  !:doc-priority 60:
      use dc_date_types, only: dc_difftime
      use dc_types, only: dp
 
      type(dc_difftime), intent(in):: time
      character(*), intent(in):: varname
      integer, intent(in), target:: array(:,:,:,:)
      logical, intent(out), optional:: err
    end subroutine historyautoputold1int4
 
 
    subroutine historyautoputold1int5( &
      & time, varname, array, &  ! (in)
      & err &                                   ! (out) optional
      & )  !:doc-priority 60:
      use dc_date_types, only: dc_difftime
      use dc_types, only: dp
 
      type(dc_difftime), intent(in):: time
      character(*), intent(in):: varname
      integer, intent(in), target:: array(:,:,:,:,:)
      logical, intent(out), optional:: err
    end subroutine historyautoputold1int5
 
 
    subroutine historyautoputold1int6( &
      & time, varname, array, &  ! (in)
      & err &                                   ! (out) optional
      & )  !:doc-priority 60:
      use dc_date_types, only: dc_difftime
      use dc_types, only: dp
 
      type(dc_difftime), intent(in):: time
      character(*), intent(in):: varname
      integer, intent(in), target:: array(:,:,:,:,:,:)
      logical, intent(out), optional:: err
    end subroutine historyautoputold1int6
 
 
    subroutine historyautoputold1int7( &
      & time, varname, array, &  ! (in)
      & err &                                   ! (out) optional
      & )  !:doc-priority 60:
      use dc_date_types, only: dc_difftime
      use dc_types, only: dp
 
      type(dc_difftime), intent(in):: time
      character(*), intent(in):: varname
      integer, intent(in), target:: array(:,:,:,:,:,:,:)
      logical, intent(out), optional:: err
    end subroutine historyautoputold1int7
 
 
  end interface
 
  interface historyautoallvarfix
    subroutine historyautoallvarfix
    end subroutine historyautoallvarfix
  end interface
 
  interface historyautochkoutput
    logical function historyautochkoutput( varname ) result(result)
      character(*), intent(in):: varname
    end function historyautochkoutput
  end interface
 
  interface historyautochkoutputtiming
    logical function historyautochkoutputtiming( time, varname ) result(result)
      use dc_types, only: dp
      real(dp), intent(in):: time
      character(*), intent(in):: varname
    end function historyautochkoutputtiming
  end interface
 
end module gtool_historyauto_generic
 
!--
! vi:set readonly sw=4 ts=8:
!
!Local Variables:
!mode: f90
!buffer-read-only: t
!End:
!
!++