MAPL_GridCompSetVerticalGrid Subroutine

public subroutine MAPL_GridCompSetVerticalGrid(gridcomp, vertical_grid, rc)

Arguments

Type IntentOptional Attributes Name
type(ESMF_GridComp), intent(inout) :: gridcomp
class(VerticalGrid), intent(in) :: vertical_grid
integer, intent(out), optional :: rc

Calls

proc~~mapl_gridcompsetverticalgrid~~CallsGraph proc~mapl_gridcompsetverticalgrid MAPL_GridCompSetVerticalGrid interface~mapl_gridcompgetoutermeta MAPL_GridCompGetOuterMeta proc~mapl_gridcompsetverticalgrid->interface~mapl_gridcompgetoutermeta none~set_vertical_grid OuterMetaComponent%set_vertical_grid proc~mapl_gridcompsetverticalgrid->none~set_vertical_grid proc~mapl_return MAPL_Return proc~mapl_gridcompsetverticalgrid->proc~mapl_return proc~mapl_verify MAPL_Verify proc~mapl_gridcompsetverticalgrid->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

Called by

proc~~mapl_gridcompsetverticalgrid~~CalledByGraph proc~mapl_gridcompsetverticalgrid MAPL_GridCompSetVerticalGrid proc~setup~2 setup proc~setup~2->proc~mapl_gridcompsetverticalgrid proc~test_full_run_sequence test_full_run_sequence proc~test_full_run_sequence->proc~mapl_gridcompsetverticalgrid proc~test_child_outer_items_created test_child_outer_items_created proc~test_child_outer_items_created->proc~setup~2 proc~test_child_user_items_created test_child_user_items_created proc~test_child_user_items_created->proc~setup~2 proc~test_parent_outer_items_created test_parent_outer_items_created proc~test_parent_outer_items_created->proc~setup~2 proc~test_parent_user_items_created test_parent_user_items_created proc~test_parent_user_items_created->proc~setup~2 proc~test_propagate_imports test_propagate_imports proc~test_propagate_imports->proc~setup~2 proc~test_state_items_complete test_state_items_complete proc~test_state_items_complete->proc~setup~2

Source Code

   subroutine MAPL_GridCompSetVerticalGrid(gridcomp, vertical_grid, rc)
      type(ESMF_GridComp), intent(inout) :: gridcomp
      class(VerticalGrid), intent(in) :: vertical_grid
      integer, optional, intent(out) :: rc

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

      call MAPL_GridCompGetOuterMeta(gridcomp, outer_meta, _RC)
      call outer_meta%set_vertical_grid(vertical_grid)

      _RETURN(_SUCCESS)
   end subroutine MAPL_GridCompSetVerticalGrid