-/* -*- mode: c; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4; c-file-style: "stroustrup"; -*-
+/*
+ * This file is part of the GROMACS molecular simulation package.
*
- *
- * This file is part of Gromacs Copyright (c) 1991-2008
- * David van der Spoel, Erik Lindahl, Berk Hess, University of Groningen.
+ * Copyright (c) 2008,2009,2010,2011,2012,2013,2014, by the GROMACS development team, led by
+ * Mark Abraham, David van der Spoel, Berk Hess, and Erik Lindahl,
+ * and including many others, as listed in the AUTHORS file in the
+ * top-level source directory and at http://www.gromacs.org.
*
- * This program is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
+ * GROMACS is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public License
+ * as published by the Free Software Foundation; either version 2.1
* of the License, or (at your option) any later version.
*
+ * GROMACS is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ * Lesser General Public License for more details.
+ *
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with GROMACS; if not, see
+ * http://www.gnu.org/licenses, or write to the Free Software Foundation,
+ * Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
+ *
+ * If you want to redistribute modifications to GROMACS, please
+ * consider that scientific software is very special. Version
+ * control is crucial - bugs must be traceable. We will be happy to
+ * consider code for inclusion in the official distribution, but
+ * derived work must not be called official GROMACS. Details are found
+ * in the README & COPYING files - if they are missing, get the
+ * official version at http://www.gromacs.org.
+ *
* To help us fund GROMACS development, we humbly ask that you cite
- * the research papers on the package. Check out http://www.gromacs.org
- *
- * And Hey:
- * Gnomes, ROck Monsters And Chili Sauce
+ * the research papers on the package. Check out http://www.gromacs.org.
*/
-#ifdef HAVE_CONFIG_H
-#include <config.h>
-#endif
+#include "gmxpre.h"
#include <stdio.h>
#include <assert.h>
-#include "domdec.h"
-#include "network.h"
-#include "perf_est.h"
-#include "physics.h"
-#include "smalloc.h"
-#include "typedefs.h"
-#include "vec.h"
-#include "names.h"
+#include "gromacs/legacyheaders/domdec.h"
+#include "gromacs/legacyheaders/types/commrec.h"
+#include "gromacs/legacyheaders/network.h"
+#include "gromacs/legacyheaders/perf_est.h"
+#include "gromacs/utility/smalloc.h"
+#include "gromacs/legacyheaders/typedefs.h"
+#include "gromacs/math/vec.h"
+#include "gromacs/legacyheaders/names.h"
/* Margin for setting up the DD grid */
#define DD_GRID_MARGIN_PRES_SCALE 1.05
-static int factorize(int n,int **fac,int **mfac)
+static int factorize(int n, int **fac, int **mfac)
{
- int d,ndiv;
+ int d, ndiv;
if (n <= 0)
{
}
/* Decompose n in factors */
- snew(*fac,n/2);
- snew(*mfac,n/2);
- d = 2;
+ snew(*fac, n/2);
+ snew(*mfac, n/2);
+ d = 2;
ndiv = 0;
while (n > 1)
{
}
d++;
}
-
+
return ndiv;
}
static gmx_bool largest_divisor(int n)
{
- int ndiv,*div,*mdiv,ldiv;
+ int ndiv, *div, *mdiv, ldiv;
- ndiv = factorize(n,&div,&mdiv);
+ ndiv = factorize(n, &div, &mdiv);
ldiv = div[ndiv-1];
sfree(div);
sfree(mdiv);
return ldiv;
}
-static int lcd(int n1,int n2)
+static int lcd(int n1, int n2)
{
- int d,i;
-
+ int d, i;
+
d = 1;
- for(i=2; (i<=n1 && i<=n2); i++)
+ for (i = 2; (i <= n1 && i <= n2); i++)
{
if (n1 % i == 0 && n2 % i == 0)
{
d = i;
}
}
-
- return d;
+
+ return d;
}
-static gmx_bool fits_pme_ratio(int nnodes,int npme,float ratio)
+static gmx_bool fits_pme_ratio(int nnodes, int npme, float ratio)
{
- return ((double)npme/(double)nnodes > 0.95*ratio);
+ return ((double)npme/(double)nnodes > 0.95*ratio);
}
-static gmx_bool fits_pp_pme_perf(FILE *fplog,
- t_inputrec *ir,matrix box,gmx_mtop_t *mtop,
- int nnodes,int npme,float ratio)
+static gmx_bool fits_pp_pme_perf(int nnodes, int npme, float ratio)
{
- int ndiv,*div,*mdiv,ldiv;
- int npp_root3,npme_root2;
+ int ndiv, *div, *mdiv, ldiv;
+ int npp_root3, npme_root2;
- ndiv = factorize(nnodes-npme,&div,&mdiv);
+ ndiv = factorize(nnodes-npme, &div, &mdiv);
ldiv = div[ndiv-1];
sfree(div);
sfree(mdiv);
- npp_root3 = (int)(pow(nnodes-npme,1.0/3.0) + 0.5);
+ npp_root3 = (int)(pow(nnodes-npme, 1.0/3.0) + 0.5);
npme_root2 = (int)(sqrt(npme) + 0.5);
/* The check below gives a reasonable division:
* The factor of 2 allows for a maximum ratio of 2^2=4
* between nx_pme and ny_pme.
*/
- if (lcd(nnodes-npme,npme)*2 < npme_root2)
+ if (lcd(nnodes-npme, npme)*2 < npme_root2)
{
return FALSE;
}
/* Does this division gives a reasonable PME load? */
- return fits_pme_ratio(nnodes,npme,ratio);
+ return fits_pme_ratio(nnodes, npme, ratio);
}
-static int guess_npme(FILE *fplog,gmx_mtop_t *mtop,t_inputrec *ir,matrix box,
- int nnodes)
+static int guess_npme(FILE *fplog, gmx_mtop_t *mtop, t_inputrec *ir, matrix box,
+ int nnodes)
{
- float ratio;
- int npme,nkx,nky;
- t_inputrec ir_try;
-
- ratio = pme_load_estimate(mtop,ir,box);
-
- if (fplog)
- {
- fprintf(fplog,"Guess for relative PME load: %.2f\n",ratio);
- }
-
- /* We assume the optimal node ratio is close to the load ratio.
- * The communication load is neglected,
- * but (hopefully) this will balance out between PP and PME.
- */
-
- if (!fits_pme_ratio(nnodes,nnodes/2,ratio))
+ float ratio;
+ int npme, nkx, nky;
+ t_inputrec ir_try;
+
+ ratio = pme_load_estimate(mtop, ir, box);
+
+ if (fplog)
+ {
+ fprintf(fplog, "Guess for relative PME load: %.2f\n", ratio);
+ }
+
+ /* We assume the optimal node ratio is close to the load ratio.
+ * The communication load is neglected,
+ * but (hopefully) this will balance out between PP and PME.
+ */
+
+ if (!fits_pme_ratio(nnodes, nnodes/2, ratio))
{
/* We would need more than nnodes/2 PME only nodes,
* which is not possible. Since the PME load is very high,
* and avoid ratios which lead to large prime factors in nnodes-npme.
*/
npme = (nnodes + 15)/16;
- while (npme <= nnodes/3) {
+ while (npme <= nnodes/3)
+ {
if (nnodes % npme == 0)
{
/* Note that fits_perf might change the PME grid,
* in the current implementation it does not.
*/
- if (fits_pp_pme_perf(fplog,ir,box,mtop,nnodes,npme,ratio))
- {
- break;
- }
+ if (fits_pp_pme_perf(nnodes, npme, ratio))
+ {
+ break;
+ }
}
npme++;
}
while (npme <= nnodes/2)
{
/* Note that fits_perf may change the PME grid */
- if (fits_pp_pme_perf(fplog,ir,box,mtop,nnodes,npme,ratio))
+ if (fits_pp_pme_perf(nnodes, npme, ratio))
{
break;
}
}
if (npme > nnodes/2)
{
- gmx_fatal(FARGS,"Could not find an appropriate number of separate PME nodes. i.e. >= %5f*#nodes (%d) and <= #nodes/2 (%d) and reasonable performance wise (grid_x=%d, grid_y=%d).\n"
- "Use the -npme option of mdrun or change the number of processors or the PME grid dimensions, see the manual for details.",
- ratio,(int)(0.95*ratio*nnodes+0.5),nnodes/2,ir->nkx,ir->nky);
+ gmx_fatal(FARGS, "Could not find an appropriate number of separate PME ranks. i.e. >= %5f*#ranks (%d) and <= #ranks/2 (%d) and reasonable performance wise (grid_x=%d, grid_y=%d).\n"
+ "Use the -npme option of mdrun or change the number of ranks or the PME grid dimensions, see the manual for details.",
+ ratio, (int)(0.95*ratio*nnodes+0.5), nnodes/2, ir->nkx, ir->nky);
/* Keep the compiler happy */
npme = 0;
}
if (fplog)
{
fprintf(fplog,
- "Will use %d particle-particle and %d PME only nodes\n"
+ "Will use %d particle-particle and %d PME only ranks\n"
"This is a guess, check the performance at the end of the log file\n",
- nnodes-npme,npme);
+ nnodes-npme, npme);
}
- fprintf(stderr,"\n"
- "Will use %d particle-particle and %d PME only nodes\n"
+ fprintf(stderr, "\n"
+ "Will use %d particle-particle and %d PME only ranks\n"
"This is a guess, check the performance at the end of the log file\n",
- nnodes-npme,npme);
+ nnodes-npme, npme);
}
-
+
return npme;
}
-static int div_up(int n,int f)
+static int div_up(int n, int f)
{
return (n + f - 1)/f;
}
-real comm_box_frac(ivec dd_nc,real cutoff,gmx_ddbox_t *ddbox)
+real comm_box_frac(ivec dd_nc, real cutoff, gmx_ddbox_t *ddbox)
{
- int i,j,k,npp;
- rvec bt,nw;
+ int i, j, k, npp;
+ rvec bt, nw;
real comm_vol;
- for(i=0; i<DIM; i++)
+ for (i = 0; i < DIM; i++)
{
bt[i] = ddbox->box_size[i]*ddbox->skew_fac[i];
nw[i] = dd_nc[i]*cutoff/bt[i];
}
- npp = 1;
+ npp = 1;
comm_vol = 0;
- for(i=0; i<DIM; i++)
+ for (i = 0; i < DIM; i++)
{
if (dd_nc[i] > 1)
{
- npp *= dd_nc[i];
+ npp *= dd_nc[i];
comm_vol += nw[i];
- for(j=i+1; j<DIM; j++)
+ for (j = i+1; j < DIM; j++)
{
if (dd_nc[j] > 1)
{
comm_vol += nw[i]*nw[j]*M_PI/4;
- for(k=j+1; k<DIM; k++)
+ for (k = j+1; k < DIM; k++)
{
if (dd_nc[k] > 1)
{
}
}
}
-
+
return comm_vol;
}
static gmx_bool inhomogeneous_z(const t_inputrec *ir)
{
- return ((EEL_PME(ir->coulombtype) || ir->coulombtype==eelEWALD) &&
- ir->ePBC==epbcXYZ && ir->ewald_geometry==eewg3DC);
+ return ((EEL_PME(ir->coulombtype) || ir->coulombtype == eelEWALD) &&
+ ir->ePBC == epbcXYZ && ir->ewald_geometry == eewg3DC);
}
/* Avoid integer overflows */
{
float comm_vol;
- comm_vol = npme - 1;
+ comm_vol = npme - 1;
comm_vol *= npme;
comm_vol *= div_up(a, npme);
comm_vol *= div_up(b, npme);
return comm_vol;
}
-static float comm_cost_est(gmx_domdec_t *dd,real limit,real cutoff,
- matrix box,gmx_ddbox_t *ddbox,
- int natoms,t_inputrec *ir,
+static float comm_cost_est(real limit, real cutoff,
+ matrix box, gmx_ddbox_t *ddbox,
+ int natoms, t_inputrec *ir,
float pbcdxr,
- int npme_tot,ivec nc)
+ int npme_tot, ivec nc)
{
- ivec npme={1,1,1};
- int i,j,k,nk,overlap;
- rvec bt;
- float comm_vol,comm_vol_xf,comm_pme,cost_pbcdx;
+ ivec npme = {1, 1, 1};
+ int i, j, k, nk, overlap;
+ rvec bt;
+ float comm_vol, comm_vol_xf, comm_pme, cost_pbcdx;
/* This is the cost of a pbc_dx call relative to the cost
* of communicating the coordinate and force of an atom.
* This will be machine dependent.
float pbcdx_rect_fac = 0.1;
float pbcdx_tric_fac = 0.2;
float temp;
-
+
/* Check the DD algorithm restrictions */
if ((ir->ePBC == epbcXY && ir->nwall < 2 && nc[ZZ] > 1) ||
(ir->ePBC == epbcSCREW && (nc[XX] == 1 || nc[YY] > 1 || nc[ZZ] > 1)))
{
return -1;
}
-
+
if (inhomogeneous_z(ir) && nc[ZZ] > 1)
{
return -1;
}
- assert(ddbox->npbcdim<=DIM);
+ assert(ddbox->npbcdim <= DIM);
/* Check if the triclinic requirements are met */
- for(i=0; i<DIM; i++)
+ for (i = 0; i < DIM; i++)
{
- for(j=i+1; j<ddbox->npbcdim; j++)
+ for (j = i+1; j < ddbox->npbcdim; j++)
{
if (box[j][i] != 0 || ir->deform[j][i] != 0 ||
(ir->epc != epcNO && ir->compress[j][i] != 0))
}
}
}
-
- for(i=0; i<DIM; i++)
+
+ for (i = 0; i < DIM; i++)
{
bt[i] = ddbox->box_size[i]*ddbox->skew_fac[i];
-
- /* Without PBC there are no cell size limits with 2 cells */
+
+ /* Without PBC and with 2 cells, there are no lower limits on the cell size */
if (!(i >= ddbox->npbcdim && nc[i] <= 2) && bt[i] < nc[i]*limit)
{
return -1;
}
+ /* With PBC, check if the cut-off fits in nc[i]-1 cells */
+ if (i < ddbox->npbcdim && nc[i] > 1 && (nc[i] - 1)*bt[i] < nc[i]*cutoff)
+ {
+ return -1;
+ }
}
if (npme_tot > 1)
npme[YY] = npme_tot/npme[XX];
}
}
-
+
/* When two dimensions are (nearly) equal, use more cells
* for the smallest index, so the decomposition does not
* depend sensitively on the rounding of the box elements.
*/
- for(i=0; i<DIM; i++)
+ for (i = 0; i < DIM; i++)
{
- for(j=i+1; j<DIM; j++)
+ for (j = i+1; j < DIM; j++)
{
/* Check if the box size is nearly identical,
* in that case we prefer nx > ny and ny > nz.
if (fabs(bt[j] - bt[i]) < 0.01*bt[i] && nc[j] > nc[i])
{
/* The XX/YY check is a bit compact. If nc[YY]==npme[YY]
- * this means the swapped nc has nc[XX]==npme[XX],
- * and we can also swap X and Y for PME.
- */
+ * this means the swapped nc has nc[XX]==npme[XX],
+ * and we can also swap X and Y for PME.
+ */
/* Check if dimension i and j are equivalent for PME.
* For x/y: if nc[YY]!=npme[YY], we can not swap x/y
* For y/z: we can not have PME decomposition in z
* All PP, PME and PP-PME communication is symmetric
* and the "back"-communication cost is identical to the forward cost.
*/
-
- comm_vol = comm_box_frac(nc,cutoff,ddbox);
+
+ comm_vol = comm_box_frac(nc, cutoff, ddbox);
comm_pme = 0;
- for(i=0; i<2; i++)
+ for (i = 0; i < 2; i++)
{
/* Determine the largest volume for PME x/f redistribution */
if (nc[i] % npme[i] != 0)
{
if (nc[i] > npme[i])
{
- comm_vol_xf = (npme[i]==2 ? 1.0/3.0 : 0.5);
+ comm_vol_xf = (npme[i] == 2 ? 1.0/3.0 : 0.5);
}
else
{
- comm_vol_xf = 1.0 - lcd(nc[i],npme[i])/(double)npme[i];
+ comm_vol_xf = 1.0 - lcd(nc[i], npme[i])/(double)npme[i];
}
comm_pme += 3*natoms*comm_vol_xf;
}
/* Grid overlap communication */
if (npme[i] > 1)
{
- nk = (i==0 ? ir->nkx : ir->nky);
- overlap = (nk % npme[i] == 0 ? ir->pme_order-1 : ir->pme_order);
- temp = npme[i];
- temp *= overlap;
- temp *= ir->nkx;
- temp *= ir->nky;
- temp *= ir->nkz;
- temp /= nk;
+ nk = (i == 0 ? ir->nkx : ir->nky);
+ overlap = (nk % npme[i] == 0 ? ir->pme_order-1 : ir->pme_order);
+ temp = npme[i];
+ temp *= overlap;
+ temp *= ir->nkx;
+ temp *= ir->nky;
+ temp *= ir->nkz;
+ temp /= nk;
comm_pme += temp;
/* Old line comm_pme += npme[i]*overlap*ir->nkx*ir->nky*ir->nkz/nk; */
}
*/
comm_pme += comm_pme_cost_vol(npme[YY], ir->nky, ir->nkz, ir->nkx);
comm_pme += comm_pme_cost_vol(npme[XX], ir->nkx, ir->nky, ir->nkz);
-
+
/* Add cost of pbc_dx for bondeds */
cost_pbcdx = 0;
if ((nc[XX] == 1 || nc[YY] == 1) || (nc[ZZ] == 1 && ir->ePBC != epbcXY))
cost_pbcdx = pbcdxr*pbcdx_rect_fac;
}
}
-
+
if (debug)
{
fprintf(debug,
"nc %2d %2d %2d %2d %2d vol pp %6.4f pbcdx %6.4f pme %9.3e tot %9.3e\n",
- nc[XX],nc[YY],nc[ZZ],npme[XX],npme[YY],
- comm_vol,cost_pbcdx,comm_pme,
+ nc[XX], nc[YY], nc[ZZ], npme[XX], npme[YY],
+ comm_vol, cost_pbcdx, comm_pme,
3*natoms*(comm_vol + cost_pbcdx) + comm_pme);
}
-
+
return 3*natoms*(comm_vol + cost_pbcdx) + comm_pme;
}
static void assign_factors(gmx_domdec_t *dd,
- real limit,real cutoff,
- matrix box,gmx_ddbox_t *ddbox,
- int natoms,t_inputrec *ir,
- float pbcdxr,int npme,
- int ndiv,int *div,int *mdiv,ivec ir_try,ivec opt)
+ real limit, real cutoff,
+ matrix box, gmx_ddbox_t *ddbox,
+ int natoms, t_inputrec *ir,
+ float pbcdxr, int npme,
+ int ndiv, int *div, int *mdiv, ivec ir_try, ivec opt)
{
- int x,y,z,i;
+ int x, y, z, i;
float ce;
-
+
if (ndiv == 0)
{
- ce = comm_cost_est(dd,limit,cutoff,box,ddbox,
- natoms,ir,pbcdxr,npme,ir_try);
+ ce = comm_cost_est(limit, cutoff, box, ddbox,
+ natoms, ir, pbcdxr, npme, ir_try);
if (ce >= 0 && (opt[XX] == 0 ||
- ce < comm_cost_est(dd,limit,cutoff,box,ddbox,
- natoms,ir,pbcdxr,
- npme,opt)))
+ ce < comm_cost_est(limit, cutoff, box, ddbox,
+ natoms, ir, pbcdxr,
+ npme, opt)))
{
- copy_ivec(ir_try,opt);
+ copy_ivec(ir_try, opt);
}
-
+
return;
}
-
- for(x=mdiv[0]; x>=0; x--)
+
+ for (x = mdiv[0]; x >= 0; x--)
{
- for(i=0; i<x; i++)
+ for (i = 0; i < x; i++)
{
ir_try[XX] *= div[0];
}
- for(y=mdiv[0]-x; y>=0; y--)
+ for (y = mdiv[0]-x; y >= 0; y--)
{
- for(i=0; i<y; i++)
+ for (i = 0; i < y; i++)
{
ir_try[YY] *= div[0];
}
- for(i=0; i<mdiv[0]-x-y; i++)
+ for (i = 0; i < mdiv[0]-x-y; i++)
{
ir_try[ZZ] *= div[0];
}
-
+
/* recurse */
- assign_factors(dd,limit,cutoff,box,ddbox,natoms,ir,pbcdxr,npme,
- ndiv-1,div+1,mdiv+1,ir_try,opt);
-
- for(i=0; i<mdiv[0]-x-y; i++)
+ assign_factors(dd, limit, cutoff, box, ddbox, natoms, ir, pbcdxr, npme,
+ ndiv-1, div+1, mdiv+1, ir_try, opt);
+
+ for (i = 0; i < mdiv[0]-x-y; i++)
{
ir_try[ZZ] /= div[0];
}
- for(i=0; i<y; i++)
+ for (i = 0; i < y; i++)
{
ir_try[YY] /= div[0];
}
}
- for(i=0; i<x; i++)
+ for (i = 0; i < x; i++)
{
ir_try[XX] /= div[0];
}
}
static real optimize_ncells(FILE *fplog,
- int nnodes_tot,int npme_only,
- gmx_bool bDynLoadBal,real dlb_scale,
- gmx_mtop_t *mtop,matrix box,gmx_ddbox_t *ddbox,
+ int nnodes_tot, int npme_only,
+ gmx_bool bDynLoadBal, real dlb_scale,
+ gmx_mtop_t *mtop, matrix box, gmx_ddbox_t *ddbox,
t_inputrec *ir,
gmx_domdec_t *dd,
- real cellsize_limit,real cutoff,
- gmx_bool bInterCGBondeds,gmx_bool bInterCGMultiBody,
+ real cellsize_limit, real cutoff,
+ gmx_bool bInterCGBondeds,
ivec nc)
{
- int npp,npme,ndiv,*div,*mdiv,d,nmax;
+ int npp, npme, ndiv, *div, *mdiv, d, nmax;
gmx_bool bExcl_pbcdx;
- float pbcdxr;
- real limit;
- ivec itry;
-
+ float pbcdxr;
+ real limit;
+ ivec itry;
+
limit = cellsize_limit;
-
+
dd->nc[XX] = 1;
dd->nc[YY] = 1;
dd->nc[ZZ] = 1;
{
npme = 0;
}
-
+
if (bInterCGBondeds)
{
/* For Ewald exclusions pbc_dx is not called */
bExcl_pbcdx =
(IR_EXCL_FORCES(*ir) && !EEL_FULL(ir->coulombtype));
- pbcdxr = (double)n_bonded_dx(mtop,bExcl_pbcdx)/(double)mtop->natoms;
+ pbcdxr = (double)n_bonded_dx(mtop, bExcl_pbcdx)/(double)mtop->natoms;
}
else
{
{
if (dlb_scale >= 1.0)
{
- gmx_fatal(FARGS,"The value for option -dds should be smaller than 1");
+ gmx_fatal(FARGS, "The value for option -dds should be smaller than 1");
}
if (fplog)
{
- fprintf(fplog,"Scaling the initial minimum size with 1/%g (option -dds) = %g\n",dlb_scale,1/dlb_scale);
+ fprintf(fplog, "Scaling the initial minimum size with 1/%g (option -dds) = %g\n", dlb_scale, 1/dlb_scale);
}
limit /= dlb_scale;
}
{
if (fplog)
{
- fprintf(fplog,"To account for pressure scaling, scaling the initial minimum size with %g\n",DD_GRID_MARGIN_PRES_SCALE);
+ fprintf(fplog, "To account for pressure scaling, scaling the initial minimum size with %g\n", DD_GRID_MARGIN_PRES_SCALE);
limit *= DD_GRID_MARGIN_PRES_SCALE;
}
}
-
+
if (fplog)
{
- fprintf(fplog,"Optimizing the DD grid for %d cells with a minimum initial size of %.3f nm\n",npp,limit);
+ fprintf(fplog, "Optimizing the DD grid for %d cells with a minimum initial size of %.3f nm\n", npp, limit);
if (inhomogeneous_z(ir))
{
- fprintf(fplog,"Ewald_geometry=%s: assuming inhomogeneous particle distribution in z, will not decompose in z.\n",eewg_names[ir->ewald_geometry]);
+ fprintf(fplog, "Ewald_geometry=%s: assuming inhomogeneous particle distribution in z, will not decompose in z.\n", eewg_names[ir->ewald_geometry]);
}
if (limit > 0)
{
- fprintf(fplog,"The maximum allowed number of cells is:");
- for(d=0; d<DIM; d++)
+ fprintf(fplog, "The maximum allowed number of cells is:");
+ for (d = 0; d < DIM; d++)
{
nmax = (int)(ddbox->box_size[d]*ddbox->skew_fac[d]/limit);
if (d >= ddbox->npbcdim && nmax < 2)
{
nmax = 1;
}
- fprintf(fplog," %c %d",'X' + d,nmax);
+ fprintf(fplog, " %c %d", 'X' + d, nmax);
}
- fprintf(fplog,"\n");
+ fprintf(fplog, "\n");
}
}
-
+
if (debug)
{
- fprintf(debug,"Average nr of pbc_dx calls per atom %.2f\n",pbcdxr);
+ fprintf(debug, "Average nr of pbc_dx calls per atom %.2f\n", pbcdxr);
}
-
+
/* Decompose npp in factors */
- ndiv = factorize(npp,&div,&mdiv);
-
+ ndiv = factorize(npp, &div, &mdiv);
+
itry[XX] = 1;
itry[YY] = 1;
itry[ZZ] = 1;
clear_ivec(nc);
- assign_factors(dd,limit,cutoff,box,ddbox,mtop->natoms,ir,pbcdxr,
- npme,ndiv,div,mdiv,itry,nc);
-
+ assign_factors(dd, limit, cutoff, box, ddbox, mtop->natoms, ir, pbcdxr,
+ npme, ndiv, div, mdiv, itry, nc);
+
sfree(div);
sfree(mdiv);
-
+
return limit;
}
real dd_choose_grid(FILE *fplog,
- t_commrec *cr,gmx_domdec_t *dd,t_inputrec *ir,
- gmx_mtop_t *mtop,matrix box,gmx_ddbox_t *ddbox,
- gmx_bool bDynLoadBal,real dlb_scale,
- real cellsize_limit,real cutoff_dd,
- gmx_bool bInterCGBondeds,gmx_bool bInterCGMultiBody)
+ t_commrec *cr, gmx_domdec_t *dd, t_inputrec *ir,
+ gmx_mtop_t *mtop, matrix box, gmx_ddbox_t *ddbox,
+ gmx_bool bDynLoadBal, real dlb_scale,
+ real cellsize_limit, real cutoff_dd,
+ gmx_bool bInterCGBondeds)
{
- gmx_large_int_t nnodes_div,ldiv;
- real limit;
-
+ gmx_int64_t nnodes_div, ldiv;
+ real limit;
+
if (MASTER(cr))
{
nnodes_div = cr->nnodes;
if (cr->nnodes <= 2)
{
gmx_fatal(FARGS,
- "Can not have separate PME nodes with 2 or less nodes");
+ "Cannot have separate PME ranks with 2 or fewer ranks");
}
if (cr->npmenodes >= cr->nnodes)
{
gmx_fatal(FARGS,
- "Can not have %d separate PME nodes with just %d total nodes",
+ "Cannot have %d separate PME ranks with just %d total ranks",
cr->npmenodes, cr->nnodes);
}
cr->npmenodes = 0;
}
- if (cr->nnodes > 12)
+ if (nnodes_div > 12)
{
ldiv = largest_divisor(nnodes_div);
/* Check if the largest divisor is more than nnodes^2/3 */
if (ldiv*ldiv*ldiv > nnodes_div*nnodes_div)
{
- gmx_fatal(FARGS,"The number of nodes you selected (%d) contains a large prime factor %d. In most cases this will lead to bad performance. Choose a number with smaller prime factors or set the decomposition (option -dd) manually.",
- nnodes_div,ldiv);
+ gmx_fatal(FARGS, "The number of ranks you selected (%d) contains a large prime factor %d. In most cases this will lead to bad performance. Choose a number with smaller prime factors or set the decomposition (option -dd) manually.",
+ nnodes_div, ldiv);
}
}
if (cr->nnodes <= 18)
{
cr->npmenodes = 0;
+ if (fplog)
+ {
+ fprintf(fplog, "Using %d separate PME ranks, as there are too few total\n ranks for efficient splitting\n", cr->npmenodes);
+ }
}
else
{
- cr->npmenodes = guess_npme(fplog,mtop,ir,box,cr->nnodes);
+ cr->npmenodes = guess_npme(fplog, mtop, ir, box, cr->nnodes);
+ if (fplog)
+ {
+ fprintf(fplog, "Using %d separate PME ranks, as guessed by mdrun\n", cr->npmenodes);
+ }
}
}
- if (fplog)
+ else
{
- fprintf(fplog,"Using %d separate PME nodes\n",cr->npmenodes);
+ if (fplog)
+ {
+ fprintf(fplog, "Using %d separate PME ranks, per user request\n", cr->npmenodes);
+ }
}
}
-
- limit = optimize_ncells(fplog,cr->nnodes,cr->npmenodes,
- bDynLoadBal,dlb_scale,
- mtop,box,ddbox,ir,dd,
- cellsize_limit,cutoff_dd,
- bInterCGBondeds,bInterCGMultiBody,
+
+ limit = optimize_ncells(fplog, cr->nnodes, cr->npmenodes,
+ bDynLoadBal, dlb_scale,
+ mtop, box, ddbox, ir, dd,
+ cellsize_limit, cutoff_dd,
+ bInterCGBondeds,
dd->nc);
}
else
limit = 0;
}
/* Communicate the information set by the master to all nodes */
- gmx_bcast(sizeof(dd->nc),dd->nc,cr);
+ gmx_bcast(sizeof(dd->nc), dd->nc, cr);
if (EEL_PME(ir->coulombtype))
{
- gmx_bcast(sizeof(ir->nkx),&ir->nkx,cr);
- gmx_bcast(sizeof(ir->nky),&ir->nky,cr);
- gmx_bcast(sizeof(cr->npmenodes),&cr->npmenodes,cr);
+ gmx_bcast(sizeof(ir->nkx), &ir->nkx, cr);
+ gmx_bcast(sizeof(ir->nky), &ir->nky, cr);
+ gmx_bcast(sizeof(cr->npmenodes), &cr->npmenodes, cr);
}
else
{
cr->npmenodes = 0;
}
-
+
return limit;
}