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
  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 | 
  42 | !       ---------------!
  43 | !       Global vectors !
  44 | !       ---------------!
  45 | 
  46 |         DOM_INT, ALLOCATABLE, DIMENSION(:,:)  :: is_pathway
  47 |         DOM_INT, ALLOCATABLE, DIMENSION(:,:)  :: is_neighs
  48 |         DOM_INT, ALLOCATABLE, DIMENSION(:)    :: is_nfcelt
  49 |         DOM_INT, ALLOCATABLE, DIMENSION(:)    :: is_bcell
  50 |         DOM_INT, ALLOCATABLE, DIMENSION(:)    :: is_bface
  51 | 
  52 |         DOM_REAL, ALLOCATABLE, DIMENSION(:,:) :: s_maxlen
  53 |         DOM_REAL, ALLOCATABLE,DIMENSION(:,:,:):: s_ss
  54 |         DOM_REAL, ALLOCATABLE, DIMENSION(:)   :: s_mu, s_eta
  55 |         DOM_REAL, ALLOCATABLE, DIMENSION(:)   :: s_ksi, s_w
  56 |         DOM_REAL, ALLOCATABLE, DIMENSION(:,:) :: s_KCO, s_KC
  57 |         DOM_REAL, ALLOCATABLE, DIMENSION(:,:) :: s_KH, s_DCO
  58 |         DOM_REAL, ALLOCATABLE, DIMENSION(:,:) :: s_DC, s_DH
  59 |         DOM_REAL, ALLOCATABLE, DIMENSION(:)   :: s_V, s_k_scat
  60 |         DOM_REAL, ALLOCATABLE, DIMENSION(:)   :: s_kabs_gray
  61 |         DOM_REAL, ALLOCATABLE, DIMENSION(:,:) :: s_S
  62 |         DOM_REAL, ALLOCATABLE, DIMENSION(:)   :: s_Tf, s_epsil
  63 |         DOM_REAL, ALLOCATABLE,DIMENSION(:,:,:):: s_norm
  64 |         DOM_REAL, ALLOCATABLE, DIMENSION(:,:) :: s_celldata
  65 |         DOM_REAL, ALLOCATABLE, DIMENSION(:)   :: s_all_WVNB
  66 |         DOM_REAL, ALLOCATABLE, DIMENSION(:)   :: s_all_DWVNB
  67 |         DOM_REAL, ALLOCATABLE, DIMENSION(:,:) :: s_alpha
  68 |         DOM_REAL, ALLOCATABLE, DIMENSION(:)   :: s_kwsgg
  69 | 
  70 |       END MODULE mod_slave