Ignore:
Timestamp:
May 29, 2018 8:02:15 AM (3 years ago)
Author:
Giersch
Message:

Remaining error messages revised, comments extended

File:
1 edited

Legend:

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

    r3045 r3046  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! Error messages revised
    2323!
    2424! Former revisions:
     
    339339        .AND.  INDEX( initializing_actions, 'read_restart_data' ) == 0 )  THEN
    340340             message_string = 'Using synthetic turbulence generator ' //       &
    341                               'requires &initializing_actions = '         //   &
     341                              'requires %initializing_actions = '         //   &
    342342                              '"set_constant_profiles" or "read_restart_data"'
    343343             CALL message( 'stg_check_parameters', 'PA0015', 1, 2, 0, 6, 0 )
     
    346346          IF ( bc_lr /= 'dirichlet/radiation' )  THEN
    347347             message_string = 'Using synthetic turbulence generator ' //       &
    348                               'requires bc_lr = "dirichlet/radiation"'
     348                              'requires &bc_lr = "dirichlet/radiation"'
    349349             CALL message( 'stg_check_parameters', 'PA0035', 1, 2, 0, 6, 0 )
    350350          ENDIF
    351351          IF ( bc_ns /= 'cyclic' )  THEN
    352352             message_string = 'Using synthetic turbulence generator ' //       &
    353                               'requires bc_ns = "cyclic"'
     353                              'requires &bc_ns = "cyclic"'
    354354             CALL message( 'stg_check_parameters', 'PA0037', 1, 2, 0, 6, 0 )
    355355          ENDIF
Note: See TracChangeset for help on using the changeset viewer.