source: lmdz_wrf/trunk/WRFV3/dyn_nmm/module_MPPINIT.F @ 14

Last change on this file since 14 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: 16.9 KB
Line 
1!
2!NCEP_MESO:MEDIATION_LAYER: SET UP DOMAIN DECOMPOSITION VARIABLES
3!
4!
5!----------------------------------------------------------------------
6!
7      MODULE MODULE_MPPINIT
8!
9!----------------------------------------------------------------------
10      USE MODULE_MPP
11!----------------------------------------------------------------------
12!
13      CONTAINS
14!
15!**********************************************************************
16      SUBROUTINE MPPINIT(IDS,IDE,JDS,JDE,KDS,KDE                       &
17                        ,IMS,IME,JMS,JME,KMS,KME                       &
18                        ,IPS,IPE,JPS,JPE,KPS,KPE)
19!**********************************************************************
20!$$$  SUBPROGRAM DOCUMENTATION BLOCK
21!                .      .    .
22! SUBPROGRAM:    MPPINIT     SET UP DECOMPOSITION VARIABLES
23!   PRGRMMR: BLACK           ORG: W/NP22     DATE: 98-10-28
24!
25! ABSTRACT:
26!     MPPINIT DETERMINES ALL RELEVANT VALUES FOR DIMENSIONS OF THE
27!     DISTRIBUTED SUBDOMAINS AND THEIR HALOES.
28!
29! PROGRAM HISTORY LOG:
30!   97-??-??  MEYS       - ORIGINATOR
31!   97-??-??  BLACK      - CHANGES MADE FOR CLARITY
32!   98-10-29  BLACK      - REWRITTEN FOR CLARITY
33!
34! USAGE: CALL MPPINIT FROM MAIN PROGRAM NCEP_MESO
35!   INPUT ARGUMENT LIST:
36
37!   OUTPUT ARGUMENT LIST:
38!     NONE
39!
40!   OUTPUT FILES:
41!     NONE
42!
43!   SUBPROGRAMS CALLED:
44!
45!     UNIQUE:
46!        NONE
47!
48!     LIBRARY:
49!        NONE
50!
51! ATTRIBUTES:
52!   LANGUAGE: FORTRAN 90
53!   MACHINE : IBM SP
54!$$$
55!----------------------------------------------------------------------
56!
57      IMPLICIT NONE
58!
59!----------------------------------------------------------------------
60      INTEGER,INTENT(IN) :: IDS,IDE,JDS,JDE,KDS,KDE                    &
61                           ,IMS,IME,JMS,JME,KMS,KME                    &
62                           ,IPS,IPE,JPS,JPE,KPS,KPE
63!----------------------------------------------------------------------
64!**********************************************************************
65!----------------------------------------------------------------------
66
67      CALL wrf_get_myproc ( MYPE )
68      CALL wrf_get_nproc  ( NPES )
69      CALL wrf_get_dm_communicator ( mpi_comm_comp )
70
71!jm
72      MYIS    = MAX( IPS-0, IDS+0 )
73      MYIS_P1 = MAX( IPS-1, IDS+0 )
74      MYIS_P2 = MAX( IPS-2, IDS+0 )
75      MYIS_P3 = MAX( IPS-3, IDS+0 )
76      MYIS_P4 = MAX( IPS-4, IDS+0 )
77      MYIS_P5 = MAX( IPS-5, IDS+0 )
78!
79      MYIS1   = MAX( IPS-0, IDS+1 )
80      MYIS1_P1= MAX( IPS-1, IDS+1 )
81      MYIS1_P2= MAX( IPS-2, IDS+1 )
82      MYIS1_P3= MAX( IPS-3, IDS+1 )
83      MYIS1_P4= MAX( IPS-4, IDS+1 )
84      MYIS1_P5= MAX( IPS-5, IDS+1 )
85!
86      MYIS2   = MAX( IPS-0, IDS+2 )
87      MYIS2_P1= MAX( IPS-1, IDS+2 )
88      MYIS2_P2= MAX( IPS-2, IDS+2 )
89      MYIS2_P3= MAX( IPS-3, IDS+2 )
90      MYIS2_P4= MAX( IPS-4, IDS+2 )
91      MYIS2_P5= MAX( IPS-5, IDS+2 )
92!
93      MYIS3   = MAX( IPS-0, IDS+3 )
94      MYIS3_P1= MAX( IPS-1, IDS+3 )
95      MYIS3_P2= MAX( IPS-2, IDS+3 )
96      MYIS3_P3= MAX( IPS-3, IDS+3 )
97      MYIS3_P4= MAX( IPS-4, IDS+3 )
98      MYIS3_P5= MAX( IPS-5, IDS+3 )
99!
100      MYIS4   = MAX( IPS-0, IDS+4 )
101      MYIS4_P1= MAX( IPS-1, IDS+4 )
102      MYIS4_P2= MAX( IPS-2, IDS+4 )
103      MYIS4_P3= MAX( IPS-3, IDS+4 )
104      MYIS4_P4= MAX( IPS-4, IDS+4 )
105      MYIS4_P5= MAX( IPS-5, IDS+4 )
106!
107      MYIS5   = MAX( IPS-0, IDS+5 )
108      MYIS5_P1= MAX( IPS-1, IDS+5 )
109      MYIS5_P2= MAX( IPS-2, IDS+5 )
110      MYIS5_P3= MAX( IPS-3, IDS+5 )
111      MYIS5_P4= MAX( IPS-4, IDS+5 )
112      MYIS5_P5= MAX( IPS-5, IDS+5 )
113
114!jm
115      MYIE    = MIN( IPE+0, IDE-0 )
116      MYIE_P1 = MIN( IPE+1, IDE-0 )
117      MYIE_P2 = MIN( IPE+2, IDE-0 )
118      MYIE_P3 = MIN( IPE+3, IDE-0 )
119      MYIE_P4 = MIN( IPE+4, IDE-0 )
120      MYIE_P5 = MIN( IPE+5, IDE-0 )
121!
122      MYIE1   = MIN( IPE+0, IDE-1 )
123      MYIE1_P1= MIN( IPE+1, IDE-1 )
124      MYIE1_P2= MIN( IPE+2, IDE-1 )
125      MYIE1_P3= MIN( IPE+3, IDE-1 )
126      MYIE1_P4= MIN( IPE+4, IDE-1 )
127      MYIE1_P5= MIN( IPE+5, IDE-1 )
128!
129      MYIE2   = MIN( IPE+0, IDE-2 )
130      MYIE2_P1= MIN( IPE+1, IDE-2 )
131      MYIE2_P2= MIN( IPE+2, IDE-2 )
132      MYIE2_P3= MIN( IPE+3, IDE-2 )
133      MYIE2_P4= MIN( IPE+4, IDE-2 )
134      MYIE2_P5= MIN( IPE+5, IDE-2 )
135!
136      MYIE3   = MIN( IPE+0, IDE-3 )
137      MYIE3_P1= MIN( IPE+1, IDE-3 )
138      MYIE3_P2= MIN( IPE+2, IDE-3 )
139      MYIE3_P3= MIN( IPE+3, IDE-3 )
140      MYIE3_P4= MIN( IPE+4, IDE-3 )
141      MYIE3_P5= MIN( IPE+5, IDE-3 )
142!
143      MYIE4   = MIN( IPE+0, IDE-4 )
144      MYIE4_P1= MIN( IPE+1, IDE-4 )
145      MYIE4_P2= MIN( IPE+2, IDE-4 )
146      MYIE4_P3= MIN( IPE+3, IDE-4 )
147      MYIE4_P4= MIN( IPE+4, IDE-4 )
148      MYIE4_P5= MIN( IPE+5, IDE-4 )
149!
150      MYIE5   = MIN( IPE+0, IDE-5 )
151      MYIE5_P1= MIN( IPE+1, IDE-5 )
152      MYIE5_P2= MIN( IPE+2, IDE-5 )
153      MYIE5_P3= MIN( IPE+3, IDE-5 )
154      MYIE5_P4= MIN( IPE+4, IDE-5 )
155      MYIE5_P5= MIN( IPE+5, IDE-5 )
156
157!jm
158      MYJS    = MAX( JPS-0, JDS+0 )
159      MYJS_P1 = MAX( JPS-1, JDS+0 )
160      MYJS_P2 = MAX( JPS-2, JDS+0 )
161      MYJS_P3 = MAX( JPS-3, JDS+0 )
162      MYJS_P4 = MAX( JPS-4, JDS+0 )
163      MYJS_P5 = MAX( JPS-5, JDS+0 )
164!
165      MYJS1   = MAX( JPS-0, JDS+1 )
166      MYJS1_P1= MAX( JPS-1, JDS+1 )
167      MYJS1_P2= MAX( JPS-2, JDS+1 )
168      MYJS1_P3= MAX( JPS-3, JDS+1 )
169      MYJS1_P4= MAX( JPS-4, JDS+1 )
170      MYJS1_P5= MAX( JPS-5, JDS+1 )
171!
172      MYJS2   = MAX( JPS-0, JDS+2 )
173      MYJS2_P1= MAX( JPS-1, JDS+2 )
174      MYJS2_P2= MAX( JPS-2, JDS+2 )
175      MYJS2_P3= MAX( JPS-3, JDS+2 )
176      MYJS2_P4= MAX( JPS-4, JDS+2 )
177      MYJS2_P5= MAX( JPS-5, JDS+2 )
178!
179      MYJS3   = MAX( JPS-0, JDS+3 )
180      MYJS3_P1= MAX( JPS-1, JDS+3 )
181      MYJS3_P2= MAX( JPS-2, JDS+3 )
182      MYJS3_P3= MAX( JPS-3, JDS+3 )
183      MYJS3_P4= MAX( JPS-4, JDS+3 )
184      MYJS3_P5= MAX( JPS-5, JDS+3 )
185!
186      MYJS4   = MAX( JPS-0, JDS+4 )
187      MYJS4_P1= MAX( JPS-1, JDS+4 )
188      MYJS4_P2= MAX( JPS-2, JDS+4 )
189      MYJS4_P3= MAX( JPS-3, JDS+4 )
190      MYJS4_P4= MAX( JPS-4, JDS+4 )
191      MYJS4_P5= MAX( JPS-5, JDS+4 )
192!
193      MYJS5   = MAX( JPS-0, JDS+5 )
194      MYJS5_P1= MAX( JPS-1, JDS+5 )
195      MYJS5_P2= MAX( JPS-2, JDS+5 )
196      MYJS5_P3= MAX( JPS-3, JDS+5 )
197      MYJS5_P4= MAX( JPS-4, JDS+5 )
198      MYJS5_P5= MAX( JPS-5, JDS+5 )
199!
200!jm
201      MYJE    = MIN( JPE+0, JDE-0 )
202      MYJE_P1 = MIN( JPE+1, JDE-0 )
203      MYJE_P2 = MIN( JPE+2, JDE-0 )
204      MYJE_P3 = MIN( JPE+3, JDE-0 )
205      MYJE_P4 = MIN( JPE+4, JDE-0 )
206      MYJE_P5 = MIN( JPE+5, JDE-0 )
207!
208      MYJE1   = MIN( JPE+0, JDE-1 )
209      MYJE1_P1= MIN( JPE+1, JDE-1 )
210      MYJE1_P2= MIN( JPE+2, JDE-1 )
211      MYJE1_P3= MIN( JPE+3, JDE-1 )
212      MYJE1_P4= MIN( JPE+4, JDE-1 )
213      MYJE1_P5= MIN( JPE+5, JDE-1 )
214!
215      MYJE2   = MIN( JPE+0, JDE-2 )
216      MYJE2_P1= MIN( JPE+1, JDE-2 )
217      MYJE2_P2= MIN( JPE+2, JDE-2 )
218      MYJE2_P3= MIN( JPE+3, JDE-2 )
219      MYJE2_P4= MIN( JPE+4, JDE-2 )
220      MYJE2_P5= MIN( JPE+5, JDE-2 )
221!
222      MYJE3   = MIN( JPE+0, JDE-3 )
223      MYJE3_P1= MIN( JPE+1, JDE-3 )
224      MYJE3_P2= MIN( JPE+2, JDE-3 )
225      MYJE3_P3= MIN( JPE+3, JDE-3 )
226      MYJE3_P4= MIN( JPE+4, JDE-3 )
227      MYJE3_P5= MIN( JPE+5, JDE-3 )
228!
229      MYJE4   = MIN( JPE+0, JDE-4 )
230      MYJE4_P1= MIN( JPE+1, JDE-4 )
231      MYJE4_P2= MIN( JPE+2, JDE-4 )
232      MYJE4_P3= MIN( JPE+3, JDE-4 )
233      MYJE4_P4= MIN( JPE+4, JDE-4 )
234      MYJE4_P5= MIN( JPE+5, JDE-4 )
235!
236      MYJE5   = MIN( JPE+0, JDE-5 )
237      MYJE5_P1= MIN( JPE+1, JDE-5 )
238      MYJE5_P2= MIN( JPE+2, JDE-5 )
239      MYJE5_P3= MIN( JPE+3, JDE-5 )
240      MYJE5_P4= MIN( JPE+4, JDE-5 )
241      MYJE5_P5= MIN( JPE+5, JDE-5 )
242
243!----------------------------------------------------------------------
244      END SUBROUTINE MPPINIT
245!**********************************************************************
246!----------------------------------------------------------------------
247!----------------------------------------------------------------------
248!jm!**********************************************************************
249!jm!----------------------------------------------------------------------
250!jm!
251!jm!**********************************************************************
252!jm      SUBROUTINE GOSSIP(IDS,IDE,JDS,JDE,KDS,KDE                        &
253!jm                       ,IMS,IME,JMS,JME,KMS,KME                        &
254!jm                       ,ITS,ITE,JTS,JTE,KTS,KTE)
255!jm!**********************************************************************
256!jm!$$$  SUBPROGRAM DOCUMENTATION BLOCK
257!jm!                .      .    .
258!jm! SUBPROGRAM:    GOSSIP      EXCHANGE OF FIELDS BETWEEN PROCESSORS
259!jm!   PRGRMMR: BLACK           ORG: W/NP2      DATE: 97-08-30
260!jm!
261!jm! ABSTRACT:
262!jm!     GOSSIP EXCHANGES MANY FIELDS BETWEEN PROCESSORS
263!jm!     IN ORDER TO FILL THE HALOES
264!jm!
265!jm! PROGRAM HISTORY LOG:
266!jm!   97-05-??  MEYS       - ORIGINATOR
267!jm!   98-10-23  BLACK      - MODIFIED FOR CURRENT VERSION OF MODEL
268!jm!   01-03-21  BLACK      - CONVERTED TO WRF FORMAT
269!jm!
270!jm! USAGE: CALL GOSSIP FROM MAIN PROGRAM EBU
271!jm!   INPUT ARGUMENT LIST:
272!jm!       IMS - TASKS'S STARTING I ADDRESS
273!jm!       IME - TASKS'S ENDING I ADDRESS
274!jm!       JMS - TASKS'S STARTING J ADDRESS
275!jm!       JME - TASKS'S ENDING J ADDRESS
276!jm!       KMS - TASKS'S STARTING K ADDRESS
277!jm!       KME - TASKS'S ENDING K ADDRESS
278!jm!
279!jm!   OUTPUT ARGUMENT LIST:
280!jm!     NONE
281!jm!
282!jm!   OUTPUT FILES:
283!jm!     NONE
284!jm!
285!jm!   SUBPROGRAMS CALLED:
286!jm!
287!jm!     UNIQUE: EXCH
288!jm!
289!jm!     LIBRARY: NONE
290!jm!
291!jm! ATTRIBUTES:
292!jm!   LANGUAGE: FORTRAN 90
293!jm!   MACHINE : IBM SP
294!jm!$$$
295!jm!**********************************************************************
296!jm!----------------------------------------------------------------------
297!jm!
298!jm      IMPLICIT NONE
299!jm!
300!jm!----------------------------------------------------------------------
301!jm      INTEGER,INTENT(IN) :: IDS,IDE,JDS,JDE,KDS,KDE                    &
302!jm                           ,IMS,IME,JMS,JME,KMS,KME                    &
303!jm                           ,ITS,ITE,JTS,JTE,KTS,KTE
304!jm!
305!jm      INTEGER :: J
306!jm!----------------------------------------------------------------------
307!jm!**********************************************************************
308!jm!
309!jm!***  THE NHB ARRAYS
310!jm!
311!jm      CALL EXCH(LMH,1,5,5,IMS,IME,JMS,JME,KMS,KME)
312!jm      CALL EXCH(LMV,1,5,5,IMS,IME,JMS,JME,KMS,KME)
313!jm      CALL EXCH(HBM2,1,5,5,IMS,IME,JMS,JME,KMS,KME)
314!jm      CALL EXCH(HBM3,1,5,5,IMS,IME,JMS,JME,KMS,KME)
315!jm      CALL EXCH(VBM2,1,5,5,IMS,IME,JMS,JME,KMS,KME)
316!jm      CALL EXCH(VBM3,1,5,5,IMS,IME,JMS,JME,KMS,KME)
317!jm      CALL EXCH(SM,1,5,5,IMS,IME,JMS,JME,KMS,KME)
318!jm      CALL EXCH(SICE,1,5,5,IMS,IME,JMS,JME,KMS,KME)
319!jm      CALL EXCH(HTM,LM,5,5,IMS,IME,JMS,JME,KMS,KME)
320!jm      CALL EXCH(VTM,LM,5,5,IMS,IME,JMS,JME,KMS,KME)
321!jm      CALL EXCH(DX,1,5,5,IMS,IME,JMS,JME,KMS,KME)
322!jm      CALL EXCH(WPDAR,1,5,5,IMS,IME,JMS,JME,KMS,KME)
323!jm      CALL EXCH(CPGFU,1,5,5,IMS,IME,JMS,JME,KMS,KME)
324!jm      CALL EXCH(CURV,1,5,5,IMS,IME,JMS,JME,KMS,KME)
325!jm      CALL EXCH(FCP,1,5,5,IMS,IME,JMS,JME,KMS,KME)
326!jm      CALL EXCH(FDIV,1,5,5,IMS,IME,JMS,JME,KMS,KME)
327!jm      CALL EXCH(FAD,1,5,5,IMS,IME,JMS,JME,KMS,KME)
328!jm      CALL EXCH(F,1,5,5,IMS,IME,JMS,JME,KMS,KME)
329!jm      CALL EXCH(DDMPU,1,5,5,IMS,IME,JMS,JME,KMS,KME)
330!jm      CALL EXCH(DDMPV,1,5,5,IMS,IME,JMS,JME,KMS,KME)
331!jm      CALL EXCH(GLAT,1,5,5,IMS,IME,JMS,JME,KMS,KME)
332!jm      CALL EXCH(GLON,1,5,5,IMS,IME,JMS,JME,KMS,KME)
333!jm      CALL EXCH(EPSR,1,5,5,IMS,IME,JMS,JME,KMS,KME)
334!jm      CALL EXCH(TG,1,5,5,IMS,IME,JMS,JME,KMS,KME)
335!jm      CALL EXCH(GFFC,1,5,5,IMS,IME,JMS,JME,KMS,KME)
336!jm      CALL EXCH(SST,1,5,5,IMS,IME,JMS,JME,KMS,KME)
337!jm      CALL EXCH(ALBASE,1,5,5,IMS,IME,JMS,JME,KMS,KME)
338!jm      CALL EXCH(HDAC,1,5,5,IMS,IME,JMS,JME,KMS,KME)
339!jm      CALL EXCH(HDACV,1,5,5,IMS,IME,JMS,JME,KMS,KME)
340!jm      CALL EXCH(IVGTYP,1,5,5,IMS,IME,JMS,JME,KMS,KME)
341!jm      CALL EXCH(ISLTYP,1,5,5,IMS,IME,JMS,JME,KMS,KME)
342!jm      CALL EXCH(ISLOPE,1,5,5,IMS,IME,JMS,JME,KMS,KME)
343!jm      CALL EXCH(VEGFRC,1,5,5,IMS,IME,JMS,JME,KMS,KME)
344!jm!
345!jm!***  THE RESTRT FILE ARRAYS
346!jm!
347!jm      CALL EXCH (OMGALF,LM,5,5,IMS,IME,JMS,JME,KMS,KME)
348!jm      CALL EXCH (PD,1,5,5,IMS,IME,JMS,JME,KMS,KME)
349!jm      CALL EXCH (RES,1,5,5,IMS,IME,JMS,JME,KMS,KME)
350!jm      CALL EXCH (FIS,1,5,5,IMS,IME,JMS,JME,KMS,KME)
351!jm      CALL EXCH (T,LM,5,5,IMS,IME,JMS,JME,KMS,KME)
352!jm      CALL EXCH (U,LM,5,5,IMS,IME,JMS,JME,KMS,KME)
353!jm      CALL EXCH (V,LM,5,5,IMS,IME,JMS,JME,KMS,KME)
354!jm      CALL EXCH (Q,LM,5,5,IMS,IME,JMS,JME,KMS,KME)
355!jm      CALL EXCH (Q2,LM,5,5,IMS,IME,JMS,JME,KMS,KME)
356!jm      CALL EXCH (CWM,LM,5,5,IMS,IME,JMS,JME,KMS,KME)
357!jm      CALL EXCH (TRAIN,LM,5,5,IMS,IME,JMS,JME,KMS,KME)
358!jm      CALL EXCH (TCUCN,LM,5,5,IMS,IME,JMS,JME,KMS,KME)
359!jm      CALL EXCH (RSWIN,1,5,5,IMS,IME,JMS,JME,KMS,KME)
360!jm      CALL EXCH (RSWOUT,1,5,5,IMS,IME,JMS,JME,KMS,KME)
361!jm      CALL EXCH (TG,1,5,5,IMS,IME,JMS,JME,KMS,KME)
362!jm      CALL EXCH (Z0,1,5,5,IMS,IME,JMS,JME,KMS,KME)
363!jm      CALL EXCH (AKMS,1,5,5,IMS,IME,JMS,JME,KMS,KME)
364!jm      CALL EXCH (CZEN,1,5,5,IMS,IME,JMS,JME,KMS,KME)
365!jm      CALL EXCH (AKHS,1,5,5,IMS,IME,JMS,JME,KMS,KME)
366!jm      CALL EXCH (THS,1,5,5,IMS,IME,JMS,JME,KMS,KME)
367!jm      CALL EXCH (QS,1,5,5,IMS,IME,JMS,JME,KMS,KME)
368!jm      CALL EXCH (TWBS,1,5,5,IMS,IME,JMS,JME,KMS,KME)
369!jm      CALL EXCH (QWBS,1,5,5,IMS,IME,JMS,JME,KMS,KME)
370!jm      CALL EXCH (HBOT,1,5,5,IMS,IME,JMS,JME,KMS,KME)
371!jm      CALL EXCH (CFRACL,1,5,5,IMS,IME,JMS,JME,KMS,KME)
372!jm      CALL EXCH (THZ0,1,5,5,IMS,IME,JMS,JME,KMS,KME)
373!jm      CALL EXCH (QZ0,1,5,5,IMS,IME,JMS,JME,KMS,KME)
374!jm      CALL EXCH (UZ0,1,5,5,IMS,IME,JMS,JME,KMS,KME)
375!jm      CALL EXCH (VZ0,1,5,5,IMS,IME,JMS,JME,KMS,KME)
376!jm      CALL EXCH (USTAR,1,5,5,IMS,IME,JMS,JME,KMS,KME)
377!jm      CALL EXCH (HTOP,1,5,5,IMS,IME,JMS,JME,KMS,KME)
378!jm      CALL EXCH (CFRACM,1,5,5,IMS,IME,JMS,JME,KMS,KME)
379!jm      CALL EXCH (SNO,1,5,5,IMS,IME,JMS,JME,KMS,KME)
380!jm      CALL EXCH (SI,1,5,5,IMS,IME,JMS,JME,KMS,KME)
381!jm      CALL EXCH (CLDEFI,1,5,5,IMS,IME,JMS,JME,KMS,KME)
382!jm      CALL EXCH (RF,1,5,5,IMS,IME,JMS,JME,KMS,KME)
383!jm      CALL EXCH (CUPPT,1,5,5,IMS,IME,JMS,JME,KMS,KME)
384!jm      CALL EXCH (CFRACH,1,5,5,IMS,IME,JMS,JME,KMS,KME)
385!jm      CALL EXCH (SOILTB,1,5,5,IMS,IME,JMS,JME,KMS,KME)
386!jm      CALL EXCH (SFCEXC,1,5,5,IMS,IME,JMS,JME,KMS,KME)
387!jm      CALL EXCH (SMSTAV,1,5,5,IMS,IME,JMS,JME,KMS,KME)
388!jm      CALL EXCH (SMSTOT,1,5,5,IMS,IME,JMS,JME,KMS,KME)
389!jm      CALL EXCH (GRNFLX,1,5,5,IMS,IME,JMS,JME,KMS,KME)
390!jm      CALL EXCH (PCTSNO,1,5,5,IMS,IME,JMS,JME,KMS,KME)
391!jm      CALL EXCH (RLWIN,1,5,5,IMS,IME,JMS,JME,KMS,KME)
392!jm      CALL EXCH (RADOT,1,5,5,IMS,IME,JMS,JME,KMS,KME)
393!jm      CALL EXCH (CZMEAN,1,5,5,IMS,IME,JMS,JME,KMS,KME)
394!jm      CALL EXCH (SIGT4,1,5,5,IMS,IME,JMS,JME,KMS,KME)
395!jm      CALL EXCH (U00,1,5,5,IMS,IME,JMS,JME,KMS,KME)
396!jm      CALL EXCH (LC,1,5,5,IMS,IME,JMS,JME,KMS,KME)
397!jm      CALL EXCH (SR,1,5,5,IMS,IME,JMS,JME,KMS,KME)
398!jm      CALL EXCH (PREC,1,5,5,IMS,IME,JMS,JME,KMS,KME)
399!jm      CALL EXCH (ACPREC,1,5,5,IMS,IME,JMS,JME,KMS,KME)
400!jm      CALL EXCH (ACCLIQ,1,5,5,IMS,IME,JMS,JME,KMS,KME)
401!jm      CALL EXCH (CUPREC,1,5,5,IMS,IME,JMS,JME,KMS,KME)
402!jm      CALL EXCH (ACFRCV,1,5,5,IMS,IME,JMS,JME,KMS,KME)
403!jm      CALL EXCH (NCFRCV,1,5,5,IMS,IME,JMS,JME,KMS,KME)
404!jm      CALL EXCH (ACFRST,1,5,5,IMS,IME,JMS,JME,KMS,KME)
405!jm      CALL EXCH (NCFRST,1,5,5,IMS,IME,JMS,JME,KMS,KME)
406!jm      CALL EXCH (ACSNOW,1,5,5,IMS,IME,JMS,JME,KMS,KME)
407!jm      CALL EXCH (ACSNOM,1,5,5,IMS,IME,JMS,JME,KMS,KME)
408!jm      CALL EXCH (SSROFF,1,5,5,IMS,IME,JMS,JME,KMS,KME)
409!jm      CALL EXCH (BGROFF,1,5,5,IMS,IME,JMS,JME,KMS,KME)
410!jm      CALL EXCH (SFCSHX,1,5,5,IMS,IME,JMS,JME,KMS,KME)
411!jm      CALL EXCH (SFCLHX,1,5,5,IMS,IME,JMS,JME,KMS,KME)
412!jm      CALL EXCH (SUBSHX,1,5,5,IMS,IME,JMS,JME,KMS,KME)
413!jm      CALL EXCH (SNOPCX,1,5,5,IMS,IME,JMS,JME,KMS,KME)
414!jm      CALL EXCH (SFCUVX,1,5,5,IMS,IME,JMS,JME,KMS,KME)
415!jm      CALL EXCH (SFCEVP,1,5,5,IMS,IME,JMS,JME,KMS,KME)
416!jm      CALL EXCH (POTEVP,1,5,5,IMS,IME,JMS,JME,KMS,KME)
417!jm      CALL EXCH (ASWIN,1,5,5,IMS,IME,JMS,JME,KMS,KME)
418!jm      CALL EXCH (ASWOUT,1,5,5,IMS,IME,JMS,JME,KMS,KME)
419!jm      CALL EXCH (ASWTOA,1,5,5,IMS,IME,JMS,JME,KMS,KME)
420!jm      CALL EXCH (ALWIN,1,5,5,IMS,IME,JMS,JME,KMS,KME)
421!jm      CALL EXCH (ALWOUT,1,5,5,IMS,IME,JMS,JME,KMS,KME)
422!jm      CALL EXCH (ALWTOA,1,5,5,IMS,IME,JMS,JME,KMS,KME)
423!jm      CALL EXCH (SMC,NSOIL,5,5,IMS,IME,JMS,JME,KMS,KME)
424!jm      CALL EXCH (CMC,1,5,5,IMS,IME,JMS,JME,KMS,KME)
425!jm      CALL EXCH (STC,NSOIL,5,5,IMS,IME,JMS,JME,KMS,KME)
426!jm      CALL EXCH (SH2O,NSOIL,5,5,IMS,IME,JMS,JME,KMS,KME)
427!jm      CALL EXCH (ALBEDO,1,5,5,IMS,IME,JMS,JME,KMS,KME)
428!jm!
429!jm      CALL EXCH (PINT,LM+1,5,5,IMS,IME,JMS,JME,KMS,KME)
430!jm      CALL EXCH (Z,LM+1,5,5,IMS,IME,JMS,JME,KMS,KME)
431!jm      CALL EXCH (DWDT,LM,5,5,IMS,IME,JMS,JME,KMS,KME)
432!jm      CALL EXCH (TOLD,LM,5,5,IMS,IME,JMS,JME,KMS,KME)
433!jm      CALL EXCH (UOLD,LM,5,5,IMS,IME,JMS,JME,KMS,KME)
434!jm      CALL EXCH (VOLD,LM,5,5,IMS,IME,JMS,JME,KMS,KME)
435!jm!
436!jm      DO J=MYJS_P4,MYJE_P4
437!jm        IVW(J)=IVWG(J+MY_JS_GLB-1)
438!jm        IVE(J)=IVEG(J+MY_JS_GLB-1)
439!jm        IHE(J)=IHEG(J+MY_JS_GLB-1)
440!jm        IHW(J)=IHWG(J+MY_JS_GLB-1)
441!jm      ENDDO
442!jm!
443!jm!----------------------------------------------------------------------
444!jm      END SUBROUTINE GOSSIP
445!----------------------------------------------------------------------
446      END MODULE MODULE_MPPINIT
447
Note: See TracBrowser for help on using the repository browser.