Changeset 3376 for palm

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

Location:

palm/trunk/SOURCE

Files:

• netcdf_data_input_mod.f90 (modified) (2 diffs)
• synthetic_turbulence_generator_mod.f90 (modified) (2 diffs)

palm/trunk/SOURCE/netcdf_data_input_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Additional check for consistent building initialization implemented
+! 
+! 3347 2018-10-15 14:21:08Z suehring
 ! Subroutine renamed
 ! 
@@ -3548 +3551 @@
           ENDIF
        ENDIF
+!
+!--    If building_type is provided, also building_id is needed
+       IF ( building_type_f%from_file  .AND.  .NOT. building_id_f%from_file )  &
+       THEN
+          message_string = 'If building_type is provided, also building_id '// &
+                           'is required'
+          CALL message( 'netcdf_data_input_mod', 'PA0519', 2, 2, myid, 6, 0 )
+       ENDIF       
 !
 !--    If albedo_type is zero at any location, albedo_pars is required.

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