Output the Euler field state (primitive variables).
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(euler_1D_openmp), | intent(in) | :: | self | Euler field. |
Euler state vector.
pure function output(self) result(state)
!---------------------------------------------------------------------------------------------------------------------------------
!< Output the Euler field state (primitive variables).
!---------------------------------------------------------------------------------------------------------------------------------
class(euler_1D_openmp), intent(IN) :: self !< Euler field.
real(R_P), dimension(:,:), allocatable :: state !< Euler state vector.
integer(I_P) :: i !< Counter.
!---------------------------------------------------------------------------------------------------------------------------------
!---------------------------------------------------------------------------------------------------------------------------------
allocate(state(1:self%Np, 1:self%Ni))
do i=1, self%Ni
state(:, i) = self%conservative2primitive(self%U(:, i))
enddo
return
!---------------------------------------------------------------------------------------------------------------------------------
endfunction output