Ignore:
Timestamp:
Jun 9, 2017 12:34:55 PM (7 years ago)
Author:
sward
Message:

error messages and numbers updated

File:
1 edited

Legend:

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

    r2233 r2271  
    2525! -----------------
    2626! $Id$
     27! Error message changed
     28!
     29! 2233 2017-05-30 18:08:54Z suehring
    2730!
    2831! 2232 2017-05-30 17:47:52Z suehring
     
    238241                                                  highqnudge
    239242                IF (ierrn /= 0 )  THEN
    240                    WRITE( message_string, * ) 'zu(nzt+1) = ', zu(nzt+1), 'm is ',&
     243                   WRITE( message_string, * ) 'zu(',k,') = ', zu(k), 'm is ',&
    241244                        'higher than the maximum height in NUDING_DATA which ',  &
    242245                        'is ', lowheight, 'm. Interpolation on PALM ',           &
Note: See TracChangeset for help on using the changeset viewer.