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