MAPL_StateCreateFromSpec Subroutine

public subroutine MAPL_StateCreateFromSpec(STATE, SPEC, DEFER, RC)

Arguments

Type IntentOptional Attributes Name
type(ESMF_State), intent(inout) :: STATE
type(MAPL_VarSpec), intent(inout), target :: SPEC(:)
logical, intent(in), optional :: DEFER
integer, intent(out), optional :: RC

Calls

proc~~mapl_statecreatefromspec~~CallsGraph proc~mapl_statecreatefromspec MAPL_StateCreateFromSpec none~update_vector StateSpecification%update_vector proc~mapl_statecreatefromspec->none~update_vector proc~mapl_return MAPL_Return proc~mapl_statecreatefromspec->proc~mapl_return proc~mapl_statecreatefromspecnew MAPL_StateCreateFromSpecNew proc~mapl_statecreatefromspec->proc~mapl_statecreatefromspecnew proc~mapl_verify MAPL_Verify proc~mapl_statecreatefromspec->proc~mapl_verify

Source Code

   subroutine MAPL_StateCreateFromSpec(STATE,SPEC,DEFER,RC)
      type(ESMF_State),                 intent(INOUT) :: STATE
      type(MAPL_VarSpec), target,       intent(INOUT) :: SPEC(:)
      logical, optional,                intent(IN   ) :: DEFER
      integer, optional,                intent(  OUT) :: RC

      character(len=ESMF_MAXSTR), parameter :: IAm="MAPL_StateCreateFromSpec"
      integer                               :: status

      type (StateSpecification) :: state_spec


      state_spec%old_var_specs => spec
      call state_spec%update_vector()

      call MAPL_StateCreateFromSpecNew(state, state_spec, defer,rc=status)
      _VERIFY(status)

      _RETURN(_SUCCESS)
   end subroutine MAPL_StateCreateFromSpec