x_comp_read_output Subroutine

private subroutine x_comp_read_output(xdatacfg, xstate, rc)

Arguments

Type IntentOptional Attributes Name
type(ESMF_HConfig) :: xdatacfg
type(xdata_state), intent(inout), pointer :: xstate
integer, intent(out) :: rc

Calls

proc~~x_comp_read_output~~CallsGraph proc~x_comp_read_output x_comp_read_output esmf_hconfigcreateat esmf_hconfigcreateat proc~x_comp_read_output->esmf_hconfigcreateat esmf_hconfigisdefined esmf_hconfigisdefined proc~x_comp_read_output->esmf_hconfigisdefined proc~esmf_hconfigdestroy ESMF_HConfigDestroy proc~x_comp_read_output->proc~esmf_hconfigdestroy proc~esmf_hconfigvalidatemapkeys ESMF_HConfigValidateMapKeys proc~x_comp_read_output->proc~esmf_hconfigvalidatemapkeys proc~esmf_logfounderror ESMF_LogFoundError proc~x_comp_read_output->proc~esmf_logfounderror proc~esmf_logseterror ESMF_LogSetError proc~x_comp_read_output->proc~esmf_logseterror proc~x_comp_hconfig_logical x_comp_hconfig_logical proc~x_comp_read_output->proc~x_comp_hconfig_logical proc~esmf_hconfigdestroy->proc~esmf_logfounderror c_esmc_hconfigdestroy c_esmc_hconfigdestroy proc~esmf_hconfigdestroy->c_esmc_hconfigdestroy proc~esmf_hconfiggetinit ESMF_HConfigGetInit proc~esmf_hconfigdestroy->proc~esmf_hconfiggetinit proc~esmf_imerr ESMF_IMErr proc~esmf_hconfigdestroy->proc~esmf_imerr proc~esmf_hconfigvalidatemapkeys->proc~esmf_logfounderror proc~esmf_hconfigvalidatemapkeys->proc~esmf_logseterror interface~esmf_hconfigismap ESMF_HConfigIsMap proc~esmf_hconfigvalidatemapkeys->interface~esmf_hconfigismap interface~esmf_hconfigiterbegin ESMF_HConfigIterBegin proc~esmf_hconfigvalidatemapkeys->interface~esmf_hconfigiterbegin interface~esmf_hconfigiterend ESMF_HConfigIterEnd proc~esmf_hconfigvalidatemapkeys->interface~esmf_hconfigiterend proc~esmf_hconfigasstringmapkey ESMF_HConfigAsStringMapKey proc~esmf_hconfigvalidatemapkeys->proc~esmf_hconfigasstringmapkey proc~esmf_hconfigiterloop ESMF_HConfigIterLoop proc~esmf_hconfigvalidatemapkeys->proc~esmf_hconfigiterloop esmf_breakpoint esmf_breakpoint proc~esmf_logfounderror->esmf_breakpoint proc~esmf_logrc2msg ESMF_LogRc2Msg proc~esmf_logfounderror->proc~esmf_logrc2msg proc~esmf_logwrite ESMF_LogWrite proc~esmf_logfounderror->proc~esmf_logwrite proc~esmf_logseterror->esmf_breakpoint proc~esmf_logseterror->proc~esmf_logrc2msg proc~esmf_logseterror->proc~esmf_logwrite proc~x_comp_hconfig_logical->esmf_hconfigisdefined proc~x_comp_hconfig_logical->proc~esmf_logfounderror proc~x_comp_hconfig_logical->proc~esmf_logseterror esmf_hconfigaslogical esmf_hconfigaslogical proc~x_comp_hconfig_logical->esmf_hconfigaslogical

Called by

proc~~x_comp_read_output~~CalledByGraph proc~x_comp_read_output x_comp_read_output proc~x_comp_get_config x_comp_get_config proc~x_comp_get_config->proc~x_comp_read_output proc~advertise Advertise proc~advertise->proc~x_comp_get_config

Source Code

  subroutine x_comp_read_output(xdatacfg, xstate, rc)
    ! arguments
    type(ESMF_HConfig)                        :: xdatacfg
    type(xdata_state), pointer, intent(inout) :: xstate
    integer, intent(out)                      :: rc
    ! local variables
    logical            :: isPresent
    integer            :: stat
    logical            :: check
    type(ESMF_HConfig) :: outcfg
    character(:), allocatable :: cfgval
    character(:), allocatable :: badKey

    rc = ESMF_SUCCESS

    if (.not. associated(xstate)) then
      call ESMF_LogSetError(ESMF_RC_PTR_NOTALLOC, &
        msg='XDATA: xstate has not been associated', &
        line=__LINE__, file=__FILE__, rcToReturn=rc)
      return
    endif

    ! read output configuration
    isPresent = ESMF_HConfigIsDefined(xdatacfg, &
      keyString="output", rc=rc)
    if (ESMF_LogFoundError(rcToCheck=rc, msg=ESMF_LOGERR_PASSTHRU, &
      line=__LINE__, file=__FILE__)) return
    if (isPresent) then
      ! access output
      outcfg = ESMF_HConfigCreateAt(xdatacfg, &
        keyString="output", rc=rc)
      if (ESMF_LogFoundError(rcToCheck=rc, msg=ESMF_LOGERR_PASSTHRU, &
        line=__LINE__, file=__FILE__)) return
      check = ESMF_HConfigValidateMapKeys(outcfg, &
        vocabulary=["write_final"], badKey=badKey, rc=rc)
      if (ESMF_LogFoundError(rcToCheck=rc, msg=ESMF_LOGERR_PASSTHRU, &
        line=__LINE__, file=__FILE__)) return
      if (.not. check) then
        call ESMF_LogSetError(ESMF_RC_NOT_VALID, &
          msg=trim(xstate%cname)//": unknown output option key - "//badKey, &
        line=__LINE__,file=__FILE__, rcToReturn=rc)
        return
      endif
      ! options
      xstate%write_final = x_comp_hconfig_logical(outcfg, "write_final", &
        defaultValue=.true., rc=rc)
      if (ESMF_LogFoundError(rcToCheck=rc, msg=ESMF_LOGERR_PASSTHRU, &
        line=__LINE__, file=__FILE__)) return
      call ESMF_HConfigDestroy(outcfg, rc=rc)
      if (ESMF_LogFoundError(rcToCheck=rc, msg=ESMF_LOGERR_PASSTHRU, &
        line=__LINE__, file=__FILE__)) return
    endif ! outcfg

  endsubroutine x_comp_read_output