Changeset 4629


Ignore:
Timestamp:
Jul 29, 2020 9:37:56 AM (4 years ago)
Author:
raasch
Message:

support for MPI Fortran77 interface (mpif.h) removed

Location:
palm/trunk/SOURCE
Files:
15 edited

Legend:

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

    r4597 r4629  
    2424! -----------------
    2525! $Id$
     26! support for MPI Fortran77 interface (mpif.h) removed
     27!
     28! 4597 2020-07-09 19:21:53Z gronemeier
    2629! change: update argument list of routine binary_init_dimension due to changes in interface
    2730!
     
    6265    USE kinds
    6366
    64 #if defined( __parallel ) && !defined( __mpifh )
     67#if defined( __parallel )
    6568    USE MPI
    6669#endif
     
    6871    IMPLICIT NONE
    6972
    70 #if defined( __parallel ) && defined( __mpifh )
    71     INCLUDE "mpif.h"
    72 #endif
    7373
    7474    CHARACTER(LEN=*), PARAMETER ::  config_file_name = 'BINARY_TO_NETCDF_CONFIG'  !< name of config file
  • palm/trunk/SOURCE/data_output_netcdf4_module.f90

    r4599 r4629  
    2424! -----------------
    2525! $Id$
     26! support for MPI Fortran77 interface (mpif.h) removed
     27!
     28! 4599 2020-07-10 12:42:02Z gronemeier
    2629! bugfix: set no-fill mode per variable
    2730!
     
    7073    USE kinds
    7174
    72 #if defined( __parallel ) && !defined( __mpifh )
     75#if defined( __parallel )
    7376    USE MPI
    7477#endif
     
    8083    IMPLICIT NONE
    8184
    82 #if defined( __parallel ) && defined( __mpifh )
    83     INCLUDE "mpif.h"
    84 #endif
    8585
    8686    CHARACTER(LEN=*), PARAMETER ::  mode_parallel = 'parallel'  !< string selecting netcdf4 parallel mode
  • palm/trunk/SOURCE/lagrangian_particle_model_mod.f90

    r4628 r4629  
    2525! -----------------
    2626! $Id$
     27! support for MPI Fortran77 interface (mpif.h) removed
     28!
     29! 4628 2020-07-29 07:23:03Z raasch
    2730! extensions required for MPI-I/O of particle data to restart files
    2831!
     
    270273!        ONLY:  dop_active, dop_init, dop_output_tseries
    271274
    272 #if defined( __parallel )  &&  !defined( __mpifh )
     275#if defined( __parallel )
    273276    USE MPI
    274277#endif
  • palm/trunk/SOURCE/modules.f90

    r4581 r4629  
    2020! Current revisions:
    2121! ------------------
    22 ! 
    23 ! 
     22!
     23!
    2424! Former revisions:
    2525! -----------------
    2626! $Id$
     27! support for MPI Fortran77 interface (mpif.h) removed
     28!
     29! 4581 2020-06-29 08:49:58Z suehring
    2730! +sums_wschs_ws_l
    2831!
     
    12781281
    12791282#if defined( __parallel )
    1280 #if defined( __mpifh )
    1281     INCLUDE "mpif.h"
    1282 #else
    12831283    USE MPI
    12841284#endif
    1285 #endif
     1285
    12861286    CHARACTER(LEN=2) ::  send_receive = 'al'     !<
    12871287    CHARACTER(LEN=7) ::  myid_char = ''          !< character string containing processor id number
  • palm/trunk/SOURCE/pmc_child_mod.f90

    r4360 r4629  
    2121! Current revisions:
    2222! ------------------
    23 ! 
    24 ! 
     23!
     24!
    2525! Former revisions:
    2626! -----------------
    2727! $Id$
     28! support for MPI Fortran77 interface (mpif.h) removed
     29!
     30! 4360 2020-01-07 11:25:50Z suehring
    2831!
    2932!
     
    6063    USE, INTRINSIC ::  iso_c_binding
    6164
    62 #if !defined( __mpifh )
    6365    USE MPI
    64 #endif
    6566
    6667    USE kinds
     
    7879    IMPLICIT NONE
    7980
    80 #if defined( __mpifh )
    81     INCLUDE "mpif.h"
    82 #endif
    8381
    8482    PRIVATE
  • palm/trunk/SOURCE/pmc_general_mod.f90

    r4360 r4629  
    2121! Current revisions:
    2222! ------------------
    23 ! 
    24 ! 
     23!
     24!
    2525! Former revisions:
    2626! -----------------
    2727! $Id$
     28! support for MPI Fortran77 interface (mpif.h) removed
     29!
     30! 4360 2020-01-07 11:25:50Z suehring
    2831! Corrected "Former revisions" section
    2932!
     
    5053    USE kinds
    5154
    52 #if !defined( __mpifh )
    5355    USE MPI
    54 #endif
    5556
    5657    IMPLICIT NONE
    5758
    58 #if defined( __mpifh )
    59     INCLUDE "mpif.h"
    60 #endif
    6159
    6260    PRIVATE
  • palm/trunk/SOURCE/pmc_handle_communicator_mod.f90

    r4360 r4629  
    2020! Current revisions:
    2121! ------------------
    22 ! 
    23 ! 
     22!
     23!
    2424! Former revisions:
    2525! -----------------
    2626! $Id$
     27! support for MPI Fortran77 interface (mpif.h) removed
     28!
     29! 4360 2020-01-07 11:25:50Z suehring
    2730! Corrected "Former revisions" section
    2831!
     
    5255    USE kinds
    5356
    54 #if !defined( __mpifh )
    5557    USE MPI
    56 #endif
    5758
    5859    USE pmc_general,                                                            &
     
    6364    IMPLICIT NONE
    6465
    65 #if defined( __mpifh )
    66     INCLUDE "mpif.h"
    67 #endif
    6866
    6967    TYPE pmc_layout
  • palm/trunk/SOURCE/pmc_interface_mod.f90

    r4508 r4629  
    2020! Current revisions:
    2121! ------------------
    22 ! 
    23 ! 
     22!
     23!
    2424! Former revisions:
    2525! -----------------
    2626! $Id$
     27! support for MPI Fortran77 interface (mpif.h) removed
     28!
     29! 4508 2020-04-24 13:32:20Z raasch
    2730! salsa variable name changed
    2831!
     
    257260
    258261#if defined( __parallel )
    259 #if !defined( __mpifh )
    260262    USE MPI
    261 #endif
    262263
    263264    USE pegrid,                                                                &
     
    301302    IMPLICIT NONE
    302303
    303 #if defined( __parallel )
    304 #if defined( __mpifh )
    305     INCLUDE "mpif.h"
    306 #endif
    307 #endif
    308304
    309305    PRIVATE
  • palm/trunk/SOURCE/pmc_mpi_wrapper_mod.f90

    r4360 r4629  
    2121! Current revisions:
    2222! ------------------
    23 ! 
    24 ! 
     23!
     24!
    2525! Former revisions:
    2626! -----------------
    2727! $Id$
     28! support for MPI Fortran77 interface (mpif.h) removed
     29!
     30! 4360 2020-01-07 11:25:50Z suehring
    2831! Corrected "Former revisions" section
    2932!
     
    4346    USE, INTRINSIC ::  ISO_C_BINDING
    4447
    45 #if !defined( __mpifh )
    4648    USE MPI
    47 #endif
    4849
    4950    USE kinds
     
    5354    IMPLICIT NONE
    5455
    55 #if defined( __mpifh )
    56     INCLUDE "mpif.h"
    57 #endif
    5856
    5957    PRIVATE
  • palm/trunk/SOURCE/pmc_parent_mod.f90

    r4360 r4629  
    2121! Current revisions:
    2222! ------------------
    23 ! 
    24 ! 
     23!
     24!
    2525! Former revisions:
    2626! -----------------
    2727! $Id$
     28! support for MPI Fortran77 interface (mpif.h) removed
     29!
     30! 4360 2020-01-07 11:25:50Z suehring
    2831!
    2932!
     
    5255    USE, INTRINSIC ::  ISO_C_BINDING
    5356
    54 #if !defined( __mpifh )
    5557    USE MPI
    56 #endif
     58
    5759    USE kinds
    5860    USE pmc_general,                                                           &
     
    6971   IMPLICIT NONE
    7072
    71 #if defined( __mpifh )
    72    INCLUDE "mpif.h"
    73 #endif
    7473
    7574   PRIVATE
  • palm/trunk/SOURCE/pmc_particle_interface.f90

    r4444 r4629  
    2121! Current revisions:
    2222! ------------------
     23!
     24!
     25! Former revisions:
     26! -----------------
     27! $Id$
     28! support for MPI Fortran77 interface (mpif.h) removed
    2329!
    24 !
    25 ! Former revisions:
    26 ! -----------------!
    27 ! $Id$
     30! 4444 2020-03-05 15:59:50Z raasch
    2831! bugfix: preprocessor directives for serial mode added
    2932!
     
    5760   USE, INTRINSIC ::  ISO_C_BINDING
    5861
    59 #if defined( __parallel )  &&  !defined( __mpifh )
    6062   USE MPI
    61 #endif
    6263
    6364   USE kinds
     
    112113   IMPLICIT NONE
    113114
    114 #if defined( __parallel )  &&  defined( __mpifh )
    115    INCLUDE "mpif.h"
    116 #endif
    117115
    118116   PRIVATE
  • palm/trunk/SOURCE/restart_data_mpi_io_mod.f90

    r4628 r4629  
    2525! -----------------
    2626! $Id$
     27! support for MPI Fortran77 interface (mpif.h) removed
     28!
     29! 4628 2020-07-29 07:23:03Z raasch
    2730! extensions required for MPI-I/O of particle data to restart files
    2831!
     
    7881
    7982#if defined( __parallel )
    80 #if defined( __mpifh )
    81     INCLUDE "mpif.h"
    82 #else
    8383    USE MPI
    84 #endif
    8584#else
    8685    USE posix_interface,                                                                           &
  • palm/trunk/SOURCE/shared_memory_io_mod.f90

    r4628 r4629  
    2525! -----------------
    2626! $Id$
     27! support for MPI Fortran77 interface (mpif.h) removed
     28!
     29! 4628 2020-07-29 07:23:03Z raasch
    2730! extensions required for MPI-I/O of particle data to restart files
    2831!
     
    5356
    5457#if defined( __parallel )
    55 #if defined( __mpifh )
    56     INCLUDE "mpif.h"
    57 #else
    5858    USE MPI
    59 #endif
    6059#endif
    6160
  • palm/trunk/SOURCE/spectra_mod.f90

    r4591 r4629  
    2525! -----------------
    2626! $Id$
     27! support for MPI Fortran77 interface (mpif.h) removed
     28!
     29! 4591 2020-07-06 15:56:08Z raasch
    2730! File re-formatted to follow the PALM coding standard
    2831!
     
    546549
    547550#if defined( __parallel )
    548 #if !defined( __mpifh )
    549551    USE MPI
    550 #endif
    551552
    552553    USE pegrid,                                                                                    &
     
    561562
    562563    IMPLICIT NONE
    563 
    564 #if defined( __parallel )
    565 #if defined( __mpifh )
    566     INCLUDE "mpif.h"
    567 #endif
    568 #endif
    569564
    570565    INTEGER(iwp) ::  i   !<
     
    575570
    576571    REAL(wp), DIMENSION(nzb:nzt+1) ::  var_d_l  !<
     572
    577573
    578574    SELECT CASE ( TRIM( data_output_sp(m) ) )
     
    657653    USE kinds
    658654
    659 #if !defined( __mpifh )
    660655    USE MPI
    661 #endif
    662656
    663657    USE pegrid,                                                                                    &
     
    674668
    675669    IMPLICIT NONE
    676 
    677 #if defined( __mpifh )
    678     INCLUDE "mpif.h"
    679 #endif
    680670
    681671    INTEGER(iwp) ::  i  !<
     
    801791    USE kinds
    802792
    803 #if !defined( __mpifh )
    804793    USE MPI
    805 #endif
    806794
    807795    USE pegrid,                                                                                    &
     
    818806
    819807    IMPLICIT NONE
    820 
    821 #if defined( __mpifh )
    822     INCLUDE "mpif.h"
    823 #endif
    824808
    825809    INTEGER(iwp) ::  i  !<
  • palm/trunk/SOURCE/synthetic_turbulence_generator_mod.f90

    r4603 r4629  
    2525! -----------------
    2626! $Id$
     27! support for MPI Fortran77 interface (mpif.h) removed
     28!
     29! 4603 2020-07-14 16:08:30Z suehring
    2730! Bugfix in initialization from ASCII file - x-length scales at the bottom boundary were not
    2831! initialized properly
     
    245248    USE kinds
    246249
    247 #if defined( __parallel )  &&  !defined( __mpifh )
     250#if defined( __parallel )
    248251    USE MPI
    249252#endif
     
    285288
    286289    IMPLICIT NONE
    287 
    288 #if defined( __parallel )  &&  defined( __mpifh )
    289     INCLUDE "mpif.h"
    290 #endif
    291 
    292290
    293291    INTEGER(iwp) ::  id_stg_left        !< left lateral boundary core id in case of turbulence generator
Note: See TracChangeset for help on using the changeset viewer.