Demonstrate quiver plot for discrete vector field arrows
| Type | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|
| integer, | parameter | :: | nx | = | 10 | |
| integer, | parameter | :: | ny | = | 10 | |
| real(kind=wp), | dimension(nx*ny) | :: | x | |||
| real(kind=wp), | dimension(nx*ny) | :: | y | |||
| real(kind=wp), | dimension(nx*ny) | :: | u | |||
| real(kind=wp), | dimension(nx*ny) | :: | v | |||
| integer | :: | i | ||||
| integer | :: | j | ||||
| integer | :: | k | ||||
| real(kind=wp) | :: | xi | ||||
| real(kind=wp) | :: | yj |