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 (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_dird = i_buffer(5)
37 | is_dirf = i_buffer(6)
38 | is_nfacesmax = i_buffer(7)
39 | is_ngaz = i_buffer(8)
40 | is_nallbandes = i_buffer(9)
41 | is_lbcd = i_buffer(10)
42 | is_lbcf = i_buffer(11)
43 | is_nbfaces = i_buffer(12)
44 | is_bfbeg = i_buffer(13)
45 | is_bfend = i_buffer(14)
46 |
47 | is_ndir = is_dirf - is_dird + 1
48 | IF (is_dirf.eq.0) is_ndir = 0
49 |
50 | END SUBROUTINE slave_partition
slave_partition.F could be called by: