/[escript]/trunk/escript/src/DataExpanded.cpp
ViewVC logotype

Diff of /trunk/escript/src/DataExpanded.cpp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1808 by jfenwick, Thu Sep 25 03:14:56 2008 UTC revision 1827 by ksteube, Thu Oct 2 04:28:07 2008 UTC
# Line 1  Line 1 
1    
 /* $Id$ */  
   
2  /*******************************************************  /*******************************************************
3   *  *
4   *           Copyright 2003-2007 by ACceSS MNRF  * Copyright (c) 2003-2008 by University of Queensland
5   *       Copyright 2007 by University of Queensland  * Earth Systems Science Computational Center (ESSCC)
6   *  * http://www.uq.edu.au/esscc
7   *                http://esscc.uq.edu.au  *
8   *        Primary Business: Queensland, Australia  * Primary Business: Queensland, Australia
9   *  Licensed under the Open Software License version 3.0  * Licensed under the Open Software License version 3.0
10   *     http://www.opensource.org/licenses/osl-3.0.php  * http://www.opensource.org/licenses/osl-3.0.php
11   *  *
12   *******************************************************/  *******************************************************/
13    
14    
15  #include "Data.h"  #include "Data.h"
16  #include "DataExpanded.h"  #include "DataExpanded.h"
# Line 739  DataExpanded::dump(const std::string fil Line 738  DataExpanded::dump(const std::string fil
738     MPI_Status status;     MPI_Status status;
739  #endif  #endif
740    
    // netCDF error handler  
    NcError err(NcError::verbose_nonfatal);  
    // Create the file.  
741  #ifdef PASO_MPI  #ifdef PASO_MPI
742       /* Serialize NetCDF I/O */
743     if (mpi_iam>0) MPI_Recv(&ndims, 0, MPI_INT, mpi_iam-1, 81801, MPI_COMM_WORLD, &status);     if (mpi_iam>0) MPI_Recv(&ndims, 0, MPI_INT, mpi_iam-1, 81801, MPI_COMM_WORLD, &status);
744  #endif  #endif
745    
746       // netCDF error handler
747       NcError err(NcError::verbose_nonfatal);
748       // Create the file.
749     char *newFileName = Escript_MPI_appendRankToFileName(fileName.c_str(), mpi_num, mpi_iam);     char *newFileName = Escript_MPI_appendRankToFileName(fileName.c_str(), mpi_num, mpi_iam);
750     NcFile dataFile(newFileName, NcFile::Replace);     NcFile dataFile(newFileName, NcFile::Replace);
751     // check if writing was successful     // check if writing was successful

Legend:
Removed from v.1808  
changed lines
  Added in v.1827

  ViewVC Help
Powered by ViewVC 1.1.26