Ignore:
Timestamp:
Jun 29, 2017 9:28:18 AM (7 years ago)
Author:
raasch
Message:

write_binary is of type LOGICAL now, MPI2-related code removed, obsolete variables removed, sendrecv_in_background related parts removed, missing variable descriptions added

File:
1 edited

Legend:

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

    r2101 r2298  
    2525! -----------------
    2626! $Id$
     27! MPI2 related part removed
     28!
     29! 2101 2017-01-05 16:42:31Z suehring
    2730!
    2831! 2000 2016-08-20 18:09:15Z knoop
     
    798801!
    799802!--    Adjustment for new MPI-1 coupling. This might be unnecessary.
    800 #if defined( __mpi2 )
    801        CALL DVRP_SPLIT( MPI_COMM_WORLD, comm_palm )
    802 #else
    803803       IF ( coupling_mode /= 'uncoupled' ) THEN
    804804          message_string = 'split of communicator not realized with' // &
     
    810810          CALL DVRP_SPLIT( MPI_COMM_WORLD, comm_palm )
    811811       ENDIF
    812 #endif
    813812
    814813       CALL MPI_COMM_SIZE( comm_palm, numprocs, ierr )
Note: See TracChangeset for help on using the changeset viewer.