gtool_history_nmlinfo_generic.f90

Go to the documentation of this file.

 
 
module gtool_history_nmlinfo_generic
 
  implicit none
  private
  public:: hstnmlinfocreate, hstnmlinfoclose
  public:: hstnmlinfoputline, hstnmlinfoinitialized
  public:: hstnmlinfodefinemode, hstnmlinfoenddefine, hstnmlinforedefine
  public:: hstnmlinfoadd, hstnmlinfodelete
  public:: hstnmlinforesetdefault
  public:: hstnmlinfoinquire
  public:: hstnmlinfoassocgthist
  public:: hstnmlinfooutputstepdisable
  public:: hstnmlinfooutputstep
  public:: hstnmlinfooutputvalid
  public:: hstnmlinfonames, hstnmlinfogetnames
  public:: hstnmlinfoallvarinicheck
  public:: hstnmlinfosetvalidname
  public:: hstnmlinfoallnamevalid
 
  !-----------------------------------------------------------------
  !  公開手続
  !  Public procedures
  !-----------------------------------------------------------------
 
  interface hstnmlinfocreate
    subroutine hstnmlinfocreate( gthstnml, &
      & interval_value, &
      & interval_unit, &
      & precision, &
      & time_average, average, &
      & fileprefix, &
      & origin_value, origin_unit, &
      & terminus_value, terminus_unit, &
      & slice_start, slice_end, slice_stride, &
      & space_average, &
      & newfile_intvalue, newfile_intunit, &
      & err )
      use gtool_history_nmlinfo_types, only: gthst_nmlinfo
      use dc_types, only: dp
      type(gthst_nmlinfo), intent(inout):: gthstnml
      real(DP), intent(in), optional:: interval_value
      character(*), intent(in), optional:: interval_unit
      character(*), intent(in), optional:: precision
      logical, intent(in), optional:: time_average
      logical, intent(in), optional:: average
      character(*), intent(in), optional:: fileprefix
      real(DP), intent(in), optional:: origin_value
      character(*), intent(in), optional:: origin_unit
      real(DP), intent(in), optional:: terminus_value
      character(*), intent(in), optional:: terminus_unit
      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_intvalue
      character(*), intent(in), optional:: newfile_intunit
      logical, intent(out), optional:: err
    end subroutine hstnmlinfocreate
  end interface
 
  interface hstnmlinfoclose
    subroutine hstnmlinfoclose( gthstnml, err )
      use gtool_history_nmlinfo_types, only: gthst_nmlinfo
      type(gthst_nmlinfo), intent(inout):: gthstnml
      logical, intent(out), optional:: err
    end subroutine hstnmlinfoclose
  end interface
 
  interface hstnmlinfoputline
    subroutine hstnmlinfoputline( gthstnml, unit, indent, err )
      use gtool_history_nmlinfo_types, only: gthst_nmlinfo
      type(gthst_nmlinfo), intent(in):: gthstnml
      integer, intent(in), optional:: unit
      character(*), intent(in), optional:: indent
      logical, intent(out), optional:: err
    end subroutine hstnmlinfoputline
  end interface
 
  interface hstnmlinfoinitialized
    logical function hstnmlinfoinitialized( gthstnml ) result(result)
      use gtool_history_nmlinfo_types, only: gthst_nmlinfo
      type(gthst_nmlinfo), intent(in):: gthstnml
    end function hstnmlinfoinitialized
  end interface
 
  interface hstnmlinfodefinemode
    logical function hstnmlinfodefinemode( gthstnml ) result(result)
      use gtool_history_nmlinfo_types, only: gthst_nmlinfo
      type(gthst_nmlinfo), intent(in):: gthstnml
    end function hstnmlinfodefinemode
  end interface
 
  interface hstnmlinfoenddefine
    subroutine hstnmlinfoenddefine( gthstnml, err )
      use gtool_history_nmlinfo_types, only: gthst_nmlinfo
      type(gthst_nmlinfo), intent(inout):: gthstnml
      logical, intent(out), optional:: err
    end subroutine hstnmlinfoenddefine
  end interface
 
  interface hstnmlinforedefine
    subroutine hstnmlinforedefine( gthstnml, err )
      use gtool_history_nmlinfo_types, only: gthst_nmlinfo
      type(gthst_nmlinfo), intent(inout):: gthstnml
      logical, intent(out), optional:: err
    end subroutine hstnmlinforedefine
  end interface
 
  interface hstnmlinfoadd
    recursive subroutine hstnmlinfoadd( gthstnml, &
      & name, file, &
      & interval_value, interval_unit, &
      & precision, &
      & time_average, average, &
      & fileprefix, &
      & origin_value, origin_unit, &
      & terminus_value, terminus_unit, &
      & slice_start, slice_end, slice_stride, &
      & space_average, &
      & newfile_intvalue, newfile_intunit, &
      & err )
      use gtool_history_nmlinfo_types, only: gthst_nmlinfo
      use dc_types, only: dp
      type(gthst_nmlinfo), intent(inout):: gthstnml
      character(*), intent(in), optional:: name
      character(*), intent(in), optional:: file
      real(dp), intent(in), optional:: interval_value
      character(*), intent(in), optional:: interval_unit
      character(*), intent(in), optional:: precision
      logical, intent(in), optional:: time_average
      logical, intent(in), optional:: average
      character(*), intent(in), optional:: fileprefix
      real(dp), intent(in), optional:: origin_value
      character(*), intent(in), optional:: origin_unit
      real(dp), intent(in), optional:: terminus_value
      character(*), intent(in), optional:: terminus_unit
      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_intvalue
      character(*), intent(in), optional:: newfile_intunit
      logical, intent(out), optional:: err
    end subroutine hstnmlinfoadd
  end interface
 
  interface hstnmlinfodelete
    recursive subroutine hstnmlinfodelete( gthstnml, name, err )
      use gtool_history_nmlinfo_types, only: gthst_nmlinfo
      type(gthst_nmlinfo), intent(inout):: gthstnml
      character(*), intent(in):: name
      logical, intent(out), optional:: err
    end subroutine hstnmlinfodelete
  end interface
 
  interface hstnmlinforesetdefault
    subroutine hstnmlinforesetdefault( gthstnml, err )
      use gtool_history_nmlinfo_types, only: gthst_nmlinfo
      type(gthst_nmlinfo), intent(inout):: gthstnml
      logical, intent(out), optional:: err
    end subroutine hstnmlinforesetdefault
  end interface
 
  interface hstnmlinfoinquire
    subroutine hstnmlinfoinquire( gthstnml, &
      & name, &
      & file, &
      & interval_value, &
      & interval_unit, &
      & precision, &
      & time_average, average, &
      & fileprefix, &
      & origin_value, origin_unit, &
      & terminus_value, terminus_unit, &
      & slice_start, slice_end, slice_stride, &
      & space_average, &
      & newfile_intvalue, newfile_intunit, &
      & err )
      use gtool_history_nmlinfo_types, only: gthst_nmlinfo
      use dc_types, only: dp
      type(gthst_nmlinfo), intent(in):: gthstnml
      character(*), intent(in), optional:: name
      character(*), intent(out), optional:: file
      real(DP), intent(out), optional:: interval_value
      character(*), intent(out), optional:: interval_unit
      character(*), intent(out), optional:: precision
      logical, intent(out), optional:: time_average
      logical, intent(out), optional:: average
      character(*), intent(out), optional:: fileprefix
      real(DP), intent(out), optional:: origin_value
      character(*), intent(out), optional:: origin_unit
      real(DP), intent(out), optional:: terminus_value
      character(*), intent(out), optional:: terminus_unit
      integer, intent(out), optional:: slice_start(:)
      integer, intent(out), optional:: slice_end(:)
      integer, intent(out), optional:: slice_stride(:)
      logical, intent(out), optional:: space_average(:)
      integer, intent(out), optional:: newfile_intvalue
      character(*), intent(out), optional:: newfile_intunit
      logical, intent(out), optional:: err
    end subroutine hstnmlinfoinquire
  end interface
 
  interface hstnmlinfoassocgthist
    subroutine hstnmlinfoassocgthist( gthstnml, &
      & name, history, err )
      use gtool_history_nmlinfo_types, only: gthst_nmlinfo
      use gtool_history, only: gt_history
      type(gthst_nmlinfo), intent(in):: gthstnml
      character(*), intent(in):: name
      type(gt_history), pointer:: history
      logical, intent(out), optional:: err
    end subroutine hstnmlinfoassocgthist
  end interface
 
  interface hstnmlinfooutputstepdisable
    subroutine hstnmlinfooutputstepdisable( gthstnml, &
      & name, err )
      use gtool_history_nmlinfo_types, only: gthst_nmlinfo
      type(gthst_nmlinfo), intent(in):: gthstnml
      character(*), intent(in):: name
      logical, intent(out), optional:: err
    end subroutine hstnmlinfooutputstepdisable
  end interface
 
  interface hstnmlinfooutputstep
    logical function hstnmlinfooutputstep( gthstnml, &
      & name, time ) result(result)
      use gtool_history_nmlinfo_types, only: gthst_nmlinfo
      use gtool_history, only: gt_history
      use dc_date_types, only: dc_difftime
      type(gthst_nmlinfo), intent(in):: gthstnml
      character(*), intent(in):: name
      type(dc_difftime), intent(in):: time
    end function hstnmlinfooutputstep
  end interface
 
  interface hstnmlinfooutputvalid
    logical function hstnmlinfooutputvalid( gthstnml, &
      & name ) result(result)
      use gtool_history_nmlinfo_types, only: gthst_nmlinfo
      type(gthst_nmlinfo), intent(in):: gthstnml
      character(*), intent(in):: name
    end function hstnmlinfooutputvalid
  end interface
 
  interface hstnmlinfonames
    function hstnmlinfonames( gthstnml ) result(result)
      use gtool_history_nmlinfo_types, only: gthst_nmlinfo
      use dc_types, only: string
      character(STRING):: result
      type(gthst_nmlinfo), intent(in):: gthstnml
    end function hstnmlinfonames
  end interface
 
  interface hstnmlinfogetnames
    subroutine hstnmlinfogetnames( gthstnml, varnames_ary, err )
      use gtool_history_nmlinfo_types, only: gthst_nmlinfo
      use dc_types, only: token
      type(gthst_nmlinfo), intent(in):: gthstnml
      character(TOKEN), pointer:: varnames_ary(:)
      logical, intent(out), optional:: err
    end subroutine hstnmlinfogetnames
  end interface
 
  interface hstnmlinfoallvarinicheck
    subroutine hstnmlinfoallvarinicheck( gthstnml, &
      & invalid, &
      & names, &
      & err )
      use gtool_history_nmlinfo_types, only: gthst_nmlinfo
      type(gthst_nmlinfo), intent(in):: gthstnml
      logical, intent(out):: invalid
      character(*), intent(out):: names
      logical, intent(out), optional:: err
    end subroutine hstnmlinfoallvarinicheck
  end interface
 
  interface hstnmlinfosetvalidname
    subroutine hstnmlinfosetvalidname( gthstnml, &
      & name, &
      & err )
      use gtool_history_nmlinfo_types, only: gthst_nmlinfo
      type(gthst_nmlinfo), intent(in):: gthstnml
      character(*), intent(in):: name
      logical, intent(out), optional:: err
    end subroutine hstnmlinfosetvalidname
  end interface
 
  interface hstnmlinfoallnamevalid
    subroutine hstnmlinfoallnamevalid( gthstnml, &
      & invalid, &
      & names, &
      & err )
      use gtool_history_nmlinfo_types, only: gthst_nmlinfo
      type(gthst_nmlinfo), intent(in):: gthstnml
      logical, intent(out):: invalid
      character(*), intent(out):: names
      logical, intent(out), optional:: err
    end subroutine hstnmlinfoallnamevalid
  end interface
 
end module gtool_history_nmlinfo_generic