Changeset 3376


Ignore:
Timestamp:
Oct 19, 2018 10:15:32 AM (3 years ago)
Author:
suehring
Message:

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

Location:
palm/trunk/SOURCE
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/netcdf_data_input_mod.f90

    r3347 r3376  
    2525! -----------------
    2626! $Id$
     27! Additional check for consistent building initialization implemented
     28!
     29! 3347 2018-10-15 14:21:08Z suehring
    2730! Subroutine renamed
    2831!
     
    35483551          ENDIF
    35493552       ENDIF
     3553!
     3554!--    If building_type is provided, also building_id is needed
     3555       IF ( building_type_f%from_file  .AND.  .NOT. building_id_f%from_file )  &
     3556       THEN
     3557          message_string = 'If building_type is provided, also building_id '// &
     3558                           'is required'
     3559          CALL message( 'netcdf_data_input_mod', 'PA0519', 2, 2, myid, 6, 0 )
     3560       ENDIF       
    35503561!
    35513562!--    If albedo_type is zero at any location, albedo_pars is required.
  • palm/trunk/SOURCE/synthetic_turbulence_generator_mod.f90

    r3349 r3376  
    2525! -----------------
    2626! $Id$
     27! Error messages and numbers reivsed.
     28!
     29! 3349 2018-10-15 16:39:41Z suehring
    2730! Fix for format descriptor
    2831!
     
    389392    IF ( .NOT. use_syn_turb_gen  .AND.  .NOT. rans_mode  .AND.                 &
    390393          nesting_offline )  THEN
    391        message_string = 'No synthetic turbulence generator is applied. ' //    &
    392                         'In case PALM operates in LES mode and lateral ' //    &
    393                         'boundary conditions are provided by COSMO model, ' // &
    394                         'turbulence may require large adjustment lenght at ' //&
    395                         'the lateral inflow boundaries. Please check your ' // &
    396                         'results carefully.'
    397        CALL message( 'stg_check_parameters', 'PA0000', 0, 0, 0, 6, 0 )
     394       message_string = 'Synthetic turbulence generator is required ' //       &
     395                        'if offline nesting is applied and PALM operates ' //  &
     396                        'in LES mode.'
     397       CALL message( 'stg_check_parameters', 'PA0520', 0, 0, 0, 6, 0 )
    398398    ENDIF
    399399
    400400    IF ( .NOT. use_syn_turb_gen  .AND.  child_domain                           &
    401401         .AND. rans_mode_parent  .AND.  .NOT. rans_mode )  THEN
    402        message_string = 'Synthetic turbulence generator has to be applied ' // &
     402       message_string = 'Synthetic turbulence generator is required ' //      &
    403403                        'when nesting is applied and parent operates in '  //  &
    404404                        'RANS-mode but current child in LES mode.'
    405        CALL message( 'stg_check_parameters', 'PA0000', 1, 2, 0, 6, 0 )
     405       CALL message( 'stg_check_parameters', 'PA0524', 1, 2, 0, 6, 0 )
    406406    ENDIF
    407407
Note: See TracChangeset for help on using the changeset viewer.