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_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
Note: See TracChangeset for help on using the changeset viewer.