Destroy field.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(integrand_ladvection), | intent(inout) | :: | self | Advection field. |
subroutine destroy(self)
!< Destroy field.
class(integrand_ladvection), intent(inout) :: self !< Advection field.
type(integrand_ladvection) :: fresh !< Fresh field to reset self.
self = fresh
endsubroutine destroy