← Back to branch summary

~ubuntu-branches/ubuntu/precise/code-saturne/precise

« back to all changes in this revision

Viewing changes to salome/libmilieu/donnees.c

  • Committer: Package Import Robot
  • Author(s): Sylvestre Ledru
  • Date: 2011-11-01 17:43:32 UTC
  • mto: (6.1.7 sid)
  • mto: This revision was merged to the branch mainline in revision 11.
  • Revision ID: package-import@ubuntu.com-20111101174332-tl4vk45no0x3emc3
Tags: upstream-2.1.0
Import upstream version 2.1.0

Show diffs side-by-side

added added

removed removed

Lines of Context:
salome/libmilieu/donnees.c
 
1
/*
 
2
  This file is part of Code_Saturne, a general-purpose CFD tool.
 
3
 
 
4
  Copyright (C) 1998-2011 EDF S.A.
 
5
 
 
6
  This program is free software; you can redistribute it and/or modify it under
 
7
  the terms of the GNU General Public License as published by the Free Software
 
8
  Foundation; either version 2 of the License, or (at your option) any later
 
9
  version.
 
10
 
 
11
  This program is distributed in the hope that it will be useful, but WITHOUT
 
12
  ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
 
13
  FOR A PARTICULAR PURPOSE.  See the GNU General Public License for more
 
14
  details.
 
15
 
 
16
  You should have received a copy of the GNU General Public License along with
 
17
  this program; if not, write to the Free Software Foundation, Inc., 51 Franklin
 
18
  Street, Fifth Floor, Boston, MA 02110-1301, USA.
 
19
*/
 
20
 
 
21
/*----------------------------------------------------------------------------*/
 
22
 
 
23
/*----------------------------------------------------------------------------
 
24
 * Standard C library headers
 
25
 *----------------------------------------------------------------------------*/
 
26
 
 
27
#include <stdio.h>
 
28
 
 
29
/*----------------------------------------------------------------------------
 
30
 * Local headers
 
31
 *----------------------------------------------------------------------------*/
 
32
 
 
33
#include "runmilieu.h"
 
34
 
 
35
/*----------------------------------------------------------------------------
 
36
 *  Header for the current file
 
37
 *----------------------------------------------------------------------------*/
 
38
 
 
39
#include "donnees.h"
 
40
 
 
41
/*----------------------------------------------------------------------------*/
 
42
 
 
43
#ifdef __cplusplus
 
44
extern "C" {
 
45
#endif
 
46
 
 
47
/*============================================================================
 
48
 *  Global variables
 
49
 *============================================================================*/
 
50
 
 
51
int  nbpdtm = 0;
 
52
int  nbssit = 0;
 
53
 
 
54
int  isyncp = 0;
 
55
int  ntchr = 0;
 
56
 
 
57
double  dtref = 0.0;
 
58
double  ttinit = 0.0;
 
59
 
 
60
double  epsilo = 0.0;
 
61
 
 
62
/*============================================================================
 
63
 * Public function definitions
 
64
 *============================================================================*/
 
65
 
 
66
/*----------------------------------------------------------------------------
 
67
 * Fonction inter_cs_ast_set_nbpdtm
 
68
 *
 
69
 * Get time step defined in coupling case XML description
 
70
 *----------------------------------------------------------------------------*/
 
71
 
 
72
void
 
73
inter_cs_ast_set_nbpdtm(long i)
 
74
{
 
75
  printf("\n i = %d \n", (int)i);
 
76
  nbpdtm = i;
 
77
  printf("\n nbpdtm = %d \n", nbpdtm);
 
78
}
 
79
 
 
80
/*----------------------------------------------------------------------------
 
81
 * Fonction inter_cs_ast_set_nbssit
 
82
 *
 
83
 * Get number of iterations of implicit coupling defined in coupling
 
84
 * case XML description
 
85
 *----------------------------------------------------------------------------*/
 
86
 
 
87
void
 
88
inter_cs_ast_set_nbssit(long i)
 
89
{
 
90
  nbssit = i;
 
91
}
 
92
 
 
93
/*----------------------------------------------------------------------------
 
94
 * Fonction inter_cs_ast_set_isyncp
 
95
 *
 
96
 * Get "isyncp" defined in coupling case XML description
 
97
 *----------------------------------------------------------------------------*/
 
98
 
 
99
void
 
100
inter_cs_ast_set_isyncp(long i)
 
101
{
 
102
  isyncp = i;
 
103
}
 
104
 
 
105
/*----------------------------------------------------------------------------
 
106
 * Fonction inter_cs_ast_set_ntchr
 
107
 *
 
108
 * Get "ntchr" defined in coupling case XML description
 
109
 *----------------------------------------------------------------------------*/
 
110
 
 
111
void
 
112
inter_cs_ast_set_ntchr(long i)
 
113
{
 
114
  ntchr = i;
 
115
}
 
116
 
 
117
/*----------------------------------------------------------------------------
 
118
 * Fonction inter_cs_ast_set_dtref
 
119
 *
 
120
 * Get "dtref" defined in coupling case XML description
 
121
 *----------------------------------------------------------------------------*/
 
122
 
 
123
void
 
124
inter_cs_ast_set_dtref(double dt)
 
125
{
 
126
  dtref = dt;
 
127
}
 
128
 
 
129
/*----------------------------------------------------------------------------
 
130
 * Fonction inter_cs_ast_set_ttinit
 
131
 *
 
132
 * Get "ttinit" defined in coupling case XML description
 
133
 *----------------------------------------------------------------------------*/
 
134
 
 
135
void
 
136
inter_cs_ast_set_ttinit(double tt)
 
137
{
 
138
  ttinit = tt;
 
139
}
 
140
 
 
141
/*----------------------------------------------------------------------------
 
142
 * Fonction inter_cs_ast_set_epsilo
 
143
 *
 
144
 * Get "epsilo" defined in coupling case XML description
 
145
 *----------------------------------------------------------------------------*/
 
146
 
 
147
void
 
148
inter_cs_ast_set_epsilo(double eps)
 
149
{
 
150
  epsilo = eps;
 
151
}
 
152
 
 
153
/*----------------------------------------------------------------------------*/
 
154
 
 
155
#ifdef __cplusplus
 
156
}
 
157
#endif