Ignore:
Timestamp:
Jun 12, 2018 8:55:55 AM (3 years ago)
Author:
Giersch
Message:

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

File:
1 edited

Legend:

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

    r3065 r3066  
    2626! -----------------
    2727! $Id$
     28! Error messages revised
     29!
     30! 3065 2018-06-12 07:03:02Z Giersch
    2831! dz was replaced by dz(1), error messages related to vertical grid stretching
    2932! have been added
     
    37383741               message_string = 'Stretching in the parent domain is '//        &
    37393742                                'only allowed above the nested domain'
    3740                CALL message( 'vertical_nesting_mod', 'PA0497', 1, 2, 0, 6, 0 )
     3743               CALL message( 'vnest_init_pegrid_domain', 'PA0497', 1, 2, 0, 6, 0 )
    37413744           ENDIF
    37423745
     
    39763979                   message_string = 'Stretching in the nested domain is not '//&
    39773980                           'allowed'
    3978                    CALL message( 'vertical_nesting_mod', 'PA0498', 1, 2, 0, 6, 0 )
     3981                   CALL message( 'vnest_init_grid', 'PA0498', 1, 2, 0, 6, 0 )
    39793982                ENDIF
    39803983               
Note: See TracChangeset for help on using the changeset viewer.