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 |         DOM_INT          :: is_nprobes
  27 | 
  28 | !       --------------!
  29 | !       Spectral data !
  30 | !       --------------!
  31 | 
  32 |         DOM_INT, ALLOCATABLE, DIMENSION(:) :: is_nbandes
  33 |         DOM_INT                            :: is_nallbandes
  34 | 
  35 | !       -------------!
  36 | !       Partitioning !
  37 | !       -------------!
  38 | 
  39 |         DOM_INT :: is_ndir, is_cd, is_cf, is_dird, is_dirf
  40 |         DOM_INT :: is_dirbeg, is_dirend, is_ntotdir
  41 |         DOM_INT :: is_lbcd, is_lbcf
  42 |         DOM_INT :: is_bfbeg, is_bfend
  43 |         DOM_INT :: is_cellb, is_cellf
  44 | 
  45 | !       ---------------!
  46 | !       Global vectors !
  47 | !       ---------------!
  48 | 
  49 |         DOM_INT, ALLOCATABLE, DIMENSION(:,:)  :: is_pathway
  50 |         DOM_INT, ALLOCATABLE, DIMENSION(:,:)  :: is_neighs
  51 |         DOM_INT, ALLOCATABLE, DIMENSION(:)    :: is_nfcelt
  52 |         DOM_INT, ALLOCATABLE, DIMENSION(:)    :: is_bcell
  53 |         DOM_INT, ALLOCATABLE, DIMENSION(:)    :: is_bface
  54 |         DOM_INT, ALLOCATABLE, DIMENSION(:)    :: is_cnodes
  55 |         DOM_INT, ALLOCATABLE, DIMENSION(:,:)  :: is_cnnode
  56 | 
  57 |         DOM_INT, ALLOCATABLE, DIMENSION(:)    :: is_norm_probe
  58 |         DOM_INT, ALLOCATABLE, DIMENSION(:)    :: is_pcells
  59 | 
  60 |         DOM_REAL, ALLOCATABLE, DIMENSION(:,:)  :: s_norm_probe
  61 |         DOM_REAL, ALLOCATABLE, DIMENSION(:,:) :: s_maxlen
  62 |         DOM_REAL, ALLOCATABLE,DIMENSION(:,:,:):: s_ss
  63 |         DOM_REAL, ALLOCATABLE, DIMENSION(:)   :: s_mu, s_eta
  64 |         DOM_REAL, ALLOCATABLE, DIMENSION(:)   :: s_ksi, s_w
  65 |         DOM_REAL, ALLOCATABLE, DIMENSION(:,:) :: s_KCO, s_KC
  66 |         DOM_REAL, ALLOCATABLE, DIMENSION(:,:) :: s_KH, s_DCO
  67 |         DOM_REAL, ALLOCATABLE, DIMENSION(:,:) :: s_DC, s_DH
  68 |         DOM_REAL, ALLOCATABLE, DIMENSION(:)   :: s_V, s_k_scat
  69 |         DOM_REAL, ALLOCATABLE, DIMENSION(:)   :: s_kabs_gray
  70 |         DOM_REAL, ALLOCATABLE, DIMENSION(:,:) :: s_S
  71 |         DOM_REAL, ALLOCATABLE, DIMENSION(:)   :: s_Tf, s_epsil
  72 |         DOM_REAL, ALLOCATABLE,DIMENSION(:,:,:):: s_norm
  73 |         DOM_REAL, ALLOCATABLE, DIMENSION(:,:) :: s_celldata
  74 |         DOM_REAL, ALLOCATABLE, DIMENSION(:)   :: s_all_WVNB
  75 |         DOM_REAL, ALLOCATABLE, DIMENSION(:)   :: s_all_DWVNB
  76 |         DOM_REAL, ALLOCATABLE, DIMENSION(:,:) :: s_alpha
  77 |         DOM_REAL, ALLOCATABLE, DIMENSION(:)   :: s_kwsgg
  78 |         DOM_REAL, ALLOCATABLE, DIMENSION(:,:) :: s_WSGG_W, s_WSGG_Wb
  79 |         DOM_INT,  ALLOCATABLE, DIMENSION(:,:) :: is_facenodes
  80 |         DOM_REAL, DIMENSION(8)                :: s_dataref
  81 | 
  82 |         DOM_REAL, ALLOCATABLE,DIMENSION(:,:,:,:,:) :: s_tabkabs
  83 |         DOM_INT          :: is_nYH, is_nYC, is_nYCO, is_nT
  84 |         DOM_REAL         :: s_DYH , s_DYC , s_DYCO , s_DT
  85 | 
  86 |       END MODULE mod_slave