Changeset 3376 for palm/trunk/SOURCE/synthetic_turbulence_generator_mod.f90

Timestamp:

Oct 19, 2018 10:15:32 AM (6 years ago)

Author:

suehring

Message:

Additional checks for consistent building initialization; error messages and numbers are revised in STG

File:

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

palm/trunk/SOURCE/synthetic_turbulence_generator_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Error messages and numbers reivsed. 
+! 
+! 3349 2018-10-15 16:39:41Z suehring
 ! Fix for format descriptor
 ! 
@@ -389 +392 @@
     IF ( .NOT. use_syn_turb_gen  .AND.  .NOT. rans_mode  .AND.                 &
           nesting_offline )  THEN
-       message_string = 'No synthetic turbulence generator is applied. ' //    &
-                        'In case PALM operates in LES mode and lateral ' //    &
-                        'boundary conditions are provided by COSMO model, ' // &
-                        'turbulence may require large adjustment lenght at ' //&
-                        'the lateral inflow boundaries. Please check your ' // &
-                        'results carefully.' 
-       CALL message( 'stg_check_parameters', 'PA0000', 0, 0, 0, 6, 0 )
+       message_string = 'Synthetic turbulence generator is required ' //       &
+                        'if offline nesting is applied and PALM operates ' //  &
+                        'in LES mode.'
+       CALL message( 'stg_check_parameters', 'PA0520', 0, 0, 0, 6, 0 )
     ENDIF
 
     IF ( .NOT. use_syn_turb_gen  .AND.  child_domain                           &
          .AND. rans_mode_parent  .AND.  .NOT. rans_mode )  THEN
-       message_string = 'Synthetic turbulence generator has to be applied ' // &
+       message_string = 'Synthetic turbulence generator is required ' //       &
                         'when nesting is applied and parent operates in '  //  &
                         'RANS-mode but current child in LES mode.'
-       CALL message( 'stg_check_parameters', 'PA0000', 1, 2, 0, 6, 0 )
+       CALL message( 'stg_check_parameters', 'PA0524', 1, 2, 0, 6, 0 )
     ENDIF