Changeset 4232 for palm/trunk


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

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

Location:
palm/trunk/SOURCE
Files:
3 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
  • palm/trunk/SOURCE/data_output_netcdf4_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!
     
    4447    USE kinds
    4548
    46 #if defined( __parallel )
    47 #if defined( __mpifh )
     49#if defined( __parallel ) && !defined( __mpifh )
     50    USE MPI
     51#endif
     52
     53#if defined( __netcdf4 )
     54    USE NETCDF
     55#endif
     56
     57    IMPLICIT NONE
     58
     59#if defined( __parallel ) && defined( __mpifh )
    4860    INCLUDE "mpif.h"
    49 #else
    50     USE MPI
    51 #endif
    52 #endif
    53 
    54 #if defined( __netcdf4 )
    55     USE NETCDF
    56 #endif
    57 
    58     IMPLICIT NONE
     61#endif
    5962
    6063    CHARACTER(LEN=800) ::  internal_error_message = ''  !< string containing the last error message
  • palm/trunk/SOURCE/lagrangian_particle_model_mod.f90

    r4195 r4232  
    2525! -----------------
    2626! $Id$
     27! Removed INCLUDE "mpif.h", as it is not needed because of USE pegrid
     28!
     29! 4195 2019-08-28 13:44:27Z schwenkel
    2730! Bugfix for simple_corrector interpolation method in case of ocean runs and
    2831! output particle advection interpolation method into header
     
    168171    USE MPI
    169172#endif
    170 
    171 #if defined( __parallel )  &&  defined( __mpifh )
    172     INCLUDE "mpif.h"
    173 #endif     
    174173
    175174#if defined( __netcdf )
Note: See TracChangeset for help on using the changeset viewer.