interfacecell.vb

来自「一个lbm的程序」· VB 代码 · 共 15 行

Public Class InterfaceCell
    Inherits BasicCell
    Public tf(q), massDirivative(1), normalDirection(1) As Double
    Public mass As Double
    Public flag As Byte = CONST_INTERFACE

    Public Sub reNewf()
        Dim k As Byte
        For k = 1 To q
            Me.f(k) = Me.tf(k)
        Next
    End Sub

End Class