INTEGER LESSVM_TRUE INTEGER LESSVM_FALSE PARAMETER(LESSVM_TRUE=1) PARAMETER(LESSVM_FALSE=0) INTEGER LESSVM_ANSATZ1 INTEGER LESSVM_ANSATZ2 INTEGER LESSVM_DYNAMIC PARAMETER(LESSVM_ANSATZ1=0) ! align with principal rate of strain PARAMETER(LESSVM_ANSATZ2=1) ! algin also with vorticity PARAMETER(LESSVM_DYNAMIC=2) ! use dynamic computation ! (assume last 3 scalars) INTEGER LESSVM_INCOMPRESSIBLE INTEGER LESSVM_COMPRESSIBLE PARAMETER (LESSVM_INCOMPRESSIBLE=0) PARAMETER (LESSVM_COMPRESSIBLE=1) INTEGER LESSVM_BACKSCATTER_ON INTEGER LESSVM_BACKSCATTER_OFF PARAMETER (LESSVM_BACKSCATTER_ON=1) PARAMETER (LESSVM_BACKSCATTER_OFF=0) INTEGER LESSVM_CUTOFF_SAFE_ON INTEGER LESSVM_CUTOFF_SAFE_OFF PARAMETER (LESSVM_CUTOFF_SAFE_ON=1) PARAMETER (LESSVM_CUTOFF_SAFE_OFF=0)