← Back to branch summary

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

« back to all changes in this revision

Viewing changes to src/cfbl/cfpoin.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/cfbl/cfpoin.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 fuel combustion
 
24
 
 
25
module cfpoin
 
26
 
 
27
  !=============================================================================
 
28
 
 
29
  ! Tableau Dimension       Description
 
30
  ! ifbet  ! nfabor        ! indicateur flux thermique au bord impose
 
31
  !                          (il faut annuler des contributions de bord
 
32
  !                           de l'eq de E)
 
33
  ! ifbrus ! nfabor        ! indicateur flux de bord calcule par rusanov
 
34
  !                          (il faut annuler des contributions de bord
 
35
  !                           de l'eq de Qdm et de l'eq de E)
 
36
 
 
37
  integer, allocatable, dimension(:) :: ifbet , ifbrus
 
38
 
 
39
contains
 
40
 
 
41
  !=============================================================================
 
42
 
 
43
  subroutine init_compf ( nfabor)
 
44
 
 
45
    implicit none
 
46
 
 
47
    integer nfabor
 
48
 
 
49
    allocate(ifbet(nfabor))
 
50
    allocate(ifbrus(nfabor))
 
51
 
 
52
  end subroutine init_compf
 
53
 
 
54
  !=============================================================================
 
55
 
 
56
  subroutine finalize_compf
 
57
 
 
58
    implicit none
 
59
 
 
60
    deallocate(ifbet, ifbrus)
 
61
 
 
62
  end subroutine finalize_compf
 
63
 
 
64
end module cfpoin