diff --git a/src/thermophysicalModels/radiation/radiationModel/fvDOM/radiativeIntensityRay/radiativeIntensityRay.C b/src/thermophysicalModels/radiation/radiationModel/fvDOM/radiativeIntensityRay/radiativeIntensityRay.C index b90835db5670a02155fd8980b0a6f17f02f909c3..23db640feafcf46606e4cb02d2b46758d9c2e8b4 100644 --- a/src/thermophysicalModels/radiation/radiationModel/fvDOM/radiativeIntensityRay/radiativeIntensityRay.C +++ b/src/thermophysicalModels/radiation/radiationModel/fvDOM/radiativeIntensityRay/radiativeIntensityRay.C @@ -172,26 +172,24 @@ Foam::scalar Foam::radiation::radiativeIntensityRay::correct() // reset boundary heat flux to zero Qr_ = dimensionedScalar("zero", dimMass/pow3(dimTime), 0.0); - scalar maxResidual = 0.0; + scalar maxResidual = -GREAT; forAll(IWave_, lambdaI) { const volScalarField& k = dom_.aj(lambdaI); - volScalarField E = - absEmmModel_.ECont(lambdaI)/Foam::mathematicalConstant::pi; - surfaceScalarField Ji = dAve_ & mesh_.Sf(); - volScalarField Ib = - blackBody_.bj(lambdaI)/Foam::mathematicalConstant::pi; - fvScalarMatrix IiEq ( fvm::div(Ji, IWave_[lambdaI], " div(Ji,Ii_h)") + fvm::Sp(k*omega_, IWave_[lambdaI]) == - k*omega_*Ib + E + 1.0/Foam::mathematicalConstant::pi + *( + k*omega_*blackBody_.bj(lambdaI) + + absEmmModel_.ECont(lambdaI) + ) ); IiEq.relax();