Changeset 104 for palm/trunk/SOURCE


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

trying to make creation of intercommunicator more stable

Location:
palm/trunk/SOURCE
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/CURRENT_MODIFICATIONS

    r102 r104  
    2525Errors:
    2626------
     27Bugfix: Error message concerning output of particle concentration (pc) modified (check_parameters).
    2728
    28 
     29check_parameters
  • palm/trunk/SOURCE/check_parameters.f90

    r103 r104  
    66! Check coupling_mode and set default (obligatory) values (like boundary
    77! conditions for temperature and fluxes) in case of coupled runs
     8! Bugfix: Error message concerning output of particle concentration (pc)
     9! modified
    810!
    911! Former revisions:
     
    22192221                IF ( myid == 0 )  THEN
    22202222                   PRINT*, '+++ check_parameters: output of "', TRIM( var ), &
    2221                                 '" requires particle package'
    2222                    PRINT*, '                      (mrun-option "-p particles")'
     2223                                '" requires a "particles_par"-NAMELIST'
     2224                   PRINT*, '                      in the parameter file (PARIN)'
    22232225                ENDIF
    22242226                CALL local_stop
  • 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.