subroutine to add derive variables for incompressible LBM (schemekind = 'fluid_incompressible') to the varsys.
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 |
||
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 | ||||
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(:) |