Changeset 4543 for palm


Ignore:
Timestamp:
May 20, 2020 2:12:22 PM (6 months ago)
Author:
gronemeier
Message:

Remove non-required check for canyon height (init_grid)

File:
1 edited

Legend:

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

    r4507 r4543  
    2525! -----------------
    2626! $Id$
     27! Remove non-required check for canyon height
     28!
     29! 4507 2020-04-22 18:21:45Z gronemeier
    2730! update origin_z with shifting height of orography (oro_min)
    2831!
     
    18061809          IF ( canyon_width_x /= 9999999.9_wp )  THEN
    18071810             IF ( ( index_left_cwall< 1 ) .OR. ( index_right_cwall> nx-1 ) .OR.&
    1808                   ( ngp_cx < 3 ) .OR. ( ch < 3 ) )  THEN
     1811                  ( ngp_cx < 3 ) )  THEN
    18091812                WRITE( message_string, * ) 'inconsistent canyon parameters:',  &
    18101813                                           '&index_left_cwall=', index_left_cwall, &
     
    18161819          ELSEIF ( canyon_width_y /= 9999999.9_wp )  THEN
    18171820             IF ( ( index_south_cwall < 1 ) .OR.                               &
    1818                   ( index_north_cwall > ny-1 ) .OR. ( ngp_cy < 3 ) .OR.        &
    1819                   ( ch < 3 ) )  THEN
     1821                  ( index_north_cwall > ny-1 ) .OR. ( ngp_cy < 3 ) )  THEN
    18201822                WRITE( message_string, * ) 'inconsistent canyon parameters:',  &
    18211823                                           '&index_south_cwall=', index_south_cwall, &
Note: See TracChangeset for help on using the changeset viewer.