ESMFL_StateSetFieldNeeded Subroutine

public subroutine ESMFL_StateSetFieldNeeded(STATE, NAME, RC)

Arguments

Type IntentOptional Attributes Name
type(ESMF_State), intent(inout) :: STATE
character(len=*), intent(in) :: NAME
integer, intent(out), optional :: RC

Calls

proc~~esmfl_statesetfieldneeded~~CallsGraph proc~esmfl_statesetfieldneeded ESMFL_StateSetFieldNeeded ESMF_AttributeSet ESMF_AttributeSet proc~esmfl_statesetfieldneeded->ESMF_AttributeSet esmf_stateget esmf_stateget proc~esmfl_statesetfieldneeded->esmf_stateget proc~mapl_return MAPL_Return proc~esmfl_statesetfieldneeded->proc~mapl_return proc~mapl_verify MAPL_Verify proc~esmfl_statesetfieldneeded->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 ESMFL_StateSetFieldNeeded(STATE, NAME, RC)
   type(ESMF_State),  intent(INOUT) :: STATE
   character(len=*),  intent(IN   ) :: NAME
   integer, optional, intent(  OUT) :: RC

   integer                          :: STATUS

   type(ESMF_Field)                 :: FIELD

   call ESMF_StateGet(STATE, trim(NAME), FIELD, RC=STATUS)
   _VERIFY(STATUS)

   call ESMF_AttributeSet  (FIELD, NAME="Needed",VALUE=.false., RC=STATUS)
   _VERIFY(STATUS)

   _RETURN(ESMF_SUCCESS)

 end subroutine ESMFL_StateSetFieldNeeded