IBAssembleGlobalFacetData.c File Reference

Assemble a local array with some facet var to a global one. More...

#include <stdio.h>
#include <stdlib.h>
#include <arrayfunctions.h>
#include <immersedboundaries.h>
#include <mpivars.h>

Go to the source code of this file.

Functions
int	IBAssembleGlobalFacetData (void *m, void *ib, const double *const local_var, double **const global_var, int nvars)

Detailed Description

Assemble a local array with some facet var to a global one.

Author

Debojyoti Ghosh

Definition in file IBAssembleGlobalFacetData.c.

Function Documentation

IBAssembleGlobalFacetData()

int IBAssembleGlobalFacetData	(	void *	m,
		void *	ib,
		const double *const	local_var,
		double **const	global_var,
		int	nvars
	)

Assemble any local data computed at immersed body surface (facet centroids) into a global array.

The local array must be of length (ImmersedBoundary::nfacets_local X nvars).

The global array must be NULL at input; it will have the size (Body3D::nfacets X nvars) at output on rank 0; it will remain NULL on other ranks.

Parameters

m	MPI object of type MPIVariables
ib	Immersed boundary object of type ImmersedBoundary
local_var	Local array
global_var	Array to store the gradient; must be NULL at input
nvars	Number of components in var

Definition at line 22 of file IBAssembleGlobalFacetData.c.

{
  MPIVariables     *mpi = (MPIVariables*) m; 
  ImmersedBoundary *IB  = (ImmersedBoundary*) ib;

  if ((*global_var) != NULL) {
    fprintf(stderr,"Error in IBAssembleGlobalFacetData()\n");
    fprintf(stderr," global_var is not NULL on rank %d\n",
            mpi->rank );
    return 1;
  }

  int nfacets_local = IB->nfacets_local;
  FacetMap *fmap = IB->fmap;

  if ((nfacets_local == 0) && (local_var != NULL)) {
    fprintf(stderr, "Error in IBAssembleGlobalFacetData()\n");
    fprintf(stderr, " nfacets_local is 0 but local_var is not NULL!\n");
    return 1;
  }
  if ((nfacets_local > 0) && (local_var == NULL)) {
    fprintf(stderr, "Error in IBAssembleGlobalFacetData()\n");
    fprintf(stderr, " nfacets_local > 0 but local_var is NULL!\n");
    return 1;
  }

#ifndef serial
  MPI_Status status;
#endif

    if (!mpi->rank) {

    int nfacets_global = IB->body->nfacets;

    /* allocate arrays for whole domain */
        *global_var = (double*) calloc (nfacets_global*nvars, sizeof(double));
    _ArraySetValue_((*global_var), (nfacets_global*nvars), 0.0);

    /* check array - to avoid double counting of facets */
        int *check = (int*) calloc (nfacets_global, sizeof(int));
    _ArraySetValue_(check, nfacets_global, 0);

    /* local data */
        for (int n = 0; n < nfacets_local; n++) {
      _ArrayAXPY_((local_var+n), 1.0, ((*global_var)+fmap[n].index), nvars);
          check[fmap[n].index]++;
        }

#ifndef serial
        for (int proc = 1; proc < mpi->nproc; proc++) {

            int nf_incoming;
            MPI_Recv(&nf_incoming, 1, MPI_INT, proc, 98927, MPI_COMM_WORLD, &status);

      if (nf_incoming > 0) {

              int    *indices_incoming = (int*)    calloc(nf_incoming, sizeof(int));
              double *var_incoming     = (double*) calloc(nf_incoming*nvars, sizeof(double));

              MPI_Recv(indices_incoming, nf_incoming, MPI_INT, proc, 98928, mpi->world, &status);
              MPI_Recv(var_incoming, nf_incoming*nvars, MPI_DOUBLE, proc, 98929, mpi->world, &status);

              for (int n = 0; n < nf_incoming; n++) {
          _ArrayAXPY_((var_incoming+n), 1.0, ((*global_var)+indices_incoming[n]), nvars);
                  check[indices_incoming[n]]++;
              }
        
        free(indices_incoming);
        free(var_incoming);
      }
        }
#endif

    for (int n = 0; n < nfacets_global; n++) {
      if (check[n] == 0) {
        fprintf(stderr, "Error in IBAssembleGlobalFacetData()\n");
        fprintf(stderr, "  No data received for facet %d\n", n);
        return 1;
      } else {
        _ArrayScale1D_(((*global_var)+n), (1.0/(double)check[n]), nvars);
      }
    }

    } else {

#ifndef serial

        MPI_Send(&nfacets_local, 1, MPI_INT, 0, 98927, MPI_COMM_WORLD);

    if (nfacets_local > 0) {

      int i, *indices = (int*) calloc (nfacets_local, sizeof(int));
      for (i = 0; i < nfacets_local; i++) indices[i] = fmap[i].index;

          MPI_Send(indices, nfacets_local, MPI_INT, 0, 98928, mpi->world);
          MPI_Send(local_var, nfacets_local*nvars, MPI_DOUBLE, 0, 98929, mpi->world);

      free(indices);
    }
#endif

    }

  return 0;
}