Calculate the physical flux for the MODG scheme and Heat equation.
HK: put OMP DO statements inside calcDiff_leg and make sure it properly works within a parallel region wherever it is called.
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| type(atl_Equations_type), | intent(in) | :: | equation | The equation you solve. |
||
| real(kind=rk), | intent(inout) | :: | res(:,:) | To store the resulting phy flux in modal form |
||
| real(kind=rk), | intent(in), | optional | :: | state(:,:) | The state of the equation |
|
| integer, | intent(in) | :: | iElem | The current Element |
||
| integer, | intent(in) | :: | iDir | The current Direction |
||
| type(atl_penalizationData_type), | intent(inout) | :: | penalizationData | The penalization data |
||
| type(ply_poly_project_type), | intent(inout) | :: | poly_proj | Poly project |
||
| type(atl_material_type), | intent(inout) | :: | material | Material description for the faces on the current level |
||
| real(kind=rk), | intent(in), | optional | :: | nodal_data(:,:) | The state in nodal form |
|
| real(kind=rk), | intent(in), | optional | :: | nodal_GradData(:,:,:) | ||
| real(kind=rk), | intent(inout) | :: | nodal_res(:,:) | |||
| real(kind=rk), | intent(in) | :: | ElemLength | Length of the element |
||
| type(atl_scheme_type), | intent(inout) | :: | scheme_min | The scheme information |
||
| type(atl_scheme_type), | intent(inout) | :: | scheme_current |
| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| integer, | private | :: | nScal | ||||
| integer, | private | :: | nDofs | ||||
| real(kind=rk), | private, | allocatable | :: | temp_modal_P(:,:,:,:) | |||
| real(kind=rk), | private, | allocatable | :: | temp_modal_Q(:,:,:,:) | |||
| real(kind=rk), | private | :: | therm_diff |