destroyinit.c
Go to the documentation of this file.00001
00002
00003
00004
00005
00006
00007
00008
00009
00010
00011
00012
00013
00014
00015
00016
00017
00018
00019
00020
00021
00022
00023
00024 static char const Id[] = "$Id: destroyinit.c 2962 2010-02-04 19:50:44Z scholz $\n\n";
00025 static char const Td[] = "$Today: " __FILE__ " " __DATE__ " " __TIME__ " $\n\n";
00026
00027 #include "init.h"
00028
00029 int DataDestroyInit(GridData *gdata)
00030 {
00031 MagparFunctionLogBegin;
00032
00033 int rank,size;
00034 ierr = MPI_Comm_size(PETSC_COMM_WORLD,&size);CHKERRQ(ierr);
00035 ierr = MPI_Comm_rank(PETSC_COMM_WORLD,&rank);CHKERRQ(ierr);
00036
00037 ierr = PetscFree(gdata->bndfacvert);CHKERRQ(ierr);
00038 gdata->bndfacvert=PETSC_NULL;
00039 ierr = PetscFree(gdata->vertbndg2bnd);CHKERRQ(ierr);
00040 gdata->vertbndg2bnd=PETSC_NULL;
00041
00042 #ifdef HAVE_ELEVERTALL
00043 if (size>1) {
00044 ierr = PetscFree(gdata->elevertall);CHKERRQ(ierr);
00045 }
00046 #ifdef HAVE_M2IJ
00047 ierr = PetscFree(gdata->mesh2nodal_ia);CHKERRQ(ierr);
00048 ierr = PetscFree(gdata->mesh2nodal_ja);CHKERRQ(ierr);
00049 ierr = PetscFree(gdata->mesh2dual_ia);CHKERRQ(ierr);
00050 ierr = PetscFree(gdata->mesh2dual_ja);CHKERRQ(ierr);
00051 #endif
00052 #endif
00053
00054
00055
00056
00057
00058
00059
00060
00061
00062
00063 MagparFunctionLogReturn(0);
00064 }