Ignore:
Timestamp:
May 2, 2014 2:31:06 PM (7 years ago)
Author:
raasch
Message:

output of location messages to stdout

File:
1 edited

Legend:

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

    r1354 r1384  
    2020! Current revisions:
    2121! ------------------
    22 !
     22! location messages added
    2323!
    2424! Former revisions:
     
    175175#if defined( __parallel )
    176176
     177    CALL location_message( 'creating virtual PE grids + MPI derived data types' )
    177178!
    178179!-- Determine the processor topology or check it, if prescribed by the user
     
    10701071                        comm1dx, ierr )
    10711072
     1073    CALL location_message( 'finished' )
     1074
    10721075#elif ! defined ( __parallel )
    10731076    IF ( bc_lr == 'dirichlet/radiation' )  THEN
Note: See TracChangeset for help on using the changeset viewer.