MAPL_GridCompSetGeom Subroutine

public subroutine MAPL_GridCompSetGeom(gridcomp, geom, rc)

Arguments

Type IntentOptional Attributes Name
type(ESMF_GridComp), intent(inout) :: gridcomp
type(ESMF_Geom), intent(in) :: geom
integer, intent(out), optional :: rc

Calls

proc~~mapl_gridcompsetgeom~~CallsGraph proc~mapl_gridcompsetgeom MAPL_GridCompSetGeom interface~mapl_gridcompgetoutermeta MAPL_GridCompGetOuterMeta proc~mapl_gridcompsetgeom->interface~mapl_gridcompgetoutermeta none~set_geom OuterMetaComponent%set_geom proc~mapl_gridcompsetgeom->none~set_geom proc~mapl_return MAPL_Return proc~mapl_gridcompsetgeom->proc~mapl_return proc~mapl_verify MAPL_Verify proc~mapl_gridcompsetgeom->proc~mapl_verify at at proc~mapl_return->at insert insert proc~mapl_return->insert proc~mapl_throw_exception MAPL_throw_exception proc~mapl_return->proc~mapl_throw_exception proc~mapl_verify->proc~mapl_throw_exception

Source Code

   subroutine MAPL_GridCompSetGeom(gridcomp, geom, rc)
      type(ESMF_GridComp), intent(inout) :: gridcomp
      type(ESMF_Geom), intent(in) :: geom
      integer, optional, intent(out) :: rc

      integer :: status
      type(OuterMetaComponent), pointer :: outer_meta

      call MAPL_GridCompGetOuterMeta(gridcomp, outer_meta, _RC)
      call outer_meta%set_geom(geom)

      _RETURN(_SUCCESS)
   end subroutine MAPL_GridCompSetGeom