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

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

File:
1 edited

Legend:

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

    r2718 r2841  
    2525! -----------------
    2626! $Id$
     27! Bugfix: wrong placement of include 'mpif.h' corrected
     28!
     29! 2718 2018-01-02 08:49:38Z maronga
    2730! Corrected "Former revisions" section
    2831!
     
    507510
    508511#if defined( __parallel )
     512#if !defined( __mpifh )
     513       USE MPI
     514#endif
     515#endif
     516
     517       USE pegrid,                                                             &
     518           ONLY:  collective_wait, comm2d, ierr
     519
     520       USE statistics,                                                         &
     521           ONLY:  hom
     522
     523
     524       IMPLICIT NONE
     525
     526#if defined( __parallel )
    509527#if defined( __mpifh )
    510528       INCLUDE "mpif.h"
    511 #else
    512        USE MPI
    513 #endif
    514 #endif
    515        USE pegrid,                                                             &
    516            ONLY:  collective_wait, comm2d, ierr
    517 
    518        USE statistics,                                                         &
    519            ONLY:  hom
    520 
    521 
    522        IMPLICIT NONE
     529#endif
     530#endif
    523531
    524532       INTEGER(iwp) :: i  !<
     
    616624
    617625#if defined( __parallel )
     626#if !defined( __mpifh )
     627       USE MPI
     628#endif
     629#endif
     630
     631       USE pegrid,                                                             &
     632           ONLY:  comm2d, ierr, myid
     633
     634       USE transpose_indices,                                                  &
     635           ONLY:  nyn_x, nys_x, nzb_x, nzt_x
     636
     637
     638       IMPLICIT NONE
     639
     640#if defined( __parallel )
    618641#if defined( __mpifh )
    619642       INCLUDE "mpif.h"
    620 #else
    621        USE MPI
    622 #endif
    623 #endif
    624        USE pegrid,                                                             &
    625            ONLY:  comm2d, ierr, myid
    626 
    627        USE transpose_indices,                                                  &
    628            ONLY:  nyn_x, nys_x, nzb_x, nzt_x
    629 
    630 
    631        IMPLICIT NONE
     643#endif
     644#endif
    632645
    633646       INTEGER(iwp) ::  i         !<
     
    758771
    759772#if defined( __parallel )
     773#if !defined( __mpifh )
     774       USE MPI
     775#endif
     776#endif
     777
     778       USE pegrid,                                                             &
     779           ONLY:  comm2d, ierr, myid
     780
     781       USE transpose_indices,                                                  &
     782           ONLY:  nxl_yd, nxr_yd, nzb_yd, nzt_yd
     783
     784
     785       IMPLICIT NONE
     786
     787#if defined( __parallel )
    760788#if defined( __mpifh )
    761789       INCLUDE "mpif.h"
    762 #else
    763        USE MPI
    764 #endif
    765 #endif
    766        USE pegrid,                                                             &
    767            ONLY:  comm2d, ierr, myid
    768 
    769        USE transpose_indices,                                                  &
    770            ONLY:  nxl_yd, nxr_yd, nzb_yd, nzt_yd
    771 
    772 
    773        IMPLICIT NONE
     790#endif
     791#endif
    774792
    775793       INTEGER(iwp) ::  i         !<
Note: See TracChangeset for help on using the changeset viewer.