Destructor for the MAPL Simple Bundle. It is assumed that the bundle has been created from an ESMF Field Bundle.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(MAPL_SimpleBundle) | :: | self | ||||
integer, | intent(out), | optional | :: | rc |
subroutine MAPL_SimpleBundleDestroy (self, rc ) type(MAPL_SimpleBundle) :: self ! Simple Bundle integer, OPTIONAL, intent(out) :: rc !----------------------------------------------------------------------------- integer :: status deallocate(self%coords%Lons, self%coords%Lats, self%coords%Levs, __STAT__) ! deallocate(self%r1, self%r2, self%r3, __STAT__) if(associated(self%r1)) deallocate(self%r1) if(associated(self%r2)) deallocate(self%r2) if(associated(self%r3)) deallocate(self%r3) if (associated(self%bundle)) then call MAPL_FieldBundleDestroy(self%bundle, _RC) end if if (self%bundleAlloc) then deallocate(self%bundle, __STAT__) end if _RETURN(_SUCCESS) end subroutine MAPL_SimpleBundleDestroy