source/apputils/embedded_boundary/appu_ebdry2d.f File Reference

Variables
c c	File
c c	CUTin
c c	BORDERin
c c	FLOWin
c c &	OUTSIDEin
c c	INSIDEin
c c	BOUNDARYin
c c ONBOUNDARYin c ***********************************************************************implicit none integer &	SOLIDin
c c ONBOUNDARYin c ***********************************************************************implicit none integer ONBOUNDARYin common ebparams	SOLID_EB
c c ONBOUNDARYin c ***********************************************************************implicit none integer ONBOUNDARYin common ebparams	CUT_EB
c c ONBOUNDARYin c ***********************************************************************implicit none integer ONBOUNDARYin common ebparams	BORDER_EB
c c ONBOUNDARYin c ***********************************************************************implicit none integer ONBOUNDARYin common ebparams	FLOW_EB
c c ONBOUNDARYin c ***********************************************************************implicit none integer ONBOUNDARYin common ebparams &	OUTSIDE_EB
c c ONBOUNDARYin c ***********************************************************************implicit none integer ONBOUNDARYin common ebparams	INSIDE_EB
c c ONBOUNDARYin c ***********************************************************************implicit none integer ONBOUNDARYin common ebparams	BOUNDARY_EB
c c ONBOUNDARYin c ***********************************************************************implicit none integer ONBOUNDARYin common ebparams ONBOUNDARY_EB integer ONBOUNDARY_EB c ***********************************************************************c ONBOUNDARY_EB integer ONBOUNDARY_EB c ***********************************************************************c integer &	ifirst0
c c ONBOUNDARYin c ***********************************************************************implicit none integer ONBOUNDARYin common ebparams ONBOUNDARY_EB integer ONBOUNDARY_EB c ***********************************************************************c ONBOUNDARY_EB integer ONBOUNDARY_EB c ***********************************************************************c integer	ifirst1
c c ONBOUNDARYin c ***********************************************************************implicit none integer ONBOUNDARYin common ebparams ONBOUNDARY_EB integer ONBOUNDARY_EB c ***********************************************************************c ONBOUNDARY_EB integer ONBOUNDARY_EB c ***********************************************************************c integer &	ilast0
c c ONBOUNDARYin c ***********************************************************************implicit none integer ONBOUNDARYin common ebparams ONBOUNDARY_EB integer ONBOUNDARY_EB c ***********************************************************************c ONBOUNDARY_EB integer ONBOUNDARY_EB c ***********************************************************************c integer	ilast1
c c ONBOUNDARYin c ***********************************************************************implicit none integer ONBOUNDARYin common ebparams ONBOUNDARY_EB integer ONBOUNDARY_EB c ***********************************************************************c ONBOUNDARY_EB integer ONBOUNDARY_EB c ***********************************************************************c integer &	ngc0
c c ONBOUNDARYin c ***********************************************************************implicit none integer ONBOUNDARYin common ebparams ONBOUNDARY_EB integer ONBOUNDARY_EB c ***********************************************************************c ONBOUNDARY_EB integer ONBOUNDARY_EB c ***********************************************************************c integer	ngc1
c c ONBOUNDARYin c ***********************************************************************implicit none integer ONBOUNDARYin common ebparams ONBOUNDARY_EB integer ONBOUNDARY_EB c ***********************************************************************c ONBOUNDARY_EB integer ONBOUNDARY_EB c ***********************************************************************c integer &	cgc0

---

Variable Documentation

c c File

c c ONBOUNDARYin c ***********************************************************************implicit none integer CUTin

c c ONBOUNDARYin c ***********************************************************************implicit none integer BORDERin

c c ONBOUNDARYin c ***********************************************************************implicit none integer FLOWin

c c ONBOUNDARYin c ***********************************************************************implicit none integer & OUTSIDEin

c c ONBOUNDARYin c ***********************************************************************implicit none integer INSIDEin

c c ONBOUNDARYin c ***********************************************************************implicit none integer BOUNDARYin

c c ONBOUNDARYin c*********************************************************************** implicit none integer& SOLIDin

c c &cell_vol c ***********************************************************************implicit none common ebparams ONBOUNDARY_EB integer & SOLID_EB

Initial value: SOLIDin CUT_EB = CUTin BORDER_EB = BORDERin FLOW_EB = FLOWin OUTSIDE_EB = OUTSIDEin INSIDE_EB = INSIDEin BOUNDARY_EB = BOUNDARYin ONBOUNDARY_EB = ONBOUNDARYin return end c c*********************************************************************** c Convert node inout values to cell flags. c*********************************************************************** c subroutine node2cellflag2d( & ifirst0,ifirst1, & ilast0,ilast1, & ngc0,ngc1, & cgc0,cgc1, & node_flag, & cell_flag, & cell_vol) c*********************************************************************** implicit none common/ebparams/SOLID_EB

c c &cell_vol c ***********************************************************************implicit none common ebparams ONBOUNDARY_EB integer CUT_EB

c c &cell_vol c ***********************************************************************implicit none common ebparams ONBOUNDARY_EB integer BORDER_EB

c c &cell_vol c ***********************************************************************implicit none common ebparams ONBOUNDARY_EB integer FLOW_EB

c c &cell_vol c ***********************************************************************implicit none common ebparams ONBOUNDARY_EB integer & OUTSIDE_EB

c c &cell_vol c ***********************************************************************implicit none common ebparams ONBOUNDARY_EB integer INSIDE_EB

c c &cell_vol c ***********************************************************************implicit none common ebparams ONBOUNDARY_EB integer BOUNDARY_EB

c c ONBOUNDARYin c*********************************************************************** implicit none integer ONBOUNDARYin common ebparams ONBOUNDARY_EB integer ONBOUNDARY_EB c*********************************************************************** c ONBOUNDARY_EB integer ONBOUNDARY_EB c*********************************************************************** c integer& ifirst0

c c ONBOUNDARYin c*********************************************************************** implicit none integer ONBOUNDARYin common ebparams ONBOUNDARY_EB integer ONBOUNDARY_EB c*********************************************************************** c ONBOUNDARY_EB integer ONBOUNDARY_EB c*********************************************************************** c integer ifirst1

c c ONBOUNDARYin c*********************************************************************** implicit none integer ONBOUNDARYin common ebparams ONBOUNDARY_EB integer ONBOUNDARY_EB c*********************************************************************** c ONBOUNDARY_EB integer ONBOUNDARY_EB c*********************************************************************** c integer & ilast0

c c ONBOUNDARYin c*********************************************************************** implicit none integer ONBOUNDARYin common ebparams ONBOUNDARY_EB integer ONBOUNDARY_EB c*********************************************************************** c ONBOUNDARY_EB integer ONBOUNDARY_EB c*********************************************************************** c integer ilast1

c c ONBOUNDARYin c*********************************************************************** implicit none integer ONBOUNDARYin common ebparams ONBOUNDARY_EB integer ONBOUNDARY_EB c*********************************************************************** c ONBOUNDARY_EB integer ONBOUNDARY_EB c*********************************************************************** c integer & ngc0

c c ONBOUNDARYin c*********************************************************************** implicit none integer ONBOUNDARYin common ebparams ONBOUNDARY_EB integer ONBOUNDARY_EB c*********************************************************************** c ONBOUNDARY_EB integer ONBOUNDARY_EB c*********************************************************************** c integer ngc1

c c &cell_vol c ***********************************************************************implicit none common ebparams ONBOUNDARY_EB integer ONBOUNDARY_EB c ***********************************************************************c integer & cgc0

---