samplerHQ Derived Type

type, public :: samplerHQ


Inherits

type~~samplerhq~~InheritsGraph type~samplerhq samplerHQ ESMF_Alarm ESMF_Alarm type~samplerhq->ESMF_Alarm alarm ESMF_Clock ESMF_Clock type~samplerhq->ESMF_Clock clock ESMF_Time ESMF_Time type~samplerhq->ESMF_Time RingTime ESMF_TimeInterval ESMF_TimeInterval type~samplerhq->ESMF_TimeInterval Frequency_epoch type~k_v_cf K_V_CF type~samplerhq->type~k_v_cf CF_loc ESMF_Config ESMF_Config type~k_v_cf->ESMF_Config cf

Components

Type Visibility Attributes Name Initial
character(len=ESMF_MAXSTR), public :: grid_type
character(len=ESMF_MAXSTR), public :: tunit
integer, public :: ngrid = 0
real(kind=8), public :: arr(2)
type(ESMF_Alarm), public :: alarm
type(ESMF_Clock), public :: clock
type(ESMF_Time), public :: RingTime
type(ESMF_TimeInterval), public :: Frequency_epoch
type(K_V_CF), public :: CF_loc(ngrid_max)

Constructor

public interface samplerHQ

  • private function new_samplerHQ(clock, key, config, rc) result(hq)

    Arguments

    Type IntentOptional Attributes Name
    type(ESMF_Clock), intent(in) :: clock
    character(len=*), intent(in) :: key
    type(ESMF_Config), intent(inout) :: config
    integer, intent(out), optional :: rc

    Return Value type(samplerHQ)


Type-Bound Procedures

procedure, public :: config_accumulate

  • private subroutine config_accumulate(this, key, cf, rc)

    Arguments

    Type IntentOptional Attributes Name
    class(samplerHQ) :: this
    character(len=*), intent(in) :: key
    type(ESMF_Config), intent(in) :: cf
    integer, intent(out), optional :: rc

procedure, public :: create_grid

  • private function create_grid(this, key, currTime, grid_type, rc) result(ogrid)

    call grid_validate (ogrid,)

    Arguments

    Type IntentOptional Attributes Name
    class(samplerHQ) :: this
    character(len=*), intent(in) :: key
    type(ESMF_Time), intent(inout) :: currTime
    character(len=*), intent(in), optional :: grid_type
    integer, intent(out), optional :: rc

    Return Value type(ESMF_Grid)

procedure, public :: destroy_rh_regen_ogrid

  • private subroutine destroy_rh_regen_ogrid(this, key_grid_label, output_grids, sp, rc)

    Arguments

    Type IntentOptional Attributes Name
    class(samplerHQ) :: this
    character(len=*), intent(in) :: key_grid_label
    type(StringGridMap), intent(inout), target :: output_grids
    class(sampler) :: sp
    integer, intent(out), optional :: rc

procedure, public :: fill_time_in_bundle

  • private subroutine fill_time_in_bundle(this, xname, bundle, ogrid, rc)

    Arguments

    Type IntentOptional Attributes Name
    class(samplerHQ) :: this
    character(len=*), intent(in) :: xname
    type(ESMF_FieldBundle), intent(inout) :: bundle
    type(ESMF_Grid), intent(in) :: ogrid
    integer, intent(out), optional :: rc

procedure, public :: find_config

  • private function find_config(this, key, rc) result(cf)

    Arguments

    Type IntentOptional Attributes Name
    class(samplerHQ) :: this
    character(len=*), intent(in) :: key
    integer, intent(out), optional :: rc

    Return Value type(ESMF_Config)

procedure, public :: regrid_accumulate => regrid_accumulate_on_xysubset

  • private subroutine regrid_accumulate_on_xysubset(this, sp, rc)

    Arguments

    Type IntentOptional Attributes Name
    class(samplerHQ) :: this
    class(sampler), intent(inout) :: sp
    integer, intent(out), optional :: rc

procedure, public :: verify_epoch_equals_freq

  • private subroutine verify_epoch_equals_freq(this, frequency_from_list, swath_grid_label, rc)

    Arguments

    Type IntentOptional Attributes Name
    class(samplerHQ) :: this
    integer, intent(in) :: frequency_from_list
    character(len=*), intent(in) :: swath_grid_label
    integer, intent(out), optional :: rc

Source Code

  type, public :: samplerHQ
     type(ESMF_Clock)         :: clock
     type(ESMF_Alarm)         :: alarm
     type(ESMF_Time)          :: RingTime
     type(ESMF_TimeInterval)  :: Frequency_epoch
     integer                  :: ngrid = 0
     character(len=ESMF_MAXSTR) :: grid_type
     character(len=ESMF_MAXSTR) :: tunit
     type (K_V_CF)            :: CF_loc(ngrid_max)
     real*8 :: arr(2)

   contains
     procedure :: create_grid
     procedure :: regrid_accumulate => regrid_accumulate_on_xysubset
     procedure :: destroy_rh_regen_ogrid
     procedure :: fill_time_in_bundle
     procedure :: find_config
     procedure :: config_accumulate
     procedure :: verify_epoch_equals_freq
  end type samplerHQ