ESMF_InitCheckShallow Function

private recursive function ESMF_InitCheckShallow(isInit) result(InitCheckShallow)

Arguments

Type IntentOptional Attributes Name
integer(kind=ESMF_KIND_I8), intent(in) :: isInit

Return Value integer


Called by

proc~~esmf_initcheckshallow~~CalledByGraph proc~esmf_initcheckshallow ESMF_InitCheckShallow proc~esmf_imerrs ESMF_IMErrS proc~esmf_imerrs->proc~esmf_initcheckshallow

Source Code

recursive function ESMF_InitCheckShallow(isInit) result (InitCheckShallow)
!
! !RETURN VALUE:
        integer                                 :: InitCheckShallow
! !ARGUMENTS:
!       
        ESMF_INIT_TYPE, intent(in)              :: isInit
        
! !DESCRIPTION:
!      This function takes a classes' isInit component (declared by
!      the initialization macros) and returns an error return code.
!
!      The arguments are:
!      \begin{description}
!       
!      \item [isInit]
!            Initialization macro defined type component.
!      \end{description}
!
!EOPI
        
    ! base return code on isInit value
    if (isInit .eq. ESMF_INIT_DEFINED) then
        InitCheckShallow=ESMF_SUCCESS
    else
        InitCheckShallow=ESMF_RC_OBJ_INIT
    endif       

end function ESMF_InitCheckShallow