Ignore:
Timestamp:
Apr 13, 2018 11:22:08 AM (3 years ago)
Author:
raasch
Message:

bugfix: missing parallel cpp-directives added

File:
1 edited

Legend:

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

    r2946 r2967  
    2525! -----------------
    2626! $Id$
     27! bugfix: missing parallel cpp-directives added
     28!
     29! 2946 2018-04-04 17:01:23Z suehring
    2730! Remove unused module load
    2831!
     
    125128    USE kinds
    126129
    127 #if !defined( __mpifh )
     130#if defined( __parallel )  &&  !defined( __mpifh )
    128131    USE MPI
    129132#endif
     
    138141    IMPLICIT NONE
    139142
    140 #if defined( __mpifh )
     143#if defined( __parallel )  &&  defined( __mpifh )
    141144    INCLUDE "mpif.h"
    142145#endif
Note: See TracChangeset for help on using the changeset viewer.