| [238868] | 1 | /*
 | 
|---|
 | 2 |  * Project: MoleCuilder
 | 
|---|
 | 3 |  * Description: creates and alters molecular systems
 | 
|---|
 | 4 |  * Copyright (C)  2012 University of Bonn. All rights reserved.
 | 
|---|
 | 5 |  * 
 | 
|---|
 | 6 |  *
 | 
|---|
 | 7 |  *   This file is part of MoleCuilder.
 | 
|---|
 | 8 |  *
 | 
|---|
 | 9 |  *    MoleCuilder is free software: you can redistribute it and/or modify
 | 
|---|
 | 10 |  *    it under the terms of the GNU General Public License as published by
 | 
|---|
 | 11 |  *    the Free Software Foundation, either version 2 of the License, or
 | 
|---|
 | 12 |  *    (at your option) any later version.
 | 
|---|
 | 13 |  *
 | 
|---|
 | 14 |  *    MoleCuilder is distributed in the hope that it will be useful,
 | 
|---|
 | 15 |  *    but WITHOUT ANY WARRANTY; without even the implied warranty of
 | 
|---|
 | 16 |  *    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 | 
|---|
 | 17 |  *    GNU General Public License for more details.
 | 
|---|
 | 18 |  *
 | 
|---|
 | 19 |  *    You should have received a copy of the GNU General Public License
 | 
|---|
 | 20 |  *    along with MoleCuilder.  If not, see <http://www.gnu.org/licenses/>.
 | 
|---|
 | 21 |  */
 | 
|---|
 | 22 | 
 | 
|---|
 | 23 | /*
 | 
|---|
 | 24 |  * VMGDebugGridJob.cpp
 | 
|---|
 | 25 |  *
 | 
|---|
 | 26 |  *  Created on: Jul 13, 2012
 | 
|---|
 | 27 |  *      Author: heber
 | 
|---|
 | 28 |  */
 | 
|---|
 | 29 | 
 | 
|---|
 | 30 | 
 | 
|---|
 | 31 | // include config.h
 | 
|---|
 | 32 | #ifdef HAVE_CONFIG_H
 | 
|---|
 | 33 | #include <config.h>
 | 
|---|
 | 34 | #endif
 | 
|---|
 | 35 | 
 | 
|---|
 | 36 | #ifdef HAVE_MPI
 | 
|---|
 | 37 | #include "mpi.h"
 | 
|---|
 | 38 | #endif
 | 
|---|
 | 39 | 
 | 
|---|
 | 40 | // include headers that implement a archive in simple text format
 | 
|---|
 | 41 | // otherwise BOOST_CLASS_EXPORT_IMPLEMENT has no effect
 | 
|---|
 | 42 | #include <boost/archive/text_oarchive.hpp>
 | 
|---|
 | 43 | #include <boost/archive/text_iarchive.hpp>
 | 
|---|
 | 44 | 
 | 
|---|
 | 45 | #include "mg.hpp"
 | 
|---|
 | 46 | #include "base/object.hpp"
 | 
|---|
 | 47 | #include "base/defs.hpp"
 | 
|---|
 | 48 | 
 | 
|---|
 | 49 | #ifdef HAVE_MPI
 | 
|---|
 | 50 | #include "comm/comm_mpi.hpp"
 | 
|---|
 | 51 | #include "comm/domain_decomposition_mpi.hpp"
 | 
|---|
 | 52 | #else
 | 
|---|
 | 53 | #include "comm/comm_serial.hpp"
 | 
|---|
 | 54 | #endif
 | 
|---|
 | 55 | #include "cycles/cycle_cs_periodic.hpp"
 | 
|---|
 | 56 | #include "grid/multigrid.hpp"
 | 
|---|
 | 57 | //#include "grid/tempgrid.hpp"
 | 
|---|
 | 58 | #include "level/level_operator_cs.hpp"
 | 
|---|
 | 59 | #include "level/stencils.hpp"
 | 
|---|
 | 60 | #include "samples/discretization_poisson_fd.hpp"
 | 
|---|
 | 61 | #include "smoother/gsrb_poisson_4.hpp"
 | 
|---|
 | 62 | #include "solver/givens.hpp"
 | 
|---|
 | 63 | //#include "solver/solver_regular.hpp"
 | 
|---|
 | 64 | #include "solver/solver_singular.hpp"
 | 
|---|
 | 65 | //#include "units/particle/comm_mpi_particle.hpp"
 | 
|---|
 | 66 | 
 | 
|---|
 | 67 | #include "CodePatterns/MemDebug.hpp"
 | 
|---|
 | 68 | 
 | 
|---|
 | 69 | #include "Jobs/VMGDebugGridJob.hpp"
 | 
|---|
 | 70 | 
 | 
|---|
 | 71 | #include "LinearAlgebra/defs.hpp"
 | 
|---|
 | 72 | #include "Jobs/InterfaceVMGDebugGridJob.hpp"
 | 
|---|
 | 73 | 
 | 
|---|
 | 74 | using namespace VMG;
 | 
|---|
 | 75 | 
 | 
|---|
 | 76 | VMGDebugGridJob::VMGDebugGridJob(
 | 
|---|
 | 77 |     const JobId_t _JobId,
 | 
|---|
 | 78 |     const SamplingGrid &_density_grid) :
 | 
|---|
 | 79 |   FragmentJob(_JobId),
 | 
|---|
 | 80 |   density_grid(_density_grid)
 | 
|---|
 | 81 | {}
 | 
|---|
 | 82 | 
 | 
|---|
 | 83 | VMGDebugGridJob::VMGDebugGridJob() :
 | 
|---|
 | 84 |   FragmentJob(JobId::IllegalJob)
 | 
|---|
 | 85 | {}
 | 
|---|
 | 86 | 
 | 
|---|
 | 87 | VMGDebugGridJob::~VMGDebugGridJob()
 | 
|---|
 | 88 | {}
 | 
|---|
 | 89 | 
 | 
|---|
 | 90 | FragmentResult::ptr VMGDebugGridJob::Work()
 | 
|---|
 | 91 | {
 | 
|---|
 | 92 |   // initialize VMG library solver
 | 
|---|
 | 93 |   InitVMG();
 | 
|---|
 | 94 | 
 | 
|---|
 | 95 |   /*
 | 
|---|
 | 96 |    * Start the multigrid solver,
 | 
|---|
 | 97 |    * hence calling InterfaceVMGDebugGridJob::ImportRightHandSide()
 | 
|---|
 | 98 |    */
 | 
|---|
 | 99 |   MG::Solve();
 | 
|---|
 | 100 | 
 | 
|---|
 | 101 |   /*
 | 
|---|
 | 102 |    * Delete all data.
 | 
|---|
 | 103 |    */
 | 
|---|
 | 104 |   MG::Destroy();
 | 
|---|
 | 105 | 
 | 
|---|
 | 106 |   std::stringstream returnstream;
 | 
|---|
 | 107 |   boost::archive::text_oarchive oa(returnstream);
 | 
|---|
 | 108 |   std::string message("Sampled Grid");
 | 
|---|
 | 109 |   oa << message;
 | 
|---|
 | 110 |   FragmentResult::ptr ptr( new FragmentResult(getId(), returnstream.str()) );
 | 
|---|
 | 111 |   return ptr;
 | 
|---|
 | 112 | }
 | 
|---|
 | 113 | 
 | 
|---|
 | 114 | /** Initialization of VMG library.
 | 
|---|
 | 115 |  *
 | 
|---|
 | 116 |  * The contents is heavily inspired from interface_fcs.cpp: VMG_fcs_init() of
 | 
|---|
 | 117 |  * the ScaFaCoS project.
 | 
|---|
 | 118 |  *
 | 
|---|
 | 119 |  */
 | 
|---|
 | 120 | void VMGDebugGridJob::InitVMG()
 | 
|---|
 | 121 | {
 | 
|---|
 | 122 |   // TODO: As a matter of fact should use open boundary conditions
 | 
|---|
 | 123 |   const Boundary boundary(Periodic, Periodic, Periodic);
 | 
|---|
 | 124 | 
 | 
|---|
 | 125 |   /*
 | 
|---|
 | 126 |    * Choose multigrid components
 | 
|---|
 | 127 |    */
 | 
|---|
 | 128 | #ifdef HAVE_MPI
 | 
|---|
 | 129 |   new CommMPI(boundary, new DomainDecompositionMPI());
 | 
|---|
 | 130 | #else
 | 
|---|
 | 131 |   new CommSerial(boundary);
 | 
|---|
 | 132 | #endif
 | 
|---|
 | 133 |   new DiscretizationPoissonFD(4);
 | 
|---|
 | 134 |   new VMGInterfaces::InterfaceVMGDebugGridJob(
 | 
|---|
| [b123a5] | 135 |       density_grid,
 | 
|---|
| [238868] | 136 |       boundary,
 | 
|---|
 | 137 |       2,
 | 
|---|
 | 138 |       density_grid.level,
 | 
|---|
 | 139 |       Vector(density_grid.begin),
 | 
|---|
| [3d9a8d] | 140 |       density_grid.end[0]-density_grid.begin[0],
 | 
|---|
| [238868] | 141 |       5);
 | 
|---|
 | 142 |   new LevelOperatorCS(Stencils::RestrictionFullWeight, Stencils::InterpolationTrilinear);
 | 
|---|
 | 143 |   new Givens<SolverSingular>();
 | 
|---|
 | 144 |   const int cycle_type = 1; // V-type
 | 
|---|
 | 145 |   new CycleCSPeriodic(cycle_type);
 | 
|---|
 | 146 |   new GaussSeidelRBPoisson4();
 | 
|---|
 | 147 | 
 | 
|---|
 | 148 |   /*
 | 
|---|
 | 149 |    * Register required parameters.
 | 
|---|
 | 150 |    * We don't actually want solve anything here
 | 
|---|
 | 151 |    */
 | 
|---|
 | 152 |   new ObjectStorage<int>("PRESMOOTHSTEPS", 1);
 | 
|---|
 | 153 |   new ObjectStorage<int>("POSTSMOOTHSTEPS", 1);
 | 
|---|
 | 154 |   new ObjectStorage<vmg_float>("PRECISION", 1.0e-0);
 | 
|---|
 | 155 |   new ObjectStorage<int>("MAX_ITERATION", 1);
 | 
|---|
 | 156 |   new ObjectStorage<int>("PARTICLE_NEAR_FIELD_CELLS", 3);
 | 
|---|
 | 157 |   new ObjectStorage<int>("PARTICLE_INTERPOLATION_DEGREE", 3);
 | 
|---|
 | 158 | 
 | 
|---|
 | 159 |   /*
 | 
|---|
 | 160 |    * Post init
 | 
|---|
 | 161 |    */
 | 
|---|
 | 162 |   MG::PostInit();
 | 
|---|
 | 163 | 
 | 
|---|
 | 164 |   /*
 | 
|---|
 | 165 |    * Check whether the library is correctly initialized now.
 | 
|---|
 | 166 |    */
 | 
|---|
 | 167 |   MG::IsInitialized();
 | 
|---|
 | 168 | }
 | 
|---|
 | 169 | 
 | 
|---|
 | 170 | // we need to explicitly instantiate the serialization functions as
 | 
|---|
 | 171 | // its is only serialized through its base class FragmentJob
 | 
|---|
 | 172 | BOOST_CLASS_EXPORT_IMPLEMENT(VMGDebugGridJob)
 | 
|---|