Changeset 274 for palm/trunk/SOURCE/calc_spectra.f90

Timestamp:

Mar 26, 2009 3:11:21 PM (15 years ago)

Author:

heinze

Message:

Indentation of the message calls corrected

File:

• palm/trunk/SOURCE/calc_spectra.f90 (modified) (4 diffs)

palm/trunk/SOURCE/calc_spectra.f90

@@ -85 +85 @@
           IF ( bc_lr /= 'cyclic' )  THEN
 
-             message_string = 'non-cyclic lateral boundaries along x do not ' // &
+             message_string = 'non-cyclic lateral boundaries along x do not'// &
                               '& allow calculation of spectra along x'
              CALL message( 'calc_spectra', 'PA0160', 1, 2, 0, 6, 0 )
@@ -100 +100 @@
           CALL calc_spectra_x( d, pr, m )
 #else
-          message_string = 'sorry, calculation of spectra in non parallel mode' // &
-                           '& is still not realized'
+          message_string = 'sorry, calculation of spectra in non parallel ' // &
+                           'mode& is still not realized'
           CALL message( 'calc_spectra', 'PA0161', 1, 2, 0, 6, 0 )      
 #endif
@@ -116 +116 @@
           IF ( bc_ns /= 'cyclic' )  THEN
              IF ( myid == 0 )  THEN
-                message_string = 'non-cyclic lateral boundaries along y do not ' // &
-                                 '& allow calculation of spectra along y' 
+                message_string = 'non-cyclic lateral boundaries along y do' // &
+                                 ' not & allow calculation of spectra along y' 
                 CALL message( 'calc_spectra', 'PA0162', 1, 2, 0, 6, 0 )
              ENDIF
@@ -129 +129 @@
           CALL calc_spectra_y( d, pr, m )
 #else
-          message_string = 'sorry, calculation of spectra in non parallel mode' // &
-                           '& is still not realized'
+          message_string = 'sorry, calculation of spectra in non parallel' // &
+                           'mode& is still not realized'
           CALL message( 'calc_spectra', 'PA0161', 1, 2, 0, 6, 0 )
 #endif