Changeset 2271 for palm/trunk/SOURCE/nudging_mod.f90

Timestamp:

Jun 9, 2017 12:34:55 PM (7 years ago)

Author:

sward

Message:

error messages and numbers updated

File:

• palm/trunk/SOURCE/nudging_mod.f90 (modified) (2 diffs)

palm/trunk/SOURCE/nudging_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Error message changed
+! 
+! 2233 2017-05-30 18:08:54Z suehring
 !
 ! 2232 2017-05-30 17:47:52Z suehring
@@ -238 +241 @@
                                                   highqnudge
                 IF (ierrn /= 0 )  THEN
-                   WRITE( message_string, * ) 'zu(nzt+1) = ', zu(nzt+1), 'm is ',&
+                   WRITE( message_string, * ) 'zu(',k,') = ', zu(k), 'm is ',&
                         'higher than the maximum height in NUDING_DATA which ',  &
                         'is ', lowheight, 'm. Interpolation on PALM ',           &