subroutine rhs_maker_device::rhs_maker_bdf_device |
( |
type(field_t), intent(inout) |
ta1, |
|
|
type(field_t), intent(inout) |
ta2, |
|
|
type(field_t), intent(inout) |
ta3, |
|
|
type(field_t), intent(inout) |
tb1, |
|
|
type(field_t), intent(inout) |
tb2, |
|
|
type(field_t), intent(inout) |
tb3, |
|
|
type(field_series_t), intent(in) |
ulag, |
|
|
type(field_series_t), intent(in) |
vlag, |
|
|
type(field_series_t), intent(in) |
wlag, |
|
|
real(kind=rp), dimension(n), intent(inout) |
bfx, |
|
|
real(kind=rp), dimension(n), intent(inout) |
bfy, |
|
|
real(kind=rp), dimension(n), intent(inout) |
bfz, |
|
|
type(field_t), intent(in) |
u, |
|
|
type(field_t), intent(in) |
v, |
|
|
type(field_t), intent(in) |
w, |
|
|
real(kind=rp), dimension(n), intent(in) |
B, |
|
|
real(kind=rp), intent(in) |
rho, |
|
|
real(kind=rp), intent(in) |
dt, |
|
|
real(kind=rp), dimension(10), intent(in) |
bd, |
|
|
integer, intent(in) |
nbd, |
|
|
integer, intent(in) |
n |
|
) |
| |
|
private |