Dummy routine which sets thermodynamic factor matrix to diagonal matrix
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
integer, | intent(in) | :: | nFields | number of fields in mixture |
||
real(kind=rk), | intent(in) | :: | temp | mixture temperature |
||
real(kind=rk), | intent(in) | :: | press | mixture pressure |
||
real(kind=rk), | intent(in) | :: | mole_frac(nFields) | mole fraction of all species of single element |
||
real(kind=rk), | intent(out) | :: | therm_factors(nFields,nFields) | thermodynamic factor matrix |
Type | Visibility | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|---|
integer, | private | :: | iField |