Ignore:
Timestamp:
Jan 6, 2021 10:11:39 AM (3 years ago)
Author:
suehring
Message:

Bugfix in creating error-message string

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/surface_mod.f90

    r4828 r4829  
    2525! -----------------
    2626! $Id$
     27! Bugfix in creating error-message string
     28!
     29! 4828 2021-01-05 11:21:41Z Giersch
    2730! Calculate and store total number of surfaces within the model domain.
    2831!
     
    943946                            num_def_h(kd) = num_def_h(kd) + 1
    944947!
    945 !--                      Unclassifified surface-grid point. Give error message.
     948!--                      Unclassifified surface-grid point. Give error message. Note, in previous
     949!--                      versions the error message was generalized using a combination of TRIM
     950!--                      and MERGE function. However, due to compile errors with the Cray compiler
     951!--                      two seperate error messages are given now.
    946952                         ELSE
    947                             WRITE( message_string, * ) 'Unclassified ',                            &
    948                                   TRIM(MERGE('  upward','downward',kk==0)),                        &
    949                                   '-facing surface element at grid point (k,j,i) = ', k, j, i
    950                             CALL message( 'surface_mod', 'PA0698', 1, 2, myid, 6, 0 )
     953                            IF ( kk==0 )  THEN
     954                               WRITE( message_string, * ) 'Unclassified upward ',                  &
     955                                        '-facing surface element at grid point (k,j,i) = ', k, j, i
     956                               CALL message( 'surface_mod', 'PA0698', 1, 2, myid, 6, 0 )
     957                            ELSE
     958                               WRITE( message_string, * ) 'Unclassified downward ',                &
     959                                        '-facing surface element at grid point (k,j,i) = ', k, j, i
     960                               CALL message( 'surface_mod', 'PA0698', 1, 2, myid, 6, 0 )
     961                            ENDIF
    951962                         ENDIF
    952963                      ENDIF
Note: See TracChangeset for help on using the changeset viewer.