Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(ESMF_Config), | intent(inout) | :: | config | |||
integer(kind=ESMF_KIND_I4), | intent(in) | :: | value | |||
type(ESMF_KeywordEnforcer), | optional | :: | keywordEnforcer | |||
character(len=*), | intent(in), | optional | :: | label | ||
integer, | intent(out), | optional | :: | rc |
subroutine ESMF_ConfigSetIntI4(config, value, & keywordEnforcer, label, rc) ! !ARGUMENTS: type(ESMF_Config), intent(inout) :: config integer(ESMF_KIND_I4), intent(in) :: value type(ESMF_KeywordEnforcer), optional:: keywordEnforcer ! must use keywords below character(len=*), intent(in), optional :: label integer, intent(out), optional :: rc ! ! !DESCRIPTION: ! Sets an integer {\tt value} in the {\tt config} object. ! ! The arguments are: ! \begin{description} ! \item [config] ! Already created {\tt ESMF\_Config} object. ! \item [value] ! Integer value to set. ! \item [{[label]}] ! Identifying attribute label. ! \item [{[rc]}] ! Return code; equals {\tt ESMF\_SUCCESS} if there are no errors. ! \end{description} ! !EOPI ------------------------------------------------------------------- ! integer :: localrc character(len=ESMF_MAXSTR) :: logmsg character(len=ESMF_MAXSTR) :: newVal integer :: i, j, k, m, nchar, ninsert, ndelete, lenThisLine ! Initialize return code; assume routine not implemented localrc = ESMF_RC_NOT_IMPL if (present(rc)) rc = ESMF_RC_NOT_IMPL !check variables ESMF_INIT_CHECK_DEEP(ESMF_ConfigGetInit,config,rc) write(newVal, *) value call ESMF_ConfigSetAttribute(config, value=newVal, label=label, rc=rc) return end subroutine ESMF_ConfigSetIntI4