Changeset 4355 for palm/trunk


Ignore:
Timestamp:
Dec 19, 2019 4:14:21 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

    r4354 r4355  
    2626! -----------------
    2727! $Id$
     28! Fix also remaining message calls.
     29!
     30! 4354 2019-12-19 16:10:18Z suehring
    2831! Bugfix in message call and specify error number
    2932!
     
    875878                                          'surface element at '//              &
    876879                                          'grid point (k,j,i) = ', k, j, i
    877                          CALL message( 'surface_mod', 'PA0999', 1, 2, 0, 6, 0 )
     880                         CALL message( 'surface_mod', 'PA0698', 1, 2, myid, 6, 0 )
    878881
    879882                      ENDIF
     
    909912                                          'surface element at '//              &
    910913                                          'grid point (k,j,i) = ', k, j, i
    911                          CALL message( 'surface_mod', 'PA0999', 1, 2, 0, 6, 0 )
     914                         CALL message( 'surface_mod', 'PA0698', 1, 2, myid, 6, 0 )
    912915
    913916                      ENDIF
     
    943946                                          'surface element at '//              &
    944947                                          'grid point (k,j,i) = ', k, j, i
    945                          CALL message( 'surface_mod', 'PA0999', 1, 2, 0, 6, 0 )
     948                         CALL message( 'surface_mod', 'PA0698', 1, 2, myid, 6, 0 )
    946949
    947950                      ENDIF
     
    977980                                          'surface element at '//              &
    978981                                          'grid point (k,j,i) = ', k, j, i
    979                          CALL message( 'surface_mod', 'PA0999', 1, 2, 0, 6, 0 )
     982                         CALL message( 'surface_mod', 'PA0698', 1, 2, myid, 6, 0 )
    980983
    981984                      ENDIF
Note: See TracChangeset for help on using the changeset viewer.