Changeset 2298 for palm/trunk/SOURCE/init_coupling.f90

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:

• palm/trunk/SOURCE/init_coupling.f90 (modified) (5 diffs)

palm/trunk/SOURCE/init_coupling.f90

@@ -25 +25 @@
 ! ------------------
 ! $Id$
+! MPI2 coupling removed
+! 
+! 2101 2017-01-05 16:42:31Z suehring
 !
 ! 2000 2016-08-20 18:09:15Z knoop
@@ -84 +87 @@
 !
 !-- Get information about the coupling mode from standard input (PE0 only) and
-!-- distribute it to the other PEs. If __mpi2 was defined, suggest a 
-!-- coupling via MPI-2. Otherwise initate a coupling using MPI-1 only.
-!-- In this case, distribute PEs to 2 new communicators.
+!-- distribute it to the other PEs. Distribute PEs to 2 new communicators.
 !-- ATTENTION: numprocs will be reset according to the new communicators
 #if defined ( __parallel )
 
-!myid_absolut = myid
     IF ( myid == 0 )  THEN
        READ (*,*,ERR=10,END=10)  coupling_mode, bc_data(1), bc_data(2)
 10     CONTINUE
-#if defined( __mpi2 )
-       IF ( TRIM( coupling_mode ) == 'atmosphere_to_ocean' )  THEN
-          i = 1
-       ELSEIF ( TRIM( coupling_mode ) == 'ocean_to_atmosphere' )  THEN
-          i = 2
-       ELSE
-          i = 0
-       ENDIF
-#else
        IF ( TRIM( coupling_mode ) == 'coupled_run' )  THEN
           i = 1
@@ -108 +99 @@
           i = 0
        ENDIF
-#endif
        bc_data(0) = i
 
@@ -121 +111 @@
     i = bc_data(0)
 
-#if defined ( __mpi2 )
-    IF ( i == 0 )  THEN
-       coupling_mode = 'uncoupled'
-    ELSEIF ( i == 1 )  THEN
-       coupling_mode = 'atmosphere_to_ocean'
-    ELSEIF ( i == 2 )  THEN
-       coupling_mode = 'ocean_to_atmosphere'
-    ENDIF
-    target_id = myid
-#else
     IF ( i == 0 ) THEN
        coupling_mode = 'uncoupled'
@@ -165 +145 @@
     ENDIF
 #endif
-#endif
 
 !