Changeset 3045 for palm/trunk/SOURCE/temperton_fft_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/temperton_fft_mod.f90 (modified) (2 diffs)

palm/trunk/SOURCE/temperton_fft_mod.f90

@@ -9 +9 @@
 ! -----------------
 ! $Id$
+! Error message revised
+! 
+! 2300 2017-06-29 13:31:14Z raasch
 ! NEC related CPP directives removed
 ! 
@@ -2161 +2164 @@
 
 !    WRITE (nout,'(A,I4,A)') ' n =',n,' - Contains illegal factors'
-    message_string = 'number of gridpoints along x or/and y ' // &
-                     'contain illegal  factors' //               &
-                     '&only factors 8,6,5,4,3,2 are allowed' 
+    message_string = 'number of gridpoints along x or/and y ' //               &
+                     'contain illegal  factors' //                             &
+                     ' only factors 2, 3, 5 are allowed' 
     CALL message( 'temperton_fft', 'PA0311', 1, 2, 0, 6, 0 )