moab::NCWriteHOMME Class Reference

#include <NCWriteHOMME.hpp>

Inheritance diagram for moab::NCWriteHOMME:

Collaboration diagram for moab::NCWriteHOMME:

Public Member Functions
	NCWriteHOMME (WriteNC *writeNC, int fileId, const FileOptions &opts, EntityHandle fileSet)
virtual	~NCWriteHOMME ()
Public Member Functions inherited from moab::UcdNCWriteHelper
	UcdNCWriteHelper (WriteNC *writeNC, int fileId, const FileOptions &opts, EntityHandle fileSet)
virtual	~UcdNCWriteHelper ()
Public Member Functions inherited from moab::NCWriteHelper
	NCWriteHelper (WriteNC *writeNC, int fileId, const FileOptions &opts, EntityHandle fileSet)
virtual	~NCWriteHelper ()
ErrorCode	init_file (std::vector< std::string > &var_names, std::vector< std::string > &desired_names, bool _append)
	Initialize file: this is where all defines are done The VarData dimension ids are filled up after define. More...
ErrorCode	write_values (std::vector< std::string > &var_names, std::vector< int > &tstep_nums)
	Take the info from VarData and write first non-set variables, then set variables. More...

Private Member Functions
virtual ErrorCode	collect_mesh_info ()
	Implementation of NCWriteHelper::collect_mesh_info() More...
virtual ErrorCode	collect_variable_data (std::vector< std::string > &var_names, std::vector< int > &tstep_nums)
	Collect data for specified variables. More...
virtual ErrorCode	write_nonset_variables (std::vector< WriteNC::VarData > &vdatas, std::vector< int > &tstep_nums)
	Implementation of NCWriteHelper::write_nonset_variables() More...

Additional Inherited Members
Static Public Member Functions inherited from moab::NCWriteHelper
static NCWriteHelper *	get_nc_helper (WriteNC *writeNC, int fileId, const FileOptions &opts, EntityHandle fileSet)
	Get appropriate helper instance for WriteNC class based on some info in the file set. More...
Protected Member Functions inherited from moab::UcdNCWriteHelper
template<typename T >
void	jik_to_kji_stride (size_t, size_t nj, size_t nk, T *dest, T *source, Range &localGid)
	This version takes as input the moab range, from which we actually need just the size of each sequence, for a proper transpose of the data. More...
Protected Attributes inherited from moab::UcdNCWriteHelper
int	cDim
	Dimension numbers for nCells, nEdges and nVertices. More...
int	eDim
int	vDim
Range	localGidCellsOwned
	Local global ID for owned cells, edges and vertices. More...
Range	localGidEdgesOwned
Range	localGidVertsOwned
Protected Attributes inherited from moab::NCWriteHelper
WriteNC *	_writeNC
	Allow NCWriteHelper to directly access members of WriteNC. More...
int	_fileId
	Cache some information from WriteNC. More...
const FileOptions &	_opts
EntityHandle	_fileSet
int	nTimeSteps
	Dimensions of time and level. More...
int	nLevels
int	tDim
	Dimension numbers for time and level. More...
int	levDim
Range	localCellsOwned
	Local owned cells, edges and vertices. More...
Range	localEdgesOwned
Range	localVertsOwned
std::vector< double >	timeStepVals
	Time values of output timesteps. More...

Detailed Description

Definition at line 17 of file NCWriteHOMME.hpp.

Constructor & Destructor Documentation

NCWriteHOMME()

moab::NCWriteHOMME::NCWriteHOMME ( WriteNC *  writeNC, int  fileId, const FileOptions &  opts, EntityHandle  fileSet  )

inline

Definition at line 20 of file NCWriteHOMME.hpp.

 : UcdNCWriteHelper( writeNC, fileId, opts, fileSet )
 {
 }

~NCWriteHOMME()

moab::NCWriteHOMME::~NCWriteHOMME ( )

virtual

Definition at line 13 of file NCWriteHOMME.cpp.

{
 // TODO Auto-generated destructor stub
}

Member Function Documentation

collect_mesh_info()

ErrorCode moab::NCWriteHOMME::collect_mesh_info ( )

privatevirtual

Implementation of NCWriteHelper::collect_mesh_info()

Implements moab::NCWriteHelper.

Definition at line 18 of file NCWriteHOMME.cpp.

{
 Interface*& mbImpl = _writeNC->mbImpl;
 std::vector< std::string >& dimNames = _writeNC->dimNames;
 std::vector< int >& dimLens = _writeNC->dimLens;
 Tag& mGlobalIdTag = _writeNC->mGlobalIdTag;
 
 ErrorCode rval;
 
 // Look for time dimension
 std::vector< std::string >::iterator vecIt;
 if( ( vecIt = std::find( dimNames.begin(), dimNames.end(), "time" ) ) != dimNames.end() )
 tDim = vecIt - dimNames.begin();
 else
 {
 MB_SET_ERR( MB_FAILURE, "Couldn't find 'time' dimension" );
 }
 nTimeSteps = dimLens[tDim];
 
 // Get number of levels
 if( ( vecIt = std::find( dimNames.begin(), dimNames.end(), "lev" ) ) != dimNames.end() )
 levDim = vecIt - dimNames.begin();
 else
 {
 MB_SET_ERR( MB_FAILURE, "Couldn't find 'lev' dimension" );
 }
 nLevels = dimLens[levDim];
 
 // Get local vertices
 rval = mbImpl->get_entities_by_dimension( _fileSet, 0, localVertsOwned );MB_CHK_SET_ERR( rval, "Trouble getting local vertices in current file set" );
 assert( !localVertsOwned.empty() );
 
#ifdef MOAB_HAVE_MPI
 bool& isParallel = _writeNC->isParallel;
 if( isParallel )
 {
 ParallelComm*& myPcomm = _writeNC->myPcomm;
 int rank = myPcomm->proc_config().proc_rank();
 int procs = myPcomm->proc_config().proc_size();
 if( procs > 1 )
 {
#ifndef NDEBUG
 unsigned int num_local_verts = localVertsOwned.size();
#endif
 rval = myPcomm->filter_pstatus( localVertsOwned, PSTATUS_NOT_OWNED, PSTATUS_NOT );MB_CHK_SET_ERR( rval, "Trouble getting owned vertices in current set" );
 
 // Assume that PARALLEL_RESOLVE_SHARED_ENTS option is set
 // Verify that not all local vertices are owned by the last processor
 if( procs - 1 == rank )
 assert( "PARALLEL_RESOLVE_SHARED_ENTS option is set" && localVertsOwned.size() < num_local_verts );
 }
 }
#endif
 
 std::vector< int > gids( localVertsOwned.size() );
 rval = mbImpl->tag_get_data( mGlobalIdTag, localVertsOwned, &gids[0] );MB_CHK_SET_ERR( rval, "Trouble getting global IDs on local vertices" );
 
 // Get localGidVertsOwned
 std::copy( gids.rbegin(), gids.rend(), range_inserter( localGidVertsOwned ) );
 
 return MB_SUCCESS;
}

References moab::NCWriteHelper::_fileSet, moab::NCWriteHelper::_writeNC, moab::WriteNC::dimLens, moab::WriteNC::dimNames, moab::Range::empty(), ErrorCode, moab::ParallelComm::filter_pstatus(), moab::Interface::get_entities_by_dimension(), moab::WriteNC::isParallel, moab::NCWriteHelper::levDim, moab::UcdNCWriteHelper::localGidVertsOwned, moab::NCWriteHelper::localVertsOwned, MB_CHK_SET_ERR, MB_SET_ERR, MB_SUCCESS, moab::WriteNC::mbImpl, moab::WriteNC::mGlobalIdTag, moab::NCWriteHelper::nLevels, moab::NCWriteHelper::nTimeSteps, moab::ParallelComm::proc_config(), moab::ProcConfig::proc_rank(), moab::ProcConfig::proc_size(), PSTATUS_NOT, PSTATUS_NOT_OWNED, moab::Range::size(), moab::Interface::tag_get_data(), and moab::NCWriteHelper::tDim.

collect_variable_data()

ErrorCode moab::NCWriteHOMME::collect_variable_data ( std::vector< std::string > &  var_names, std::vector< int > &  tstep_nums  )

privatevirtual

Collect data for specified variables.

Reimplemented from moab::NCWriteHelper.

Definition at line 81 of file NCWriteHOMME.cpp.

{
 NCWriteHelper::collect_variable_data( var_names, tstep_nums );
 
 std::map< std::string, WriteNC::VarData >& varInfo = _writeNC->varInfo;
 
 for( size_t i = 0; i < var_names.size(); i++ )
 {
 std::string varname = var_names[i];
 std::map< std::string, WriteNC::VarData >::iterator vit = varInfo.find( varname );
 if( vit == varInfo.end() ) MB_SET_ERR( MB_FAILURE, "Can't find variable " << varname );
 ;
 
 WriteNC::VarData& currentVarData = vit->second;
#ifndef NDEBUG
 std::vector< int >& varDims = currentVarData.varDims;
#endif
 
 // Skip set variables, which were already processed in
 // NCWriteHelper::collect_variable_data()
 if( WriteNC::ENTLOCSET == currentVarData.entLoc ) continue;
 
 // Set up writeStarts and writeCounts (maximum number of dimensions is 3)
 currentVarData.writeStarts.resize( 3 );
 currentVarData.writeCounts.resize( 3 );
 unsigned int dim_idx = 0;
 
 // First: time
 if( currentVarData.has_tsteps )
 {
 // Non-set variables with timesteps
 // 3 dimensions like (time, lev, ncol)
 // 2 dimensions like (time, ncol)
 assert( 3 == varDims.size() || 2 == varDims.size() );
 
 // Time should be the first dimension
 assert( tDim == varDims[0] );
 
 currentVarData.writeStarts[dim_idx] = 0; // This value is timestep dependent, will be set later
 currentVarData.writeCounts[dim_idx] = 1;
 dim_idx++;
 }
 else
 {
 // Non-set variables without timesteps
 // 2 dimensions like (lev, ncol)
 // 1 dimension like (ncol)
 assert( 2 == varDims.size() || 1 == varDims.size() );
 }
 
 // Next: lev
 if( currentVarData.numLev > 0 )
 {
 // Non-set variables with levels
 // 3 dimensions like (time, lev, ncol)
 // 2 dimensions like (lev, ncol)
 assert( 3 == varDims.size() || 2 == varDims.size() );
 
 currentVarData.writeStarts[dim_idx] = 0;
 currentVarData.writeCounts[dim_idx] = currentVarData.numLev;
 dim_idx++;
 }
 else
 {
 // Non-set variables without levels
 // 2 dimensions like (time, ncol)
 // 1 dimension like (ncol)
 assert( 2 == varDims.size() || 1 == varDims.size() );
 }
 
 // Finally: ncol
 switch( currentVarData.entLoc )
 {
 case WriteNC::ENTLOCVERT:
 // Vertices
 // Start from the first localGidVerts
 // Actually, this will be reset later for writing
 currentVarData.writeStarts[dim_idx] = localGidVertsOwned[0] - 1;
 currentVarData.writeCounts[dim_idx] = localGidVertsOwned.size();
 break;
 default:
 MB_SET_ERR( MB_FAILURE, "Unexpected entity location type for variable " << varname );
 }
 dim_idx++;
 
 // Get variable size
 currentVarData.sz = 1;
 for( std::size_t idx = 0; idx < dim_idx; idx++ )
 currentVarData.sz *= currentVarData.writeCounts[idx];
 }
 
 return MB_SUCCESS;
}

References moab::NCWriteHelper::_writeNC, moab::NCWriteHelper::collect_variable_data(), moab::WriteNC::VarData::entLoc, moab::WriteNC::ENTLOCSET, moab::WriteNC::ENTLOCVERT, moab::WriteNC::VarData::has_tsteps, moab::UcdNCWriteHelper::localGidVertsOwned, MB_SET_ERR, MB_SUCCESS, moab::WriteNC::VarData::numLev, moab::Range::size(), moab::WriteNC::VarData::sz, moab::NCWriteHelper::tDim, moab::WriteNC::VarData::varDims, moab::WriteNC::varInfo, moab::WriteNC::VarData::writeCounts, and moab::WriteNC::VarData::writeStarts.

write_nonset_variables()

ErrorCode moab::NCWriteHOMME::write_nonset_variables ( std::vector< WriteNC::VarData > &  vdatas, std::vector< int > &  tstep_nums  )

privatevirtual

Implementation of NCWriteHelper::write_nonset_variables()

Implements moab::NCWriteHelper.

Definition at line 175 of file NCWriteHOMME.cpp.

{
 Interface*& mbImpl = _writeNC->mbImpl;
 
 int success;
 int num_local_verts_owned = localVertsOwned.size();
 
 // For each indexed variable tag, write a time step data
 for( unsigned int i = 0; i < vdatas.size(); i++ )
 {
 WriteNC::VarData& variableData = vdatas[i];
 
 // Assume this variable is on vertices for the time being
 switch( variableData.entLoc )
 {
 case WriteNC::ENTLOCVERT:
 // Vertices
 break;
 default:
 MB_SET_ERR( MB_FAILURE, "Unexpected entity location type for variable " << variableData.varName );
 }
 
 unsigned int num_timesteps;
 unsigned int ncol_idx = 0;
 if( variableData.has_tsteps )
 {
 // Non-set variables with timesteps
 // 3 dimensions like (time, lev, ncol)
 // 2 dimensions like (time, ncol)
 num_timesteps = tstep_nums.size();
 ncol_idx++;
 }
 else
 {
 // Non-set variables without timesteps
 // 2 dimensions like (lev, ncol)
 // 1 dimension like (ncol)
 num_timesteps = 1;
 }
 
 unsigned int num_lev;
 if( variableData.numLev > 0 )
 {
 // Non-set variables with levels
 // 3 dimensions like (time, lev, ncol)
 // 2 dimensions like (lev, ncol)
 num_lev = variableData.numLev;
 ncol_idx++;
 }
 else
 {
 // Non-set variables without levels
 // 2 dimensions like (time, ncol)
 // 1 dimension like (ncol)
 num_lev = 1;
 }
 
 // At each timestep, we need to transpose tag format (ncol, lev) back
 // to NC format (lev, ncol) for writing
 for( unsigned int t = 0; t < num_timesteps; t++ )
 {
 // We will write one time step, and count will be one; start will be different
 // Use tag_get_data instead of tag_iterate to copy tag data, as localVertsOwned
 // might not be contiguous. We should also transpose for level so that means
 // deep copy for transpose
 if( tDim == variableData.varDims[0] ) variableData.writeStarts[0] = t; // This is start for time
 std::vector< double > tag_data( num_local_verts_owned * num_lev );
 ErrorCode rval = mbImpl->tag_get_data( variableData.varTags[t], localVertsOwned, &tag_data[0] );MB_CHK_SET_ERR( rval, "Trouble getting tag data on owned vertices" );
 
#ifdef MOAB_HAVE_PNETCDF
 size_t nb_writes = localGidVertsOwned.psize();
 std::vector< int > requests( nb_writes ), statuss( nb_writes );
 size_t idxReq = 0;
#endif
 
 // Now transpose and write copied tag data
 // Use nonblocking put (request aggregation)
 switch( variableData.varDataType )
 {
 case NC_DOUBLE: {
 std::vector< double > tmpdoubledata( num_local_verts_owned * num_lev );
 if( num_lev > 1 )
 {
 // Transpose (ncol, lev) back to (lev, ncol)
 // Note, num_local_verts_owned is not used by jik_to_kji_stride()
 jik_to_kji_stride( num_local_verts_owned, 1, num_lev, &tmpdoubledata[0], &tag_data[0],
 localGidVertsOwned );
 }
 
 size_t indexInDoubleArray = 0;
 size_t ic = 0;
 for( Range::pair_iterator pair_iter = localGidVertsOwned.pair_begin();
 pair_iter != localGidVertsOwned.pair_end(); ++pair_iter, ic++ )
 {
 EntityHandle starth = pair_iter->first;
 EntityHandle endh = pair_iter->second;
 variableData.writeStarts[ncol_idx] = (NCDF_SIZE)( starth - 1 );
 variableData.writeCounts[ncol_idx] = (NCDF_SIZE)( endh - starth + 1 );
 
 // Do a partial write, in each subrange
#ifdef MOAB_HAVE_PNETCDF
 // Wait outside this loop
 success =
 NCFUNCREQP( _vara_double )( _fileId, variableData.varId, &( variableData.writeStarts[0] ),
 &( variableData.writeCounts[0] ),
 &( tmpdoubledata[indexInDoubleArray] ), &requests[idxReq++] );
#else
 success = NCFUNCAP(
 _vara_double )( _fileId, variableData.varId, &( variableData.writeStarts[0] ),
 &( variableData.writeCounts[0] ), &( tmpdoubledata[indexInDoubleArray] ) );
#endif
 if( success )
 MB_SET_ERR( MB_FAILURE,
 "Failed to write double data in a loop for variable " << variableData.varName );
 // We need to increment the index in double array for the
 // next subrange
 indexInDoubleArray += ( endh - starth + 1 ) * num_lev;
 }
 assert( ic == localGidVertsOwned.psize() );
#ifdef MOAB_HAVE_PNETCDF
 success = ncmpi_wait_all( _fileId, requests.size(), &requests[0], &statuss[0] );
 if( success ) MB_SET_ERR( MB_FAILURE, "Failed on wait_all" );
#endif
 break;
 }
 default:
 MB_SET_ERR( MB_NOT_IMPLEMENTED, "Writing non-double data is not implemented yet" );
 }
 }
 }
 
 return MB_SUCCESS;
}

References moab::NCWriteHelper::_fileId, moab::NCWriteHelper::_writeNC, moab::WriteNC::VarData::entLoc, moab::WriteNC::ENTLOCVERT, ErrorCode, moab::WriteNC::VarData::has_tsteps, moab::UcdNCWriteHelper::jik_to_kji_stride(), moab::UcdNCWriteHelper::localGidVertsOwned, moab::NCWriteHelper::localVertsOwned, MB_CHK_SET_ERR, MB_NOT_IMPLEMENTED, MB_SET_ERR, MB_SUCCESS, moab::WriteNC::mbImpl, NCDF_SIZE, NCFUNCAP, moab::WriteNC::VarData::numLev, moab::Range::pair_begin(), moab::Range::pair_end(), moab::Range::psize(), moab::Range::size(), t, moab::Interface::tag_get_data(), moab::NCWriteHelper::tDim, moab::WriteNC::VarData::varDataType, moab::WriteNC::VarData::varDims, moab::WriteNC::VarData::varId, moab::WriteNC::VarData::varName, moab::WriteNC::VarData::varTags, moab::WriteNC::VarData::writeCounts, and moab::WriteNC::VarData::writeStarts.

---

The documentation for this class was generated from the following files:

• NCWriteHOMME.hpp
• NCWriteHOMME.cpp