00001
00002
00003
00004
00005
00006 #ifndef AMROC_PROBLEM_H
00007 #define AMROC_PROBLEM_H
00008
00009 #include "acousticsv3.h"
00010 #include "ClpProblem.h"
00011
00012 #define OWN_GFMAMRSOLVER
00013 #include "ClpStdGFMProblem.h"
00014 #include "ClpF77GFMFileOutput.h"
00015 #include "StatCPTLevelSet.h"
00016
00017 class SolverSpecific :
00018 public AMRGFMSolver<VectorType,FixupType,FlagType,DIM> {
00019 typedef VectorType::InternalDataType DataType;
00020 typedef AMRGFMSolver<VectorType,FixupType,FlagType,DIM> base;
00021 public:
00022 SolverSpecific(IntegratorSpecific& integ,
00023 base::initial_condition_type& init,
00024 base::boundary_conditions_type& bc) : base(integ, init, bc) {
00025 SetLevelTransfer(new F77LevelTransfer<VectorType,DIM>(f_prolong, f_restrict));
00026 SetFileOutput(new ClpF77GFMFileOutput<VectorType,FixupType,FlagType,AuxType,DIM>(*this,integ,f_flgout));
00027 SetFixup(new FixupSpecific(integ));
00028 SetFlagging(new FlaggingSpecific(*this));
00029 AddGFM(new GhostFluidMethod<VectorType,DIM>(new F77GFMBoundary<VectorType,DIM>(f_ibndrfl),
00030 new StatCPTLevelSet<DataType,DIM>()));
00031 }
00032
00033 ~SolverSpecific() {
00034 DeleteGFM(_GFM[0]);
00035 delete _Flagging;
00036 delete _Fixup;
00037 }
00038 };