Time derivative of Burgers field, residuals function.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(burgers), | intent(in) | :: | self | Burgers field. |
||
real(kind=R_P), | intent(in), | optional | :: | t | Time. |
Burgers field time derivative.
function dBurgers_dt(self, t) result(dState_dt)
!---------------------------------------------------------------------------------------------------------------------------------
!< Time derivative of Burgers field, residuals function.
!---------------------------------------------------------------------------------------------------------------------------------
class(burgers), intent(IN) :: self !< Burgers field.
real(R_P), optional, intent(IN) :: t !< Time.
class(integrand), allocatable :: dState_dt !< Burgers field time derivative.
!---------------------------------------------------------------------------------------------------------------------------------
!---------------------------------------------------------------------------------------------------------------------------------
allocate(burgers :: dState_dt)
select type(dState_dt)
class is(burgers)
dState_dt = self
dState_dt = self%xx() * self%nu
dState_dt = dState_dt - self * self%x()
endselect
return
!---------------------------------------------------------------------------------------------------------------------------------
endfunction dBurgers_dt