Changeset 3066 for palm


Ignore:
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

Location:
palm/trunk/SOURCE
Files:
4 edited

Legend:

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

    r3065 r3066  
    2525! -----------------
    2626! $Id$
     27! Bugfix in IF statement before error message
     28!
     29! 3065 2018-06-12 07:03:02Z Giersch
    2730! New vertical stretching mechanism introduced
    2831!
     
    484487!-- Allocation of arrays for stretching
    485488    ALLOCATE( min_dz_stretch_level_end(number_stretch_level_start) )
    486    
     489
    487490!
    488491!-- Define the vertical grid levels
     
    497500       ENDDO
    498501
    499        IF ( ANY( min_dz_stretch_level_end > dz_stretch_level_end ) ) THEN
     502       IF ( ANY( min_dz_stretch_level_end(1:number_stretch_level_start) >      &
     503                 dz_stretch_level_end(1:number_stretch_level_start) ) ) THEN
    500504             message_string= 'Eeach dz_stretch_level_end has to be larger ' // &
    501505                             'than its corresponding value for &' //           &
     
    619623       ENDDO
    620624       
    621        IF ( ANY( min_dz_stretch_level_end < dz_stretch_level_end ) ) THEN
     625       IF ( ANY( min_dz_stretch_level_end (1:number_stretch_level_start) <     &
     626                 dz_stretch_level_end(1:number_stretch_level_start) ) ) THEN
    622627             message_string= 'Eeach dz_stretch_level_end has to be less ' //   &
    623628                             'than its corresponding value for &' //           &
  • palm/trunk/SOURCE/radiation_model_mod.f90

    r3065 r3066  
    2828! -----------------
    2929! $Id$
     30! Error message revised
     31!
     32! 3065 2018-06-12 07:03:02Z Giersch
    3033! dz was replaced by dz(1), error message concerning vertical stretching was
    3134! added 
     
    51135116                                     'stretching is applied have to be ',      &
    51145117                                     'greater than ', zw(nzut)
    5115           CALL message( 'init_grid', 'PA0496', 1, 2, 0, 6, 0 )
     5118          CALL message( 'radiation_interaction_init', 'PA0496', 1, 2, 0, 6, 0 )
    51165119       ENDIF
    51175120!
  • 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               
  • palm/trunk/SOURCE/wind_turbine_model_mod.f90

    r3065 r3066  
    2626! -----------------
    2727! $Id$
     28! Error message revised
     29!
     30! 3065 2018-06-12 07:03:02Z Giersch
    2831! dz was replaced by dz(1), error message concerning grid stretching has been
    2932! introduced
     
    10101013                                     'greater than ', MAXVAL(rcz) +            &
    10111014                                      MAXVAL(rr) + eps_min
    1012           CALL message( 'init_grid', 'PA0484', 1, 2, 0, 6, 0 )
     1015          CALL message( 'wtm_init', 'PA0484', 1, 2, 0, 6, 0 )
    10131016       ENDIF
    10141017!
Note: See TracChangeset for help on using the changeset viewer.