00001 volVectorField Ur = Ua - Ub; 00002 volScalarField magUr = mag(Ur); 00003 00004 volScalarField Ka = draga->K(magUr); 00005 volScalarField K = Ka; 00006 00007 if (dragPhase == "b") 00008 { 00009 volScalarField Kb = dragb->K(magUr); 00010 K = Kb; 00011 } 00012 else if (dragPhase == "blended") 00013 { 00014 volScalarField Kb = dragb->K(magUr); 00015 K = (beta*Ka + alpha*Kb); 00016 } 00017 00018 volVectorField liftCoeff = Cl*(beta*rhob + alpha*rhoa)*(Ur ^ fvc::curl(U)); 00019 00020 // ************************ vim: set sw=4 sts=4 et: ************************ //