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 none~clear~91 VarSpecVector%clear none~update_vector->none~clear~91 none~push_back~56 VarSpecVector%push_back none~update_vector->none~push_back~56 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_statecreatefromspecnew->proc~mapl_return proc~mapl_statecreatefromspecnew->proc~mapl_verify ESMF_AttributeGet ESMF_AttributeGet proc~mapl_statecreatefromspecnew->ESMF_AttributeGet ESMF_AttributeSet ESMF_AttributeSet proc~mapl_statecreatefromspecnew->ESMF_AttributeSet ESMF_FieldIsCreated ESMF_FieldIsCreated proc~mapl_statecreatefromspecnew->ESMF_FieldIsCreated esmf_fieldbundlecreate esmf_fieldbundlecreate proc~mapl_statecreatefromspecnew->esmf_fieldbundlecreate esmf_fieldbundleiscreated esmf_fieldbundleiscreated proc~mapl_statecreatefromspecnew->esmf_fieldbundleiscreated esmf_fieldbundleset esmf_fieldbundleset proc~mapl_statecreatefromspecnew->esmf_fieldbundleset esmf_fieldget esmf_fieldget proc~mapl_statecreatefromspecnew->esmf_fieldget esmf_stateadd esmf_stateadd proc~mapl_statecreatefromspecnew->esmf_stateadd esmf_statecreate esmf_statecreate proc~mapl_statecreatefromspecnew->esmf_statecreate esmf_stateiscreated esmf_stateiscreated proc~mapl_statecreatefromspecnew->esmf_stateiscreated interface~mapl_allocatecoupling MAPL_AllocateCoupling proc~mapl_statecreatefromspecnew->interface~mapl_allocatecoupling interface~mapl_attributeset MAPL_AttributeSet proc~mapl_statecreatefromspecnew->interface~mapl_attributeset interface~mapl_fieldalloccommit MAPL_FieldAllocCommit proc~mapl_statecreatefromspecnew->interface~mapl_fieldalloccommit interface~mapl_fieldcreate MAPL_FieldCreate proc~mapl_statecreatefromspecnew->interface~mapl_fieldcreate interface~mapl_fieldcreateempty MAPL_FieldCreateEmpty proc~mapl_statecreatefromspecnew->interface~mapl_fieldcreateempty interface~mapl_stateadd MAPL_StateAdd proc~mapl_statecreatefromspecnew->interface~mapl_stateadd interface~mapl_varspecget MAPL_VarSpecGet proc~mapl_statecreatefromspecnew->interface~mapl_varspecget interface~mapl_varspecgetindex MAPL_VarSpecGetIndex proc~mapl_statecreatefromspecnew->interface~mapl_varspecgetindex interface~mapl_varspecset MAPL_VarSpecSet proc~mapl_statecreatefromspecnew->interface~mapl_varspecset interface~write_parallel WRITE_PARALLEL proc~mapl_statecreatefromspecnew->interface~write_parallel none~of~88 VarSpecVector%of proc~mapl_statecreatefromspecnew->none~of~88 proc~mapl_verify->proc~mapl_throw_exception

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