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

Timestamp:

Nov 17, 2020 1:57:33 PM (4 years ago)

Author:

oliver.maas

Message:

allow prescribing initial uv_profiles AND geostrophic wind by changing error message PA0347 to an informative message

File:

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

palm/trunk/SOURCE/check_parameters.f90

@@ -24 +24 @@
 ! -----------------
 ! $Id$
+! allow prescribing initial uv_profiles AND geostrophic wind
+! by changing error message PA0347 to an informative message
+!
+! 4685 2020-09-18 11:49:50Z gronemeier
 ! filter data_output_pr and data_output list for duplicate entries
 !
@@ -1028 +1032 @@
 
           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 )
+             message_string = 'Coriolis force is switched on (omega /= 0.0) and' //                &
+                              ' initial profiles u_profile and v_profile are prescribed'
+             CALL message( 'check_parameters', 'PA0347', 0, 0, 0, 6, 0 )
           ENDIF