| subroutine mod_physics::sub_add_source::sub_add_source |
( |
double precision, intent(in) |
qdt, |
|
|
double precision, intent(in) |
dtfactor, |
|
|
integer, intent(in) |
ixi, |
|
|
integer, intent(in) |
l, |
|
|
integer, intent(in) |
ixo, |
|
|
|
l, |
|
|
double precision, dimension(ixi^s, 1:nw), intent(in) |
wct, |
|
|
double precision, dimension(ixi^s,1:nw), intent(in) |
wctprim, |
|
|
double precision, dimension(ixi^s, 1:nw), intent(inout) |
w, |
|
|
double precision, dimension(ixi^s, 1:ndim), intent(in) |
x, |
|
|
logical, intent(in) |
qsourcesplit, |
|
|
logical, intent(inout) |
active |
|
) |
| |
|
virtual |
