00001 volVectorField Ur = Ua - Ub; 00002 volScalarField magUr = mag(Ur); 00003 00004 volScalarField CdaMagUr = 00005 (24.0*nub/da)*(scalar(1) + 0.15*pow(da*magUr/nub, 0.687)); 00006 00007 volScalarField CdbMagUr = 00008 (24.0*nua/db)*(scalar(1) + 0.15*pow(db*magUr/nua, 0.687)); 00009 00010 volScalarField dragCoef 00011 ( 00012 "Cd", 00013 0.75*(beta*rhob*CdaMagUr/da + alpha*rhoa*CdbMagUr/db) 00014 ); 00015 00016 volVectorField liftCoeff = Cl*(beta*rhob + alpha*rhoa)*(Ur ^ fvc::curl(U)); 00017 00018 // ************************ vim: set sw=4 sts=4 et: ************************ //