boundary.f90

求解粘性Burger方程和非粘性Burger方程的各种差分格式

!===========================================================================
function bounLeft(time)
! Function on the left boundary
	real bounLeft
	bounLeft=0
end function bounLeft
!==========================================================================
function bounRight(time)
! Function on the right boundary
	real bounRight
	bounRight=0
end function bounRight