function ESMF_ShallowGetInitVal(s) type(ESMF_Shallow) :: s ESMF_INIT_TYPE :: ESMF_ShallowGetInitVal ESMF_ShallowGetInitVal = ESMF_INIT_GET(s) end function ESMF_ShallowGetInitVal