This routine add dynamic force to velocity in auxField for weakly-compressible model for turbulent channel test case. Force definition: Force = rhou_tau^2/H + rho(u_bulk_ref-uX_bulk_avg)*u_bulk_ref/H Reference: 1) https://www.wias-berlin.de/people/john/ELECTRONIC_PAPERS/JR07.IJNMF.pdf 2) Haussmann, Marc; BARRETO, Alejandro CLARO; KOUYI, Gislain LIPEME; Rivière, Nicolas; Nirschl, Hermann; Krause, Mathias J. (2019): Large-eddy simulation coupled with wall models for turbulent channel flows at high Reynolds numbers with a lattice Boltzmann method — Application to Coriolis mass flowmeter. In Computers & Mathematics with Applications 78 (10), pp. 3285–3302. DOI: 10.1016/j.camwa.2019.04.033.
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(mus_source_op_type), | intent(inout) | :: | fun | Description of method to update source |
||
| real(kind=rk), | intent(inout) | :: | auxField(:) | output auxField array |
||
| integer, | intent(in) | :: | iLevel | current level |
||
| type(tem_time_type), | intent(in) | :: | time | current timing information |
||
| type(tem_varSys_type), | intent(in) | :: | varSys | variable system definition |
||
| type(mus_convertFac_type), | intent(in) | :: | phyConvFac | Physics conversion factor for current level |
||
| type(mus_derVarPos_type), | intent(in) | :: | derVarPos(:) | position of derived quantities in varsys |
| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| integer, | private | :: | dens_pos | ||||
| integer, | private | :: | vel_pos(3) | ||||
| real(kind=rk), | private | :: | forceTerm(3) | ||||
| integer, | private | :: | iElem | ||||
| integer, | private | :: | nElems | ||||
| integer, | private | :: | posInTotal | ||||
| integer, | private | :: | elemOff | ||||
| real(kind=rk), | private | :: | forceDynL(3) |