Liebe Gitlab-Nutzerin, lieber Gitlab-Nutzer,
es ist nun möglich sich mittels des ZIH-Logins/LDAP an unserem Dienst anzumelden. Die Konten der externen Nutzer:innen sind über den Reiter "Standard" erreichbar.
Die Administratoren


Dear Gitlab user,
it is now possible to log in to our service using the ZIH login/LDAP. The accounts of external users can be accessed via the "Standard" tab.
The administrators

PetscSolverCahnHilliard.h 2.3 KB
Newer Older
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92
// ============================================================================
// ==                                                                        ==
// == AMDiS - Adaptive multidimensional simulations                          ==
// ==                                                                        ==
// ==  http://www.amdis-fem.org                                              ==
// ==                                                                        ==
// ============================================================================
//
// Software License for AMDiS
//
// Copyright (c) 2010 Dresden University of Technology 
// All rights reserved.
// Authors: Simon Vey, Thomas Witkowski et al.
//
// This file is part of AMDiS
//
// See also license.opensource.txt in the distribution.



/** \file PetscSolverCahnHilliard.h */

#ifndef AMDIS_PETSC_SOLVER_CAHN_HILLIARD_H
#define AMDIS_PETSC_SOLVER_CAHN_HILLIARD_H

#include "parallel/PetscSolverGlobalBlockMatrix.h"

namespace AMDiS {

  using namespace std;

  struct CahnHilliardData {
    KSP kspMass, kspLaplace;
    Mat matM, matMinusDeltaK;
    double *eps, *delta; 
    MPI::Intracomm *mpiCommGlobal;

    
  };

  class PetscSolverCahnHilliard : public PetscSolverGlobalBlockMatrix
  {
  public:
    /// Creator class
    class Creator : public OEMSolverCreator
    {
    public:
      virtual ~Creator() {}

      /// Returns a new PetscSolver object.
      OEMSolver* create() 
      { 
	return new PetscSolverCahnHilliard(this->name); 
      }
    };
    
    void solvePetscMatrix(SystemVector &vec, AdaptInfo *adaptInfo);
    
    PetscSolverCahnHilliard(string name, double *epsPtr = NULL, double *deltaPtr = NULL);

    void setChData(double *epsPtr, double *deltaPtr, SystemVector* vec)
    {
      eps = epsPtr;
      delta = deltaPtr;
      solution = vec;
    }

  protected:
    void initSolver(KSP &ksp);

    void initPreconditioner(PC pc);
    void exitPreconditioner(PC pc);
    
    PetscSolver* createSubSolver(int component, string kspPrefix);

  private:
    int pressureComponent;

    PetscSolver *massMatrixSolver, *laplaceMatrixSolver, *deltaKMatrixSolver;

    CahnHilliardData matShellContext;

    bool useOldInitialGuess;
    
    SystemVector* solution;

    double *eps, *delta;
  };

}

#endif // AMDIS_PETSC_SOLVER_CAHN_HILLIARD_H