source: XIOS/dev/branch_openmp/src/io/netcdf.hpp @ 1555

#ifndef __XIOS_NETCDF_HPP__
#define __XIOS_NETCDF_HPP__
#include "mpi_std.hpp"
#define MPI_INCLUDED
#include <netcdf.h>

#if defined(USING_NETCDF_INTERNAL)
  const bool using_netcdf_internal=true ;
#else
  const bool using_netcdf_internal=false ;
#endif

#include "netcdf_version.hpp"

#if NETCDF_VERSION >= 4110

#  if defined(USING_NETCDF_PAR)
extern "C"
{
#  include <netcdf_par.h>
}
#  endif
#endif

#if !defined(USING_NETCDF_PAR)
#define NC_INDEPENDENT 0
#define NC_COLLECTIVE  1
#endif

namespace xios
{
  inline int nc_create_par(const char *path, int cmode, MPI_Comm comm, MPI_Info info,int *ncidp)
  {
#if defined(USING_NETCDF_PAR)
    int status;
    #pragma omp critical (_netcdf)
    {
      status = ::nc_create_par(path, cmode, comm, info, ncidp) ;
    }
    return status;
#else
    ERROR("int nc_create_par(const char *path, int cmode, MPI_Comm comm, MPI_Info info,int *ncidp)",
           << "must not be use with netcdf sequential version") ;
    return -1 ;
#endif
  }

  inline int nc_open_par(const char *path, int mode, MPI_Comm comm, MPI_Info info,int *ncidp)
  {
#if defined(USING_NETCDF_PAR)
    int status;
    #pragma omp critical (_netcdf)
    {
      status = ::nc_open_par(path, mode, comm, info, ncidp) ;
    }
    return status;
#else
    ERROR("int nc_open_par(const char *path, int mode, MPI_Comm comm, MPI_Info info,int *ncidp)",
           << "must not be use with netcdf sequential version") ;
    return -1 ;
#endif
  }

  inline int nc_var_par_access(int ncid, int varid, int par_access)
  {
#if defined(USING_NETCDF_PAR)
    int status = ::nc_var_par_access(ncid, varid, par_access) ;
    
    return status;
#else
    ERROR("int nc_var_par_access(int ncid, int varid, int par_access)",
           << "must not be use with netcdf sequential version") ;
    return -1 ;
#endif
  }
}


#endif