teardown_bundle Subroutine

public subroutine teardown_bundle(bundle)

Arguments

Type IntentOptional Attributes Name
type(ESMF_FieldBundle), intent(inout) :: bundle

Calls

proc~~teardown_bundle~~CallsGraph proc~teardown_bundle teardown_bundle esmf_fieldbundledestroy esmf_fieldbundledestroy proc~teardown_bundle->esmf_fieldbundledestroy esmf_fielddestroy esmf_fielddestroy proc~teardown_bundle->esmf_fielddestroy interface~mapl_fieldbundleget MAPL_FieldBundleGet proc~teardown_bundle->interface~mapl_fieldbundleget

Called by

proc~~teardown_bundle~~CalledByGraph proc~teardown_bundle teardown_bundle proc~test_change_geom~2 test_change_geom proc~test_change_geom~2->proc~teardown_bundle proc~test_change_typekind~2 test_change_typekind proc~test_change_typekind~2->proc~teardown_bundle proc~test_change_units test_change_units proc~test_change_units->proc~teardown_bundle proc~test_change_weights test_change_weights proc~test_change_weights->proc~teardown_bundle proc~test_change_weights_with_ungridded test_change_weights_with_ungridded proc~test_change_weights_with_ungridded->proc~teardown_bundle proc~test_create_fields test_create_fields proc~test_create_fields->proc~teardown_bundle proc~test_create_fields_with_ungridded test_create_fields_with_ungridded proc~test_create_fields_with_ungridded->proc~teardown_bundle proc~test_same_geom test_same_geom proc~test_same_geom->proc~teardown_bundle

Source Code

   subroutine teardown_bundle(bundle)
      type(ESMF_FieldBundle), intent(inout) :: bundle
      type(ESMF_Field), allocatable :: fieldList(:)

      integer :: i

      call MAPL_FieldBundleGet(bundle, fieldList=fieldList)
      do i = 1, size(fieldList)
         call ESMF_FieldDestroy(fieldList(i))
      end do
      call ESMF_FieldBundleDestroy(bundle)

   end subroutine teardown_bundle