← Back to branch summary

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

« back to all changes in this revision

Viewing changes to src/base/alaste.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/alaste.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 ALE with Code_Aster coupling
 
24
 
 
25
module alaste
 
26
 
 
27
  !=============================================================================
 
28
 
 
29
  ! Nombre de structures max en ALE et Couplage Code_Aster
 
30
 
 
31
  integer nastmx
 
32
  parameter (nastmx=200)
 
33
 
 
34
  !  Methode ALE - mouvement de structures en couplage avec Code_Aster
 
35
 
 
36
  ! ntcast : numero d'iteration de couplage avec Code_Aster
 
37
  ! nbaste : nombre de structures mobiles
 
38
  ! nbfast : nombre de faces couplees
 
39
  ! nbnast : nombre de noeuds couples
 
40
  ! asddlf : blocage des ddl de force
 
41
  ! asddlc : blocage des ddl cinematiques
 
42
 
 
43
  integer, save ::  ntcast
 
44
  integer, save ::  nbaste, nbfast, nbnast
 
45
  integer, save ::  iforas
 
46
  integer, save ::  asddlf(3,nastmx), asddlc(3,nastmx)
 
47
 
 
48
  !=============================================================================
 
49
 
 
50
end module alaste
 
51
 
 
52