HistoryCollection Derived Type

type, public :: HistoryCollection


Inherits

type~~historycollection~2~~InheritsGraph type~historycollection~2 HistoryCollection ESMF_Alarm ESMF_Alarm type~historycollection~2->ESMF_Alarm his_alarm, seg_alarm, mon_alarm, end_alarm ESMF_Field ESMF_Field type~historycollection~2->ESMF_Field r8, r4 ESMF_FieldBundle ESMF_FieldBundle type~historycollection~2->ESMF_FieldBundle bundle type~fieldset FieldSet type~historycollection~2->type~fieldset field_set type~griddedioitemvector GriddedIOitemVector type~historycollection~2->type~griddedioitemvector items type~historycollectionglobalattributes HistoryCollectionGlobalAttributes type~historycollection~2->type~historycollectionglobalattributes global_atts type~historytrajectory HistoryTrajectory type~historycollection~2->type~historytrajectory trajectory type~mapl_cfio MAPL_CFIO type~historycollection~2->type~mapl_cfio MCFIO type~mapl_griddedio MAPL_GriddedIO type~historycollection~2->type~mapl_griddedio mGriddedIO type~masksamplergeosat MaskSamplerGeosat type~historycollection~2->type~masksamplergeosat mask_sampler type~sampler sampler type~historycollection~2->type~sampler xsampler type~stationsampler StationSampler type~historycollection~2->type~stationsampler station_sampler type~timedata timeData type~historycollection~2->type~timedata timeInfo type~verticaldata verticalData type~historycollection~2->type~verticaldata vdata

Inherited by

type~~historycollection~2~~InheritedByGraph type~historycollection~2 HistoryCollection type~historycollectionvectoriterator~2 HistoryCollectionVectorIterator type~historycollectionvectoriterator~2->type~historycollection~2 elements type~historycollectionvectorriterator~2 HistoryCollectionVectorRIterator type~historycollectionvectorriterator~2->type~historycollection~2 elements type~historycollectionvector~2 HistoryCollectionVector type~historycollectionvector~2->type~historycollection~2 elements

Components

Type Visibility Attributes Name Initial
character(len=ESMF_MAXPATHLEN), public :: stationIdFile
character(len=ESMF_MAXSTR), public, pointer :: PExtraFields(:) => null()
character(len=ESMF_MAXSTR), public, pointer :: PExtraGridComp(:) => null()
character(len=ESMF_MAXSTR), public :: collection
character(len=ESMF_MAXSTR), public :: currentFile
character(len=ESMF_MAXSTR), public :: filename
character(len=ESMF_MAXSTR), public :: format
character(len=ESMF_MAXSTR), public :: mode
character(len=ESMF_MAXSTR), public :: output_grid_label
character(len=ESMF_MAXSTR), public :: positive
character(len=ESMF_MAXSTR), public :: quantize_algorithm_string
character(len=ESMF_MAXSTR), public :: sampler_spec = ""
character(len=ESMF_MAXSTR), public :: template
character(len=ESMF_MAXSTR), public, pointer :: tmpfields(:) => null()
character(len=ESMF_MAXSTR), public :: vunit
character(len=ESMF_MAXSTR), public :: vvars(2)
integer, public :: Psize
integer, public :: Root
integer, public :: acc_interval
integer, public :: acc_offset
integer, public :: acc_ref_time
integer, public, pointer :: chunksize(:) => null()
integer, public :: deflate
integer, public :: duration
integer, public :: end_date
integer, public :: end_time
integer, public, pointer :: expSTATE(:)
integer, public :: frequency
integer, public :: nPExtraFields
integer, public :: nbits_to_keep
integer, public, pointer :: peAve(:)
integer, public :: quantize_algorithm
integer, public :: quantize_level
integer, public :: ref_date
integer, public :: ref_time
integer, public :: regrid_method
integer, public, pointer :: resolution(:) => null()
integer, public :: slices
integer, public :: stationSkipLine
integer, public :: tm
integer, public :: unit
integer, public :: verbose
integer, public :: voting
integer, public :: xyoffset
logical, public :: ForceOffsetZero
logical, public, pointer :: ReWrite(:) => null()
logical, public :: backwards
logical, public :: disabled
logical, public :: monthly
logical, public :: partial = .false.
logical, public, allocatable :: r8_to_r4(:)
logical, public :: recycle_track = .false.
logical, public :: regex
logical, public :: splitField
logical, public :: subVm
logical, public :: timeseries_output = .false.
logical, public :: timestampStart
logical, public :: useNewFormat
real, public, pointer :: levels(:) => null()
real, public, pointer :: subset(:) => null()
real, public :: vscale
type(ESMF_Alarm), public :: end_alarm
type(ESMF_Alarm), public :: his_alarm
type(ESMF_Alarm), public :: mon_alarm
type(ESMF_Alarm), public :: seg_alarm
type(ESMF_Field), public, allocatable :: r4(:)
type(ESMF_Field), public, allocatable :: r8(:)
type(ESMF_FieldBundle), public :: bundle
type(FieldSet), public, pointer :: field_set
type(GriddedIOitemVector), public :: items
type(HistoryCollectionGlobalAttributes), public :: global_atts
type(HistoryTrajectory), public :: trajectory
type(MAPL_CFIO), public :: MCFIO
type(MAPL_GriddedIO), public :: mGriddedIO
type(MaskSamplerGeosat), public :: mask_sampler
type(StationSampler), public :: station_sampler
type(sampler), public :: xsampler
type(timeData), public :: timeInfo
type(verticalData), public :: vdata

Type-Bound Procedures

procedure, public :: AddGrid

  • private subroutine AddGrid(this, output_grids, resolution, rc)

    Arguments

    Type IntentOptional Attributes Name
    class(HistoryCollection), intent(inout) :: this
    type(StringGridMap), intent(inout) :: output_grids
    integer, intent(in) :: resolution(2)
    integer, intent(inout), optional :: rc

Source Code

  type, public :: HistoryCollection
     character(len=ESMF_MAXSTR)         :: collection
     character(len=ESMF_MAXSTR)         :: filename
     character(len=ESMF_MAXSTR)         :: template
     character(len=ESMF_MAXSTR)         :: format
     character(len=ESMF_MAXSTR)         :: mode
     integer                            :: frequency
     integer                            :: acc_interval
     integer                            :: acc_ref_time
     integer                            :: acc_offset
     integer                            :: ref_date
     integer                            :: ref_time
     integer                            :: end_date
     integer                            :: end_time
     integer                            :: duration
     type(ESMF_Alarm)                   :: his_alarm ! when to write file
     type(ESMF_Alarm)                   :: seg_alarm ! segment alarm controls when to write to new file
     type(ESMF_Alarm)                   :: mon_alarm
     type(ESMF_Alarm)                   :: end_alarm
     integer,pointer                    :: expSTATE (:)
     integer                            :: unit
     type(ESMF_FieldBundle)             :: bundle
     type(sampler)                      :: xsampler
     type(MAPL_CFIO)                    :: MCFIO
     type(MAPL_GriddedIO)               :: mGriddedIO
     type(VerticalData) :: vdata
     type(TimeData) :: timeInfo
     real   , pointer                   :: levels(:)     => null()
     integer, pointer                   :: resolution(:) => null()
     real,    pointer                   :: subset(:) => null()
     integer,    pointer                :: chunksize(:) => null()
     integer, pointer                   :: peAve(:)
     integer                            :: verbose
     integer                            :: xyoffset
     logical                            :: disabled
     logical                            :: subVm
     logical                            :: backwards ! Adds support for clock running in reverse direction
     logical                            :: useNewFormat
     real                               :: vscale
     character(len=ESMF_MAXSTR)         :: vunit
     character(len=ESMF_MAXSTR)         :: vvars(2)
     integer                            :: regrid_method
     integer                            :: voting
     integer                            :: nbits_to_keep
     integer                            :: deflate
     character(len=ESMF_MAXSTR)         :: quantize_algorithm_string
     integer                            :: quantize_algorithm
     integer                            :: quantize_level
     integer                            :: slices
     integer                            :: Root
     integer                            :: Psize
     integer                            :: tm
     logical                            :: ForceOffsetZero
     logical                            :: timestampStart
     logical                            :: monthly
     logical                            :: partial = .false.
     ! Adding Arithemtic Field Rewrite
     character(len=ESMF_MAXSTR),pointer :: tmpfields(:) => null()
     logical, pointer                   :: ReWrite(:) => null()
     integer                            :: nPExtraFields
     character(len=ESMF_MAXSTR),pointer :: PExtraFields(:) => null()
     character(len=ESMF_MAXSTR),pointer :: PExtraGridComp(:) => null()
     type (FieldSet), pointer :: field_set
     logical, allocatable               :: r8_to_r4(:)
     type(ESMF_FIELD), allocatable      :: r8(:)
     type(ESMF_FIELD), allocatable      :: r4(:)
     character(len=ESMF_MAXSTR)         :: output_grid_label
     type(GriddedIOItemVector)          :: items
     character(len=ESMF_MAXSTR)         :: currentFile
     character(len=ESMF_MAXPATHLEN)     :: stationIdFile
     integer                            :: stationSkipLine
     logical                            :: splitField
     logical                            :: regex
     logical                            :: timeseries_output = .false.
     logical                            :: recycle_track = .false.
     type(HistoryTrajectory)            :: trajectory
     type(MaskSamplerGeosat)            :: mask_sampler
     type(StationSampler)               :: station_sampler
     character(len=ESMF_MAXSTR)         :: sampler_spec = ""
     character(len=ESMF_MAXSTR)         :: positive
     type(HistoryCollectionGlobalAttributes) :: global_atts
     contains
        procedure :: AddGrid
  end type HistoryCollection