00001 fvVectorMatrix UEqn 00002 ( 00003 betav*fvm::ddt(rho, U) 00004 + fvm::div(phi, U) 00005 + turbulence->divDevRhoReff(U) 00006 == 00007 betav*rho*g 00008 ); 00009 00010 volSymmTensorField invA = inv(I*UEqn.A() + drag->Dcu()); 00011 00012 if (momentumPredictor) 00013 { 00014 U = invA & (UEqn.H() - betav*fvc::grad(p)); 00015 U.correctBoundaryConditions(); 00016 } 00017 00018 // ************************ vim: set sw=4 sts=4 et: ************************ //