Changeset 3066 for palm/trunk/SOURCE/vertical_nesting_mod.f90

Timestamp:

Jun 12, 2018 8:55:55 AM (6 years ago)

Author:

Giersch

Message:

Error messages related to the new vertical grid stretching revised, Bugfix in IF statement before error message

File:

• palm/trunk/SOURCE/vertical_nesting_mod.f90 (modified) (3 diffs)

palm/trunk/SOURCE/vertical_nesting_mod.f90

@@ -26 +26 @@
 ! -----------------
 ! $Id$
+! Error messages revised
+! 
+! 3065 2018-06-12 07:03:02Z Giersch
 ! dz was replaced by dz(1), error messages related to vertical grid stretching 
 ! have been added
@@ -3738 +3741 @@
                message_string = 'Stretching in the parent domain is '//        &
                                 'only allowed above the nested domain'
-               CALL message( 'vertical_nesting_mod', 'PA0497', 1, 2, 0, 6, 0 )
+               CALL message( 'vnest_init_pegrid_domain', 'PA0497', 1, 2, 0, 6, 0 )
            ENDIF
 
@@ -3976 +3979 @@
                    message_string = 'Stretching in the nested domain is not '//&
                            'allowed'
-                   CALL message( 'vertical_nesting_mod', 'PA0498', 1, 2, 0, 6, 0 )
+                   CALL message( 'vnest_init_grid', 'PA0498', 1, 2, 0, 6, 0 )
                 ENDIF