Ignore:
Timestamp:
Feb 27, 2018 3:02:57 PM (4 years ago)
Author:
knoop
Message:

Bugfix: wrong placement of include 'mpif.h' corrected

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/lpm_write_exchange_statistics.f90

    r2801 r2841  
    2525! -----------------
    2626! $Id$
     27! Bugfix: wrong placement of include 'mpif.h' corrected,
     28! kinds module added and pegrid module scope restricted
     29!
     30! 2801 2018-02-14 16:01:55Z thiele
    2731! Introduce particle transfer in nested models.
    2832!
     
    7175!------------------------------------------------------------------------------!
    7276 SUBROUTINE lpm_write_exchange_statistics
    73  
     77
     78#if !defined( __mpifh )
    7479    USE MPI
     80#endif
    7581
    7682    USE control_parameters,                                                    &
     
    7985    USE indices,                                                               &
    8086        ONLY:  nxl, nxr, nys, nyn, nzb, nzt
     87
     88    USE kinds
    8189
    8290    USE particle_attributes,                                                   &
     
    8997        ONLY:  pmcp_g_print_number_of_particles
    9098
    91     USE pegrid
     99    USE pegrid,                                                                &
     100        ONLY:  comm2d, ierr, pleft, pright, psouth, pnorth
    92101
    93102    IMPLICIT NONE
     103
     104#if defined( __mpifh )
     105    INCLUDE "mpif.h"
     106#endif
    94107
    95108    INTEGER(iwp) :: ip         !<
Note: See TracChangeset for help on using the changeset viewer.