Changeset 3045 for palm/trunk/SOURCE/spectra_mod.f90

Timestamp:

May 28, 2018 7:55:41 AM (6 years ago)

Author:

Giersch

Message:

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

File:

• palm/trunk/SOURCE/spectra_mod.f90 (modified) (5 diffs)

palm/trunk/SOURCE/spectra_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Error message revised
+! 
+! 2956 2018-04-10 11:01:03Z Giersch
 ! spectrum_x and spectrum_y will only be allocated if they are not allocated 
 ! before (e.g. in case of restart runs) 
@@ -472 +475 @@
 
                 message_string = 'non-cyclic lateral boundaries along x do'//  &
-                                 ' not & allow calculation of spectra along x'
+                                 ' not allow calculation of spectra along x'
                 CALL message( 'calc_spectra', 'PA0160', 1, 2, 0, 6, 0 )
              ENDIF
@@ -488 +491 @@
 #else
              message_string = 'sorry, calculation of spectra in non paral' //  &
-                              'lel mode& is still not realized'
+                              'lel mode is still not realized'
              CALL message( 'calc_spectra', 'PA0161', 1, 2, 0, 6, 0 )
 #endif
@@ -504 +507 @@
                 IF ( myid == 0 )  THEN
                    message_string = 'non-cyclic lateral boundaries along y' // &
-                                    ' do not & allow calculation of spectr' // &
-                                    'a along y'
+                                    ' do not allow calculation of spectra' //  &
+                                    ' along y'
                    CALL message( 'calc_spectra', 'PA0162', 1, 2, 0, 6, 0 )
                 ENDIF
@@ -518 +521 @@
 #else
              message_string = 'sorry, calculation of spectra in non paral' //  &
-                              'lel mode& is still not realized'
+                              'lel mode is still not realized'
              CALL message( 'calc_spectra', 'PA0161', 1, 2, 0, 6, 0 )
 #endif