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_GenericMod::MAPL_StateCreateFromSpec none~update_vector mapl_StateSpecification::StateSpecification%update_vector proc~mapl_statecreatefromspec->none~update_vector proc~mapl_return MAPL_ErrorHandlingMod::MAPL_Return proc~mapl_statecreatefromspec->proc~mapl_return proc~mapl_statecreatefromspecnew MAPL_GenericMod::MAPL_StateCreateFromSpecNew proc~mapl_statecreatefromspec->proc~mapl_statecreatefromspecnew proc~mapl_verify MAPL_ErrorHandlingMod::MAPL_Verify proc~mapl_statecreatefromspec->proc~mapl_verify none~clear~2 mapl_VarSpecVector::VarSpecVector%clear none~update_vector->none~clear~2 none~push_back~2 mapl_VarSpecVector::VarSpecVector%push_back none~update_vector->none~push_back~2 at at proc~mapl_return->at insert insert proc~mapl_return->insert proc~mapl_throw_exception MAPL_ThrowMod::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::ESMF_AttributeGet proc~mapl_statecreatefromspecnew->ESMF_AttributeGet ESMF_AttributeSet ESMF::ESMF_AttributeSet proc~mapl_statecreatefromspecnew->ESMF_AttributeSet ESMF_FieldIsCreated ESMF::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_Base::MAPL_AllocateCoupling proc~mapl_statecreatefromspecnew->interface~mapl_allocatecoupling interface~mapl_attributeset MAPL_Base::MAPL_AttributeSet proc~mapl_statecreatefromspecnew->interface~mapl_attributeset interface~mapl_fieldalloccommit MAPL_Base::MAPL_FieldAllocCommit proc~mapl_statecreatefromspecnew->interface~mapl_fieldalloccommit interface~mapl_fieldcreate MAPL_Base::MAPL_FieldCreate proc~mapl_statecreatefromspecnew->interface~mapl_fieldcreate interface~mapl_fieldcreateempty MAPL_Base::MAPL_FieldCreateEmpty proc~mapl_statecreatefromspecnew->interface~mapl_fieldcreateempty interface~mapl_stateadd MAPL_Base::MAPL_StateAdd proc~mapl_statecreatefromspecnew->interface~mapl_stateadd interface~mapl_varspecget MAPL_VarSpecMod::MAPL_VarSpecGet proc~mapl_statecreatefromspecnew->interface~mapl_varspecget interface~mapl_varspecgetindex MAPL_VarSpecMod::MAPL_VarSpecGetIndex proc~mapl_statecreatefromspecnew->interface~mapl_varspecgetindex interface~mapl_varspecset MAPL_VarSpecTypeMod::MAPL_VarSpecSet proc~mapl_statecreatefromspecnew->interface~mapl_varspecset interface~write_parallel FileIOSharedMod::WRITE_PARALLEL proc~mapl_statecreatefromspecnew->interface~write_parallel none~of mapl_VarSpecVector::VarSpecVector%of proc~mapl_statecreatefromspecnew->none~of 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