gmpMaterialShearLaw.h

Go to the documentation of this file.

/************************************************************************
**
** Copyright (C) 2014 by Carlos Augusto Teixera Mendes
** All rights reserved.
**
** This file is part of the "GeMA" software. It's use should respect
** the terms in the license agreement that can be found together
** with this source code.
** It is provided AS IS, with NO WARRANTY OF ANY KIND,
** INCLUDING THE WARRANTY OF DESIGN, MERCHANTABILITY AND FITNESS FOR
** A PARTICULAR PURPOSE.
**
************************************************************************/
 
#ifndef _GEMA_PLUGIN_HYDRAULIC_MATERIAL_SHEARLAW_H_
#define _GEMA_PLUGIN_HYDRAULIC_MATERIAL_SHEARLAW_H_
 
#include <gmTrace.h>
#include <assert.h>
 
#include "gmpMaterialInterfaceFlow.h"
 
class GMP_HYDRAULIC_PHYSICS_API_EXPORT GmpMaterialShearLaw : public GmpMaterialInterfaceFlow
{
protected:
  enum CubicLawPropIds
  {
    //GAP_ID = GmpMaterialInterfaceFlow::NUM_PROPERTY_IDS, //!< Id for retrieving the parameter that controls the shape of the curve Sw x pc
 
    // --- NO ADDING BELOW THIS LINE
    NUM_PROPERTY_IDS,  
  };
 
public:
 
  GmpMaterialShearLaw(int typeIndex, QString typeName, const GmLogCategory& logger)
    : GmpMaterialInterfaceFlow(typeIndex, typeName, logger) {}
 
  static GmpFemPhysicsCommonMaterial* instance(GmSimulationData* simulation, int typeIndex, QString typeName, const GmLogCategory& logger)
  {
    Q_UNUSED(simulation);
    return new GmpMaterialShearLaw(typeIndex, typeName, logger);
  }
 
  virtual void hydraulicConstitutiveModel(const GmElement* e, GmVector& flowParam, const GmVector* coord, int ip) const
  {
    S_TRACE();
    assert(e);
    flowParam.fill(0.0);
    double gap = fractureOpening(e, coord, ip);
    double uf = fluidViscosity(e, coord, ip);
    double Ap = gaussAttrAc(AnOLD_GA_ID)->scalarValueAt(e, ip, coord);
    double k0 = gap * gap / 12.0;
    double kf = k0;
    if (Ap > 0.0)
    {
        kf = k0 + 1E-4 * pow(Ap, 2.0);
    }
    double An = sqrt(12.0 * kf);
    //Compute the longitudinal conductivity according to cubic's law.
    flowParam(0) = An *kf/ uf;
    //computes the leakoff coefficients
    flowParam(1) = leakoffTop(e, coord, ip);
    flowParam(2) = leakoffBottom(e, coord, ip);
  }
 
};
 
#endif