1
!-------------------------------------------------------------------------------
3
! This file is part of the Code_Saturne Kernel, element of the
4
! Code_Saturne CFD tool.
6
! Copyright (C) 1998-2009 EDF S.A., France
8
! contact: saturne-support@edf.fr
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.
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.
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
26
!-------------------------------------------------------------------------------
29
!===============================================================================
32
! Gestion du parallellisme
34
! irangp : rang du processus
35
! = -1 en mode sequentiel
36
! = r (0 < r < nb_processus) en execution parallelle distribuee
37
! nrangp : nombre de processus (=1 si sequentiel)
38
! nthrdi : nombre de sous ensembles independants de faces internes max
39
! dans un groupe (>= 1 avec OpenMP, 1 sinon)
40
! nthrdb : nombre de sous ensembles independants de faces de bord max
41
! dans un groupe (>= 1 avec OpenMP, 1 sinon)
42
! ngrpi : nombre de groupes de faces internes (> 1 avec OpenMP, 1 sinon)
43
! ngrpb : nombre de groupes de faces de bord (> 1 avec OpenMP, 1 sinon)
44
! iompli : bornes par thread pour les faces internes
45
! iomplb : bornes par thread pour les faces de bord
46
! pour le groupe (couleur) j et le thread i, boucles
47
! de iompl.(1, j, i) à iompl.(2, j, i)
49
integer irangp, nrangp, nthrdi, nthrdb, ngrpi, ngrpb, &
50
iompli(2, nthrd1, nthrd2), iomplb(2, nthrd1, nthrd2)
51
common / iparal / irangp, nrangp, nthrdi, nthrdb, ngrpi, ngrpb, &
55
! Dimensions globales (i.e. independantes de decoupage parallele)
56
! ncelgb : nombre de cellules global
57
! nfacgb : nombre de faces internes global
58
! nfbrgb : nombre de faces de bord global
59
! nsomgb : nombre de sommets global
61
integer ncelgb, nfacgb, nfbrgb, nsomgb
62
common / igeogb / ncelgb, nfacgb, nfbrgb, nsomgb