Changeset 3885 for palm/trunk/SOURCE/init_pegrid.f90

Timestamp:

Apr 11, 2019 11:29:34 AM (5 years ago)

Author:

kanani

Message:

restructure/add location/debug messages

File:

• palm/trunk/SOURCE/init_pegrid.f90 (modified) (3 diffs)

palm/trunk/SOURCE/init_pegrid.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Changes related to global restructuring of location messages and introduction 
+! of additional debug messages
+! 
+! 3884 2019-04-10 13:31:55Z Giersch
 ! id_recycling is only calculated in case of tubulent inflow
 ! 
@@ -348 +352 @@
 #if defined( __parallel )
 
-    CALL location_message( 'creating virtual PE grids + MPI derived data types', &
-                           .FALSE. )
+    CALL location_message( 'creating virtual PE grids + MPI derived data types', 'start' )
 
 !
@@ -1394 +1397 @@
     ENDIF
 
-    CALL location_message( 'finished', .TRUE. )
+    CALL location_message( 'creating virtual PE grids + MPI derived data types', 'finished' )
 
 #else