Changeset 2550 for palm/trunk/SOURCE/check_parameters.f90

Timestamp:

Oct 16, 2017 5:12:01 PM (7 years ago)

Author:

boeske

Message:

enable simulations with complex terrain

File:

• palm/trunk/SOURCE/check_parameters.f90 (modified) (2 diffs)

palm/trunk/SOURCE/check_parameters.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Added checks for complex terrain simulations
+! 
+! 2513 2017-10-04 09:24:39Z kanani
 ! Bugfix for some dopr(_initial)_index values and units connected to 
 ! passive-scalar output
@@ -3901 +3904 @@
     ENDIF
 
+!
 !-- Vertical nesting: check fine and coarse grid compatibility for data exchange
     IF ( vnested )  CALL vnest_check_parameters
+
+!
+!-- Check if topography is read from file in case of complex terrain simulations
+    IF ( complex_terrain  .AND.  TRIM( topography ) /= 'read_from_file' )  THEN
+       message_string = 'complex_terrain requires topography' //               &
+                        ' = ''read_from_file'''
+       CALL message( 'check_parameters', 'PA0472', 1, 2, 0, 6, 0 )
+    ENDIF
+
+!
+!-- Check if vertical grid stretching is switched off in case of complex 
+!-- terrain simulations
+    IF ( complex_terrain  .AND.  dz_stretch_level < 100000.0_wp )  THEN
+       message_string = 'Vertical grid stretching is not allowed for ' //      &
+                        'complex_terrain = .T.'
+       CALL message( 'check_parameters', 'PA0473', 1, 2, 0, 6, 0 )
+    ENDIF
 
     CALL location_message( 'finished', .TRUE. )