Changeset 3046 for palm/trunk/SOURCE/spectra_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/spectra_mod.f90 (modified) (6 diffs)

palm/trunk/SOURCE/spectra_mod.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! 
+! Error messages revised
 ! 
 ! Former revisions:
@@ -264 +264 @@
        
        message_string = 'namelist spectra_par is deprecated and will be ' // &
-                     'removed in near future. Please &use namelist ' //      &
+                     'removed in near future. Please use namelist ' //       &
                      'spectra_parameters instead'
        CALL message( 'spectra_parin', 'PA0487', 0, 1, 0, 6, 0 )
@@ -475 +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
@@ -491 +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
@@ -507 +507 @@
                 IF ( myid == 0 )  THEN
                    message_string = 'non-cyclic lateral boundaries along y' // &
-                                    ' do not allow calculation of spectra' //  &
+                                    ' do not & allow calculation of spectra' //&
                                     ' along y'
                    CALL message( 'calc_spectra', 'PA0162', 1, 2, 0, 6, 0 )
@@ -521 +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