MPI-AMRVAC
3.1
The MPI - Adaptive Mesh Refinement - Versatile Advection Code
|
Calculate w(iw)=w(iw)+qdt*SOURCE[wCT,qtC,x] within ixO for all indices iw=iwmin...iwmax. wCT is at time qCT. More...
Public Member Functions | |
subroutine | source (qdt, ixIL, ixOL, iwLIM, qtC, wCT, qt, w, x) |
Calculate w(iw)=w(iw)+qdt*SOURCE[wCT,qtC,x] within ixO for all indices iw=iwmin...iwmax. wCT is at time qCT.
Definition at line 226 of file mod_usr_methods.t.
subroutine mod_usr_methods::source::source | ( | double precision, intent(in) | qdt, |
integer, intent(in) | ixI, | ||
integer, intent(in) | L, | ||
integer, intent(in) | ixO, | ||
L, | |||
integer, intent(in) | iw, | ||
integer, intent(in) | LIM, | ||
double precision, intent(in) | qtC, | ||
double precision, dimension(ixi^s,1:nw), intent(in) | wCT, | ||
double precision, intent(in) | qt, | ||
double precision, dimension(ixi^s,1:nw), intent(inout) | w, | ||
double precision, dimension(ixi^s,1:ndim), intent(in) | x | ||
) |
Definition at line 226 of file mod_usr_methods.t.