get_active_suction_layers Subroutine

public subroutine get_active_suction_layers(nsites, sites, bc_in, bc_out)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	nsites
type(ed_site_type),	intent(inout),		target	::	sites(nsites)
type(bc_in_type),	intent(in)			::	bc_in(nsites)
type(bc_out_type),	intent(inout)			::	bc_out(nsites)