Changeset 2298 for palm/trunk/SOURCE/init_pegrid.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_pegrid.f90 (modified) (3 diffs)

palm/trunk/SOURCE/init_pegrid.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! MPI2 related parts removed
+! 
+! 2271 2017-06-09 12:34:55Z sward
 ! Error message changed
 ! 
@@ -261 +264 @@
     INTEGER(iwp), DIMENSION(2) :: pdims_remote          !<
 
-#if defined( __mpi2 )
-    LOGICAL ::  found                                   !<
-#endif
-
 !
 !-- Get the number of OpenMP threads
@@ -627 +626 @@
 
 #if defined( __parallel )
-#if defined( __mpi2 )
-!
-!-- In case of coupled runs, get the port name on PE0 of the atmosphere model
-!-- and pass it to PE0 of the ocean model
-    IF ( myid == 0 )  THEN
-
-       IF ( coupling_mode == 'atmosphere_to_ocean' )  THEN
-
-          CALL MPI_OPEN_PORT( MPI_INFO_NULL, port_name, ierr )
-
-          CALL MPI_PUBLISH_NAME( 'palm_coupler', MPI_INFO_NULL, port_name, &
-                                 ierr )
-
-!
-!--       Write a flag file for the ocean model and the other atmosphere
-!--       processes.
-!--       There seems to be a bug in MPICH2 which causes hanging processes
-!--       in case that execution of LOOKUP_NAME is continued too early
-!--       (i.e. before the port has been created)
-          OPEN( 90, FILE='COUPLING_PORT_OPENED', FORM='FORMATTED' )
-          WRITE ( 90, '(''TRUE'')' )
-          CLOSE ( 90 )
-
-       ELSEIF ( coupling_mode == 'ocean_to_atmosphere' )  THEN
-
-!
-!--       Continue only if the atmosphere model has created the port.
-!--       There seems to be a bug in MPICH2 which causes hanging processes
-!--       in case that execution of LOOKUP_NAME is continued too early
-!--       (i.e. before the port has been created)
-          INQUIRE( FILE='COUPLING_PORT_OPENED', EXIST=found )
-          DO WHILE ( .NOT. found )
-             INQUIRE( FILE='COUPLING_PORT_OPENED', EXIST=found )
-          ENDDO
-
-          CALL MPI_LOOKUP_NAME( 'palm_coupler', MPI_INFO_NULL, port_name, ierr )
-
-       ENDIF
-
-    ENDIF
-
-!
-!-- In case of coupled runs, establish the connection between the atmosphere
-!-- and the ocean model and define the intercommunicator (comm_inter)
-    CALL MPI_BARRIER( comm2d, ierr )
-    IF ( coupling_mode == 'atmosphere_to_ocean' )  THEN
-
-       CALL MPI_COMM_ACCEPT( port_name, MPI_INFO_NULL, 0, MPI_COMM_WORLD, &
-                             comm_inter, ierr )
-       coupling_mode_remote = 'ocean_to_atmosphere'
-
-    ELSEIF ( coupling_mode == 'ocean_to_atmosphere' )  THEN
-
-       CALL MPI_COMM_CONNECT( port_name, MPI_INFO_NULL, 0, MPI_COMM_WORLD, &
-                              comm_inter, ierr )
-       coupling_mode_remote = 'atmosphere_to_ocean'
-
-    ENDIF
-#endif
 
 !