Changeset 4829 for palm/trunk/SOURCE

Timestamp:

Jan 6, 2021 10:11:39 AM (4 years ago)

Author:

suehring

Message:

Bugfix in creating error-message string

File:

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

palm/trunk/SOURCE/surface_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Bugfix in creating error-message string
+!
+! 4828 2021-01-05 11:21:41Z Giersch
 ! Calculate and store total number of surfaces within the model domain.
 !
@@ -943 +946 @@
                             num_def_h(kd) = num_def_h(kd) + 1
 !
-!--                      Unclassifified surface-grid point. Give error message.
+!--                      Unclassifified surface-grid point. Give error message. Note, in previous
+!--                      versions the error message was generalized using a combination of TRIM
+!--                      and MERGE function. However, due to compile errors with the Cray compiler
+!--                      two seperate error messages are given now.
                          ELSE
-                            WRITE( message_string, * ) 'Unclassified ',                            &
-                                  TRIM(MERGE('  upward','downward',kk==0)),                        &
-                                  '-facing surface element at grid point (k,j,i) = ', k, j, i
-                            CALL message( 'surface_mod', 'PA0698', 1, 2, myid, 6, 0 )
+                            IF ( kk==0 )  THEN
+                               WRITE( message_string, * ) 'Unclassified upward ',                  &
+                                        '-facing surface element at grid point (k,j,i) = ', k, j, i
+                               CALL message( 'surface_mod', 'PA0698', 1, 2, myid, 6, 0 )
+                            ELSE
+                               WRITE( message_string, * ) 'Unclassified downward ',                &
+                                        '-facing surface element at grid point (k,j,i) = ', k, j, i
+                               CALL message( 'surface_mod', 'PA0698', 1, 2, myid, 6, 0 )
+                            ENDIF
                          ENDIF
                       ENDIF