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
22 | DOM_INT, PARAMETER :: ngg = 3
23 |
24 | ! --------------!
25 | ! Spectral data !
26 | ! --------------!
27 |
28 | DOM_INT, ALLOCATABLE, DIMENSION(:) :: nbandes
29 | DOM_REAL, ALLOCATABLE, DIMENSION(:,:) :: alpha_wsgg
30 | DOM_REAL, ALLOCATABLE, DIMENSION(:) :: k_wsgg
31 | DOM_INT :: nallbandes
32 |
33 | ! ---------------!
34 | ! Quadature data !
35 | ! ---------------!
36 |
37 | DOM_INT :: ndir
38 |
39 | ! ---------------------!
40 | ! Mesh constant values !
41 | ! ---------------------!
42 |
43 | DOM_INT :: i_dom_nnodes
44 | DOM_INT :: i_dom_ncells
45 | DOM_INT :: i_dom_nfaces
46 | DOM_INT :: i_dom_nbfaces
47 | DOM_INT :: i_dom_nfacesmax
48 |
49 | ! ---------------!
50 | ! Global vectors !
51 | ! ---------------!
52 |
53 | DOM_INT, ALLOCATABLE, DIMENSION(:) :: cd, cf, dir_d, dir_f
54 |
55 | DOM_INT, ALLOCATABLE, DIMENSION(:,:) :: neighs
56 | DOM_INT, ALLOCATABLE, DIMENSION(:) :: nfcelt
57 | DOM_INT, ALLOCATABLE, DIMENSION(:,:) :: pathway
58 |
59 | DOM_REAL, ALLOCATABLE, DIMENSION(:,:) :: maxlen
60 | DOM_REAL, ALLOCATABLE,DIMENSION(:,:,:):: s_s
61 | DOM_REAL, ALLOCATABLE, DIMENSION(:,:) :: KCO, KC, KH
62 | DOM_REAL, ALLOCATABLE, DIMENSION(:,:) :: DCO, DC, DH
63 | DOM_REAL, ALLOCATABLE, DIMENSION(:) :: V, k_scat
64 | DOM_REAL, ALLOCATABLE, DIMENSION(:) :: kabs_gray
65 | DOM_REAL, ALLOCATABLE, DIMENSION(:,:) :: S, epsil
66 | DOM_REAL, ALLOCATABLE, DIMENSION(:,:) :: Tf
67 | DOM_REAL, ALLOCATABLE,DIMENSION(:,:,:):: norm
68 | DOM_REAL, ALLOCATABLE, DIMENSION(:,:) :: celldata
69 | DOM_REAL, ALLOCATABLE, DIMENSION(:) :: mu, eta, ksi, w
70 | DOM_REAL, ALLOCATABLE, DIMENSION(:) :: all_WVNB
71 | DOM_REAL, ALLOCATABLE, DIMENSION(:) :: all_DWVNB
72 |
73 | ! ------------------!
74 | ! Resulting vectors !
75 | ! ------------------!
76 |
77 | DOM_REAL, ALLOCATABLE, DIMENSION(:) :: Gtot
78 | DOM_REAL, ALLOCATABLE, DIMENSION(:) :: Lbtot
79 | DOM_REAL, ALLOCATABLE, DIMENSION(:) :: Srtot
80 |
81 | DOM_REAL, ALLOCATABLE, DIMENSION(:,:) :: Htot
82 | DOM_REAL, ALLOCATABLE, DIMENSION(:,:) :: Lotot
83 | DOM_REAL, ALLOCATABLE, DIMENSION(:,:) :: Q_rtot
84 |
85 | END MODULE mod_prissma
mod_prissma.F could be called by: