← Back to branch summary

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

« back to all changes in this revision

Viewing changes to src/base/dimens.f90

  • 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/dimens.f90
 
1
!-------------------------------------------------------------------------------
 
2
 
 
3
! This file is part of Code_Saturne, a general-purpose CFD tool.
 
4
!
 
5
! Copyright (C) 1998-2011 EDF S.A.
 
6
!
 
7
! This program is free software; you can redistribute it and/or modify it under
 
8
! the terms of the GNU General Public License as published by the Free Software
 
9
! Foundation; either version 2 of the License, or (at your option) any later
 
10
! version.
 
11
!
 
12
! This program is distributed in the hope that it will be useful, but WITHOUT
 
13
! ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
 
14
! FOR A PARTICULAR PURPOSE.  See the GNU General Public License for more
 
15
! details.
 
16
!
 
17
! You should have received a copy of the GNU General Public License along with
 
18
! this program; if not, write to the Free Software Foundation, Inc., 51 Franklin
 
19
! Street, Fifth Floor, Boston, MA 02110-1301, USA.
 
20
 
 
21
!-------------------------------------------------------------------------------
 
22
 
 
23
! Module for dimensions
 
24
 
 
25
module dimens
 
26
 
 
27
  !=============================================================================
 
28
 
 
29
  ! Mesh and field data
 
30
 
 
31
  !=============================================================================
 
32
 
 
33
  integer, save :: nvar, nscal, nvisls
 
34
 
 
35
  integer, save :: ncofab
 
36
 
 
37
  integer, save :: nproce, nprofa, nprofb, nfluma
 
38
 
 
39
  ! Fake dimension for arrays propfb, coefa and coefb
 
40
  ! where nfabor = 0 (to avoid issues with array bounds when
 
41
  ! multidimensional arrays have size nfabor in one dimension)
 
42
 
 
43
  integer, save :: ndimfb
 
44
 
 
45
  !=============================================================================
 
46
 
 
47
end module dimens