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

Timestamp:

May 29, 2018 8:02:15 AM (6 years ago)

Author:

Giersch

Message:

Remaining error messages revised, comments extended

File:

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

palm/trunk/SOURCE/synthetic_turbulence_generator_mod.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! 
+! Error messages revised
 ! 
 ! Former revisions:
@@ -339 +339 @@
         .AND.  INDEX( initializing_actions, 'read_restart_data' ) == 0 )  THEN
              message_string = 'Using synthetic turbulence generator ' //       &
-                              'requires &initializing_actions = '         //   &
+                              'requires %initializing_actions = '         //   &
                               '"set_constant_profiles" or "read_restart_data"'
              CALL message( 'stg_check_parameters', 'PA0015', 1, 2, 0, 6, 0 )
@@ -346 +346 @@
           IF ( bc_lr /= 'dirichlet/radiation' )  THEN
              message_string = 'Using synthetic turbulence generator ' //       &
-                              'requires bc_lr = "dirichlet/radiation"'
+                              'requires &bc_lr = "dirichlet/radiation"'
              CALL message( 'stg_check_parameters', 'PA0035', 1, 2, 0, 6, 0 )
           ENDIF
           IF ( bc_ns /= 'cyclic' )  THEN
              message_string = 'Using synthetic turbulence generator ' //       &
-                              'requires bc_ns = "cyclic"'
+                              'requires &bc_ns = "cyclic"'
              CALL message( 'stg_check_parameters', 'PA0037', 1, 2, 0, 6, 0 )
           ENDIF