function MAPL_RootGcRetrieve (meta) result(GC) type (MAPL_MetaComp), intent(IN) :: META type(ESMF_GridComp) :: GC GC = meta%rootGC end function MAPL_RootGcRetrieve