HeatFluidCoupledInteraction.h

Go to the documentation of this file.

// This file is part of the MercuryDPM project (https://www.mercurydpm.org).
// Copyright (c), The MercuryDPM Developers Team. All rights reserved.
// License: BSD 3-Clause License; see the LICENSE file in the root directory.
 
#ifndef HeatFluidCoupledINTERACTION_H
#define HeatFluidCoupledINTERACTION_H
 
#include "ThermalInteraction.h"
//#include "Species/NormalForceSpecies/HeatFluidCoupledSpecies.h"
#include "Particles/HeatFluidCoupledParticle.h"
 
template<class NormalForceSpecies>
class HeatFluidCoupledSpecies;
 
template<class NormalForceInteraction>
class HeatFluidCoupledInteraction : public ThermalInteraction<NormalForceInteraction>
{
public:
    typedef HeatFluidCoupledSpecies<typename NormalForceInteraction::SpeciesType> SpeciesType;
    
    HeatFluidCoupledInteraction(BaseInteractable* P, BaseInteractable* I, unsigned timeStamp)
    : BaseInteraction(P, I, timeStamp), ThermalInteraction<NormalForceInteraction>(P, I, timeStamp)
    {}
    
    HeatFluidCoupledInteraction()
    : BaseInteraction(), ThermalInteraction<NormalForceInteraction>()
    {}
 
 
    HeatFluidCoupledInteraction(const HeatFluidCoupledInteraction& p)
    : BaseInteraction(p), ThermalInteraction<NormalForceInteraction>(p)
    {}
 
    virtual ~HeatFluidCoupledInteraction()
    {}
    
    void computeNormalForce();
};
 
template<class NormalForceInteraction>
void HeatFluidCoupledInteraction<NormalForceInteraction>::computeNormalForce()
{
    NormalForceInteraction::computeNormalForce();
    Mdouble radius = 2.0 * NormalForceInteraction::getEffectiveRadius();
    Mdouble contactArea = constants::pi * radius * std::max(0.0,NormalForceInteraction::getOverlap());
    const SpeciesType* species = static_cast<const SpeciesType*>(NormalForceInteraction::getBaseSpecies()->getNormalForce());
    auto pParticle = dynamic_cast<HeatFluidCoupledParticle*>(NormalForceInteraction::getP());
    auto iParticle = dynamic_cast<HeatFluidCoupledParticle*>(NormalForceInteraction::getI());
    // if both p and i are particles
    if (pParticle && iParticle)
    {
        /* compute heat conduction, Q = lambda * A dT / L, */
        Mdouble heatTransfer = species->getThermalConductivity()
                               * (pParticle->getTemperature() - iParticle->getTemperature())
                               * contactArea / NormalForceInteraction::getDistance();
        /* m*dT = Q/c*dt */
        Mdouble mdT = heatTransfer / species->getHeatCapacity()
                      * NormalForceInteraction::getHandler()->getDPMBase()->getTimeStep();
        pParticle->addTemperature(-mdT * pParticle->getInvMass());
        iParticle->addTemperature(mdT * iParticle->getInvMass());
    }
}
 
#endif