.. _program_listing_file_src_t8_netcdf.c:

Program Listing for File t8_netcdf.c
====================================

|exhale_lsh| :ref:`Return to documentation for file <file_src_t8_netcdf.c>` (``src/t8_netcdf.c``)

.. |exhale_lsh| unicode:: U+021B0 .. UPWARDS ARROW WITH TIP LEFTWARDS

.. code-block:: cpp

   /*
     This file is part of t8code.
     t8code is a C library to manage a collection (a forest) of multiple
     connected adaptive space-trees of general element classes in parallel.
   
     Copyright (C) 2015 the developers
   
     t8code is free software; you can redistribute it and/or modify
     it under the terms of the GNU General Public License as published by
     the Free Software Foundation; either version 2 of the License, or
     (at your option) any later version.
   
     t8code is distributed in the hope that it will be useful,
     but WITHOUT ANY WARRANTY; without even the implied warranty of
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
     GNU General Public License for more details.
   
     You should have received a copy of the GNU General Public License
     along with t8code; if not, write to the Free Software Foundation, Inc.,
     51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
   */
   
   #include <t8.h>
   #include <t8_netcdf.h>
   
   /* Create an extern NetCDF variable */
   t8_netcdf_variable_t *
   t8_netcdf_create_var (t8_netcdf_variable_type_t var_type, const char *var_name, const char *var_long_name,
                         const char *var_unit, sc_array_t *var_data)
   {
     T8_ASSERT ((var_type == T8_NETCDF_INT && var_data->elem_size == 4)
                || (var_type == T8_NETCDF_INT64 && var_data->elem_size == 8)
                || (var_type == T8_NETCDF_DOUBLE && var_data->elem_size == 8));
     t8_netcdf_variable_t *netcdf_variable = T8_ALLOC (t8_netcdf_variable_t, 1);
     netcdf_variable->datatype = var_type;
     netcdf_variable->variable_name = var_name;
     netcdf_variable->variable_long_name = var_long_name;
     netcdf_variable->variable_units = var_unit;
     netcdf_variable->var_user_data = var_data;
     return netcdf_variable;
   }
   
   /* Create an extern NetCDF integer variable */
   t8_netcdf_variable_t *
   t8_netcdf_create_integer_var (const char *var_name, const char *var_long_name, const char *var_unit,
                                 sc_array_t *var_data)
   {
     t8_netcdf_variable_type_t var_type;
     /* Check whether 32-bit (4-byte) integer or 64-bit integer data sholud be written */
     var_type = (var_data->elem_size > 4) ? T8_NETCDF_INT64 : T8_NETCDF_INT;
     return t8_netcdf_create_var (var_type, var_name, var_long_name, var_unit, var_data);
   }
   
   /* Create an extern NetCDF double variable */
   t8_netcdf_variable_t *
   t8_netcdf_create_double_var (const char *var_name, const char *var_long_name, const char *var_unit,
                                sc_array_t *var_data)
   {
   
     return t8_netcdf_create_var (T8_NETCDF_DOUBLE, var_name, var_long_name, var_unit, var_data);
   }
   
   /* Free the memory of the allocated NetCDF variable */
   void
   t8_netcdf_variable_destroy (t8_netcdf_variable_t *var_destroy)
   {
     T8_ASSERT (var_destroy != NULL);
     T8_FREE (var_destroy);
   }