sub_special_advance

interface
public subroutine sub_special_advance(qt, psa)

Type	Intent	Optional	Attributes		Name
double precision,	intent(in)			::	qt	Current time
type(state),			target	::	psa(max_blocks)	Compute based on this state

Add special advance in each advect step