Changeset 4354 for palm/trunk


Ignore:
Timestamp:
Dec 19, 2019 4:10:18 PM (5 years ago)
Author:
suehring
Message:

surface_mod: bugfix in message call and define appropriate error number

File:
1 edited

Legend:

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

    r4346 r4354  
    2626! -----------------
    2727! $Id$
     28! Bugfix in message call and specify error number
     29!
     30! 4346 2019-12-18 11:55:56Z motisi
    2831! Introduction of wall_flags_total_0, which currently sets bits based on static
    2932! topography information used in wall_flags_static_0
     
    816819                                          'surface element at '//             &
    817820                                          'grid point (k,j,i) = ', k, j, i
    818                          CALL message( 'surface_mod', 'PA0999', 1, 2, 0, 6, 0 )
     821                         CALL message( 'surface_mod', 'PA0698', 1, 2, myid, 6, 0 )
    819822                      ENDIF
    820823
Note: See TracChangeset for help on using the changeset viewer.