74 uulag, vvlag, wwlag, ab, nab)
78 type(
field_t),
intent(inout) :: u, v, w
79 type(
field_t),
intent(inout) :: uu, vv, ww
81 real(kind=
rp),
dimension(3),
intent(in) :: ab
82 integer,
intent(in) :: nab
88 fx_laglag, fy_laglag, fz_laglag, fx, fy, fz, &
92 type(
field_t),
intent(inout) :: fx_lag, fy_lag, fz_lag
93 type(
field_t),
intent(inout) :: fx_laglag, fy_laglag, fz_laglag
94 real(kind=
rp),
intent(inout) :: rho, ext_coeffs(4)
95 integer,
intent(in) :: n
96 real(kind=
rp),
intent(inout) :: fx(n), fy(n), fz(n)
105 type(
field_t),
intent(inout) :: fs_lag
106 type(
field_t),
intent(inout) :: fs_laglag
107 real(kind=
rp),
intent(inout) :: rho, ext_coeffs(4)
108 integer,
intent(in) :: n
109 real(kind=
rp),
intent(inout) :: fs(n)
115 u, v, w, B, rho, dt, bd, nbd, n)
119 integer,
intent(in) :: n, nbd
120 type(
field_t),
intent(in) :: u, v, w
122 real(kind=
rp),
intent(inout) :: bfx(n), bfy(n), bfz(n)
123 real(kind=
rp),
intent(in) :: b(n)
124 real(kind=
rp),
intent(in) :: dt, rho, bd(4)
134 integer,
intent(in) :: n, nbd
137 real(kind=
rp),
intent(inout) :: fs(n)
138 real(kind=
rp),
intent(in) :: b(n)
139 real(kind=
rp),
intent(in) :: dt, rho, bd(4)
147 real(kind=
rp),
intent(in) :: rho, dt
148 integer,
intent(in) :: n
149 real(kind=
rp),
intent(inout) :: bf_x(n), bf_y(n), bf_z(n)
150 real(kind=
rp),
intent(inout) :: phi_x(n), phi_y(n), phi_z(n)
157 real(kind=
rp),
intent(in) :: rho, dt
158 integer,
intent(in) :: n
159 real(kind=
rp),
intent(inout) :: bf_s(n)
160 real(kind=
rp),
intent(inout) :: phi_s(n)
169 module subroutine rhs_maker_sumab_fctry(object)
170 class(rhs_maker_sumab_t),
allocatable,
intent(inout) :: object
171 end subroutine rhs_maker_sumab_fctry
177 module subroutine rhs_maker_ext_fctry(object)
178 class(rhs_maker_ext_t),
allocatable,
intent(inout) :: object
179 end subroutine rhs_maker_ext_fctry
184 module subroutine rhs_maker_bdf_fctry(object)
185 class(rhs_maker_bdf_t),
allocatable,
intent(inout) :: object
186 end subroutine rhs_maker_bdf_fctry
192 module subroutine rhs_maker_oifs_fctry(object)
193 class(rhs_maker_oifs_t),
allocatable,
intent(inout) :: object
194 end subroutine rhs_maker_oifs_fctry
198 public :: rhs_maker_sumab_fctry, rhs_maker_ext_fctry, rhs_maker_bdf_fctry, &
integer, parameter, public rp
Global precision used in computations.
Routines to generate the right-hand sides for the convection-diffusion equation. Employs the EXT/BDF ...
Abstract type to add contributions to F from lagged BD terms.
Abstract type to sum up contributions to kth order extrapolation scheme.
Abstract type to add contributions of kth order OIFS scheme.
Abstract type to compute extrapolated velocity field for the pressure equation.