Changeset 104 for palm/trunk/SOURCE/init_pegrid.f90

Timestamp:

Aug 1, 2007 11:52:41 AM (17 years ago)

Author:

raasch

Message:

trying to make creation of intercommunicator more stable

File:

• palm/trunk/SOURCE/init_pegrid.f90 (modified) (1 diff)

palm/trunk/SOURCE/init_pegrid.f90

@@ -494 +494 @@
           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 )