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