Changeset 258 for palm/trunk/SOURCE/temperton_fft.f90

Timestamp:

Mar 13, 2009 12:36:03 PM (15 years ago)

Author:

heinze

Message:

Output of messages replaced by message handling routine.

File:

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

palm/trunk/SOURCE/temperton_fft.f90

@@ -2 +2 @@
 
 !------------------------------------------------------------------------------!
-! Actual revisions:
+! Current revisions:
 ! -----------------
-! 
+! Output of messages replaced by message handling routine.
+!
 !
 ! Former revisions:
@@ -1884 +1885 @@
 
 
+    USE control_parameters
     USE pegrid
 
@@ -1945 +1947 @@
 
 !    WRITE (nout,'(A,I4,A)') ' n =',n,' - Contains illegal factors'
-    IF ( myid == 0 )  THEN
-       PRINT*, '+++ temperton_fft:'
-       PRINT*, '    number of gridpoints along x or/and y contain illegal ', &
-                    'factors'
-       PRINT*, '    only factors 8,6,5,4,3,2 are allowed'
-    ENDIF
-    CALL local_stop
-
+    message_string = 'number of gridpoints along x or/and y ' // &
+                     'contain illegal  factors' //               &
+                     '&only factors 8,6,5,4,3,2 are allowed' 
+    CALL message( 'temperton_fft', 'PA0311', 1, 2, 0, 6, 0 )
 
     RETURN