| 1 | ! |
|---|
| 2 | MODULE MODULE_MPP |
|---|
| 3 | !---------------------------------------------------------------------- |
|---|
| 4 | !---------------------------------------------------------------------- |
|---|
| 5 | ! |
|---|
| 6 | !*** THE RANK OF THIS TASK |
|---|
| 7 | ! |
|---|
| 8 | INTEGER :: MYPE |
|---|
| 9 | !---------------------------------------------------------------------- |
|---|
| 10 | ! |
|---|
| 11 | !*** NUMBER OF TASKS |
|---|
| 12 | ! |
|---|
| 13 | INTEGER :: INPES,JNPES,NPES |
|---|
| 14 | ! |
|---|
| 15 | !*** FUNDAMENTAL GLOBAL AND LOCAL ARRAY EXTENTS ON EACH TASK |
|---|
| 16 | ! |
|---|
| 17 | INTEGER :: MY_IS_GLB,MY_IE_GLB,MY_JS_GLB,MY_JE_GLB & |
|---|
| 18 | ,MY_IS_LOC,MY_IE_LOC,MY_JS_LOC,MY_JE_LOC |
|---|
| 19 | !---------------------------------------------------------------------- |
|---|
| 20 | ! |
|---|
| 21 | !*** SUB-DOMAIN LOOP LIMITS THAT PENETRATE HALOES |
|---|
| 22 | ! |
|---|
| 23 | INTEGER :: MYIS,MYIE,MYJS,MYJE & |
|---|
| 24 | ,MYIS1,MYIS2,MYIS3,MYIS4,MYIS5 & |
|---|
| 25 | ,MYIE1,MYIE2,MYIE3,MYIE4,MYIE5 & |
|---|
| 26 | ,MYIS_P1,MYIS_P2,MYIS_P3,MYIS_P4,MYIS_P5 & |
|---|
| 27 | ,MYIS1_P1,MYIS1_P2,MYIS1_P3,MYIS1_P4,MYIS1_P5 & |
|---|
| 28 | ,MYIS2_P1,MYIS2_P2,MYIS2_P3,MYIS2_P4,MYIS2_P5 & |
|---|
| 29 | ,MYIS3_P1,MYIS3_P2,MYIS3_P3,MYIS3_P4,MYIS3_P5 & |
|---|
| 30 | ,MYIS4_P1,MYIS4_P2,MYIS4_P3,MYIS4_P4,MYIS4_P5 & |
|---|
| 31 | ,MYIS5_P1,MYIS5_P2,MYIS5_P3,MYIS5_P4,MYIS5_P5 & |
|---|
| 32 | ,MYIE_P1,MYIE_P2,MYIE_P3,MYIE_P4,MYIE_P5 & |
|---|
| 33 | ,MYIE1_P1,MYIE1_P2,MYIE1_P3,MYIE1_P4,MYIE1_P5 & |
|---|
| 34 | ,MYIE2_P1,MYIE2_P2,MYIE2_P3,MYIE2_P4,MYIE2_P5 & |
|---|
| 35 | ,MYIE3_P1,MYIE3_P2,MYIE3_P3,MYIE3_P4,MYIE3_P5 & |
|---|
| 36 | ,MYIE4_P1,MYIE4_P2,MYIE4_P3,MYIE4_P4,MYIE4_P5 & |
|---|
| 37 | ,MYIE5_P1,MYIE5_P2,MYIE5_P3,MYIE5_P4,MYIE5_P5 & |
|---|
| 38 | ,MYJS1,MYJS2,MYJS3,MYJS4,MYJS5 & |
|---|
| 39 | ,MYJE1,MYJE2,MYJE3,MYJE4,MYJE5 & |
|---|
| 40 | ,MYJS_P1,MYJS_P2,MYJS_P3,MYJS_P4,MYJS_P5 & |
|---|
| 41 | ,MYJS1_P1,MYJS1_P2,MYJS1_P3,MYJS1_P4,MYJS1_P5 & |
|---|
| 42 | ,MYJS2_P1,MYJS2_P2,MYJS2_P3,MYJS2_P4,MYJS2_P5 & |
|---|
| 43 | ,MYJS3_P1,MYJS3_P2,MYJS3_P3,MYJS3_P4,MYJS3_P5 & |
|---|
| 44 | ,MYJS4_P1,MYJS4_P2,MYJS4_P3,MYJS4_P4,MYJS4_P5 & |
|---|
| 45 | ,MYJS5_P1,MYJS5_P2,MYJS5_P3,MYJS5_P4,MYJS5_P5 & |
|---|
| 46 | ,MYJE_P1,MYJE_P2,MYJE_P3,MYJE_P4,MYJE_P5 & |
|---|
| 47 | ,MYJE1_P1,MYJE1_P2,MYJE1_P3,MYJE1_P4,MYJE1_P5 & |
|---|
| 48 | ,MYJE2_P1,MYJE2_P2,MYJE2_P3,MYJE2_P4,MYJE2_P5 & |
|---|
| 49 | ,MYJE3_P1,MYJE3_P2,MYJE3_P3,MYJE3_P4,MYJE3_P5 & |
|---|
| 50 | ,MYJE4_P1,MYJE4_P2,MYJE4_P3,MYJE4_P4,MYJE4_P5 & |
|---|
| 51 | ,MYJE5_P1,MYJE5_P2,MYJE5_P3,MYJE5_P4,MYJE5_P5 |
|---|
| 52 | |
|---|
| 53 | ! |
|---|
| 54 | !---------------------------------------------------------------------- |
|---|
| 55 | ! |
|---|
| 56 | !*** MPI_COMM_COMP IS THE INTRACOMMUNICATOR FOR ALL TASKS. |
|---|
| 57 | ! |
|---|
| 58 | INTEGER :: MPI_COMM_COMP |
|---|
| 59 | |
|---|
| 60 | !---------------------------------------------------------------------- |
|---|
| 61 | END MODULE MODULE_MPP |
|---|
