Changeset 4543 for palm

Timestamp:

May 20, 2020 2:12:22 PM (4 years ago)

Author:

gronemeier

Message:

Remove non-required check for canyon height (init_grid)

File:

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

palm/trunk/SOURCE/init_grid.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Remove non-required check for canyon height
+! 
+! 4507 2020-04-22 18:21:45Z gronemeier
 ! update origin_z with shifting height of orography (oro_min)
 ! 
@@ -1806 +1809 @@
           IF ( canyon_width_x /= 9999999.9_wp )  THEN
              IF ( ( index_left_cwall< 1 ) .OR. ( index_right_cwall> nx-1 ) .OR.&
-                  ( ngp_cx < 3 ) .OR. ( ch < 3 ) )  THEN
+                  ( ngp_cx < 3 ) )  THEN
                 WRITE( message_string, * ) 'inconsistent canyon parameters:',  &
                                            '&index_left_cwall=', index_left_cwall, &
@@ -1816 +1819 @@
           ELSEIF ( canyon_width_y /= 9999999.9_wp )  THEN
              IF ( ( index_south_cwall < 1 ) .OR.                               &
-                  ( index_north_cwall > ny-1 ) .OR. ( ngp_cy < 3 ) .OR.        &
-                  ( ch < 3 ) )  THEN
+                  ( index_north_cwall > ny-1 ) .OR. ( ngp_cy < 3 ) )  THEN
                 WRITE( message_string, * ) 'inconsistent canyon parameters:',  &
                                            '&index_south_cwall=', index_south_cwall, &