subroutine to add derive variables for multispecies-liquid (schemekind = 'multispecies_liquid') to the varsys.
KM: set proper velocity and equilbrium pointer for bgk_thermodynfac
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| type(tem_varSys_type), | intent(inout) | :: | varSys | global variable system |
||
| type(mus_varSys_solverData_type), | intent(in), | target | :: | solverData | Contains pointer to solver data types |
|
| type(mus_scheme_header_type), | intent(in) | :: | schemeHeader | identifier of the scheme |
||
| type(tem_stencilHeader_type), | intent(in) | :: | stencil | compute stencil defintion |
||
| integer, | intent(in) | :: | nFields | number of fields |
||
| character(len=*), | intent(in) | :: | fldLabel(:) | array of field label prefix. Size=nFields |
||
| type(grw_labelarray_type), | intent(inout) | :: | derVarName | array of derive physical variables |
| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| integer, | private | :: | nDerVars | ||||
| integer, | private | :: | iVar | ||||
| integer, | private | :: | nComponents | ||||
| integer, | private | :: | addedPos | ||||
| integer, | private | :: | iIn | ||||
| integer, | private | :: | iField | ||||
| logical, | private | :: | wasAdded | ||||
| character(len=labelLen), | private, | allocatable | :: | input_varname(:) | |||
| character(len=labelLen), | private | :: | varName | ||||
| procedure(tem_varSys_proc_point), | private, | pointer | :: | get_point | => | NULL() | |
| procedure(tem_varSys_proc_element), | private, | pointer | :: | get_element | => | NULL() | |
| procedure(tem_varSys_proc_setParams), | private, | pointer | :: | set_params | => | null() | |
| procedure(tem_varSys_proc_getParams), | private, | pointer | :: | get_params | => | null() | |
| procedure(tem_varSys_proc_setupIndices), | private, | pointer | :: | setup_indices | => | null() | |
| procedure(tem_varSys_proc_getValOfIndex), | private, | pointer | :: | get_valOfIndex | => | null() | |
| type(c_ptr), | private | :: | method_data | ||||
| character(len=labelLen), | private, | allocatable | :: | derVarName_loc(:) |