Changeset 1355


Ignore:
Timestamp:
Apr 10, 2014 10:21:29 AM (8 years ago)
Author:
heinze
Message:

Error message specified.

File:
1 edited

Legend:

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

    r1354 r1355  
    2020! Current revisions:
    2121! ------------------
    22 !
     22! Error message specified.
    2323!
    2424! Former revisions:
     
    186186                                                  highqnudge
    187187                IF (ierrn /= 0 )  THEN
    188                    message_string = 'errors in file NUDGING_DATA'
    189                    CALL message( 'nudging', 'PA0366', 1, 2, 0, 6, 0 )
     188                   WRITE( message_string, * ) 'zu(nzt+1) = ', zu(nzt+1), 'm is ',&
     189                        'higher than the maximum height in NUDING_DATA which ',  &
     190                        'is ', lowheight, 'm. Interpolation on PALM ',           &
     191                        'grid is not possible.'
     192                   CALL message( 'nudging', 'PA0364', 1, 2, 0, 6, 0 )
    190193                ENDIF
    191194             ENDIF
Note: See TracChangeset for help on using the changeset viewer.