Flux function along x2.
Type | Intent | Optional | 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 |
pure real(rk) function flux2(v, x, t) !! Flux function along x2. real(rk), intent(in) :: v !! function v(z,t) real(rk), intent(in) :: x(:) !! vector of internal coordinates real(rk), intent(in) :: t !! time flux2 = v !*x(1)*x(2) end function flux2