Destroy field.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(euler_1D_omp_nf), | intent(inout) | :: | self | Euler field. |
pure subroutine destroy(self)
!---------------------------------------------------------------------------------------------------------------------------------
!< Destroy field.
!---------------------------------------------------------------------------------------------------------------------------------
class(euler_1D_omp_nf), intent(INOUT) :: self !< Euler field.
!---------------------------------------------------------------------------------------------------------------------------------
!---------------------------------------------------------------------------------------------------------------------------------
self%ord = 0
self%Ni = 0
self%Ng = 0
self%Ns = 0
self%Nc = 0
self%Np = 0
self%Dx = 0._R_P
if (allocated(self%U)) deallocate(self%U)
if (allocated(self%cp0)) deallocate(self%cp0)
if (allocated(self%cv0)) deallocate(self%cv0)
if (allocated(self%BC_L)) deallocate(self%BC_L)
if (allocated(self%BC_R)) deallocate(self%BC_R)
return
!---------------------------------------------------------------------------------------------------------------------------------
endsubroutine destroy