← Back to branch summary

~unicorn-core/unicorn/hpc

« back to all changes in this revision

Viewing changes to ucsolver/icns/unicorn/NSESolver.h

  • Committer: Niclas Jansson
  • Date: 2012-03-01 08:20:27 UTC
  • mfrom: (129.5.32 0.1.3-hpc)
  • Revision ID: njansson@csc.kth.se-20120301082027-snah9zahbb5d3t8n
Fixed F77 calling in elastic smoother

Show diffs side-by-side

added added

removed removed

Lines of Context:
ucsolver/icns/unicorn/NSESolver.h
47
47
      // Cleanup
48
48
      void clear();
49
49
      
50
 
      // Compute cell diameter
51
 
      static void ComputeCellSize(Mesh& mesh, Vector& hvector);
52
50
      
53
51
      // Get minimum cell diameter
54
52
      static void GetMinimumCellSize(Mesh& mesh, real& hmin);
125
123
          return dolfin::sor;
126
124
        else if (type == "ilu")
127
125
          return dolfin::ilu;
 
126
        else if (type == "dilu")
 
127
          return dolfin::dilu;
128
128
        else if (type == "amg")
129
129
          return dolfin::amg;
130
130
        else
147
147
      real T;
148
148
      real nu;
149
149
      real ubar;
 
150
      real hmin;
 
151
      bool schur;
150
152
 
151
153
      Checkpoint& chkp;
152
154
      long& w_limit;
162
164
 
163
165
    };
164
166
    
 
167
    class TimeStepFunction : public Function
 
168
    {
 
169
    public:
 
170
    TimeStepFunction(Mesh& mesh) : Function(mesh) {}
 
171
      void eval(real* values, const real* p) const
 
172
      {
 
173
        values[0] = *k;
 
174
      }
 
175
      
 
176
      real* k;
 
177
    };
 
178
 
165
179
  }}
166
180
 
167
181
#endif