Changeset 3045 for palm/trunk/SOURCE/data_output_mask.f90

Timestamp:

May 28, 2018 7:55:41 AM (6 years ago)

Author:

Giersch

Message:

Code adjusted according to coding standards, renamed namelists, error messages revised until PA0347, output CASE 108 disabled

File:

• palm/trunk/SOURCE/data_output_mask.f90 (modified) (2 diffs)

palm/trunk/SOURCE/data_output_mask.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Error messages revised
+! 
+! 3030 2018-05-23 14:37:00Z raasch
 ! variable if renamed ivar
 ! 
@@ -528 +531 @@
 
              IF ( .NOT. found )  THEN
-                WRITE ( message_string, * ) 'no output available for: ', &
+                WRITE ( message_string, * ) 'no masked output available for: ',&
                                             TRIM( domask(mid,av,ivar) )
                 CALL message( 'data_output_mask', 'PA0327', 0, 0, 0, 6, 0 )