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, nkabs
  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 |         DOM_INT            :: i_dom_nprobes
  40 | 
  41 | !       ---------------!
  42 | !       Global vectors !
  43 | !       ---------------!
  44 | 
  45 |         DOM_INT, ALLOCATABLE, DIMENSION(:) :: cd, cf, dir_d, dir_f
  46 | 
  47 |         DOM_REAL, ALLOCATABLE, DIMENSION(:)   :: mu, eta, ksi, w
  48 | 
  49 | !       ------------------!
  50 | !       Resulting vectors !
  51 | !       ------------------!
  52 | 
  53 |         DOM_REAL, ALLOCATABLE, DIMENSION(:)   :: Gtot
  54 |         DOM_REAL, ALLOCATABLE, DIMENSION(:)   :: Lbtot
  55 |         DOM_REAL, ALLOCATABLE, DIMENSION(:)   :: Srtot
  56 |         DOM_REAL, ALLOCATABLE, DIMENSION(:)   :: Htot, Qw
  57 | 
  58 |         DOM_REAL, ALLOCATABLE, DIMENSION(:,:) :: Q_rtot, Q_ptot
  59 | 
  60 |       END MODULE mod_prissma