Changeset 104

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:

• CURRENT_MODIFICATIONS (modified) (1 diff)
• check_parameters.f90 (modified) (2 diffs)
• init_pegrid.f90 (modified) (1 diff)

palm/trunk/SOURCE/CURRENT_MODIFICATIONS

@@ -25 +25 @@
 Errors:
 ------
+Bugfix: Error message concerning output of particle concentration (pc) modified (check_parameters).
 
-
+check_parameters

palm/trunk/SOURCE/check_parameters.f90

@@ -6 +6 @@
 ! Check coupling_mode and set default (obligatory) values (like boundary
 ! conditions for temperature and fluxes) in case of coupled runs
+! Bugfix: Error message concerning output of particle concentration (pc)
+! modified
 !
 ! Former revisions:
@@ -2219 +2221 @@
                 IF ( myid == 0 )  THEN
                    PRINT*, '+++ check_parameters: output of "', TRIM( var ), &
-                                '" requires particle package'
-                   PRINT*, '                      (mrun-option "-p particles")'
+                                '" requires a "particles_par"-NAMELIST'
+                   PRINT*, '                      in the parameter file (PARIN)'
                 ENDIF
                 CALL local_stop

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 )