1 | include(dom.inc)
   2 | 
   3 |       MODULE mod_slave
   4 | 
   5 | !       ===============================================================!
   6 | !                                                                      !
   7 | !       mod_slave.F : module that contains all necesary data for the   !
   8 | !                     execution of the slave code                      !
   9 | !                                                                      !
  10 | !       contains    : global parameters for local processor ...        !
  11 | !                                                                      !
  12 | !       author      : J. AMAYA (october 2007)                          !
  13 | !                                                                      !
  14 | !       ===============================================================!
  15 | 
  16 |         IMPLICIT NONE
  17 | 
  18 | !       -----------------!
  19 | !       General settings !
  20 | !       -----------------!
  21 | 
  22 |         DOM_INT          :: is_nnodes, is_nfacesmax, is_ncells
  23 |         DOM_INT          :: is_ngaz, is_nbfaces, is_nfaces
  24 |         DOM_INT          :: is_nkabs
  25 |         DOM_INT          :: is_ngg   = 3
  26 | 
  27 | !       --------------!
  28 | !       Spectral data !
  29 | !       --------------!
  30 | 
  31 |         DOM_INT, ALLOCATABLE, DIMENSION(:) :: is_nbandes
  32 |         DOM_INT                            :: is_nallbandes
  33 | 
  34 | !       -------------!
  35 | !       Partitioning !
  36 | !       -------------!
  37 | 
  38 |         DOM_INT :: is_ndir, is_cd, is_cf, is_dird, is_dirf
  39 |         DOM_INT :: is_lbcd, is_lbcf
  40 |         DOM_INT :: is_bfbeg, is_bfend
  41 |         DOM_INT :: is_cellb, is_cellf
  42 | 
  43 | !       ---------------!
  44 | !       Global vectors !
  45 | !       ---------------!
  46 | 
  47 |         DOM_INT, ALLOCATABLE, DIMENSION(:,:)  :: is_pathway
  48 |         DOM_INT, ALLOCATABLE, DIMENSION(:,:)  :: is_neighs
  49 |         DOM_INT, ALLOCATABLE, DIMENSION(:)    :: is_nfcelt
  50 |         DOM_INT, ALLOCATABLE, DIMENSION(:)    :: is_bcell
  51 |         DOM_INT, ALLOCATABLE, DIMENSION(:)    :: is_bface
  52 |         DOM_INT, ALLOCATABLE, DIMENSION(:)    :: is_cnodes
  53 |         DOM_INT, ALLOCATABLE, DIMENSION(:,:)  :: is_cnnode
  54 | 
  55 |         DOM_REAL, ALLOCATABLE, DIMENSION(:,:) :: s_maxlen
  56 |         DOM_REAL, ALLOCATABLE,DIMENSION(:,:,:):: s_ss
  57 |         DOM_REAL, ALLOCATABLE, DIMENSION(:)   :: s_mu, s_eta
  58 |         DOM_REAL, ALLOCATABLE, DIMENSION(:)   :: s_ksi, s_w
  59 |         DOM_REAL, ALLOCATABLE, DIMENSION(:,:) :: s_KCO, s_KC
  60 |         DOM_REAL, ALLOCATABLE, DIMENSION(:,:) :: s_KH, s_DCO
  61 |         DOM_REAL, ALLOCATABLE, DIMENSION(:,:) :: s_DC, s_DH
  62 |         DOM_REAL, ALLOCATABLE, DIMENSION(:)   :: s_V, s_k_scat
  63 |         DOM_REAL, ALLOCATABLE, DIMENSION(:)   :: s_kabs_gray
  64 |         DOM_REAL, ALLOCATABLE, DIMENSION(:,:) :: s_S
  65 |         DOM_REAL, ALLOCATABLE, DIMENSION(:)   :: s_Tf, s_epsil
  66 |         DOM_REAL, ALLOCATABLE,DIMENSION(:,:,:):: s_norm
  67 |         DOM_REAL, ALLOCATABLE, DIMENSION(:,:) :: s_celldata
  68 |         DOM_REAL, ALLOCATABLE, DIMENSION(:)   :: s_all_WVNB
  69 |         DOM_REAL, ALLOCATABLE, DIMENSION(:)   :: s_all_DWVNB
  70 |         DOM_REAL, ALLOCATABLE, DIMENSION(:,:) :: s_alpha
  71 |         DOM_REAL, ALLOCATABLE, DIMENSION(:)   :: s_kwsgg
  72 |         DOM_REAL, ALLOCATABLE, DIMENSION(:,:) :: s_WSGG_W
  73 |         DOM_INT,  ALLOCATABLE, DIMENSION(:,:) :: is_facenodes
  74 | 
  75 |       END MODULE mod_slave