Ignore:
Timestamp:
Aug 1, 2007 11:52:41 AM (14 years ago)
Author:
raasch
Message:

trying to make creation of intercommunicator more stable

File:
1 edited

Legend:

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

    r102 r104  
    494494          CALL MPI_PUBLISH_NAME( 'palm_coupler', MPI_INFO_NULL, port_name, &
    495495                                 ierr )
     496!
     497!--       Write a flag file for the ocean model and the other atmosphere
     498!--       processes.
     499!--       There seems to be a bug in MPICH2 which causes hanging processes
     500!--       in case that execution of LOOKUP_NAME is continued too early
     501!--       (i.e. before the port has been created)
     502          OPEN( 90, FILE='COUPLING_PORT_OPENED', FORM='FORMATTED' )
     503          WRITE ( 90, '(''TRUE'')' )
     504          CLOSE ( 90 )
    496505
    497506       ELSEIF ( coupling_mode == 'ocean_to_atmosphere' )  THEN
     507
     508!
     509!--       Continue only if the atmosphere model has created the port.
     510!--       There seems to be a bug in MPICH2 which causes hanging processes
     511!--       in case that execution of LOOKUP_NAME is continued too early
     512!--       (i.e. before the port has been created)
     513          INQUIRE( FILE='COUPLING_PORT_OPENED', EXIST=found )
     514          DO WHILE ( .NOT. found )
     515             INQUIRE( FILE='COUPLING_PORT_OPENED', EXIST=found )
     516          ENDDO
    498517
    499518          CALL MPI_LOOKUP_NAME( 'palm_coupler', MPI_INFO_NULL, port_name, ierr )
Note: See TracChangeset for help on using the changeset viewer.