Changeset 1355 for palm/trunk/SOURCE/nudging.f90

Timestamp:

Apr 10, 2014 10:21:29 AM (10 years ago)

Author:

heinze

Message:

Error message specified.

File:

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

palm/trunk/SOURCE/nudging.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-! 
+! Error message specified.
 ! 
 ! Former revisions:
@@ -186 +186 @@
                                                   highqnudge
                 IF (ierrn /= 0 )  THEN
-                   message_string = 'errors in file NUDGING_DATA'
-                   CALL message( 'nudging', 'PA0366', 1, 2, 0, 6, 0 )
+                   WRITE( message_string, * ) 'zu(nzt+1) = ', zu(nzt+1), 'm is ',&
+                        'higher than the maximum height in NUDING_DATA which ',  &
+                        'is ', lowheight, 'm. Interpolation on PALM ',           &
+                        'grid is not possible.'
+                   CALL message( 'nudging', 'PA0364', 1, 2, 0, 6, 0 )
                 ENDIF
              ENDIF