Changeset 104 for palm/trunk/SOURCE
- Timestamp:
- Aug 1, 2007 11:52:41 AM (17 years ago)
- Location:
- palm/trunk/SOURCE
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/CURRENT_MODIFICATIONS
r102 r104 25 25 Errors: 26 26 ------ 27 Bugfix: Error message concerning output of particle concentration (pc) modified (check_parameters). 27 28 28 29 check_parameters -
palm/trunk/SOURCE/check_parameters.f90
r103 r104 6 6 ! Check coupling_mode and set default (obligatory) values (like boundary 7 7 ! conditions for temperature and fluxes) in case of coupled runs 8 ! Bugfix: Error message concerning output of particle concentration (pc) 9 ! modified 8 10 ! 9 11 ! Former revisions: … … 2219 2221 IF ( myid == 0 ) THEN 2220 2222 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)' 2223 2225 ENDIF 2224 2226 CALL local_stop -
palm/trunk/SOURCE/init_pegrid.f90
r102 r104 494 494 CALL MPI_PUBLISH_NAME( 'palm_coupler', MPI_INFO_NULL, port_name, & 495 495 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 ) 496 505 497 506 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 498 517 499 518 CALL MPI_LOOKUP_NAME( 'palm_coupler', MPI_INFO_NULL, port_name, ierr )
Note: See TracChangeset
for help on using the changeset viewer.