Changeset 2348 for palm/trunk

Timestamp:

Aug 10, 2017 10:40:10 AM (7 years ago)

Author:

kanani

Message:

Parameter check PA0347 added

File:

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

palm/trunk/SOURCE/check_parameters.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! New: Check for simultaneous use of geostrophic wind and u_profile/v_profile
+! 
+! 2345 2017-08-09 11:50:30Z Giersch
 ! Remove error message PA0156 and the conserve_volume_flow_mode option 
 ! inflow_profile
@@ -1419 +1422 @@
           ENDIF
 
+          IF ( omega /= 0.0_wp )  THEN
+             message_string = 'Coriolis force must be switched off (by setting omega=0.0)' //  &
+                              ' when prescribing the forcing by u_profile and v_profile'
+             CALL message( 'check_parameters', 'PA0347', 1, 2, 0, 6, 0 )
+          ENDIF
+
           use_prescribed_profile_data = .TRUE.