1 | include(dom.inc)
2 | MODULE mod_prissma
3 |
4 | ! ===============================================================!
5 | ! !
6 | ! mod_prissma.F : module that contains all necesary data for the !
7 | ! execution of PRISSMA in the master side. !
8 | ! !
9 | ! contains : The full vectors, the max parameters, ... !
10 | ! !
11 | ! author : J. AMAYA (september 2007) !
12 | ! !
13 | ! ===============================================================!
14 |
15 | IMPLICIT NONE
16 |
17 | ! ---------------!
18 | ! Gas properties !
19 | ! ---------------!
20 |
21 | DOM_INT :: n_gaz, nallbandes
22 | DOM_INT, PARAMETER :: ngg = 3
23 |
24 | ! ---------------!
25 | ! Quadature data !
26 | ! ---------------!
27 |
28 | DOM_INT :: ndir
29 |
30 | ! ---------------------!
31 | ! Mesh constant values !
32 | ! ---------------------!
33 |
34 | DOM_INT :: i_dom_nnodes
35 | DOM_INT :: i_dom_ncells
36 | DOM_INT :: i_dom_nfaces
37 | DOM_INT :: i_dom_nbfaces
38 | DOM_INT :: i_dom_nfacesmax
39 |
40 | ! ---------------!
41 | ! Global vectors !
42 | ! ---------------!
43 |
44 | DOM_INT, ALLOCATABLE, DIMENSION(:) :: cd, cf, dir_d, dir_f
45 |
46 | DOM_REAL, ALLOCATABLE, DIMENSION(:) :: mu, eta, ksi, w
47 |
48 | ! ------------------!
49 | ! Resulting vectors !
50 | ! ------------------!
51 |
52 | DOM_REAL, ALLOCATABLE, DIMENSION(:) :: Gtot
53 | DOM_REAL, ALLOCATABLE, DIMENSION(:) :: Lbtot
54 | DOM_REAL, ALLOCATABLE, DIMENSION(:) :: Srtot
55 | DOM_REAL, ALLOCATABLE, DIMENSION(:) :: Htot, Qw
56 |
57 | DOM_REAL, ALLOCATABLE, DIMENSION(:,:) :: Q_rtot
58 |
59 | END MODULE mod_prissma
mod_prissma.F could be called by: