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

Timestamp:

Mar 21, 2018 3:52:14 PM (7 years ago)

Author:

gronemeier

Message:

moved initialization of mixing length to turbulence_closure_mod; consider walls in calculation of ml in rans-mode

Location:

palm/trunk

Files:

• . (modified) (1 prop)
• SOURCE (modified) (1 prop)
• SOURCE/check_parameters.f90 (modified) (2 diffs, 1 prop)

palm/trunk/SOURCE/check_parameters.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Add check for 1D model
+! 
+! 2883 2018-03-14 08:29:10Z Giersch
 ! dt_dopr_listing is not set to the default value zero anymore
 ! 
@@ -3993 +3996 @@
        CALL message( 'check_parameters', 'PA0138', 1, 2, 0, 6, 0 )
     ENDIF
+    IF ( TRIM( mixing_length_1d ) /= 'as_in_3d_model'  .AND.                   &
+         TRIM( dissipation_1d ) == 'as_in_3d_model' )  THEN
+       message_string = 'dissipation_1d = "' // TRIM( dissipation_1d ) //      &
+                        '" requires mixing_length_1d = "as_in_3d_model"'
+       CALL message( 'check_parameters', 'PA0485', 1, 2, 0, 6, 0 )
+    ENDIF
 
 !