Ignore:
Timestamp:
Jun 29, 2017 9:28:18 AM (4 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_coupling.f90

    r2101 r2298  
    2525! ------------------
    2626! $Id$
     27! MPI2 coupling removed
     28!
     29! 2101 2017-01-05 16:42:31Z suehring
    2730!
    2831! 2000 2016-08-20 18:09:15Z knoop
     
    8487!
    8588!-- Get information about the coupling mode from standard input (PE0 only) and
    86 !-- distribute it to the other PEs. If __mpi2 was defined, suggest a
    87 !-- coupling via MPI-2. Otherwise initate a coupling using MPI-1 only.
    88 !-- In this case, distribute PEs to 2 new communicators.
     89!-- distribute it to the other PEs. Distribute PEs to 2 new communicators.
    8990!-- ATTENTION: numprocs will be reset according to the new communicators
    9091#if defined ( __parallel )
    9192
    92 !myid_absolut = myid
    9393    IF ( myid == 0 )  THEN
    9494       READ (*,*,ERR=10,END=10)  coupling_mode, bc_data(1), bc_data(2)
    959510     CONTINUE
    96 #if defined( __mpi2 )
    97        IF ( TRIM( coupling_mode ) == 'atmosphere_to_ocean' )  THEN
    98           i = 1
    99        ELSEIF ( TRIM( coupling_mode ) == 'ocean_to_atmosphere' )  THEN
    100           i = 2
    101        ELSE
    102           i = 0
    103        ENDIF
    104 #else
    10596       IF ( TRIM( coupling_mode ) == 'coupled_run' )  THEN
    10697          i = 1
     
    10899          i = 0
    109100       ENDIF
    110 #endif
    111101       bc_data(0) = i
    112102
     
    121111    i = bc_data(0)
    122112
    123 #if defined ( __mpi2 )
    124     IF ( i == 0 )  THEN
    125        coupling_mode = 'uncoupled'
    126     ELSEIF ( i == 1 )  THEN
    127        coupling_mode = 'atmosphere_to_ocean'
    128     ELSEIF ( i == 2 )  THEN
    129        coupling_mode = 'ocean_to_atmosphere'
    130     ENDIF
    131     target_id = myid
    132 #else
    133113    IF ( i == 0 ) THEN
    134114       coupling_mode = 'uncoupled'
     
    165145    ENDIF
    166146#endif
    167 #endif
    168147
    169148!
Note: See TracChangeset for help on using the changeset viewer.