flux1 Function

pure function flux1(v, x, t)

Flux function along x1.

Arguments

Type IntentOptional Attributes Name
real(kind=rk), intent(in) :: v

function v(z,t)
real(kind=rk), intent(in) :: x(:)

vector of internal coordinates
real(kind=rk), intent(in) :: t

time

Return Value real(kind=rk)


Source Code

   pure real(rk) function flux1(v, x, t)
   !! Flux function along x1.
      real(rk), intent(in) :: v
         !! function v(z,t)
      real(rk), intent(in) :: x(:)
         !! vector of internal coordinates
      real(rk), intent(in) :: t
         !! time

      flux1 = v !*x(1)**2

   end function flux1