ESMFL_BundleCpyField Subroutine

public subroutine ESMFL_BundleCpyField(BUNDLE, FIELD, NAME, RC)

Arguments

Type IntentOptional Attributes Name
type(ESMF_FieldBundle), intent(inout) :: BUNDLE
type(ESMF_Field), intent(inout) :: FIELD
character(len=ESMF_MAXSTR), intent(in), optional :: NAME
integer, intent(out), optional :: RC

Calls

proc~~esmfl_bundlecpyfield~~CallsGraph proc~esmfl_bundlecpyfield ESMFL_BundleCpyField interface~mapl_fieldbundleadd MAPL_FieldBundleAdd proc~esmfl_bundlecpyfield->interface~mapl_fieldbundleadd interface~mapl_fieldcreate MAPL_FieldCreate proc~esmfl_bundlecpyfield->interface~mapl_fieldcreate proc~mapl_return MAPL_Return proc~esmfl_bundlecpyfield->proc~mapl_return proc~mapl_verify MAPL_Verify proc~esmfl_bundlecpyfield->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_BundleCpyField (BUNDLE, FIELD, NAME, RC)
     type(ESMF_FieldBundle), intent(INOUT) :: BUNDLE
     type(ESMF_FIELD ), intent(INOUT) :: FIELD ! ALT: intent(in)
     character(len=ESMF_MAXSTR), optional, intent(IN) :: NAME
     integer, optional, intent(OUT)   :: RC

     type(ESMF_FIELD )       :: FIELD1


     integer          :: status

     FIELD1 = MAPL_FieldCreate(FIELD, name = name, RC=STATUS )
     _VERIFY(STATUS)

     call MAPL_FieldBundleAdd (BUNDLE, FIELD1, RC=STATUS )
     _VERIFY(STATUS)

     _RETURN(ESMF_SUCCESS)

   end subroutine  ESMFL_BundleCpyField