Changeset 1384 for palm/trunk/SOURCE/check_parameters.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/check_parameters.f90 (modified) (4 diffs)

palm/trunk/SOURCE/check_parameters.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! 
+! location messages added
 ! 
 ! Former revisions:
@@ -260 +260 @@
     REAL(wp)    ::  remote = 0.0_wp                  !: 
     REAL(wp)    ::  simulation_time_since_reference  !: 
+
+
+    CALL location_message( 'checking parameters' )
 
 !
@@ -3691 +3694 @@
        CALL message( 'check_parameters', 'PA0378', 1, 2, 0, 6, 0 )
     ENDIF
+
+    CALL location_message( 'finished' )
+
 !
 !-- Check &userpar parameters
@@ -3696 +3702 @@
 
 
-
  END SUBROUTINE check_parameters