Terme_Source_Constituant_Vortex_VEF_Face.cpp

/****************************************************************************
* Copyright (c) 2015 - 2016, CEA
* All rights reserved.
*
* Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following conditions are met:
* 1. Redistributions of source code must retain the above copyright notice, this list of conditions and the following disclaimer.
* 2. Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following disclaimer in the documentation and/or other materials provided with the distribution.
* 3. Neither the name of the copyright holder nor the names of its contributors may be used to endorse or promote products derived from this software without specific prior written permission.
*
* THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
* IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS;
* OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
*
*****************************************************************************/
#include <Terme_Source_Constituant_Vortex_VEF_Face.h>
#include <Param.h>
#include <Transport_Interfaces_FT_Disc.h>
#include <communications.h>
#include <Probleme_base.h>
 
// XD Source_Constituant_Vortex source_base Source_Constituant_Vortex INHERITS_BRACE Special treatment for the reactor
// XD_CONT of vortex effect where reagents are injected just below the free surface in the liquid phase
Implemente_instanciable(Terme_Source_Constituant_Vortex_VEF_Face, "Source_Constituant_Vortex_VEF_P1NC", Terme_Source_Constituant_VEF_Face);
 
Entree& Terme_Source_Constituant_Vortex_VEF_Face::readOn(Entree& is)
{
  Cerr << "Reading Terme_Source_Constituant_Vortex_VEF_Face\n"
       << " (parameters for expression are (x,y,z,u,v,w) where u,v,w is the interface sensor position)" << finl;
  senseur_.associer_pb(equation().probleme());
  Param param(que_suis_je());
  integrale_ = -1.;
  param.ajouter("rayon_spot", &rayon_spot_, Param::REQUIRED);  // XD_ADD_P floattant
  // XD_CONT defines the radius of the concentration spot (tracer) injected in the fluid
  param.ajouter("delta_spot", &delta_spot_, Param::REQUIRED);  // XD_ADD_P list
  // XD_CONT dimensions of the injection (segment). the syntax is dim val1 val2 [val3]
  param.ajouter("integrale", &integrale_, Param::REQUIRED);  // XD_ADD_P floattant
  // XD_CONT the molar flowrate of injection
  param.ajouter("debit", &debit_, Param::REQUIRED);  // XD_ADD_P floattant
  // XD_CONT a normalization of the molar flow rate. Advice: keep this value to 1.
  param.ajouter("senseur_interface", &senseur_, Param::REQUIRED);  // XD_ADD_P bloc_lecture
  // XD_CONT This is to be defined for the concentration equation of the reagents only and in the bloc of the sources.
  // XD_CONT Here the user defines the position of the reagents injection.
 
  param.lire_avec_accolades_depuis(is);
 
  const int dim = dimension;
 
  if (delta_spot_.size_array() != dim || rayon_spot_ <= 0.)
    {
      Cerr << "Error: wrong segments dimension or nb_points_tests" << finl;
      Process::exit();
    }
  return is;
}
 
Sortie& Terme_Source_Constituant_Vortex_VEF_Face::printOn(Sortie& os) const
{
  return os;
}
 
void Terme_Source_Constituant_Vortex_VEF_Face::associer_pb (const Probleme_base& pb)
{
}
 
DoubleTab& Terme_Source_Constituant_Vortex_VEF_Face::calculer(DoubleTab& tab) const
{
  const Equation_base& eq = equation();
  const Domaine_VEF& domaine_vef = ref_cast(Domaine_VEF, eq.domaine_dis());
  const Domaine_Cl_VEF& domaine_cl_vef = ref_cast(Domaine_Cl_VEF, eq.domaine_Cl_dis());
  const DoubleVect& volumes = domaine_vef.volumes_entrelaces();
  const DoubleVect& volumes_cl = domaine_cl_vef.volumes_entrelaces_Cl();
  const int premiere_face_std = domaine_vef.premiere_face_std();
  const DoubleVect& porosites = equation().milieu().porosite_face();
  const DoubleTab& xv = domaine_vef.xv();  // Coord des centres des faces
  const int nb_faces = domaine_vef.nb_faces();
  const int dim = Objet_U::dimension;
  const ArrOfInt& faces_doubles = domaine_vef.faces_doubles();
 
  // Pour chaque colonne de xv, a quelle variable faut-il attribuer cette valeur ?
  // On met dans expr le terme source et on calcule l'integrale
  double integrale = 0.;
  const double omega = 4. / (rayon_spot_ * rayon_spot_);
  for (int i_face = 0; i_face < nb_faces; i_face++)
    {
      double f;
      {
        double x = xv(i_face, 0) - position_spot_[0];
        double y = xv(i_face, 1) - position_spot_[1];
        double z = (dim == 3) ? (xv(i_face, 2) - position_spot_[2]) : 0.;
        f = exp((-x*x-y*y-z*z) * omega);
      }
      double volume = (i_face < premiere_face_std) ? volumes_cl[i_face] : volumes[i_face];
      double por = porosites(i_face);
      double x = f * volume * por;
      tab(i_face) = x;
      double facteur = 1.;
      if (faces_doubles[i_face])
        facteur = 0.5;
      integrale += x * facteur;
    }
 
  integrale = mp_sum(integrale);
  if (integrale_ > 0. && integrale > 0.)
    {
      const double facteur = integrale_ / integrale;
      tab *= facteur;
    }
  return tab;
}
 
DoubleTab& Terme_Source_Constituant_Vortex_VEF_Face::ajouter(DoubleTab& tab) const
{
  const int n = tab.dimension(0);
  // On doit de toutes facons creer un tableau temporaire pour pouvoir renormaliser la source.
  // tableau tmp de la bonne taille mais non initialise:
  DoubleTab tmp;
  tmp.resize(n);
  calculer(tmp);
  for (int i = 0; i < n; i++)
    tab(i) += tmp(i);
  return tab;
}
 
void Terme_Source_Constituant_Vortex_VEF_Face::mettre_a_jour(double temps)
{
  senseur_.calculer_position(position_spot_);
  position_spot_ += delta_spot_;
  Cerr << "Source_Constituant_Vortex "
       << position_spot_[0] << " " << position_spot_[1] << " "
       << ((position_spot_.size_array()==3)?position_spot_[2]:0.)
       << finl;
}
 
void Terme_Source_Constituant_Vortex_VEF_Face::ajouter_terme_div_u(DoubleVect& secmem_pression, double dt) const
{
  const Equation_base& eq = equation();
  const Domaine_VEF& domaine_vef = ref_cast(Domaine_VEF, eq.domaine_dis());
  const DoubleVect& volumes = domaine_vef.volumes();
  const DoubleTab& xp = domaine_vef.xp();  // Centres des elements
  const int nb_elem = domaine_vef.domaine().nb_elem();
  const int dim = xp.dimension(1);
 
  // GF mieux comme cela
  const int n = secmem_pression.size_totale();
  ArrOfDouble tmp;
  tmp.resize_array(n);
  double integrale = 0.;
  const double omega = 4. / (rayon_spot_ * rayon_spot_);
  int elem;
  for (elem = 0; elem < nb_elem; elem++)
    {
      double x = xp(elem, 0) - position_spot_[0];
      double y = xp(elem, 1) - position_spot_[1];
      double z = (dim == 3) ? (xp(elem, 2) - position_spot_[2]) : 0.;
      double f = exp((-x*x-y*y-z*z) * omega) * volumes[elem];
      integrale += f;
      tmp[elem] = f;
    }
  integrale = mp_sum(integrale);
  double facteur = 0.;
  if (integrale > 0.)
    // Le facteur 1./dimension est du a l'operateur div en vef
    facteur = debit_ / Objet_U::dimension / integrale / dt;
 
  Cerr << "Terme_Source_Constituant_Vortex_VEF_Face::ajouter_terme_div_u " << integrale << finl;
  for (elem = 0; elem < nb_elem; elem++)
    secmem_pression[elem] += tmp[elem] * facteur;
}