@@ -133,14 +133,38 @@ dimensionedScalar hair(transportProperties.lookupOrDefault("hair",dimensionedSca
133
133
// non-wetting phase properties
134
134
autoPtr<incompressiblePhase> phasea = incompressiblePhase::New(mesh,transportProperties," a" );
135
135
volVectorField& Ua = phasea->U ();
136
- surfaceScalarField& phia = phasea->phi ();
136
+ // surfaceScalarField& phia = phasea->phi();
137
+ surfaceScalarField phia
138
+ (
139
+ IOobject
140
+ (
141
+ " phia" ,
142
+ runTime.timeName(),
143
+ mesh,
144
+ IOobject::NO_READ,
145
+ IOobject::AUTO_WRITE
146
+ ),
147
+ phasea->phi ()
148
+ );
137
149
const dimensionedScalar& rhoa = phasea->rho ();
138
150
const dimensionedScalar& mua = phasea->mu ();
139
151
140
152
// wetting phase properties
141
153
autoPtr<incompressiblePhase> phaseb = incompressiblePhase::New(mesh,transportProperties," b" );
142
154
volVectorField& Ub = phaseb->U ();
143
- surfaceScalarField& phib = phaseb->phi ();
155
+ // surfaceScalarField& phib = phaseb->phi();
156
+ surfaceScalarField phib
157
+ (
158
+ IOobject
159
+ (
160
+ " phib" ,
161
+ runTime.timeName(),
162
+ mesh,
163
+ IOobject::NO_READ,
164
+ IOobject::AUTO_WRITE
165
+ ),
166
+ phaseb->phi ()
167
+ );
144
168
const dimensionedScalar& rhob = phaseb->rho ();
145
169
const dimensionedScalar& mub = phaseb->mu ();
146
170
@@ -491,6 +515,7 @@ forAll(mesh.boundaryMesh(),patchi)
491
515
waterMassBalanceCSV << " Xw" ;
492
516
waterMassBalanceCSV << " p" ;
493
517
}
518
+ waterMassBalanceCSV << " Heat Flux(" << T.boundaryField ()[patchi].patch ().name () << " )" ;
494
519
}
495
520
waterMassBalanceCSV << " Sb_var" ;
496
521
waterMassBalanceCSV << endl;
0 commit comments