Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(ESMF_Config), | intent(in), | optional | :: | d |
function ESMF_ConfigGetInit(d) ! ! !ARGUMENTS: type(ESMF_Config), intent(in), optional :: d ESMF_INIT_TYPE :: ESMF_ConfigGetInit ! ! !DESCRIPTION: ! Get the initialization status of the Deep class {\tt bundle}. ! ! The arguments are: ! \begin{description} ! \item [s] ! {\tt ESMF\_Config} from which to retrieve status. ! \end{description} ! !EOPI if (present(d)) then ESMF_ConfigGetInit = ESMF_INIT_GET(d) else ESMF_ConfigGetInit = ESMF_INIT_CREATED endif end function ESMF_ConfigGetInit