diff --git a/src/lagrangian/intermediate/parcels/Templates/ReactingMultiphaseParcel/ReactingMultiphaseParcel.C b/src/lagrangian/intermediate/parcels/Templates/ReactingMultiphaseParcel/ReactingMultiphaseParcel.C index 4be1fcdd123cf5b91a97e77df71efd87514de8a0..b2111c243486f9ec2ce347be1463a480077be540 100644 --- a/src/lagrangian/intermediate/parcels/Templates/ReactingMultiphaseParcel/ReactingMultiphaseParcel.C +++ b/src/lagrangian/intermediate/parcels/Templates/ReactingMultiphaseParcel/ReactingMultiphaseParcel.C @@ -466,6 +466,16 @@ void Foam::ReactingMultiphaseParcel<ParcelType>::calc // Update sensible enthalpy transfer td.cloud().hsTrans()[cellI] += np0*dhsTrans; td.cloud().hsCoeff()[cellI] += np0*Sph; + + // Update radiation fields + if (td.cloud().radiation()) + { + const scalar ap = this->areaP(); + const scalar T4 = pow4(this->T_); + td.cloud().radAreaP()[cellI] += dt*np0*ap; + td.cloud().radT4()[cellI] += dt*np0*T4; + td.cloud().radAreaP()[cellI] += dt*np0*ap*T4; + } } } diff --git a/src/lagrangian/intermediate/parcels/Templates/ReactingParcel/ReactingParcel.C b/src/lagrangian/intermediate/parcels/Templates/ReactingParcel/ReactingParcel.C index cfd21ceed0121e0de4ce49fcaad8aac0c7389d81..e9bc8153045af85ad40f565aed04d670821859f2 100644 --- a/src/lagrangian/intermediate/parcels/Templates/ReactingParcel/ReactingParcel.C +++ b/src/lagrangian/intermediate/parcels/Templates/ReactingParcel/ReactingParcel.C @@ -458,6 +458,16 @@ void Foam::ReactingParcel<ParcelType>::calc // Update sensible enthalpy transfer td.cloud().hsTrans()[cellI] += np0*dhsTrans; td.cloud().hsCoeff()[cellI] += np0*Sph; + + // Update radiation fields + if (td.cloud().radiation()) + { + const scalar ap = this->areaP(); + const scalar T4 = pow4(this->T_); + td.cloud().radAreaP()[cellI] += dt*np0*ap; + td.cloud().radT4()[cellI] += dt*np0*T4; + td.cloud().radAreaP()[cellI] += dt*np0*ap*T4; + } } } diff --git a/src/lagrangian/intermediate/parcels/Templates/ThermoParcel/ThermoParcel.C b/src/lagrangian/intermediate/parcels/Templates/ThermoParcel/ThermoParcel.C index b64b1e8f99df6cac42c2b3304c100d99930c75ff..cb9b7142049128d0051f804829ae4ca372bfd1d9 100644 --- a/src/lagrangian/intermediate/parcels/Templates/ThermoParcel/ThermoParcel.C +++ b/src/lagrangian/intermediate/parcels/Templates/ThermoParcel/ThermoParcel.C @@ -144,7 +144,7 @@ void Foam::ThermoParcel<ParcelType>::calcSurfaceValues Ts = td.cloud().constProps().TMin(); } - // Assuming thermo props vary linearly with T for small dT + // Assuming thermo props vary linearly with T for small d(T) const scalar TRatio = Tc_/Ts; rhos = this->rhoc_*TRatio; @@ -252,6 +252,16 @@ void Foam::ThermoParcel<ParcelType>::calc // Update sensible enthalpy coefficient td.cloud().hsCoeff()[cellI] += np0*Sph; + + // Update radiation fields + if (td.cloud().radiation()) + { + const scalar ap = this->areaP(); + const scalar T4 = pow4(this->T_); + td.cloud().radAreaP()[cellI] += dt*np0*ap; + td.cloud().radT4()[cellI] += dt*np0*T4; + td.cloud().radAreaP()[cellI] += dt*np0*ap*T4; + } } }