source: LMDZ6/branches/Optimisation_LMDZ/libf/phylmd/rrtm/yommp.F90 @ 3758

Last change on this file since 3758 was 2010, checked in by Laurent Fairhead, 11 years ago

Modifications pour OpenMP

OpenMP modifications
  • Property copyright set to
    Name of program: LMDZ
    Creation date: 1984
    Version: LMDZ5
    License: CeCILL version 2
    Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
    See the license file in the root directory
File size: 22.6 KB
Line 
1MODULE YOMMP
2
3USE PARKIND1  ,ONLY : JPIM
4
5IMPLICIT NONE
6
7SAVE
8
9! ----------------------------------------------------------------------
10!*    variables describing distributed memory parallelization
11
12! ---------------------------------------
13
14!  mp_type     :  1=blocked   (MPI_SEND/RECV)
15!              :  2=buffered  (MPI_BSEND/MPI_BRECV)
16!              :  3=immediate (MPI_ISEND/MPI_IRECV)
17!  mbx_size    :  user-provided mailbox size
18
19!  myproc      :  logical processor id (is in the range 1 to nproc)
20!  myseta      :  own processor set a (is in the range 1 to nprgpns)
21!  mysetb      :  own processor set b (is in the range 1 to nprgpew)
22!  my_region_ns:  own processor set a (is in the range 1 to n_regions_ns)
23!  my_region_ew:  own processor set b (is in the range 1 to n_regions_ew)
24!  mysetw      :  own processor set a in wave space (1..nprtrw)   
25!  mysetv      :  own processor set b in wave space (1..nprtrv)   
26!  mysetm      :  own processor set a in spectral space (1..nprtrm)   
27!  mysetn      :  own processor set b in spectral space (1..nprtrn)   
28!  mysetaf     :  own processor set a in Fourier space (is in the range
29!                   1 to nprocc)
30!  ngpset2pe   :  grid point space processor mapping array (n_regions_ns,n_regions_ew)
31!  nslpad      :  number of pad words initialised to a huge number at either
32!                 of side of the sl halo, used to trap halo problems.
33!                 The default is 0.
34!  nintype     :  type in input processing to be performed
35!              :  1=pbio
36!              :  2=mpi-io (future)
37!  nouttype    :  type of output (post) processing to be performed
38!              :  1=pbio
39!              :  2=output to FDB
40!              :  3=shared blocking MPI-I/O
41!              :  4=shared blocking collective MPI-I/O
42!              :  5=shared non-blocking MPI_I/O
43!              :  6=shared non-blocking collective MPI_I/O
44!  nstrin      :  number of processors required to perform input processing
45!  nstrout     :  number of processors required to perform output processing
46!  ngathout    :  to be described
47!  nwrtout     :  to be described
48!  nblkout     :  to be described
49!  nfldin      :  number of input  fields to be buffered during distribution
50!  nfldout     :  number of output fields to be buffered during gathering
51!  nprcids(nproc) : array containing the process ids. It is the mapping
52!                 between the process numbering in the application
53!                 (from 1 to NPROC) and the numbering used by the
54!                 underlying communication library.
55
56!  lockio      :  io to be done in locked regions (.true.)
57
58!  lsplit      :  true - latitudes are shared between a-sets
59!                 false - a latitude belongs to only one a-set
60!  leq_regions :  true - use new eq_regions partitioning
61!                 false - use old NPRGPNS x NPRGPEW partitioning
62!  lsplitout   :  output data provided in sequential files (.true.) or
63!                 in directories (.false.)
64!  limp        :  true: immediate message passing in transposition routines
65!  limp_noolap :  true: isend/irecv with no overlap of message passing and
66!                       packing of buffers
67
68INTEGER(KIND=JPIM),ALLOCATABLE:: NPRCIDS(:)
69INTEGER(KIND=JPIM),ALLOCATABLE:: NGPSET2PE(:,:)
70LOGICAL :: LSPLIT
71LOGICAL :: LEQ_REGIONS
72LOGICAL :: LSPLITOUT
73LOGICAL :: LOCKIO
74LOGICAL :: LIMP
75LOGICAL :: LIMP_NOOLAP
76
77INTEGER(KIND=JPIM) :: MP_TYPE
78INTEGER(KIND=JPIM) :: MBX_SIZE
79INTEGER(KIND=JPIM) :: MYPROC
80INTEGER(KIND=JPIM) :: MYSETA
81INTEGER(KIND=JPIM) :: MYSETB
82INTEGER(KIND=JPIM) :: MYSETW
83INTEGER(KIND=JPIM) :: MYSETV
84INTEGER(KIND=JPIM) :: MYSETM
85INTEGER(KIND=JPIM) :: MYSETN
86INTEGER(KIND=JPIM) :: MY_REGION_NS
87INTEGER(KIND=JPIM) :: MY_REGION_EW
88INTEGER(KIND=JPIM) :: NSTRIN
89INTEGER(KIND=JPIM) :: NSTROUT
90INTEGER(KIND=JPIM) :: NFLDIN
91INTEGER(KIND=JPIM) :: NFLDOUT
92INTEGER(KIND=JPIM) :: NSLPAD
93INTEGER(KIND=JPIM) :: NINTYPE
94INTEGER(KIND=JPIM) :: NOUTTYPE
95INTEGER(KIND=JPIM) :: NGATHOUT
96INTEGER(KIND=JPIM) :: NWRTOUT
97INTEGER(KIND=JPIM) :: NBLKOUT
98
99! ----------------------------------------------------------------------
100
101!*    common block describing the partitioning of data
102
103! ----------------------------------------------------
104
105!  nprocm(0:ncmax) :  gives process which is responsible for Legendre
106!             transforms, nmi, and spectral space calculations for a
107!             certain wave number m
108!  numprocfp(nfprgpg) : gives process which is responsible for FULL-POS
109!             horizontal interpolation point. This is only used in
110!             FULL-POS.
111!  numpp(n_regions_ns) : the number of wave numbers each a-set is responsible
112!             for. As aspecial case NUMP = NUMPP(MYSETA).
113!  numxpp(n_regions_ns) : Similar to NUMPP() but for NXMAX.
114!  nallms(0:max(nsmax,nmsmax)) :  wave numbers for all a-set concate-
115!             nated together to give all wave numbers in a-set order.
116!             Used when global spectral norms have to be gathered.
117!  nptrms(n_regions_ns)  :  pointer to the first wave number of a given a-set
118!             in nallms array.
119!  mylats(1:ndgenl) if LMESSP else mylats(ndgsag:ndgeng) : mapping
120!             between physical latitude number and local latitude number
121!             in grid point space on this process. This is identical
122!             for all processes within an a-set
123!  nptrls(n_regions_ns) : pointer to first global latitude of each a-set
124!             for which it performs the Fourier calculations
125!  nptrlsf(n_regions_ns) : pointer to first global latitude of each a-set
126!             for which it performs the Fourier calculations
127!  nfrstlat(n_regions_ns) : first lat of each a-set in grid-point space
128!  nfrstloff: offset for first lat of own a-set in grid-point space,
129!             i.e. nfrstloff=nfrstlat(my_region_ns)-1
130!  nlstlat(n_regions_ns) : last lat of each a-set in grid-point space
131!  nptrfrstlat(n_regions_ns) : pointer to the first latitude of each a-set in
132!             NSTA and NONL arrays
133!  nptrlstlat(n_regions_ns) : pointer to the last latitude of each a-set in
134!             NSTA and NONL arrays
135!  nptrfloff    : offset for pointer to the first latitude of own a-set
136!               NSTA and NONL arrays, i.e. nptrfrstlatf(my_region_ns)-1
137!  nptrlat      : pointer to start of latitude in grid-point space
138!  lsplitlat(ndglg) : true if latitude is split in grid point space
139!              over two a-sets
140!  myfrstactlat : first actual lat on this PE in grid-point space,
141!                 it is nfrstlat(my_region_ns)
142!  mylstactlat  : last actual lat on this PE in grid-point space,
143!                 it is nlstlat(my_region_ns)
144! ------------------------------------------------------------------
145!  nptrsv(nprtrw+1) :  pointer to first spectral wave column to be
146!             handled by each b-set. Used for semi-implicit calculations
147!             and Jb vertical transforms, and only really if nprtrv>1.
148!  nptrcv(nprtrv+1) :  As nptrsv but for ncmax arrays
149!  nptrtv(nprtrv+1) :  As nptrsv but for ntmax arrays
150!  nptrsvf(nprtrv+1) :  As nptrsv but for the case where full m-columns
151!             have to be treated by one processor for the vertical
152!             spectral calculations. This is the case if implicit
153!             treatment of Coriolis terms is used and in other cases.
154!  nptrmf(nprtrv+1)  :  Distribution of m-columns among b-sets used for
155!             the full m-column cases where nptrsvf() is used.
156!  nspstaf(0:nsmax) : pointer to where each m-column starts (used for
157!             the full m-column cases where nptrsvf() is used.
158!  numll(nprtrv+1) :  distribution of levels among b-sets for Legendre
159!             transforms, FFT and horizontal diffusion.
160!             To simplify coding numll(nprtrv+1) is defined to zero.
161!  numvmo(nprtrv) :  number of vertical normal modes on each b-set
162!  numvmojb(nprtrv) : number of vertical normal modes on each b-set for
163!             Jb computations
164!  nptrll(nprtrv+1) :  defines the first level treated on each b-set
165!             To simplify coding nptrll(nprtrv+1)=nptrll(nprtrv)
166!  npsp    :  =1 if surface pressure is handled by this processor for
167!             the Legendre Trasforms and FFT calculations. npsp is
168!             the same for all processors within a b-set.
169!  npsurf(nprtrv)  :  contains the npsp-values for each b-set
170!  nbsetlev(nflevg) :  the b-set on which a level belongs. Please use
171!              global indexing.
172!  nbsetsp :  the b-set on which the surface pressure belongs.
173!  mylevs(nflevl) :  mapping between local and global numbering for the
174!             levels handled by this process.
175!  nvmodist(nvmodmxpp,nprtrv) : normal modes mapped to the different
176!             b-sets. The same distribution strategy is used for NMI and
177!             Jb calculations. The number of modes is usually larger
178!             for Jb caluclations.
179!  nspec2v :  number of spectral columns treated by this process for
180!             semi-implicit calculations and other vertical transforms
181!  ncpec2v :  like nspec2v for NCMAX arrays
182!  ntpec2v :  like nspec2v for NTMAX arrays
183!  nspec2vf:  number of spectral columns treated by this process for
184!             semi-implicit calculations for the full m-column cases.
185!             See nptrsvf().
186!  nsta(ndgsag:ndgeng+n_regions_ns-1,n_regions_ew) :  Position of first grid column
187!             for the latitudes on a processor. The information is
188!             available for all processors. The b-sets are distinguished
189!             by the last dimension of nsta(). The latitude band for
190!             each a-set is addressed by nptrfrstlat(jaset),
191!             nptrlstlat(jaset), and nptrfloff=nptrfrstlat(my_region_ns) on
192!             this processors a-set. Each split latitude has two entries
193!             in nsta(,:) which necessitates the rather complex
194!             addressing of nsta(,:) and the overdimensioning of nsta by
195!             n_regions_ns.
196!  nonl(ndgsag:ndgeng+n_regions_ns-1,n_regions_ew)  :  number of grid columns for
197!             the latitudes on a processor. Similar to nsta() in data
198!             structure.
199!             belong to it in fourier space. Available for all n_regions_ew
200!             processors within this processors a-set.
201!  napsets :  number of apple sets at the poles. Default is zero.
202!  nglobalindex : mapping of local grid points to global grid points
203!               : used for debugging
204!  nglobalproc  : global data structure containing proc distribution
205!                 an ngptotg array that maps owning proc
206!  nlocalindex  : global data structure containing local index
207!                 an ngptotg array that maps the local index into a
208!                 ngptot array for the owning proc
209
210!  -- SLCSET and SLRSET variables (based on NSLWIDE).
211!  naslb1  :  local inner dimension of semi-Lagrangian buffer. It is
212!             the number of columns in the core+halo region on this
213!             processor.
214!  nslprocs   : semi-Lagrangian communication :  number of processors
215!             this processor needs to communicate with.
216!  nslrpt     : the number of columns received from other PE's when
217!             computing the halo for interpolations.
218!  nslspt     : the number of columns sent to other PE's when
219!             computing the halo for interpolations.
220!  nslmpbufsz : size of semi-Lagrangian communication buffer in
221!             slcomm.F. It is sized so the total requirement is kept
222!             below ncombflen.
223!  nslsta(ndgsal-nslwide:ndgenl+nslwide)  :  Start position in semi-
224!             Lagrangian buffer ZSLBUF1 of grid columns for each local
225!             and halo latitude.
226!  nslonl(ndgsal-nslwide:ndgenl+nslwide)  :  number of grid columns on
227!             each local and halo latitude in the semi-Lagrangian
228!             buffer ZSLBUF1. Only used in dm version.
229!  nsloff(ndgsal-nslwide:ndgenl+nslwide)  :  offset to the start of each
230!             local and halo latitude in the semi-Lagrangian buffer
231!             ZSLBUF1. Only used in dm version.
232!  nslext(1-ndlon:ndlon+ndlon,1-nslwide:ndgenl+nslwide) in dm version
233!  and nslext(nslext(0:ndlon+2,ndgsag:ndgeng) in sm version : pointer
234!             that makes sure addressing of points in the east-west
235!             extension zone is correct. It also handles the half
236!             latitude shift of extension latitudes at the poles.
237!             In the sm version this array is just the identity, but
238!             used in order to keep sm and dm code in common.
239!  nslsendpos: the addresses within the semi-Lagrangian buffer of point sent
240!            from this PE.
241!  nslrecvpos: the addresses within the semi-Lagrangian buffer of point
242!            received on this PE.
243!  nsendptr  : pointer to the first point for each of the PE's that has to
244!            receive semi-Lagrangian halo-data from this.
245!            Used for addressing nslsendpos().
246!  nrecvptr  : pointer to the first point for each of the PE's that are sending
247!            semi-Lagrangian halo-data to this PE.
248!            Used for addressing nslrecvpos().
249!  nsendnum(nproc+1) : Pointing at the first semi-Lagrangian
250!            halo data entry this processor is sending to each of the
251!            other processors. The number of columns sent is equal to
252!            nsendnum(irecver+1)-nsendnum(irecver), and might be zero.
253!  nrecvnum(nproc+1) : Pointing at the first semi-Lagrangian
254!            halo data entry this processor is receiving from each of
255!            the other processors. The number of columns received is
256!            equal to nrecvnum(isender+1)-nrecvnum(isender), it might
257!            be zero.
258!  nslcore(ngptot) :  Pointer to this processors core region points
259!            within the semi-Lagrangian buffer
260!  nslcomm(nslprocs)  : semi-Lagrangian communication : list of the
261!             processors this proceesor has to communicate with.
262
263!  -- SUFPCSET and SUFPRSET variables (based on NFPWIDE).
264!  nafpb1      : FULL-POS version of naslb1
265!  nfpprocs    : FULL-POS version of nslprocs
266!  nfpmpbufsz  : FULL-POS version of nslmpbufsz
267!  nfprpt      : FULL-POS version of nslrpt
268!  nfpspt      : FULL-POS version of nslspt
269!  nfpsta      : FULL-POS version of nslsta
270!  nfponl      : FULL-POS version of nslonl
271!  nfpoff      : FULL-POS version of nsloff
272!  nfpext      : FULL-POS version of nslext
273!  nfpsendpos  : FULL-POS version of nslsendpos
274!  nfprecvpos  : FULL-POS version of nslrecvpos
275!  nfpsendptr  : FULL-POS version of nsendptr
276!  nfprecvptr  : FULL-POS version of nrecvptr
277!  nfpcore     : FULL-POS version of nslcore
278!  nfpcomm     : FULL-POS version of nslcomm
279
280!   -- SLCSET variables (based on NOBWIDE)
281!  nobsta      : observation version of nslsta
282!  nobonl      : observation version of nslonl
283!  noboff      : observation version of nsloff
284 
285!  -- SLCSET variables (based on NRIWIDE - model grid).
286!  narib1      : Radiation input version of naslb1
287!  nriprocs    : Radiation input version of nslprocs
288!  nrimpbufsz  : Radiation input version of nslmpbufsz
289!  nrirpt      : Radiation input version of nslrpt
290!  nrispt      : Radiation input version of nslspt
291!  nrista      : Radiation input version of nslsta
292!  nrionl      : Radiation input version of nslonl
293!  nrioff      : Radiation input version of nsloff
294!  nriext      : Radiation input version of nslext
295!  nrisendpos  : Radiation input version of nslsendpos
296!  nrirecvpos  : Radiation input version of nslrecvpos
297!  nrisendptr  : Radiation input version of nsendptr
298!  nrirecvptr  : Radiation input version of nrecvptr
299!  nricore     : Radiation input version of nslcore
300!  nricomm     : Radiation input version of nslcomm
301
302!  -- SLCSET variables (based on NROWIDE - radiation grid).
303!  narob1      : Radiation input version of naslb1
304!  nroprocs    : Radiation input version of nslprocs
305!  nrompbufsz  : Radiation input version of nslmpbufsz
306!  nrorpt      : Radiation input version of nslrpt
307!  nrospt      : Radiation input version of nslspt
308!  nrosta      : Radiation input version of nslsta
309!  nroonl      : Radiation input version of nslonl
310!  nrooff      : Radiation input version of nsloff
311!  nroext      : Radiation input version of nslext
312!  nrosendpos  : Radiation input version of nslsendpos
313!  nrorecvpos  : Radiation input version of nslrecvpos
314!  nrosendptr  : Radiation input version of nsendptr
315!  nrorecvptr  : Radiation input version of nrecvptr
316!  nrocore     : Radiation input version of nslcore
317!  nrocomm     : Radiation input version of nslcomm
318
319! ------------------------------------------------------------------
320
321!  ncombflen : Size of communication buffer. This is the maximum per
322!              processor buffer space (in words) that the IFS should use
323!              for one or more sends before receives are issued from
324!              destination processors.
325
326INTEGER(KIND=JPIM),ALLOCATABLE:: NUMPP(:)
327INTEGER(KIND=JPIM),ALLOCATABLE:: NUMXPP(:)
328INTEGER(KIND=JPIM),ALLOCATABLE:: NPROCM(:)
329INTEGER(KIND=JPIM),ALLOCATABLE:: NUMPROCFP(:)
330INTEGER(KIND=JPIM),ALLOCATABLE:: NPTRMS(:)
331INTEGER(KIND=JPIM),ALLOCATABLE:: NALLMS(:)
332INTEGER(KIND=JPIM),ALLOCATABLE:: NPTRLS(:)
333INTEGER(KIND=JPIM),ALLOCATABLE:: NPTRSV(:)
334INTEGER(KIND=JPIM),ALLOCATABLE:: NPTRCV(:)
335INTEGER(KIND=JPIM),ALLOCATABLE:: NPTRTV(:)
336INTEGER(KIND=JPIM),ALLOCATABLE:: NPTRSVF(:)
337INTEGER(KIND=JPIM),ALLOCATABLE:: NPTRMF(:)
338INTEGER(KIND=JPIM),ALLOCATABLE:: NSPSTAF(:)
339INTEGER(KIND=JPIM),ALLOCATABLE:: NUMLL(:)
340INTEGER(KIND=JPIM),ALLOCATABLE:: NPTRLL(:)
341INTEGER(KIND=JPIM),ALLOCATABLE:: NUMVMO(:)
342INTEGER(KIND=JPIM),ALLOCATABLE:: NUMVMOJB(:)
343INTEGER(KIND=JPIM),ALLOCATABLE:: MYLEVS(:)
344INTEGER(KIND=JPIM),ALLOCATABLE:: NPSURF(:)
345INTEGER(KIND=JPIM),ALLOCATABLE,TARGET :: NSTA(:,:)
346INTEGER(KIND=JPIM),ALLOCATABLE,TARGET :: NONL(:,:)
347INTEGER(KIND=JPIM),ALLOCATABLE,TARGET :: NPTRFRSTLAT(:)
348INTEGER(KIND=JPIM),ALLOCATABLE:: NPTRLSTLAT(:)
349INTEGER(KIND=JPIM),ALLOCATABLE:: NPTRLAT(:)
350INTEGER(KIND=JPIM),ALLOCATABLE,TARGET :: NFRSTLAT(:)
351INTEGER(KIND=JPIM),ALLOCATABLE,TARGET :: NLSTLAT(:)
352INTEGER(KIND=JPIM),ALLOCATABLE:: NBSETLEV(:)
353INTEGER(KIND=JPIM),ALLOCATABLE:: NGLOBALINDEX(:)
354INTEGER(KIND=JPIM),ALLOCATABLE:: NGLOBALPROC(:)
355INTEGER(KIND=JPIM),ALLOCATABLE:: NLOCALINDEX(:)
356
357LOGICAL,ALLOCATABLE:: LSPLITLAT(:)
358
359INTEGER(KIND=JPIM),ALLOCATABLE:: MYLATS(:)
360INTEGER(KIND=JPIM),ALLOCATABLE:: NVMODIST(:,:)
361
362!     -- SLCSET and SLRSET variables (based on NSLWIDE).
363
364INTEGER(KIND=JPIM),ALLOCATABLE:: NSLSTA(:)
365INTEGER(KIND=JPIM),ALLOCATABLE:: NSLONL(:)
366INTEGER(KIND=JPIM),ALLOCATABLE:: NSLOFF(:)
367INTEGER(KIND=JPIM),ALLOCATABLE:: NSLEXT(:,:)
368INTEGER(KIND=JPIM),ALLOCATABLE:: NSLSENDPOS(:)
369INTEGER(KIND=JPIM),ALLOCATABLE:: NSLRECVPOS(:)
370INTEGER(KIND=JPIM),ALLOCATABLE:: NSENDPTR(:)
371INTEGER(KIND=JPIM),ALLOCATABLE:: NRECVPTR(:)
372INTEGER(KIND=JPIM),ALLOCATABLE:: NSLCORE(:)
373INTEGER(KIND=JPIM),ALLOCATABLE:: NSLCOMM(:)
374
375!     -- SUFPCSET and SUFPRSET variables (based on NFPWIDE).
376
377INTEGER(KIND=JPIM),ALLOCATABLE:: NFPSTA(:)
378INTEGER(KIND=JPIM),ALLOCATABLE:: NFPONL(:)
379INTEGER(KIND=JPIM),ALLOCATABLE:: NFPOFF(:)
380INTEGER(KIND=JPIM),ALLOCATABLE:: NFPEXT(:,:)
381INTEGER(KIND=JPIM),ALLOCATABLE:: NFPSENDPOS(:)
382INTEGER(KIND=JPIM),ALLOCATABLE:: NFPRECVPOS(:)
383INTEGER(KIND=JPIM),ALLOCATABLE:: NFPSENDPTR(:)
384INTEGER(KIND=JPIM),ALLOCATABLE:: NFPRECVPTR(:)
385INTEGER(KIND=JPIM),ALLOCATABLE:: NFPCORE(:)
386INTEGER(KIND=JPIM),ALLOCATABLE:: NFPCOMM(:)
387
388!     -- SLCSET variables (based on NOBWIDE)
389
390INTEGER(KIND=JPIM),ALLOCATABLE:: NOBSTA(:)
391INTEGER(KIND=JPIM),ALLOCATABLE:: NOBONL(:)
392INTEGER(KIND=JPIM),ALLOCATABLE:: NOBOFF(:)
393
394!     -- SLCSET variables (based on NRIWIDE).
395
396INTEGER(KIND=JPIM),ALLOCATABLE:: NRISTA(:)
397INTEGER(KIND=JPIM),ALLOCATABLE:: NRIONL(:)
398INTEGER(KIND=JPIM),ALLOCATABLE:: NRIOFF(:)
399INTEGER(KIND=JPIM),ALLOCATABLE:: NRIEXT(:,:)
400INTEGER(KIND=JPIM),ALLOCATABLE:: NRISENDPOS(:)
401INTEGER(KIND=JPIM),ALLOCATABLE:: NRIRECVPOS(:)
402INTEGER(KIND=JPIM),ALLOCATABLE:: NRISENDPTR(:)
403INTEGER(KIND=JPIM),ALLOCATABLE:: NRIRECVPTR(:)
404INTEGER(KIND=JPIM),ALLOCATABLE:: NRICORE(:)
405INTEGER(KIND=JPIM),ALLOCATABLE:: NRICOMM(:)
406
407!     -- SLCSET variables (based on NROWIDE).
408
409INTEGER(KIND=JPIM),ALLOCATABLE:: NROSTA(:)
410INTEGER(KIND=JPIM),ALLOCATABLE:: NROONL(:)
411INTEGER(KIND=JPIM),ALLOCATABLE:: NROOFF(:)
412INTEGER(KIND=JPIM),ALLOCATABLE:: NROEXT(:,:)
413INTEGER(KIND=JPIM),ALLOCATABLE:: NROSENDPOS(:)
414INTEGER(KIND=JPIM),ALLOCATABLE:: NRORECVPOS(:)
415INTEGER(KIND=JPIM),ALLOCATABLE:: NROSENDPTR(:)
416INTEGER(KIND=JPIM),ALLOCATABLE:: NRORECVPTR(:)
417INTEGER(KIND=JPIM),ALLOCATABLE:: NROCORE(:)
418INTEGER(KIND=JPIM),ALLOCATABLE:: NROCOMM(:)
419
420INTEGER(KIND=JPIM) :: NUMXP
421INTEGER(KIND=JPIM) :: NPSP
422INTEGER(KIND=JPIM) :: NSPEC2V
423INTEGER(KIND=JPIM) :: NCPEC2V
424INTEGER(KIND=JPIM) :: NTPEC2V
425INTEGER(KIND=JPIM) :: NSPEC2VF
426INTEGER(KIND=JPIM) :: NBSETSP
427INTEGER(KIND=JPIM) :: NFRSTLOFF
428INTEGER(KIND=JPIM) :: MYFRSTACTLAT
429INTEGER(KIND=JPIM) :: MYLSTACTLAT
430INTEGER(KIND=JPIM) :: NAPSETS
431INTEGER(KIND=JPIM) :: NPTRFLOFF
432INTEGER(KIND=JPIM) :: NCOMBFLEN
433
434!     -- scalar integers depending on NSLWIDE.
435
436INTEGER(KIND=JPIM) :: NASLB1
437INTEGER(KIND=JPIM) :: NSLPROCS
438INTEGER(KIND=JPIM) :: NSLMPBUFSZ
439INTEGER(KIND=JPIM) :: NSLRPT
440INTEGER(KIND=JPIM) :: NSLSPT
441
442!     -- scalar integers depending on NFPWIDE.
443
444INTEGER(KIND=JPIM) :: NAFPB1
445INTEGER(KIND=JPIM) :: NFPPROCS
446INTEGER(KIND=JPIM) :: NFPMPBUFSZ
447INTEGER(KIND=JPIM) :: NFPRPT
448INTEGER(KIND=JPIM) :: NFPSPT
449
450!     -- scalar integers depending on NRIWIDE.
451
452INTEGER(KIND=JPIM) :: NARIB1
453INTEGER(KIND=JPIM) :: NRIPROCS
454INTEGER(KIND=JPIM) :: NRIMPBUFSZ
455INTEGER(KIND=JPIM) :: NRIRPT
456INTEGER(KIND=JPIM) :: NRISPT
457
458!     -- scalar integers depending on NROWIDE.
459
460INTEGER(KIND=JPIM) :: NAROB1
461INTEGER(KIND=JPIM) :: NROPROCS
462INTEGER(KIND=JPIM) :: NROMPBUFSZ
463INTEGER(KIND=JPIM) :: NRORPT
464INTEGER(KIND=JPIM) :: NROSPT
465
466! ----------------------------------------------------------------------
467
468!$OMP THREADPRIVATE(leq_regions,limp,limp_noolap,lockio,lsplit,lsplitout,mbx_size,mp_type,my_region_ew,my_region_ns)
469!$OMP THREADPRIVATE(myfrstactlat,mylstactlat,myproc,myseta,mysetb,mysetm,mysetn,mysetv,mysetw,nafpb1,napsets,narib1)
470!$OMP THREADPRIVATE(narob1,naslb1,nblkout,nbsetsp,ncombflen,ncpec2v,nfldin,nfldout,nfpmpbufsz,nfpprocs,nfprpt,nfpspt)
471!$OMP THREADPRIVATE(nfrstloff,ngathout,nintype,nouttype,npsp,nptrfloff,nrimpbufsz,nriprocs,nrirpt,nrispt,nrompbufsz)
472!$OMP THREADPRIVATE(nroprocs,nrorpt,nrospt,nslmpbufsz,nslpad,nslprocs,nslrpt,nslspt,nspec2v,nspec2vf,nstrin,nstrout)
473!$OMP THREADPRIVATE(ntpec2v,numxp,nwrtout)
474!$OMP THREADPRIVATE(lsplitlat,mylats,mylevs,nallms,nbsetlev,nfpcomm,nfpcore,nfpext,nfpoff,nfponl,nfprecvpos,nfprecvptr)
475!$OMP THREADPRIVATE(nfpsendpos,nfpsendptr,nfpsta,nfrstlat,nglobalindex,nglobalproc,ngpset2pe,nlocalindex,nlstlat,noboff)
476!$OMP THREADPRIVATE(nobonl,nobsta,nonl,nprcids,nprocm,npsurf,nptrcv,nptrfrstlat,nptrlat,nptrll,nptrls,nptrlstlat,nptrmf)
477!$OMP THREADPRIVATE(nptrms,nptrsv,nptrsvf,nptrtv,nrecvptr,nricomm,nricore,nriext,nrioff,nrionl,nrirecvpos,nrirecvptr)
478!$OMP THREADPRIVATE(nrisendpos,nrisendptr,nrista,nrocomm,nrocore,nroext,nrooff,nroonl,nrorecvpos,nrorecvptr,nrosendpos)
479!$OMP THREADPRIVATE(nrosendptr,nrosta,nsendptr,nslcomm,nslcore,nslext,nsloff,nslonl,nslrecvpos,nslsendpos,nslsta)
480!$OMP THREADPRIVATE(nspstaf,nsta,numll,numpp,numprocfp,numvmo,numvmojb,numxpp,nvmodist)
481END MODULE YOMMP
Note: See TracBrowser for help on using the repository browser.