Changeset 254 for palm/trunk/SOURCE/fft_xy.f90

Timestamp:

Mar 5, 2009 3:33:42 PM (15 years ago)

Author:

heinze

Message:

Output of messages replaced by message handling routine.

File:

• palm/trunk/SOURCE/fft_xy.f90 (modified) (8 diffs)

palm/trunk/SOURCE/fft_xy.f90

@@ -2 +2 @@
 
 !------------------------------------------------------------------------------!
-! Actual revisions:
+! Current revisions:
 ! -----------------
-! 
+! Output of messages replaced by message handling routine.
+!
 !
 ! Former revisions:
@@ -134 +135 @@
                       auy4, nau2 )
 #elif defined( __nec )
-          PRINT*, '+++ fft_init: fft method "', fft_method, &
-                  '" currently does not work on NEC'
-          CALL local_stop
+          message_string = 'fft method "' // TRIM( fft_method) // &
+                           '" currently does not work on NEC'
+          CALL message( 'fft_init', 'PA0187', 1, 2, 0, 6, 0 )
 
           ALLOCATE( trig_xb(2*(nx+1)), trig_xf(2*(nx+1)), &
@@ -163 +164 @@
                        trig_yb, worky, 0 )
 #else
-          PRINT*, '+++ fft_init: no system-specific fft-call available'
-          CALL local_stop
+          message_string = 'no system-specific fft-call available'
+          CALL message( 'fft_init', 'PA0188', 1, 2, 0, 6, 0 )
 #endif
        ELSEIF ( fft_method == 'temperton-algorithm' )  THEN
@@ -181 +182 @@
        ELSE
 
-          PRINT*, '+++ fft_init: fft method "', fft_method, &
-                  '" not available'
-          CALL local_stop
-
+          message_string = 'fft method "' // TRIM( fft_method) // &
+                           '" not available'
+          CALL message( 'fft_init', 'PA0189', 1, 2, 0, 6, 0 )
        ENDIF
 
@@ -357 +357 @@
           ENDIF
 #else
-          PRINT*, '+++ fft_x: no system-specific fft-call available'
-          CALL local_stop
+          message_string = 'no system-specific fft-call available'
+          CALL message( 'fft_x', 'PA0188', 1, 2, 0, 6, 0 )
 #endif
        ELSE
-
-          PRINT*, '+++ fft_x: fft method "', fft_method, '" not available'
-          CALL local_stop
+          message_string = 'fft method "' // TRIM( fft_method) // '" not available'
+          CALL message( 'fft_x', 'PA0189', 1, 2, 0, 6, 0 )
 
        ENDIF
@@ -537 +536 @@
           ENDIF
 #else
-          PRINT*, '+++ fft_y: no system-specific fft-call available'
-          CALL local_stop
+          message_string = 'no system-specific fft-call available'
+          CALL message( 'fft_y', 'PA0188', 1, 2, 0, 6, 0 ) 
+
 #endif
 
        ELSE
 
-          PRINT*, '+++ fft_y: fft method "', fft_method, '" not available'
-          CALL local_stop
+          message_string = 'fft method "' // TRIM( fft_method) // '" not available'
+          CALL message( 'fft_y', 'PA0189', 1, 2, 0, 6, 0 )
 
        ENDIF
@@ -672 +672 @@
 
 #else
-          PRINT*, '+++ fft_x_m: no system-specific fft-call available'
-          STOP
+          message_string = 'no system-specific fft-call available'
+          CALL message( 'fft_x_m', 'PA0188', 1, 2, 0, 6, 0 ) 
 #endif
 
        ELSE
 
-          PRINT*, '+++ fft_x_m: fft method "', fft_method, '" not available'
-          CALL local_stop
+          message_string = 'fft method "' // TRIM( fft_method) // '" not available'
+          CALL message( 'fft_x_m', 'PA0189', 1, 2, 0, 6, 0 )
 
        ENDIF
@@ -807 +807 @@
 
 #else
-          PRINT*, '+++ fft_y_m: no system-specific fft-call available'
-          STOP
+          message_string = 'no system-specific fft-call available'
+          CALL message( 'fft_y_m', 'PA0188', 1, 2, 0, 6, 0 ) 
 #endif
 
        ELSE
-
-          PRINT*, '+++ fft_y_m: fft method "', fft_method, '" not available'
-          CALL local_stop
+         
+          message_string = 'fft method "' // TRIM( fft_method) // '" not available'
+          CALL message( 'fft_x_m', 'PA0189', 1, 2, 0, 6, 0 )
 
        ENDIF