Ignore:
Timestamp:
Sep 20, 2019 9:34:22 AM (21 months ago)
Author:
knoop
Message:

Bugfix: wrong placement of INCLUDE "mpif.h" fixed.

File:
1 edited

Legend:

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

    r4147 r4232  
    2020! Current revisions:
    2121! ------------------
    22 !
    23 !
     22! 
     23! 
    2424! Former revisions:
    2525! -----------------
    2626! $Id$
     27! Bugfix: INCLUDE "mpif.h" must be placed after IMPLICIT NONE statement
     28!
     29! 4147 2019-08-07 09:42:31Z gronemeier
    2730! corrected indentation according to coding standard
    2831!
     
    4548    USE kinds
    4649
    47 #if defined( __parallel )
    48 #if defined( __mpifh )
    49     INCLUDE "mpif.h"
    50 #else
     50#if defined( __parallel ) && !defined( __mpifh )
    5151    USE MPI
    5252#endif
     53
     54    IMPLICIT NONE
     55
     56#if defined( __parallel ) && defined( __mpifh )
     57    INCLUDE "mpif.h"
    5358#endif
    54 
    55     IMPLICIT NONE
    5659
    5760    INTEGER, PARAMETER ::  charlen = 100  !< maximum length of character variables
Note: See TracChangeset for help on using the changeset viewer.