← Back to branch summary

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

« back to all changes in this revision

Viewing changes to src/base/cs_tpar1d.c

  • Committer: Package Import Robot
  • Author(s): Sylvestre Ledru
  • Date: 2011-11-24 00:00:08 UTC
  • mfrom: (6.1.9 sid)
  • Revision ID: package-import@ubuntu.com-20111124000008-2vo99e38267942q5
Tags: 2.1.0-3
Install a missing file

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/base/cs_tpar1d.c
1
1
/*============================================================================
2
 
 *
3
 
 *     This file is part of the Code_Saturne Kernel, element of the
4
 
 *     Code_Saturne CFD tool.
5
 
 *
6
 
 *     Copyright (C) 1998-2009 EDF S.A., France
7
 
 *
8
 
 *     contact: saturne-support@edf.fr
9
 
 *
10
 
 *     The Code_Saturne Kernel is free software; you can redistribute it
11
 
 *     and/or modify it under the terms of the GNU General Public License
12
 
 *     as published by the Free Software Foundation; either version 2 of
13
 
 *     the License, or (at your option) any later version.
14
 
 *
15
 
 *     The Code_Saturne Kernel is distributed in the hope that it will be
16
 
 *     useful, but WITHOUT ANY WARRANTY; without even the implied warranty
17
 
 *     of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
18
 
 *     GNU General Public License for more details.
19
 
 *
20
 
 *     You should have received a copy of the GNU General Public License
21
 
 *     along with the Code_Saturne Kernel; if not, write to the
22
 
 *     Free Software Foundation, Inc.,
23
 
 *     51 Franklin St, Fifth Floor,
24
 
 *     Boston, MA  02110-1301  USA
25
 
 *
26
 
 *============================================================================*/
27
 
 
28
 
/*============================================================================
29
2
 * Modelling the thermal wall with 1D approach
30
3
 *============================================================================*/
31
4
 
 
5
/*
 
6
  This file is part of Code_Saturne, a general-purpose CFD tool.
 
7
 
 
8
  Copyright (C) 1998-2011 EDF S.A.
 
9
 
 
10
  This program is free software; you can redistribute it and/or modify it under
 
11
  the terms of the GNU General Public License as published by the Free Software
 
12
  Foundation; either version 2 of the License, or (at your option) any later
 
13
  version.
 
14
 
 
15
  This program is distributed in the hope that it will be useful, but WITHOUT
 
16
  ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
 
17
  FOR A PARTICULAR PURPOSE.  See the GNU General Public License for more
 
18
  details.
 
19
 
 
20
  You should have received a copy of the GNU General Public License along with
 
21
  this program; if not, write to the Free Software Foundation, Inc., 51 Franklin
 
22
  Street, Fifth Floor, Boston, MA 02110-1301, USA.
 
23
*/
 
24
 
 
25
/*----------------------------------------------------------------------------*/
 
26
 
32
27
#if defined(HAVE_CONFIG_H)
33
28
#include "cs_config.h"
34
29
#endif
118
113
  BFT_MALLOC(cs_glob_par1d, nfpt1d, struct par1d);
119
114
 
120
115
  /* Initialization of the number of discretization points in each structure
121
 
     Computation of the toatl number of discretization points */
 
116
     Computation of the total number of discretization points */
122
117
  nb_pts_tot = 0;
123
118
 
124
119
  for (i = 0; i < nfpt1d; i++) {
793
788
 *
794
789
 * Fortran interface:
795
790
 *
796
 
 * SUBROUTINE LECT1D
 
791
 * SUBROUTINE ECRT1D
797
792
 * *****************
798
793
 *
799
794
 * CHARACTER        NOMSUI : <-- : Name of the restart file
879
874
    typ_val = CS_TYPE_cs_int_t;
880
875
 
881
876
    for (i = 0; i < *nfpt1d; i++) {
882
 
            ifac = ifpt1d[i] - 1;
883
 
            tabvar[ifac] = cs_glob_par1d[i].n;
884
 
          }
 
877
      ifac = ifpt1d[i] - 1;
 
878
      tabvar[ifac] = cs_glob_par1d[i].n;
 
879
    }
885
880
 
886
881
    cs_restart_write_section(suite,
887
882
                             nomrub,
907
902
    typ_val = CS_TYPE_cs_real_t;
908
903
 
909
904
    for (i = 0; i < *nfpt1d; i++) {
910
 
            ifac = ifpt1d[i] - 1;
911
 
            tabvar[ifac] = cs_glob_par1d[i].e;
912
 
          }
 
905
      ifac = ifpt1d[i] - 1;
 
906
      tabvar[ifac] = cs_glob_par1d[i].e;
 
907
    }
913
908
 
914
909
    cs_restart_write_section(suite,
915
910
                     nomrub,