Changeset 1384 for palm/trunk/SOURCE/parin.f90

Timestamp:

May 2, 2014 2:31:06 PM (10 years ago)

Author:

raasch

Message:

output of location messages to stdout

File:

• palm/trunk/SOURCE/parin.f90 (modified) (4 diffs)

palm/trunk/SOURCE/parin.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! 
+! location messages added
 ! 
 ! Former revisions:
@@ -338 +338 @@
 !-- First read values of environment variables (this NAMELIST file is
 !-- generated by mrun)
+    CALL location_message( 'reading environment parameters from ENVPAR' )
     OPEN ( 90, FILE='ENVPAR', STATUS='OLD', FORM='FORMATTED', ERR=30 )
     READ ( 90, envpar, ERR=31, END=32 )
     CLOSE ( 90 )
+    CALL location_message( 'finished' )
 
 !
@@ -363 +365 @@
     io_group  = MOD( myid+1, io_blocks )
 
+    CALL location_message( 'reading NAMELIST parameters from PARIN' )
 !
 !-- Data is read in parallel by groups of PEs
@@ -481 +484 @@
     ENDDO
 
+    CALL location_message( 'finished' )
+
     RETURN