sum_intox Subroutine

public subroutine sum_intox(u, u_d, dir_from, cart_padded)

u += u_d, where u is DIR_X and u_d the same field in layout dir_from.

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(inout)			::	u(*)
real(kind=dp),	intent(in)			::	u_d(*)
integer,	intent(in)			::	dir_from
integer,	intent(in)			::	cart_padded(3)