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

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

File:
1 edited

Legend:

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

    r2836 r2841  
    2525! -----------------
    2626! $Id$
     27! Bugfix: wrong placement of include 'mpif.h' corrected
     28!
     29! 2836 2018-02-26 13:40:05Z Giersch
    2730! The variables synthetic_turbulence_generator and
    2831! use_synthetic_turbulence_generator have been abbreviated + syn_turb_gen_prerun
     
    99102    USE kinds
    100103
     104#if !defined( __mpifh )
    101105    USE MPI
     106#endif
    102107
    103108    USE pegrid,                                                                &
     
    109114
    110115    IMPLICIT NONE
     116
     117#if defined( __mpifh )
     118    INCLUDE "mpif.h"
     119#endif
    111120
    112121    LOGICAL :: velocity_seed_initialized = .FALSE.  !< true after first call of stg_main
Note: See TracChangeset for help on using the changeset viewer.