Changeset 1402 for palm/trunk/SOURCE/init_pegrid.f90
- Timestamp:
- May 9, 2014 2:25:13 PM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/init_pegrid.f90
r1385 r1402 20 20 ! Current revisions: 21 21 ! ------------------ 22 ! 22 ! location messages modified 23 23 ! 24 24 ! Former revisions: … … 178 178 #if defined( __parallel ) 179 179 180 CALL location_message( 'creating virtual PE grids + MPI derived data types' ) 180 CALL location_message( 'creating virtual PE grids + MPI derived data types', & 181 .FALSE. ) 181 182 ! 182 183 !-- Determine the processor topology or check it, if prescribed by the user … … 1074 1075 comm1dx, ierr ) 1075 1076 1076 CALL location_message( 'finished' )1077 CALL location_message( 'finished', .TRUE. ) 1077 1078 1078 1079 #elif ! defined ( __parallel )
Note: See TracChangeset
for help on using the changeset viewer.