Line | |
---|
1 | !**************************************************************************************** |
---|
2 | SUBROUTINE decomp_def(id_paral,id_size,id_im,id_jm,id_rank,id_npes,id_unit) |
---|
3 | ! |
---|
4 | IMPLICIT NONE |
---|
5 | INTEGER, DIMENSION(id_size), INTENT(out) :: id_paral(id_size) |
---|
6 | INTEGER, INTENT(in) :: id_size |
---|
7 | INTEGER, INTENT(in) :: id_im ! Grid dimension in i |
---|
8 | INTEGER, INTENT(in) :: id_jm ! Grid dimension in j |
---|
9 | INTEGER, INTENT(in) :: id_rank ! Rank of process |
---|
10 | INTEGER, INTENT(in) :: id_npes ! Number of processes involved in the coupling |
---|
11 | INTEGER, INTENT(in) :: id_unit ! Unit of log file |
---|
12 | INTEGER :: il_imjm, il_partj |
---|
13 | ! |
---|
14 | #ifdef DECOMP_APPLE |
---|
15 | ! APPLE for the global grid |
---|
16 | id_paral(1) = 1 |
---|
17 | id_paral(2) = 0 |
---|
18 | id_paral(3) = id_im*id_jm |
---|
19 | #elif defined DECOMP_BOX |
---|
20 | ! BOX for the global grid (no partition) |
---|
21 | id_paral(1) = 2 |
---|
22 | id_paral(2) = 0 |
---|
23 | id_paral(3) = id_im |
---|
24 | id_paral(4) = id_jm |
---|
25 | id_paral(5) = id_im |
---|
26 | #endif |
---|
27 | ! |
---|
28 | END SUBROUTINE decomp_def |
---|
29 | |
---|
Note: See
TracBrowser
for help on using the repository browser.