1 | include(dom.inc)
2 | SUBROUTINE slave_partition(i_buffer, i_buffersize)
3 |
4 | ! ================================================================!
5 | ! !
6 | ! slave_partition.F : Fills global partition parameters for !
7 | ! the slave processor. !
8 | ! !
9 | ! out : Global partition parameters for slave proc. !
10 | ! !
11 | ! author : J. AMAYA & D. Poitou (october 2007) !
12 | ! !
13 | ! ================================================================!
14 |
15 | ! only for print debugging:
16 | ! USE mod_pmm
17 |
18 | USE mod_slave
19 |
20 | IMPLICIT NONE
21 |
22 | INCLUDE 'pmm_constants.h'
23 | INCLUDE 'dom_constants.h'
24 |
25 | ! IN
26 | DOM_INT :: i_buffersize
27 | DOM_INT, DIMENSION(i_buffersize) :: i_buffer
28 |
29 | ! print*, " (",pmm_rank,") Received partition: "
30 | ! print*, " (",pmm_rank,") ", i_buffer
31 |
32 | is_nnodes = i_buffer(1)
33 | is_ncells = i_buffer(2)
34 | is_cd = i_buffer(3)
35 | is_cf = i_buffer(4)
36 | is_ntotdir = i_buffer(5)
37 | is_dird = i_buffer(6)
38 | is_dirf = i_buffer(7)
39 | is_nfacesmax = i_buffer(8)
40 | is_ngaz = i_buffer(9)
41 | is_nallbandes = i_buffer(10)
42 | is_lbcd = i_buffer(11)
43 | is_lbcf = i_buffer(12)
44 | is_nbfaces = i_buffer(13)
45 | is_bfbeg = i_buffer(14)
46 | is_bfend = i_buffer(15)
47 | is_cellb = i_buffer(16)
48 | is_cellf = i_buffer(17)
49 | is_nfaces = i_buffer(18)
50 | is_buffersize = i_buffer(19)
51 | is_ntot_cells = i_buffer(20)
52 | is_ntot_nodes = i_buffer(21)
53 | is_ntot_bfaces = i_buffer(22)
54 | is_ntot_vfaces= i_buffer(23)
55 | is_nvfaces = i_buffer(24)
56 | is_vfacebeg = i_buffer(25)
57 | is_part = i_buffer(26)
58 | is_task = i_buffer(27)
59 | is_ntask = i_buffer(28)
60 |
61 | is_ndir = is_dirf - is_dird + 1
62 | IF (is_dirf.eq.0) is_ndir = 0
63 |
64 | END SUBROUTINE slave_partition
slave_partition.F could be called by: