← Back to branch summary

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

« back to all changes in this revision

Viewing changes to users/cogz/uslwc1.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:
users/cogz/uslwc1.f90
1
1
!-------------------------------------------------------------------------------
2
2
 
3
 
!                      Code_Saturne version 2.0.0-beta2
4
 
!                      --------------------------
5
 
 
6
 
!     This file is part of the Code_Saturne Kernel, element of the
7
 
!     Code_Saturne CFD tool.
8
 
 
9
 
!     Copyright (C) 1998-2009 EDF S.A., France
10
 
 
11
 
!     contact: saturne-support@edf.fr
12
 
 
13
 
!     The Code_Saturne Kernel is free software; you can redistribute it
14
 
!     and/or modify it under the terms of the GNU General Public License
15
 
!     as published by the Free Software Foundation; either version 2 of
16
 
!     the License, or (at your option) any later version.
17
 
 
18
 
!     The Code_Saturne Kernel is distributed in the hope that it will be
19
 
!     useful, but WITHOUT ANY WARRANTY; without even the implied warranty
20
 
!     of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
21
 
!     GNU General Public License for more details.
22
 
 
23
 
!     You should have received a copy of the GNU General Public License
24
 
!     along with the Code_Saturne Kernel; if not, write to the
25
 
!     Free Software Foundation, Inc.,
26
 
!     51 Franklin St, Fifth Floor,
27
 
!     Boston, MA  02110-1301  USA
 
3
!VERS
 
4
 
 
5
! This file is part of Code_Saturne, a general-purpose CFD tool.
 
6
!
 
7
! Copyright (C) 1998-2011 EDF S.A.
 
8
!
 
9
! This program is free software; you can redistribute it and/or modify it under
 
10
! the terms of the GNU General Public License as published by the Free Software
 
11
! Foundation; either version 2 of the License, or (at your option) any later
 
12
! version.
 
13
!
 
14
! This program is distributed in the hope that it will be useful, but WITHOUT
 
15
! ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
 
16
! FOR A PARTICULAR PURPOSE.  See the GNU General Public License for more
 
17
! details.
 
18
!
 
19
! You should have received a copy of the GNU General Public License along with
 
20
! this program; if not, write to the Free Software Foundation, Inc., 51 Franklin
 
21
! Street, Fifth Floor, Boston, MA 02110-1301, USA.
28
22
 
29
23
!-------------------------------------------------------------------------------
30
24
 
46
40
!     b.Constants of the Libby-Williams Model
47
41
!===============================================================================
48
42
 
 
43
!===============================================================================
 
44
! Module files
 
45
!===============================================================================
 
46
 
 
47
use paramx
 
48
use dimens
 
49
use numvar
 
50
use optcal
 
51
use cstphy
 
52
use entsor
 
53
use cstnum
 
54
use parall
 
55
use period
 
56
use ppppar
 
57
use ppthch
 
58
use coincl
 
59
use cpincl
 
60
use ppincl
 
61
use radiat
 
62
 
 
63
!===============================================================================
 
64
 
49
65
implicit none
50
66
 
51
 
!===============================================================================
52
 
!     Common Blocks
53
 
!===============================================================================
54
 
 
55
 
include "paramx.h"
56
 
include "dimens.h"
57
 
include "numvar.h"
58
 
include "optcal.h"
59
 
include "cstphy.h"
60
 
include "entsor.h"
61
 
include "cstnum.h"
62
 
include "parall.h"
63
 
include "period.h"
64
 
include "ppppar.h"
65
 
include "ppthch.h"
66
 
include "coincl.h"
67
 
include "cpincl.h"
68
 
include "ppincl.h"
69
 
include "radiat.h"
70
 
 
71
 
!===============================================================================
72
 
 
73
67
integer          ipp, idirac
74
68
 
75
69
!===============================================================================