Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(ExtDataOldTypesCreator), | intent(inout) | :: | this | |||
character(len=*), | intent(in) | :: | item_name | |||
type(DerivedExport), | intent(inout) | :: | derived_item | |||
type(ESMF_Time), | intent(inout) | :: | time | |||
type(ESMF_Clock), | intent(inout) | :: | clock | |||
class(KeywordEnforcer), | intent(in), | optional | :: | unusable | ||
integer, | intent(out), | optional | :: | rc |
subroutine fillin_derived(this,item_name,derived_item,time,clock,unusable,rc) class(ExtDataOldTypesCreator), intent(inout) :: this character(len=*), intent(in) :: item_name type(DerivedExport), intent(inout) :: derived_item type(ESMF_Time), intent(inout) :: time type(ESMF_Clock), intent(inout) :: clock class(KeywordEnforcer), optional, intent(in) :: unusable integer, optional, intent(out) :: rc type(ExtDataDerived), pointer :: rule integer :: status type(ExtDataTimeSample), pointer :: time_sample type(ExtDataTimeSample), target :: default_time_sample _UNUSED_DUMMY(unusable) rule => this%derived_map%at(trim(item_name)) derived_item%name = trim(item_name) derived_item%expression = rule%expression if (allocated(rule%sample_key)) then time_sample => this%sample_map%at(rule%sample_key) else call default_time_sample%set_defaults() time_sample=>default_time_sample end if call derived_item%update_freq%create_from_parameters(time_sample%refresh_time, & time_sample%refresh_frequency, time_sample%refresh_offset, time, clock, _RC) derived_item%masking=.false. if (index(derived_item%expression,"mask") /= 0 ) then derived_item%masking=.true. allocate(derived_item%mask_definition) derived_item%mask_definition = ExtDataMask(derived_item%expression,_RC) end if _RETURN(_SUCCESS) end subroutine fillin_derived