function ESMF_DeepGetInitVal(s) type(ESMF_Deep) :: s ESMF_INIT_TYPE :: ESMF_DeepGetInitVal ESMF_DeepGetInitVal = ESMF_INIT_GET(s) end function ESMF_DeepGetInitVal