FMS  2024.03
Flexible Modeling System
mpp_comm_nocomm.inc
1 ! -*-f90-*-
2 
3 !***********************************************************************
4 !* GNU Lesser General Public License
5 !*
6 !* This file is part of the GFDL Flexible Modeling System (FMS).
7 !*
8 !* FMS is free software: you can redistribute it and/or modify it under
9 !* the terms of the GNU Lesser General Public License as published by
10 !* the Free Software Foundation, either version 3 of the License, or (at
11 !* your option) any later version.
12 !*
13 !* FMS is distributed in the hope that it will be useful, but WITHOUT
14 !* ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
15 !* FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
16 !* for more details.
17 !*
18 !* You should have received a copy of the GNU Lesser General Public
19 !* License along with FMS. If not, see <http://www.gnu.org/licenses/>.
20 !***********************************************************************
21 !> @file
22 !> @brief Routines to initialize and finalize @ref mpp_mod without MPI.
23 
24 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
25 ! !
26 ! ROUTINES TO INITIALIZE/FINALIZE MPP MODULE: mpp_init, mpp_exit !
27 ! !
28 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
29 !> @brief Initialize the @ref mpp_mod module
30 subroutine mpp_init( flags, localcomm, test_level, alt_input_nml_path )
31  integer, optional, intent(in) :: flags !< Flags for debug output, can be MPP_VERBOSE or MPP_DEBUG
32  integer, optional, intent(in) :: localcomm !< Id of MPI communicator used to initialize
33  integer, optional, intent(in) :: test_level !< Used to exit initialization at certain stages
34  !! before completion for testing purposes
35  character(len=*), optional, intent(in) :: alt_input_nml_path !< Input path for namelist
36  integer :: my_pe, num_pes, len, i, logunit
37  logical :: opened, existed
38  integer :: io_status
39  integer :: t_level
40 
41  if( module_is_initialized )return
42 
43  module_is_initialized = .true.
44  if(present(test_level)) then
45  t_level = test_level
46  else
47  t_level = -1
48  endif
49  if(t_level == 0) return
50 
51  allocate(peset(0:0))
52  !PEsets: make defaults illegal
53  peset(:)%count = -1
54  peset(:)%id = -1
55  peset(:)%group = -1
56  !0=single-PE, initialized so that count returns 1
57  peset(0)%count = 1
58  allocate( peset(0)%list(1) )
59  peset(0)%list = pe
60  current_peset_num = 0
61  peset(0)%id = 0
62  world_peset_num = 0
63  current_peset_num = world_peset_num !initialize current PEset to world
64  if(t_level == 1) return
65 
66  !initialize clocks
67  call system_clock( count=tick0, count_rate=ticks_per_sec, count_max=max_ticks )
68  tick_rate = 1./ticks_per_sec
69  clock0 = mpp_clock_id( 'Total runtime', flags=mpp_clock_sync )
70  if(t_level == 2) return
71 
72  ! Initialize mpp_datatypes
73  ! NOTE: mpp_datatypes is unused in serial mode; this is an empty list
74  datatypes%head => null()
75  datatypes%tail => null()
76  datatypes%length = 0
77 
78  ! Create the bytestream (default) mpp_datatype
79  ! NOTE: mpp_byte is unused in serial mode
80  mpp_byte%counter = -1
81  mpp_byte%ndims = -1
82  allocate(mpp_byte%sizes(0))
83  allocate(mpp_byte%subsizes(0))
84  allocate(mpp_byte%starts(0))
85  mpp_byte%etype = -1
86  mpp_byte%id = -1
87 
88  mpp_byte%prev => null()
89  mpp_byte%next => null()
90 
91  if( PRESENT(flags) )then
92  debug = flags.EQ.mpp_debug
93  verbose = flags.EQ.mpp_verbose .OR. debug
94  end if
95  if(t_level == 3) return
96 
97  call mpp_init_logfile()
98  if (present(alt_input_nml_path)) then
99  call read_input_nml(alt_input_nml_path=alt_input_nml_path)
100  else
101  call read_input_nml
102  end if
103  if(t_level == 4) return
104 
105  !--- read namelist
106  read (input_nml_file, mpp_nml, iostat=io_status)
107  if (io_status > 0) then
108  call mpp_error(fatal,'=>mpp_init: Error reading mpp_nml')
109  endif
110  if(t_level == 5) return
111 
112 ! non-root pe messages written to other location than stdout()
113  if (trim(etcfile) /= '/dev/null') then
114  write( etcfile,'(a,i6.6)' )trim(etcfile)//'.', pe
115  endif
116  inquire(file=etcfile, exist=existed)
117  if(existed) then
118  open( newunit=etc_unit, file=trim(etcfile), status='REPLACE' )
119  else
120  open( newunit=etc_unit, file=trim(etcfile) )
121  endif
122 
123  !messages
124  if( verbose )call mpp_error( note, 'MPP_INIT: initializing MPP module...' )
125  if( pe.EQ.root_pe )then
126  logunit = stdlog()
127  write( logunit,'(/a)' )'MPP module '//trim(version)
128  write( logunit,'(a,i6)' )'MPP started with NPES=', npes
129  write( logunit,'(a)' )'Using no library for message passing...'
130  write( logunit, '(a26,es12.4,a6,i10,a11)' ) &
131  'Realtime clock resolution=', tick_rate, ' sec (', ticks_per_sec, ' ticks/sec)'
132  write( logunit, '(a23,es12.4,a6,i20,a7)' ) &
133  'Clock rolls over after ', max_ticks*tick_rate, ' sec (', max_ticks, ' ticks)'
134  end if
135 
136  call mpp_clock_begin(clock0)
137 
138  return
139 end subroutine mpp_init
140 
141 !#######################################################################
142 !> @brief To be called at the end of a run
143 subroutine mpp_exit()
144  integer :: i, j, k, n, nmax, istat, out_unit
145  real :: t, tmin, tmax, tavg, tstd
146  real :: m, mmin, mmax, mavg, mstd, t_total
147  logical :: opened
148 
149  if( .NOT.module_is_initialized )return
150  call mpp_set_current_pelist()
151  call mpp_clock_end(clock0)
152  t_total = clocks(clock0)%total_ticks*tick_rate
153  out_unit = stdout()
154  if( clock_num.GT.0 )then
155  if( any(clocks(1:clock_num)%detailed) )then
156  call sum_clock_data; call dump_clock_summary
157  end if
158  if( pe.EQ.root_pe )then
159  write( out_unit,'(/a,i6,a)' ) 'Tabulating mpp_clock statistics across ', npes, ' PEs...'
160  if( any(clocks(1:clock_num)%detailed) ) &
161  write( out_unit,'(a)' )' ... see mpp_clock.out.#### for details on individual PEs.'
162  write( out_unit,'(/32x,a)' ) &
163  & ' hits tmin tmax tavg tstd tfrac grain pemin pemax'
164  else
165  write( out_unit,'(/37x,a)' ) 'time'
166  end if
167  call flush( out_unit )
168  call mpp_sync()
169  do i = 1,clock_num
170  if( .NOT.any(peset(clocks(i)%peset_num)%list(:).EQ.pe) )cycle
171  call mpp_set_current_pelist( peset(clocks(i)%peset_num)%list )
172  !times between mpp_clock ticks
173  t = clocks(i)%total_ticks*tick_rate
174  tmin = t; call mpp_min(tmin)
175  tmax = t; call mpp_max(tmax)
176  tavg = t; call mpp_sum(tavg); tavg = tavg/mpp_npes()
177  tstd = (t-tavg)**2; call mpp_sum(tstd); tstd = sqrt( tstd/mpp_npes() )
178  if( pe.EQ.root_pe )write( out_unit,'(a32,i10,4f14.6,f7.3,3i6)' ) &
179  clocks(i)%name, clocks(i)%hits, tmin, tmax, tavg, tstd, tavg/t_total, &
180  clocks(i)%grain, minval(peset(clocks(i)%peset_num)%list), &
181  maxval(peset(clocks(i)%peset_num)%list)
182  if (pe.NE.root_pe) write(out_unit,'(a32,f14.6)') clocks(i)%name, clocks(i)%total_ticks*tick_rate
183  end do
184  if( any(clocks(1:clock_num)%detailed) .AND. pe.EQ.root_pe )write( out_unit,'(/32x,a)' ) &
185  ' tmin tmax tavg tstd mmin mmax mavg mstd mavg/tavg'
186 
187  do i = 1,clock_num
188  !messages: bytelengths and times
189  if( .NOT.clocks(i)%detailed )cycle
190  do j = 1,max_event_types
191  n = clocks(i)%events(j)%calls; nmax = n
192  call mpp_max(nmax)
193  if( nmax.NE.0 )then
194  !don't divide by n because n might be 0
195  m = 0
196  if( n.GT.0 )m = sum(clocks(i)%events(j)%bytes(1:n))
197  mmin = m; call mpp_min(mmin)
198  mmax = m; call mpp_max(mmax)
199  mavg = m; call mpp_sum(mavg); mavg = mavg/mpp_npes()
200  mstd = (m-mavg)**2; call mpp_sum(mstd); mstd = sqrt( mstd/mpp_npes() )
201  t = 0
202  if( n.GT.0 )t = sum(clocks(i)%events(j)%ticks(1:n))*tick_rate
203  tmin = t; call mpp_min(tmin)
204  tmax = t; call mpp_max(tmax)
205  tavg = t; call mpp_sum(tavg); tavg = tavg/mpp_npes()
206  tstd = (t-tavg)**2; call mpp_sum(tstd); tstd = sqrt( tstd/mpp_npes() )
207  if( pe.EQ.root_pe )write( out_unit,'(a32,4f11.3,5es11.3)' ) &
208  trim(clocks(i)%name)//' '//trim(clocks(i)%events(j)%name), &
209  tmin, tmax, tavg, tstd, mmin, mmax, mavg, mstd, mavg/tavg
210  end if
211  end do
212  end do
213  end if
214 
215  inquire(unit=etc_unit, opened=opened)
216  if (opened) then
217  call flush (etc_unit)
218  close(etc_unit)
219  endif
220 
221  call mpp_set_current_pelist()
222  call mpp_sync()
223  call mpp_max(mpp_stack_hwm)
224  if( pe.EQ.root_pe )write( out_unit,* )'MPP_STACK high water mark=', mpp_stack_hwm
225 
226  return
227 end subroutine mpp_exit
228 
229 !#######################################################################
230  !> Set the mpp_stack variable to be at least n LONG words long
231  subroutine mpp_set_stack_size(n)
232  integer, intent(in) :: n
233  character(len=8) :: text
234 
235  if( n.GT.mpp_stack_size .AND. allocated(mpp_stack) )deallocate(mpp_stack)
236  if( .NOT.allocated(mpp_stack) )then
237  allocate( mpp_stack(n) )
238  mpp_stack_size = n
239  end if
240 
241  write( text,'(i8)' )n
242  if( pe.EQ.root_pe )call mpp_error( note, 'MPP_SET_STACK_SIZE: stack size set to '//text//'.' )
243 
244  return
245  end subroutine mpp_set_stack_size
246 
247  subroutine mpp_broadcast_char(char_data, length, from_pe, pelist )
248  character(len=*), intent(inout) :: char_data(:)
249  integer, intent(in) :: length, from_pe
250  integer, intent(in), optional :: pelist(:)
251 
252  if( .NOT.module_is_initialized )call mpp_error( fatal, 'mpp_broadcast_text: You must first call mpp_init.' )
253  return
254  end subroutine mpp_broadcast_char
255 
256 
257 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
258 ! !
259 ! BASIC MESSAGE PASSING ROUTINE: mpp_transmit !
260 ! !
261 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
262 
263 ! set init value for mpp_type
264 #define MPP_TYPE_INIT_VALUE 0.
265 
266 #undef MPP_TRANSMIT_
267 #define MPP_TRANSMIT_ mpp_transmit_real8
268 #undef MPP_TRANSMIT_SCALAR_
269 #define MPP_TRANSMIT_SCALAR_ mpp_transmit_real8_scalar
270 #undef MPP_TRANSMIT_2D_
271 #define MPP_TRANSMIT_2D_ mpp_transmit_real8_2d
272 #undef MPP_TRANSMIT_3D_
273 #define MPP_TRANSMIT_3D_ mpp_transmit_real8_3d
274 #undef MPP_TRANSMIT_4D_
275 #define MPP_TRANSMIT_4D_ mpp_transmit_real8_4d
276 #undef MPP_TRANSMIT_5D_
277 #define MPP_TRANSMIT_5D_ mpp_transmit_real8_5d
278 #undef MPP_RECV_
279 #define MPP_RECV_ mpp_recv_real8
280 #undef MPP_RECV_SCALAR_
281 #define MPP_RECV_SCALAR_ mpp_recv_real8_scalar
282 #undef MPP_RECV_2D_
283 #define MPP_RECV_2D_ mpp_recv_real8_2d
284 #undef MPP_RECV_3D_
285 #define MPP_RECV_3D_ mpp_recv_real8_3d
286 #undef MPP_RECV_4D_
287 #define MPP_RECV_4D_ mpp_recv_real8_4d
288 #undef MPP_RECV_5D_
289 #define MPP_RECV_5D_ mpp_recv_real8_5d
290 #undef MPP_SEND_
291 #define MPP_SEND_ mpp_send_real8
292 #undef MPP_SEND_SCALAR_
293 #define MPP_SEND_SCALAR_ mpp_send_real8_scalar
294 #undef MPP_SEND_2D_
295 #define MPP_SEND_2D_ mpp_send_real8_2d
296 #undef MPP_SEND_3D_
297 #define MPP_SEND_3D_ mpp_send_real8_3d
298 #undef MPP_SEND_4D_
299 #define MPP_SEND_4D_ mpp_send_real8_4d
300 #undef MPP_SEND_5D_
301 #define MPP_SEND_5D_ mpp_send_real8_5d
302 #undef MPP_BROADCAST_
303 #define MPP_BROADCAST_ mpp_broadcast_real8
304 #undef MPP_BROADCAST_SCALAR_
305 #define MPP_BROADCAST_SCALAR_ mpp_broadcast_real8_scalar
306 #undef MPP_BROADCAST_2D_
307 #define MPP_BROADCAST_2D_ mpp_broadcast_real8_2d
308 #undef MPP_BROADCAST_3D_
309 #define MPP_BROADCAST_3D_ mpp_broadcast_real8_3d
310 #undef MPP_BROADCAST_4D_
311 #define MPP_BROADCAST_4D_ mpp_broadcast_real8_4d
312 #undef MPP_BROADCAST_5D_
313 #define MPP_BROADCAST_5D_ mpp_broadcast_real8_5d
314 #undef MPP_TYPE_
315 #define MPP_TYPE_ real(r8_kind)
316 #undef MPP_TYPE_BYTELEN_
317 #define MPP_TYPE_BYTELEN_ 8
318 #undef MPI_TYPE_
319 #define MPI_TYPE_ MPI_REAL8
320 #include <mpp_transmit_nocomm.fh>
321 
322 #ifdef OVERLOAD_C8
323 #undef MPP_TRANSMIT_
324 #define MPP_TRANSMIT_ mpp_transmit_cmplx8
325 #undef MPP_TRANSMIT_SCALAR_
326 #define MPP_TRANSMIT_SCALAR_ mpp_transmit_cmplx8_scalar
327 #undef MPP_TRANSMIT_2D_
328 #define MPP_TRANSMIT_2D_ mpp_transmit_cmplx8_2d
329 #undef MPP_TRANSMIT_3D_
330 #define MPP_TRANSMIT_3D_ mpp_transmit_cmplx8_3d
331 #undef MPP_TRANSMIT_4D_
332 #define MPP_TRANSMIT_4D_ mpp_transmit_cmplx8_4d
333 #undef MPP_TRANSMIT_5D_
334 #define MPP_TRANSMIT_5D_ mpp_transmit_cmplx8_5d
335 #undef MPP_RECV_
336 #define MPP_RECV_ mpp_recv_cmplx8
337 #undef MPP_RECV_SCALAR_
338 #define MPP_RECV_SCALAR_ mpp_recv_cmplx8_scalar
339 #undef MPP_RECV_2D_
340 #define MPP_RECV_2D_ mpp_recv_cmplx8_2d
341 #undef MPP_RECV_3D_
342 #define MPP_RECV_3D_ mpp_recv_cmplx8_3d
343 #undef MPP_RECV_4D_
344 #define MPP_RECV_4D_ mpp_recv_cmplx8_4d
345 #undef MPP_RECV_5D_
346 #define MPP_RECV_5D_ mpp_recv_cmplx8_5d
347 #undef MPP_SEND_
348 #define MPP_SEND_ mpp_send_cmplx8
349 #undef MPP_SEND_SCALAR_
350 #define MPP_SEND_SCALAR_ mpp_send_cmplx8_scalar
351 #undef MPP_SEND_2D_
352 #define MPP_SEND_2D_ mpp_send_cmplx8_2d
353 #undef MPP_SEND_3D_
354 #define MPP_SEND_3D_ mpp_send_cmplx8_3d
355 #undef MPP_SEND_4D_
356 #define MPP_SEND_4D_ mpp_send_cmplx8_4d
357 #undef MPP_SEND_5D_
358 #define MPP_SEND_5D_ mpp_send_cmplx8_5d
359 #undef MPP_BROADCAST_
360 #define MPP_BROADCAST_ mpp_broadcast_cmplx8
361 #undef MPP_BROADCAST_SCALAR_
362 #define MPP_BROADCAST_SCALAR_ mpp_broadcast_cmplx8_scalar
363 #undef MPP_BROADCAST_2D_
364 #define MPP_BROADCAST_2D_ mpp_broadcast_cmplx8_2d
365 #undef MPP_BROADCAST_3D_
366 #define MPP_BROADCAST_3D_ mpp_broadcast_cmplx8_3d
367 #undef MPP_BROADCAST_4D_
368 #define MPP_BROADCAST_4D_ mpp_broadcast_cmplx8_4d
369 #undef MPP_BROADCAST_5D_
370 #define MPP_BROADCAST_5D_ mpp_broadcast_cmplx8_5d
371 #undef MPP_TYPE_
372 #define MPP_TYPE_ complex(c8_kind)
373 #undef MPP_TYPE_BYTELEN_
374 #define MPP_TYPE_BYTELEN_ 16
375 #undef MPI_TYPE_
376 #define MPI_TYPE_ MPI_DOUBLE_COMPLEX
377 #include <mpp_transmit_nocomm.fh>
378 #endif
379 
380 #undef MPP_TRANSMIT_
381 #define MPP_TRANSMIT_ mpp_transmit_real4
382 #undef MPP_TRANSMIT_SCALAR_
383 #define MPP_TRANSMIT_SCALAR_ mpp_transmit_real4_scalar
384 #undef MPP_TRANSMIT_2D_
385 #define MPP_TRANSMIT_2D_ mpp_transmit_real4_2d
386 #undef MPP_TRANSMIT_3D_
387 #define MPP_TRANSMIT_3D_ mpp_transmit_real4_3d
388 #undef MPP_TRANSMIT_4D_
389 #define MPP_TRANSMIT_4D_ mpp_transmit_real4_4d
390 #undef MPP_TRANSMIT_5D_
391 #define MPP_TRANSMIT_5D_ mpp_transmit_real4_5d
392 #undef MPP_RECV_
393 #define MPP_RECV_ mpp_recv_real4
394 #undef MPP_RECV_SCALAR_
395 #define MPP_RECV_SCALAR_ mpp_recv_real4_scalar
396 #undef MPP_RECV_2D_
397 #define MPP_RECV_2D_ mpp_recv_real4_2d
398 #undef MPP_RECV_3D_
399 #define MPP_RECV_3D_ mpp_recv_real4_3d
400 #undef MPP_RECV_4D_
401 #define MPP_RECV_4D_ mpp_recv_real4_4d
402 #undef MPP_RECV_5D_
403 #define MPP_RECV_5D_ mpp_recv_real4_5d
404 #undef MPP_SEND_
405 #define MPP_SEND_ mpp_send_real4
406 #undef MPP_SEND_SCALAR_
407 #define MPP_SEND_SCALAR_ mpp_send_real4_scalar
408 #undef MPP_SEND_2D_
409 #define MPP_SEND_2D_ mpp_send_real4_2d
410 #undef MPP_SEND_3D_
411 #define MPP_SEND_3D_ mpp_send_real4_3d
412 #undef MPP_SEND_4D_
413 #define MPP_SEND_4D_ mpp_send_real4_4d
414 #undef MPP_SEND_5D_
415 #define MPP_SEND_5D_ mpp_send_real4_5d
416 #undef MPP_BROADCAST_
417 #define MPP_BROADCAST_ mpp_broadcast_real4
418 #undef MPP_BROADCAST_SCALAR_
419 #define MPP_BROADCAST_SCALAR_ mpp_broadcast_real4_scalar
420 #undef MPP_BROADCAST_2D_
421 #define MPP_BROADCAST_2D_ mpp_broadcast_real4_2d
422 #undef MPP_BROADCAST_3D_
423 #define MPP_BROADCAST_3D_ mpp_broadcast_real4_3d
424 #undef MPP_BROADCAST_4D_
425 #define MPP_BROADCAST_4D_ mpp_broadcast_real4_4d
426 #undef MPP_BROADCAST_5D_
427 #define MPP_BROADCAST_5D_ mpp_broadcast_real4_5d
428 #undef MPP_TYPE_
429 #define MPP_TYPE_ real(r4_kind)
430 #undef MPP_TYPE_BYTELEN_
431 #define MPP_TYPE_BYTELEN_ 4
432 #undef MPI_TYPE_
433 #define MPI_TYPE_ MPI_REAL4
434 #include <mpp_transmit_nocomm.fh>
435 
436 #ifdef OVERLOAD_C4
437 #undef MPP_TRANSMIT_
438 #define MPP_TRANSMIT_ mpp_transmit_cmplx4
439 #undef MPP_TRANSMIT_SCALAR_
440 #define MPP_TRANSMIT_SCALAR_ mpp_transmit_cmplx4_scalar
441 #undef MPP_TRANSMIT_2D_
442 #define MPP_TRANSMIT_2D_ mpp_transmit_cmplx4_2d
443 #undef MPP_TRANSMIT_3D_
444 #define MPP_TRANSMIT_3D_ mpp_transmit_cmplx4_3d
445 #undef MPP_TRANSMIT_4D_
446 #define MPP_TRANSMIT_4D_ mpp_transmit_cmplx4_4d
447 #undef MPP_TRANSMIT_5D_
448 #define MPP_TRANSMIT_5D_ mpp_transmit_cmplx4_5d
449 #undef MPP_RECV_
450 #define MPP_RECV_ mpp_recv_cmplx4
451 #undef MPP_RECV_SCALAR_
452 #define MPP_RECV_SCALAR_ mpp_recv_cmplx4_scalar
453 #undef MPP_RECV_2D_
454 #define MPP_RECV_2D_ mpp_recv_cmplx4_2d
455 #undef MPP_RECV_3D_
456 #define MPP_RECV_3D_ mpp_recv_cmplx4_3d
457 #undef MPP_RECV_4D_
458 #define MPP_RECV_4D_ mpp_recv_cmplx4_4d
459 #undef MPP_RECV_5D_
460 #define MPP_RECV_5D_ mpp_recv_cmplx4_5d
461 #undef MPP_SEND_
462 #define MPP_SEND_ mpp_send_cmplx4
463 #undef MPP_SEND_SCALAR_
464 #define MPP_SEND_SCALAR_ mpp_send_cmplx4_scalar
465 #undef MPP_SEND_2D_
466 #define MPP_SEND_2D_ mpp_send_cmplx4_2d
467 #undef MPP_SEND_3D_
468 #define MPP_SEND_3D_ mpp_send_cmplx4_3d
469 #undef MPP_SEND_4D_
470 #define MPP_SEND_4D_ mpp_send_cmplx4_4d
471 #undef MPP_SEND_5D_
472 #define MPP_SEND_5D_ mpp_send_cmplx4_5d
473 #undef MPP_BROADCAST_
474 #define MPP_BROADCAST_ mpp_broadcast_cmplx4
475 #undef MPP_BROADCAST_SCALAR_
476 #define MPP_BROADCAST_SCALAR_ mpp_broadcast_cmplx4_scalar
477 #undef MPP_BROADCAST_2D_
478 #define MPP_BROADCAST_2D_ mpp_broadcast_cmplx4_2d
479 #undef MPP_BROADCAST_3D_
480 #define MPP_BROADCAST_3D_ mpp_broadcast_cmplx4_3d
481 #undef MPP_BROADCAST_4D_
482 #define MPP_BROADCAST_4D_ mpp_broadcast_cmplx4_4d
483 #undef MPP_BROADCAST_5D_
484 #define MPP_BROADCAST_5D_ mpp_broadcast_cmplx4_5d
485 #undef MPP_TYPE_
486 #define MPP_TYPE_ complex(c4_kind)
487 #undef MPP_TYPE_BYTELEN_
488 #define MPP_TYPE_BYTELEN_ 8
489 #undef MPI_TYPE_
490 #define MPI_TYPE_ MPI_COMPLEX
491 #include <mpp_transmit_nocomm.fh>
492 #endif
493 
494 #undef MPP_TYPE_INIT_VALUE
495 #define MPP_TYPE_INIT_VALUE 0
496 #undef MPP_TRANSMIT_
497 #define MPP_TRANSMIT_ mpp_transmit_int8
498 #undef MPP_TRANSMIT_SCALAR_
499 #define MPP_TRANSMIT_SCALAR_ mpp_transmit_int8_scalar
500 #undef MPP_TRANSMIT_2D_
501 #define MPP_TRANSMIT_2D_ mpp_transmit_int8_2d
502 #undef MPP_TRANSMIT_3D_
503 #define MPP_TRANSMIT_3D_ mpp_transmit_int8_3d
504 #undef MPP_TRANSMIT_4D_
505 #define MPP_TRANSMIT_4D_ mpp_transmit_int8_4d
506 #undef MPP_TRANSMIT_5D_
507 #define MPP_TRANSMIT_5D_ mpp_transmit_int8_5d
508 #undef MPP_RECV_
509 #define MPP_RECV_ mpp_recv_int8
510 #undef MPP_RECV_SCALAR_
511 #define MPP_RECV_SCALAR_ mpp_recv_int8_scalar
512 #undef MPP_RECV_2D_
513 #define MPP_RECV_2D_ mpp_recv_int8_2d
514 #undef MPP_RECV_3D_
515 #define MPP_RECV_3D_ mpp_recv_int8_3d
516 #undef MPP_RECV_4D_
517 #define MPP_RECV_4D_ mpp_recv_int8_4d
518 #undef MPP_RECV_5D_
519 #define MPP_RECV_5D_ mpp_recv_int8_5d
520 #undef MPP_SEND_
521 #define MPP_SEND_ mpp_send_int8
522 #undef MPP_SEND_SCALAR_
523 #define MPP_SEND_SCALAR_ mpp_send_int8_scalar
524 #undef MPP_SEND_2D_
525 #define MPP_SEND_2D_ mpp_send_int8_2d
526 #undef MPP_SEND_3D_
527 #define MPP_SEND_3D_ mpp_send_int8_3d
528 #undef MPP_SEND_4D_
529 #define MPP_SEND_4D_ mpp_send_int8_4d
530 #undef MPP_SEND_5D_
531 #define MPP_SEND_5D_ mpp_send_int8_5d
532 #undef MPP_BROADCAST_
533 #define MPP_BROADCAST_ mpp_broadcast_int8
534 #undef MPP_BROADCAST_SCALAR_
535 #define MPP_BROADCAST_SCALAR_ mpp_broadcast_int8_scalar
536 #undef MPP_BROADCAST_2D_
537 #define MPP_BROADCAST_2D_ mpp_broadcast_int8_2d
538 #undef MPP_BROADCAST_3D_
539 #define MPP_BROADCAST_3D_ mpp_broadcast_int8_3d
540 #undef MPP_BROADCAST_4D_
541 #define MPP_BROADCAST_4D_ mpp_broadcast_int8_4d
542 #undef MPP_BROADCAST_5D_
543 #define MPP_BROADCAST_5D_ mpp_broadcast_int8_5d
544 #undef MPP_TYPE_
545 #define MPP_TYPE_ integer(i8_kind)
546 #undef MPP_TYPE_BYTELEN_
547 #define MPP_TYPE_BYTELEN_ 8
548 #undef MPI_TYPE_
549 #define MPI_TYPE_ MPI_INTEGER8
550 #include <mpp_transmit_nocomm.fh>
551 
552 #undef MPP_TRANSMIT_
553 #define MPP_TRANSMIT_ mpp_transmit_int4
554 #undef MPP_TRANSMIT_SCALAR_
555 #define MPP_TRANSMIT_SCALAR_ mpp_transmit_int4_scalar
556 #undef MPP_TRANSMIT_2D_
557 #define MPP_TRANSMIT_2D_ mpp_transmit_int4_2d
558 #undef MPP_TRANSMIT_3D_
559 #define MPP_TRANSMIT_3D_ mpp_transmit_int4_3d
560 #undef MPP_TRANSMIT_4D_
561 #define MPP_TRANSMIT_4D_ mpp_transmit_int4_4d
562 #undef MPP_TRANSMIT_5D_
563 #define MPP_TRANSMIT_5D_ mpp_transmit_int4_5d
564 #undef MPP_RECV_
565 #define MPP_RECV_ mpp_recv_int4
566 #undef MPP_RECV_SCALAR_
567 #define MPP_RECV_SCALAR_ mpp_recv_int4_scalar
568 #undef MPP_RECV_2D_
569 #define MPP_RECV_2D_ mpp_recv_int4_2d
570 #undef MPP_RECV_3D_
571 #define MPP_RECV_3D_ mpp_recv_int4_3d
572 #undef MPP_RECV_4D_
573 #define MPP_RECV_4D_ mpp_recv_int4_4d
574 #undef MPP_RECV_5D_
575 #define MPP_RECV_5D_ mpp_recv_int4_5d
576 #undef MPP_SEND_
577 #define MPP_SEND_ mpp_send_int4
578 #undef MPP_SEND_SCALAR_
579 #define MPP_SEND_SCALAR_ mpp_send_int4_scalar
580 #undef MPP_SEND_2D_
581 #define MPP_SEND_2D_ mpp_send_int4_2d
582 #undef MPP_SEND_3D_
583 #define MPP_SEND_3D_ mpp_send_int4_3d
584 #undef MPP_SEND_4D_
585 #define MPP_SEND_4D_ mpp_send_int4_4d
586 #undef MPP_SEND_5D_
587 #define MPP_SEND_5D_ mpp_send_int4_5d
588 #undef MPP_BROADCAST_
589 #define MPP_BROADCAST_ mpp_broadcast_int4
590 #undef MPP_BROADCAST_SCALAR_
591 #define MPP_BROADCAST_SCALAR_ mpp_broadcast_int4_scalar
592 #undef MPP_BROADCAST_2D_
593 #define MPP_BROADCAST_2D_ mpp_broadcast_int4_2d
594 #undef MPP_BROADCAST_3D_
595 #define MPP_BROADCAST_3D_ mpp_broadcast_int4_3d
596 #undef MPP_BROADCAST_4D_
597 #define MPP_BROADCAST_4D_ mpp_broadcast_int4_4d
598 #undef MPP_BROADCAST_5D_
599 #define MPP_BROADCAST_5D_ mpp_broadcast_int4_5d
600 #undef MPP_TYPE_
601 #define MPP_TYPE_ integer(i4_kind)
602 #undef MPP_TYPE_BYTELEN_
603 #define MPP_TYPE_BYTELEN_ 4
604 #undef MPI_TYPE_
605 #define MPI_TYPE_ MPI_INTEGER4
606 #include <mpp_transmit_nocomm.fh>
607 
608 #undef MPP_TYPE_INIT_VALUE
609 #define MPP_TYPE_INIT_VALUE .false.
610 #undef MPP_TRANSMIT_
611 #define MPP_TRANSMIT_ mpp_transmit_logical8
612 #undef MPP_TRANSMIT_SCALAR_
613 #define MPP_TRANSMIT_SCALAR_ mpp_transmit_logical8_scalar
614 #undef MPP_TRANSMIT_2D_
615 #define MPP_TRANSMIT_2D_ mpp_transmit_logical8_2d
616 #undef MPP_TRANSMIT_3D_
617 #define MPP_TRANSMIT_3D_ mpp_transmit_logical8_3d
618 #undef MPP_TRANSMIT_4D_
619 #define MPP_TRANSMIT_4D_ mpp_transmit_logical8_4d
620 #undef MPP_TRANSMIT_5D_
621 #define MPP_TRANSMIT_5D_ mpp_transmit_logical8_5d
622 #undef MPP_RECV_
623 #define MPP_RECV_ mpp_recv_logical8
624 #undef MPP_RECV_SCALAR_
625 #define MPP_RECV_SCALAR_ mpp_recv_logical8_scalar
626 #undef MPP_RECV_2D_
627 #define MPP_RECV_2D_ mpp_recv_logical8_2d
628 #undef MPP_RECV_3D_
629 #define MPP_RECV_3D_ mpp_recv_logical8_3d
630 #undef MPP_RECV_4D_
631 #define MPP_RECV_4D_ mpp_recv_logical8_4d
632 #undef MPP_RECV_5D_
633 #define MPP_RECV_5D_ mpp_recv_logical8_5d
634 #undef MPP_SEND_
635 #define MPP_SEND_ mpp_send_logical8
636 #undef MPP_SEND_SCALAR_
637 #define MPP_SEND_SCALAR_ mpp_send_logical8_scalar
638 #undef MPP_SEND_2D_
639 #define MPP_SEND_2D_ mpp_send_logical8_2d
640 #undef MPP_SEND_3D_
641 #define MPP_SEND_3D_ mpp_send_logical8_3d
642 #undef MPP_SEND_4D_
643 #define MPP_SEND_4D_ mpp_send_logical8_4d
644 #undef MPP_SEND_5D_
645 #define MPP_SEND_5D_ mpp_send_logical8_5d
646 #undef MPP_BROADCAST_
647 #define MPP_BROADCAST_ mpp_broadcast_logical8
648 #undef MPP_BROADCAST_SCALAR_
649 #define MPP_BROADCAST_SCALAR_ mpp_broadcast_logical8_scalar
650 #undef MPP_BROADCAST_2D_
651 #define MPP_BROADCAST_2D_ mpp_broadcast_logical8_2d
652 #undef MPP_BROADCAST_3D_
653 #define MPP_BROADCAST_3D_ mpp_broadcast_logical8_3d
654 #undef MPP_BROADCAST_4D_
655 #define MPP_BROADCAST_4D_ mpp_broadcast_logical8_4d
656 #undef MPP_BROADCAST_5D_
657 #define MPP_BROADCAST_5D_ mpp_broadcast_logical8_5d
658 #undef MPP_TYPE_
659 #define MPP_TYPE_ logical(l8_kind)
660 #undef MPP_TYPE_BYTELEN_
661 #define MPP_TYPE_BYTELEN_ 8
662 #undef MPI_TYPE_
663 #define MPI_TYPE_ MPI_INTEGER8
664 #include <mpp_transmit_nocomm.fh>
665 
666 #undef MPP_TRANSMIT_
667 #define MPP_TRANSMIT_ mpp_transmit_logical4
668 #undef MPP_TRANSMIT_SCALAR_
669 #define MPP_TRANSMIT_SCALAR_ mpp_transmit_logical4_scalar
670 #undef MPP_TRANSMIT_2D_
671 #define MPP_TRANSMIT_2D_ mpp_transmit_logical4_2d
672 #undef MPP_TRANSMIT_3D_
673 #define MPP_TRANSMIT_3D_ mpp_transmit_logical4_3d
674 #undef MPP_TRANSMIT_4D_
675 #define MPP_TRANSMIT_4D_ mpp_transmit_logical4_4d
676 #undef MPP_TRANSMIT_5D_
677 #define MPP_TRANSMIT_5D_ mpp_transmit_logical4_5d
678 #undef MPP_RECV_
679 #define MPP_RECV_ mpp_recv_logical4
680 #undef MPP_RECV_SCALAR_
681 #define MPP_RECV_SCALAR_ mpp_recv_logical4_scalar
682 #undef MPP_RECV_2D_
683 #define MPP_RECV_2D_ mpp_recv_logical4_2d
684 #undef MPP_RECV_3D_
685 #define MPP_RECV_3D_ mpp_recv_logical4_3d
686 #undef MPP_RECV_4D_
687 #define MPP_RECV_4D_ mpp_recv_logical4_4d
688 #undef MPP_RECV_5D_
689 #define MPP_RECV_5D_ mpp_recv_logical4_5d
690 #undef MPP_SEND_
691 #define MPP_SEND_ mpp_send_logical4
692 #undef MPP_SEND_SCALAR_
693 #define MPP_SEND_SCALAR_ mpp_send_logical4_scalar
694 #undef MPP_SEND_2D_
695 #define MPP_SEND_2D_ mpp_send_logical4_2d
696 #undef MPP_SEND_3D_
697 #define MPP_SEND_3D_ mpp_send_logical4_3d
698 #undef MPP_SEND_4D_
699 #define MPP_SEND_4D_ mpp_send_logical4_4d
700 #undef MPP_SEND_5D_
701 #define MPP_SEND_5D_ mpp_send_logical4_5d
702 #undef MPP_BROADCAST_
703 #define MPP_BROADCAST_ mpp_broadcast_logical4
704 #undef MPP_BROADCAST_SCALAR_
705 #define MPP_BROADCAST_SCALAR_ mpp_broadcast_logical4_scalar
706 #undef MPP_BROADCAST_2D_
707 #define MPP_BROADCAST_2D_ mpp_broadcast_logical4_2d
708 #undef MPP_BROADCAST_3D_
709 #define MPP_BROADCAST_3D_ mpp_broadcast_logical4_3d
710 #undef MPP_BROADCAST_4D_
711 #define MPP_BROADCAST_4D_ mpp_broadcast_logical4_4d
712 #undef MPP_BROADCAST_5D_
713 #define MPP_BROADCAST_5D_ mpp_broadcast_logical4_5d
714 #undef MPP_TYPE_
715 #define MPP_TYPE_ logical(l4_kind)
716 #undef MPP_TYPE_BYTELEN_
717 #define MPP_TYPE_BYTELEN_ 4
718 #undef MPI_TYPE_
719 #define MPI_TYPE_ MPI_INTEGER4
720 #include <mpp_transmit_nocomm.fh>
721 #undef MPP_TYPE_INIT_VALUE
722 
723 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
724 ! !
725 ! GLOBAL REDUCTION ROUTINES: mpp_max, mpp_sum, mpp_min !
726 ! !
727 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
728 #undef MPP_REDUCE_0D_
729 #define MPP_REDUCE_0D_ mpp_max_real8_0d
730 #undef MPP_REDUCE_1D_
731 #define MPP_REDUCE_1D_ mpp_max_real8_1d
732 #undef MPP_TYPE_
733 #define MPP_TYPE_ real(r8_kind)
734 #undef MPP_TYPE_BYTELEN_
735 #define MPP_TYPE_BYTELEN_ 8
736 #undef MPI_TYPE_
737 #define MPI_TYPE_ MPI_REAL8
738 #undef MPI_REDUCE_
739 #define MPI_REDUCE_ MPI_MAX
740 #include <mpp_reduce_nocomm.fh>
741 
742 #undef MPP_REDUCE_0D_
743 #define MPP_REDUCE_0D_ mpp_max_real4_0d
744 #undef MPP_REDUCE_1D_
745 #define MPP_REDUCE_1D_ mpp_max_real4_1d
746 #undef MPP_TYPE_
747 #define MPP_TYPE_ real(r4_kind)
748 #undef MPP_TYPE_BYTELEN_
749 #define MPP_TYPE_BYTELEN_ 4
750 #undef MPI_TYPE_
751 #define MPI_TYPE_ MPI_REAL4
752 #undef MPI_REDUCE_
753 #define MPI_REDUCE_ MPI_MAX
754 #include <mpp_reduce_nocomm.fh>
755 
756 #undef MPP_REDUCE_0D_
757 #define MPP_REDUCE_0D_ mpp_max_int8_0d
758 #undef MPP_REDUCE_1D_
759 #define MPP_REDUCE_1D_ mpp_max_int8_1d
760 #undef MPP_TYPE_
761 #define MPP_TYPE_ integer(i8_kind)
762 #undef MPP_TYPE_BYTELEN_
763 #define MPP_TYPE_BYTELEN_ 8
764 #undef MPI_TYPE_
765 #define MPI_TYPE_ MPI_INTEGER8
766 #undef MPI_REDUCE_
767 #define MPI_REDUCE_ MPI_MAX
768 #include <mpp_reduce_nocomm.fh>
769 
770 #undef MPP_REDUCE_0D_
771 #define MPP_REDUCE_0D_ mpp_max_int4_0d
772 #undef MPP_REDUCE_1D_
773 #define MPP_REDUCE_1D_ mpp_max_int4_1d
774 #undef MPP_TYPE_
775 #define MPP_TYPE_ integer(i4_kind)
776 #undef MPP_TYPE_BYTELEN_
777 #define MPP_TYPE_BYTELEN_ 4
778 #undef MPI_TYPE_
779 #define MPI_TYPE_ MPI_INTEGER4
780 #undef MPI_REDUCE_
781 #define MPI_REDUCE_ MPI_MAX
782 #include <mpp_reduce_nocomm.fh>
783 
784 #undef MPP_REDUCE_0D_
785 #define MPP_REDUCE_0D_ mpp_min_real8_0d
786 #undef MPP_REDUCE_1D_
787 #define MPP_REDUCE_1D_ mpp_min_real8_1d
788 #undef MPP_TYPE_
789 #define MPP_TYPE_ real(r8_kind)
790 #undef MPP_TYPE_BYTELEN_
791 #define MPP_TYPE_BYTELEN_ 8
792 #undef MPI_TYPE_
793 #define MPI_TYPE_ MPI_REAL8
794 #undef MPI_REDUCE_
795 #define MPI_REDUCE_ MPI_MIN
796 #include <mpp_reduce_nocomm.fh>
797 
798 #undef MPP_REDUCE_0D_
799 #define MPP_REDUCE_0D_ mpp_min_real4_0d
800 #undef MPP_REDUCE_1D_
801 #define MPP_REDUCE_1D_ mpp_min_real4_1d
802 #undef MPP_TYPE_
803 #define MPP_TYPE_ real(r4_kind)
804 #undef MPP_TYPE_BYTELEN_
805 #define MPP_TYPE_BYTELEN_ 4
806 #undef MPI_TYPE_
807 #define MPI_TYPE_ MPI_REAL4
808 #undef MPI_REDUCE_
809 #define MPI_REDUCE_ MPI_MIN
810 #include <mpp_reduce_nocomm.fh>
811 
812 #undef MPP_REDUCE_0D_
813 #define MPP_REDUCE_0D_ mpp_min_int8_0d
814 #undef MPP_REDUCE_1D_
815 #define MPP_REDUCE_1D_ mpp_min_int8_1d
816 #undef MPP_TYPE_
817 #define MPP_TYPE_ integer(i8_kind)
818 #undef MPP_TYPE_BYTELEN_
819 #define MPP_TYPE_BYTELEN_ 8
820 #undef MPI_TYPE_
821 #define MPI_TYPE_ MPI_INTEGER8
822 #undef MPI_REDUCE_
823 #define MPI_REDUCE_ MPI_MIN
824 #include <mpp_reduce_nocomm.fh>
825 
826 #undef MPP_REDUCE_0D_
827 #define MPP_REDUCE_0D_ mpp_min_int4_0d
828 #undef MPP_REDUCE_1D_
829 #define MPP_REDUCE_1D_ mpp_min_int4_1d
830 #undef MPP_TYPE_
831 #define MPP_TYPE_ integer(i4_kind)
832 #undef MPP_TYPE_BYTELEN_
833 #define MPP_TYPE_BYTELEN_ 4
834 #undef MPI_TYPE_
835 #define MPI_TYPE_ MPI_INTEGER4
836 #undef MPI_REDUCE_
837 #define MPI_REDUCE_ MPI_MIN
838 #include <mpp_reduce_nocomm.fh>
839 
840 #undef MPP_SUM_
841 #define MPP_SUM_ mpp_sum_real8
842 #undef MPP_SUM_SCALAR_
843 #define MPP_SUM_SCALAR_ mpp_sum_real8_scalar
844 #undef MPP_SUM_2D_
845 #define MPP_SUM_2D_ mpp_sum_real8_2d
846 #undef MPP_SUM_3D_
847 #define MPP_SUM_3D_ mpp_sum_real8_3d
848 #undef MPP_SUM_4D_
849 #define MPP_SUM_4D_ mpp_sum_real8_4d
850 #undef MPP_SUM_5D_
851 #define MPP_SUM_5D_ mpp_sum_real8_5d
852 #undef MPP_TYPE_
853 #define MPP_TYPE_ real(r8_kind)
854 #undef MPI_TYPE_
855 #define MPI_TYPE_ MPI_REAL8
856 #undef MPP_TYPE_BYTELEN_
857 #define MPP_TYPE_BYTELEN_ 8
858 #include <mpp_sum_nocomm.fh>
859 
860 #ifdef OVERLOAD_C8
861 #undef MPP_SUM_
862 #define MPP_SUM_ mpp_sum_cmplx8
863 #undef MPP_SUM_SCALAR_
864 #define MPP_SUM_SCALAR_ mpp_sum_cmplx8_scalar
865 #undef MPP_SUM_2D_
866 #define MPP_SUM_2D_ mpp_sum_cmplx8_2d
867 #undef MPP_SUM_3D_
868 #define MPP_SUM_3D_ mpp_sum_cmplx8_3d
869 #undef MPP_SUM_4D_
870 #define MPP_SUM_4D_ mpp_sum_cmplx8_4d
871 #undef MPP_SUM_5D_
872 #define MPP_SUM_5D_ mpp_sum_cmplx8_5d
873 #undef MPP_TYPE_
874 #define MPP_TYPE_ complex(c8_kind)
875 #undef MPI_TYPE_
876 #define MPI_TYPE_ MPI_DOUBLE_COMPLEX
877 #undef MPP_TYPE_BYTELEN_
878 #define MPP_TYPE_BYTELEN_ 16
879 #include <mpp_sum_nocomm.fh>
880 #endif
881 
882 #undef MPP_SUM_
883 #define MPP_SUM_ mpp_sum_real4
884 #undef MPP_SUM_SCALAR_
885 #define MPP_SUM_SCALAR_ mpp_sum_real4_scalar
886 #undef MPP_SUM_2D_
887 #define MPP_SUM_2D_ mpp_sum_real4_2d
888 #undef MPP_SUM_3D_
889 #define MPP_SUM_3D_ mpp_sum_real4_3d
890 #undef MPP_SUM_4D_
891 #define MPP_SUM_4D_ mpp_sum_real4_4d
892 #undef MPP_SUM_5D_
893 #define MPP_SUM_5D_ mpp_sum_real4_5d
894 #undef MPP_TYPE_
895 #define MPP_TYPE_ real(r4_kind)
896 #undef MPI_TYPE_
897 #define MPI_TYPE_ MPI_REAL4
898 #undef MPP_TYPE_BYTELEN_
899 #define MPP_TYPE_BYTELEN_ 4
900 #include <mpp_sum_nocomm.fh>
901 
902 #ifdef OVERLOAD_C4
903 #undef MPP_SUM_
904 #define MPP_SUM_ mpp_sum_cmplx4
905 #undef MPP_SUM_SCALAR_
906 #define MPP_SUM_SCALAR_ mpp_sum_cmplx4_scalar
907 #undef MPP_SUM_2D_
908 #define MPP_SUM_2D_ mpp_sum_cmplx4_2d
909 #undef MPP_SUM_3D_
910 #define MPP_SUM_3D_ mpp_sum_cmplx4_3d
911 #undef MPP_SUM_4D_
912 #define MPP_SUM_4D_ mpp_sum_cmplx4_4d
913 #undef MPP_SUM_5D_
914 #define MPP_SUM_5D_ mpp_sum_cmplx4_5d
915 #undef MPP_TYPE_
916 #define MPP_TYPE_ complex(c4_kind)
917 #undef MPI_TYPE_
918 #define MPI_TYPE_ MPI_COMPLEX
919 #undef MPP_TYPE_BYTELEN_
920 #define MPP_TYPE_BYTELEN_ 8
921 #include <mpp_sum_nocomm.fh>
922 #endif
923 
924 #undef MPP_SUM_
925 #define MPP_SUM_ mpp_sum_int8
926 #undef MPP_SUM_SCALAR_
927 #define MPP_SUM_SCALAR_ mpp_sum_int8_scalar
928 #undef MPP_SUM_2D_
929 #define MPP_SUM_2D_ mpp_sum_int8_2d
930 #undef MPP_SUM_3D_
931 #define MPP_SUM_3D_ mpp_sum_int8_3d
932 #undef MPP_SUM_4D_
933 #define MPP_SUM_4D_ mpp_sum_int8_4d
934 #undef MPP_SUM_5D_
935 #define MPP_SUM_5D_ mpp_sum_int8_5d
936 #undef MPP_TYPE_
937 #define MPP_TYPE_ integer(i8_kind)
938 #undef MPI_TYPE_
939 #define MPI_TYPE_ MPI_INTEGER8
940 #undef MPP_TYPE_BYTELEN_
941 #define MPP_TYPE_BYTELEN_ 8
942 #include <mpp_sum_nocomm.fh>
943 
944 #undef MPP_SUM_
945 #define MPP_SUM_ mpp_sum_int4
946 #undef MPP_SUM_SCALAR_
947 #define MPP_SUM_SCALAR_ mpp_sum_int4_scalar
948 #undef MPP_SUM_2D_
949 #define MPP_SUM_2D_ mpp_sum_int4_2d
950 #undef MPP_SUM_3D_
951 #define MPP_SUM_3D_ mpp_sum_int4_3d
952 #undef MPP_SUM_4D_
953 #define MPP_SUM_4D_ mpp_sum_int4_4d
954 #undef MPP_SUM_5D_
955 #define MPP_SUM_5D_ mpp_sum_int4_5d
956 #undef MPP_TYPE_
957 #define MPP_TYPE_ integer(i4_kind)
958 #undef MPI_TYPE_
959 #define MPI_TYPE_ MPI_INTEGER4
960 #undef MPP_TYPE_BYTELEN_
961 #define MPP_TYPE_BYTELEN_ 4
962 #include <mpp_sum_nocomm.fh>
963 !--------------------------------
964 #undef MPP_SUM_AD_
965 #define MPP_SUM_AD_ mpp_sum_real8_ad
966 #undef MPP_SUM_SCALAR_AD_
967 #define MPP_SUM_SCALAR_AD_ mpp_sum_real8_scalar_ad
968 #undef MPP_SUM_2D_AD_
969 #define MPP_SUM_2D_AD_ mpp_sum_real8_2d_ad
970 #undef MPP_SUM_3D_AD_
971 #define MPP_SUM_3D_AD_ mpp_sum_real8_3d_ad
972 #undef MPP_SUM_4D_AD_
973 #define MPP_SUM_4D_AD_ mpp_sum_real8_4d_ad
974 #undef MPP_SUM_5D_AD_
975 #define MPP_SUM_5D_AD_ mpp_sum_real8_5d_ad
976 #undef MPP_TYPE_
977 #define MPP_TYPE_ real(r8_kind)
978 #undef MPI_TYPE_
979 #define MPI_TYPE_ MPI_REAL8
980 #undef MPP_TYPE_BYTELEN_
981 #define MPP_TYPE_BYTELEN_ 8
982 #include <mpp_sum_nocomm_ad.fh>
983 
984 #ifdef OVERLOAD_C8
985 #undef MPP_SUM_AD_
986 #define MPP_SUM_AD_ mpp_sum_cmplx8_ad
987 #undef MPP_SUM_SCALAR_AD_
988 #define MPP_SUM_SCALAR_AD_ mpp_sum_cmplx8_scalar_ad
989 #undef MPP_SUM_2D_AD_
990 #define MPP_SUM_2D_AD_ mpp_sum_cmplx8_2d_ad
991 #undef MPP_SUM_3D_AD_
992 #define MPP_SUM_3D_AD_ mpp_sum_cmplx8_3d_ad
993 #undef MPP_SUM_4D_AD_
994 #define MPP_SUM_4D_AD_ mpp_sum_cmplx8_4d_ad
995 #undef MPP_SUM_5D_AD_
996 #define MPP_SUM_5D_AD_ mpp_sum_cmplx8_5d_ad
997 #undef MPP_TYPE_
998 #define MPP_TYPE_ complex(c8_kind)
999 #undef MPI_TYPE_
1000 #define MPI_TYPE_ MPI_DOUBLE_COMPLEX
1001 #undef MPP_TYPE_BYTELEN_
1002 #define MPP_TYPE_BYTELEN_ 16
1003 #include <mpp_sum_nocomm_ad.fh>
1004 #endif
1005 
1006 #undef MPP_SUM_AD_
1007 #define MPP_SUM_AD_ mpp_sum_real4_ad
1008 #undef MPP_SUM_SCALAR_AD_
1009 #define MPP_SUM_SCALAR_AD_ mpp_sum_real4_scalar_ad
1010 #undef MPP_SUM_2D_AD_
1011 #define MPP_SUM_2D_AD_ mpp_sum_real4_2d_ad
1012 #undef MPP_SUM_3D_AD_
1013 #define MPP_SUM_3D_AD_ mpp_sum_real4_3d_ad
1014 #undef MPP_SUM_4D_AD_
1015 #define MPP_SUM_4D_AD_ mpp_sum_real4_4d_ad
1016 #undef MPP_SUM_5D_AD_
1017 #define MPP_SUM_5D_AD_ mpp_sum_real4_5d_ad
1018 #undef MPP_TYPE_
1019 #define MPP_TYPE_ real(r4_kind)
1020 #undef MPI_TYPE_
1021 #define MPI_TYPE_ MPI_REAL4
1022 #undef MPP_TYPE_BYTELEN_
1023 #define MPP_TYPE_BYTELEN_ 4
1024 #include <mpp_sum_nocomm_ad.fh>
1025 
1026 #ifdef OVERLOAD_C4
1027 #undef MPP_SUM_AD_
1028 #define MPP_SUM_AD_ mpp_sum_cmplx4_ad
1029 #undef MPP_SUM_SCALAR_AD_
1030 #define MPP_SUM_SCALAR_AD_ mpp_sum_cmplx4_scalar_ad
1031 #undef MPP_SUM_2D_AD_
1032 #define MPP_SUM_2D_AD_ mpp_sum_cmplx4_2d_ad
1033 #undef MPP_SUM_3D_AD_
1034 #define MPP_SUM_3D_AD_ mpp_sum_cmplx4_3d_ad
1035 #undef MPP_SUM_4D_AD_
1036 #define MPP_SUM_4D_AD_ mpp_sum_cmplx4_4d_ad
1037 #undef MPP_SUM_5D_AD_
1038 #define MPP_SUM_5D_AD_ mpp_sum_cmplx4_5d_ad
1039 #undef MPP_TYPE_
1040 #define MPP_TYPE_ complex(c4_kind)
1041 #undef MPI_TYPE_
1042 #define MPI_TYPE_ MPI_COMPLEX
1043 #undef MPP_TYPE_BYTELEN_
1044 #define MPP_TYPE_BYTELEN_ 8
1045 #include <mpp_sum_nocomm_ad.fh>
1046 #endif
1047 
1048 #undef MPP_SUM_AD_
1049 #define MPP_SUM_AD_ mpp_sum_int8_ad
1050 #undef MPP_SUM_SCALAR_AD_
1051 #define MPP_SUM_SCALAR_AD_ mpp_sum_int8_scalar_ad
1052 #undef MPP_SUM_2D_AD_
1053 #define MPP_SUM_2D_AD_ mpp_sum_int8_2d_ad
1054 #undef MPP_SUM_3D_AD_
1055 #define MPP_SUM_3D_AD_ mpp_sum_int8_3d_ad
1056 #undef MPP_SUM_4D_AD_
1057 #define MPP_SUM_4D_AD_ mpp_sum_int8_4d_ad
1058 #undef MPP_SUM_5D_AD_
1059 #define MPP_SUM_5D_AD_ mpp_sum_int8_5d_ad
1060 #undef MPP_TYPE_
1061 #define MPP_TYPE_ integer(i8_kind)
1062 #undef MPI_TYPE_
1063 #define MPI_TYPE_ MPI_INTEGER8
1064 #undef MPP_TYPE_BYTELEN_
1065 #define MPP_TYPE_BYTELEN_ 8
1066 #include <mpp_sum_nocomm_ad.fh>
1067 
1068 #undef MPP_SUM_AD_
1069 #define MPP_SUM_AD_ mpp_sum_int4_ad
1070 #undef MPP_SUM_SCALAR_AD_
1071 #define MPP_SUM_SCALAR_AD_ mpp_sum_int4_scalar_ad
1072 #undef MPP_SUM_2D_AD_
1073 #define MPP_SUM_2D_AD_ mpp_sum_int4_2d_ad
1074 #undef MPP_SUM_3D_AD_
1075 #define MPP_SUM_3D_AD_ mpp_sum_int4_3d_ad
1076 #undef MPP_SUM_4D_AD_
1077 #define MPP_SUM_4D_AD_ mpp_sum_int4_4d_ad
1078 #undef MPP_SUM_5D_AD_
1079 #define MPP_SUM_5D_AD_ mpp_sum_int4_5d_ad
1080 #undef MPP_TYPE_
1081 #define MPP_TYPE_ integer(i4_kind)
1082 #undef MPI_TYPE_
1083 #define MPI_TYPE_ MPI_INTEGER4
1084 #undef MPP_TYPE_BYTELEN_
1085 #define MPP_TYPE_BYTELEN_ 4
1086 #include <mpp_sum_nocomm_ad.fh>
1087 
1088 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
1089 ! !
1090 ! SCATTER AND GATHER ROUTINES: mpp_alltoall !
1091 ! !
1092 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
1093 
1094 #undef MPP_ALLTOALL_
1095 #undef MPP_ALLTOALLV_
1096 #undef MPP_ALLTOALLW_
1097 #undef MPP_TYPE_
1098 #undef MPP_TYPE_BYTELEN_
1099 #undef MPI_TYPE_
1100 #define MPP_ALLTOALL_ mpp_alltoall_int4
1101 #define MPP_ALLTOALLV_ mpp_alltoall_int4_v
1102 #define MPP_ALLTOALLW_ mpp_alltoall_int4_w
1103 #define MPP_TYPE_ integer(i4_kind)
1104 #define MPP_TYPE_BYTELEN_ 4
1105 #define MPI_TYPE_ MPI_INTEGER4
1106 #include <mpp_alltoall_nocomm.fh>
1107 
1108 #undef MPP_ALLTOALL_
1109 #undef MPP_ALLTOALLV_
1110 #undef MPP_ALLTOALLW_
1111 #undef MPP_TYPE_
1112 #undef MPP_TYPE_BYTELEN_
1113 #undef MPI_TYPE_
1114 #define MPP_ALLTOALL_ mpp_alltoall_int8
1115 #define MPP_ALLTOALLV_ mpp_alltoall_int8_v
1116 #define MPP_ALLTOALLW_ mpp_alltoall_int8_w
1117 #define MPP_TYPE_ integer(i8_kind)
1118 #define MPP_TYPE_BYTELEN_ 8
1119 #define MPI_TYPE_ MPI_INTEGER8
1120 #include <mpp_alltoall_nocomm.fh>
1121 
1122 #undef MPP_ALLTOALL_
1123 #undef MPP_ALLTOALLV_
1124 #undef MPP_ALLTOALLW_
1125 #undef MPP_TYPE_
1126 #undef MPP_TYPE_BYTELEN_
1127 #undef MPI_TYPE_
1128 #define MPP_ALLTOALL_ mpp_alltoall_real4
1129 #define MPP_ALLTOALLV_ mpp_alltoall_real4_v
1130 #define MPP_ALLTOALLW_ mpp_alltoall_real4_w
1131 #define MPP_TYPE_ real(r4_kind)
1132 #define MPP_TYPE_BYTELEN_ 4
1133 #define MPI_TYPE_ MPI_REAL4
1134 #include <mpp_alltoall_nocomm.fh>
1135 
1136 #undef MPP_ALLTOALL_
1137 #undef MPP_ALLTOALLV_
1138 #undef MPP_ALLTOALLW_
1139 #undef MPP_TYPE_
1140 #undef MPP_TYPE_BYTELEN_
1141 #undef MPI_TYPE_
1142 #define MPP_ALLTOALL_ mpp_alltoall_real8
1143 #define MPP_ALLTOALLV_ mpp_alltoall_real8_v
1144 #define MPP_ALLTOALLW_ mpp_alltoall_real8_w
1145 #define MPP_TYPE_ real(r8_kind)
1146 #define MPP_TYPE_BYTELEN_ 8
1147 #define MPI_TYPE_ MPI_REAL8
1148 #include <mpp_alltoall_nocomm.fh>
1149 
1150 #undef MPP_ALLTOALL_
1151 #undef MPP_ALLTOALLV_
1152 #undef MPP_ALLTOALLW_
1153 #undef MPP_TYPE_
1154 #undef MPP_TYPE_BYTELEN_
1155 #undef MPI_TYPE_
1156 #define MPP_ALLTOALL_ mpp_alltoall_logical4
1157 #define MPP_ALLTOALLV_ mpp_alltoall_logical4_v
1158 #define MPP_ALLTOALLW_ mpp_alltoall_logical4_w
1159 #define MPP_TYPE_ logical(l4_kind)
1160 #define MPP_TYPE_BYTELEN_ 4
1161 #define MPI_TYPE_ MPI_INTEGER4
1162 #include <mpp_alltoall_nocomm.fh>
1163 
1164 #undef MPP_ALLTOALL_
1165 #undef MPP_ALLTOALLV_
1166 #undef MPP_ALLTOALLW_
1167 #undef MPP_TYPE_
1168 #undef MPP_TYPE_BYTELEN_
1169 #undef MPI_TYPE_
1170 #define MPP_ALLTOALL_ mpp_alltoall_logical8
1171 #define MPP_ALLTOALLV_ mpp_alltoall_logical8_v
1172 #define MPP_ALLTOALLW_ mpp_alltoall_logical8_w
1173 #define MPP_TYPE_ logical(l8_kind)
1174 #define MPP_TYPE_BYTELEN_ 8
1175 #define MPI_TYPE_ MPI_INTEGER8
1176 #include <mpp_alltoall_nocomm.fh>
1177 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
1178 ! !
1179 ! DATA TRANSFER TYPES: mpp_type_create, mpp_type_free !
1180 ! !
1181 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
1182 
1183 #define MPP_TYPE_CREATE_ mpp_type_create_int4
1184 #define MPP_TYPE_ integer(i4_kind)
1185 #define MPI_TYPE_ MPI_INTEGER4
1186 #include <mpp_type_nocomm.fh>
1187 
1188 #define MPP_TYPE_CREATE_ mpp_type_create_int8
1189 #define MPP_TYPE_ integer(i8_kind)
1190 #define MPI_TYPE_ MPI_INTEGER8
1191 #include <mpp_type_nocomm.fh>
1192 
1193 #define MPP_TYPE_CREATE_ mpp_type_create_real4
1194 #define MPP_TYPE_ real(r4_kind)
1195 #define MPI_TYPE_ MPI_REAL4
1196 #include <mpp_type_nocomm.fh>
1197 
1198 #define MPP_TYPE_CREATE_ mpp_type_create_real8
1199 #define MPP_TYPE_ real(r8_kind)
1200 #define MPI_TYPE_ MPI_REAL8
1201 #include <mpp_type_nocomm.fh>
1202 
1203 #define MPP_TYPE_CREATE_ mpp_type_create_cmplx4
1204 #define MPP_TYPE_ complex(c4_kind)
1205 #define MPI_TYPE_ MPI_COMPLEX8
1206 #include <mpp_type_nocomm.fh>
1207 
1208 #define MPP_TYPE_CREATE_ mpp_type_create_cmplx8
1209 #define MPP_TYPE_ complex(c8_kind)
1210 #define MPI_TYPE_ MPI_COMPLEX16
1211 #include <mpp_type_nocomm.fh>
1212 
1213 #define MPP_TYPE_CREATE_ mpp_type_create_logical4
1214 #define MPP_TYPE_ logical(l4_kind)
1215 #define MPI_TYPE_ MPI_INTEGER4
1216 #include <mpp_type_nocomm.fh>
1217 
1218 #define MPP_TYPE_CREATE_ mpp_type_create_logical8
1219 #define MPP_TYPE_ logical(l8_kind)
1220 #define MPI_TYPE_ MPI_INTEGER8
1221 #include <mpp_type_nocomm.fh>
1222 
1223 ! Clear preprocessor flags
1224 #undef MPI_TYPE_
1225 #undef MPP_TYPE_
1226 #undef MPP_TYPE_CREATE_
1227 
1228 subroutine mpp_type_free(dtype)
1229  type(mpp_type), pointer, intent(inout) :: dtype
1230 
1231  call mpp_error(note, 'MPP_TYPE_FREE: ' &
1232  //'This function should not be used in serial mode.')
1233 
1234  ! For consistency with MPI, we deallocate the pointer
1235  deallocate(dtype)
1236 
1237 end subroutine mpp_type_free
stdout
integer function stdout()
This function returns the current standard fortran unit numbers for output.
Definition: mpp_util.inc:43
mpp_set_current_pelist
subroutine mpp_set_current_pelist(pelist, no_sync)
Set context pelist.
Definition: mpp_util.inc:490
mpp_init
subroutine mpp_init(flags, localcomm, test_level, alt_input_nml_path)
Initialize the mpp_mod module. Must be called before any usage.
Definition: mpp_comm_mpi.inc:34
read_input_nml
subroutine read_input_nml(pelist_name_in, alt_input_nml_path)
Reads an existing input nml file into a character array and broadcasts it to the non-root mpi-tasks....
Definition: mpp_util.inc:1219
mpp_type_free
subroutine mpp_type_free(dtype)
Deallocates memory for mpp_type objects @TODO This should probably not take a pointer,...
Definition: mpp_comm_mpi.inc:1388
mpp_exit
subroutine mpp_exit()
Finalizes process termination. To be called at the end of a run. Certain mpi implementations(openmpi)...
Definition: mpp_comm_mpi.inc:190
stdlog
integer function stdlog()
This function returns the current standard fortran unit numbers for log messages. Log messages,...
Definition: mpp_util.inc:59
mpp_npes
integer function mpp_npes()
Returns processor count for current pelist.
Definition: mpp_util.inc:421
mpp_set_stack_size
subroutine mpp_set_stack_size(n)
Set the mpp_stack variable to be at least n LONG words long.
Definition: mpp_comm_mpi.inc:303
mpp_sync
subroutine mpp_sync(pelist, do_self)
Synchronize PEs in list.
Definition: mpp_util_mpi.inc:149
mpp_clock_id
integer function mpp_clock_id(name, flags, grain)
Return an ID for a new or existing clock.
Definition: mpp_util.inc:705
mpp_broadcast_char
subroutine mpp_broadcast_char(char_data, length, from_pe, pelist)
Broadcasts a character string from the given pe to it's pelist.
Definition: mpp_comm_mpi.inc:325