source: lmdz_wrf/WRFV3/share/module_MPP.F @ 1

Last change on this file since 1 was 1, checked in by lfita, 10 years ago
  • -- --- Opening of the WRF+LMDZ coupling repository --- -- -

WRF: version v3.3
LMDZ: version v1818

More details in:

File size: 3.0 KB
Line 
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
Note: See TracBrowser for help on using the repository browser.