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 & D. Poitou (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_ndim = 3
  35 |         DOM_INT            :: i_dom_nnodes
  36 |         DOM_INT            :: i_dom_ncells
  37 |         DOM_INT            :: i_dom_nfaces
  38 |         DOM_INT            :: i_dom_nbfaces
  39 |         DOM_INT            :: i_dom_nfacesmax
  40 |         DOM_INT            :: i_dom_nprobes
  41 | 
  42 | !       -------------------!
  43 | !       Mesh partitionning !
  44 | !       -------------------!
  45 |         DOM_INT , allocatable, dimension(:) :: ip_partition
  46 |         DOM_INT , allocatable, dimension(:) :: ip_len, ip_beg
  47 |         DOM_INT , allocatable, dimension(:) :: ip_nnodes, ip_nfaces
  48 |         DOM_INT , allocatable, dimension(:) :: ip_nbfaces
  49 | 
  50 |         DOM_INT , allocatable, dimension(:,:)  :: ip_cnodes
  51 |         DOM_INT , allocatable, dimension(:,:,:):: ip_cnnode
  52 | 
  53 |         DOM_INT , allocatable, dimension(:,:)  :: ip_golo_cells
  54 |         DOM_INT , allocatable, dimension(:,:)  :: ip_golo_nodes
  55 |         DOM_INT , allocatable, dimension(:,:)  :: ip_logo_nodes
  56 | 
  57 |         DOM_INT , allocatable, dimension(:,:)  :: ip_logo_bfaces
  58 |         DOM_INT , allocatable, dimension(:,:)  :: ip_bface_nnode
  59 |         DOM_INT , allocatable, dimension(:,:,:):: ip_bface_nodes
  60 | 
  61 |         DOM_INT                                :: i_dom_nvfaces
  62 |         DOM_INT , allocatable, dimension(:)    :: ip_nvfaces
  63 |         DOM_INT , allocatable, dimension(:,:)  :: i_vface
  64 | 
  65 |         DOM_INT , allocatable, dimension(:)    :: ip_proc1
  66 | 
  67 | !       ---------------!
  68 | !       Global vectors !
  69 | !       ---------------!
  70 | 
  71 |         DOM_INT, ALLOCATABLE, DIMENSION(:) :: cd, cf, dir_d, dir_f
  72 | 
  73 |         DOM_REAL, ALLOCATABLE, DIMENSION(:)   :: mu, eta, ksi, w
  74 | 
  75 | !       ------------------!
  76 | !       Resulting vectors !
  77 | !       ------------------!
  78 | 
  79 |         DOM_REAL, ALLOCATABLE, DIMENSION(:)   :: Gtot
  80 |         DOM_REAL, ALLOCATABLE, DIMENSION(:)   :: Lbtot
  81 |         DOM_REAL, ALLOCATABLE, DIMENSION(:)   :: Srtot
  82 |         DOM_REAL, ALLOCATABLE, DIMENSION(:)   :: Htot, Qw
  83 |         DOM_REAL                              :: Srvtot
  84 |         DOM_REAL, ALLOCATABLE, DIMENSION(:,:) :: Q_rtot, Q_ptot
  85 | 
  86 |       END MODULE mod_prissma