stardis

Perform coupled heat transfer calculations
git clone git://git.meso-star.fr/stardis.git
Log | Files | Refs | README | LICENSE

stardis-tbound.c (2195B)

      1 /* Copyright (C) 2018-2025 |Méso|Star> (contact@meso-star.com)
      2  *
      3  * This program is free software: you can redistribute it and/or modify
      4  * it under the terms of the GNU General Public License as published by
      5  * the Free Software Foundation, either version 3 of the License, or
      6  * (at your option) any later version.
      7  *
      8  * This program is distributed in the hope that it will be useful,
      9  * but WITHOUT ANY WARRANTY; without even the implied warranty of
     10  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
     11  * GNU General Public License for more details.
     12  *
     13  * You should have received a copy of the GNU General Public License
     14  * along with this program. If not, see <http://www.gnu.org/licenses/>. */
     15 
     16 #include "stardis-app.h"
     17 #include "stardis-tbound.h"
     18 #include "stardis-fluid.h"
     19 #include "stardis-intface.h"
     20 
     21 #include <rsys/rsys.h>
     22 #include <rsys/mem_allocator.h>
     23 #include <rsys/str.h>
     24 
     25 #include <sdis.h>
     26 
     27 #include <limits.h>
     28 
     29 /*******************************************************************************
     30  * Public Functions
     31  ******************************************************************************/
     32 res_T
     33 init_t_boundary
     34   (struct mem_allocator* allocator,
     35    struct t_boundary** dst)
     36 {
     37   res_T res = RES_OK;
     38   int str_initialized = 0;
     39   ASSERT(allocator && dst && *dst == NULL);
     40   *dst = MEM_CALLOC(allocator, 1, sizeof(**dst));
     41   if(! *dst) {
     42     res = RES_MEM_ERR;
     43     goto error;
     44   }
     45   str_init(allocator, &(*dst)->name);
     46   str_initialized = 1;
     47   (*dst)->imposed_temperature = SDIS_TEMPERATURE_NONE;
     48   (*dst)->mat_id = UINT_MAX;
     49 end:
     50   return res;
     51 error:
     52   if(str_initialized) str_release(&(*dst)->name);
     53   if(*dst) MEM_RM(allocator, *dst);
     54   goto end;
     55 }
     56 
     57 void
     58 release_t_boundary
     59   (struct t_boundary* bound,
     60    struct mem_allocator* allocator)
     61 {
     62   ASSERT(bound && allocator);
     63   str_release(&bound->name);
     64   MEM_RM(allocator, bound);
     65 }
     66 
     67 res_T
     68 str_print_t_boundary
     69   (struct str* str,
     70    const struct t_boundary* b)
     71 {
     72   res_T res = RES_OK;
     73   ASSERT(str && b);
     74   ERR(str_append_printf(str,
     75     "T boundary for solid '%s': T=%g (using medium %u as external medium)",
     76     str_cget(&b->name), b->imposed_temperature, b->mat_id));
     77 end:
     78   return res;
     79 error:
     80   goto end;
     81 }