This routine computes Q-criterion from velocity in auxField. , where and S are asymmetric (vorticity tensor) and symmetric (rate of strain) part of velocity gradient. i.e and .

Ref: http://www.ctr.maths.lu.se/media/thesis/2013/FMA820.pdf The interface has to comply to the abstract interface tem_varSys_proc_element.

Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|

class(tem_varSys_op_type), | intent(in) | :: | fun | Description of the method to obtain the variables, here some preset values might be stored, like the space time function to use or the required variables. |
||

type(tem_varSys_type), | intent(in) | :: | varSys | The variable system to obtain the variable from. |
||

integer, | intent(in) | :: | elempos(:) | Position of the TreeID of the element to get the variable for in the global treeID list. |
||

type(tem_time_type), | intent(in) | :: | time | Point in time at which to evaluate the variable. |
||

type(treelmesh_type), | intent(in) | :: | tree | global treelm mesh info |
||

integer, | intent(in) | :: | nElems | Number of values to obtain for this variable (vectorized access). |
||

integer, | intent(in) | :: | nDofs | Number of degrees of freedom within an element. |
||

real(kind=rk), | intent(out) | :: | res(:) | Resulting values for the requested variable. Linearized array dimension:
(n requested entries) x (nComponents of this variable)
x (nDegrees of freedom)
Access: (iElem-1) |

Type | Visibility | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|---|

integer, | private | :: | statePos | ||||

integer, | private | :: | iElem | ||||

integer, | private | :: | iLevel | ||||

integer, | private | :: | iDir | ||||

type(mus_varSys_data_type), | private, | pointer | :: | fPtr | |||

real(kind=rk), | private | :: | gradU(3,3,1) | ||||

real(kind=rk), | private | :: | gradU_sqr(3,3) | ||||

real(kind=rk), | private | :: | tr_gradU | ||||

real(kind=rk), | private | :: | tr_gradU_sqr | ||||

integer, | private | :: | velPos(3) | ||||

integer, | private | :: | nDims |