Ignore:
Timestamp:
May 28, 2018 7:55:41 AM (3 years ago)
Author:
Giersch
Message:

Code adjusted according to coding standards, renamed namelists, error messages revised until PA0347, output CASE 108 disabled

File:
1 edited

Legend:

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

    r3044 r3045  
    2525! -----------------
    2626! $Id$
     27! Error message revised
     28!
     29! 3044 2018-05-25 10:59:41Z gronemeier
    2730! Add missing variable descriptions
    2831!
     
    343346          IF ( bc_lr /= 'dirichlet/radiation' )  THEN
    344347             message_string = 'Using synthetic turbulence generator ' //       &
    345                               'requires &bc_lr = "dirichlet/radiation"'
     348                              'requires bc_lr = "dirichlet/radiation"'
    346349             CALL message( 'stg_check_parameters', 'PA0035', 1, 2, 0, 6, 0 )
    347350          ENDIF
    348351          IF ( bc_ns /= 'cyclic' )  THEN
    349352             message_string = 'Using synthetic turbulence generator ' //       &
    350                               'requires &bc_ns = "cyclic"'
     353                              'requires bc_ns = "cyclic"'
    351354             CALL message( 'stg_check_parameters', 'PA0037', 1, 2, 0, 6, 0 )
    352355          ENDIF
Note: See TracChangeset for help on using the changeset viewer.