Changeset 2274 for palm/trunk/SOURCE/fft_xy_mod.f90

Timestamp:

Jun 9, 2017 1:27:48 PM (7 years ago)

Author:

Giersch

Message:

Changed error messages

File:

• palm/trunk/SOURCE/fft_xy_mod.f90 (modified) (2 diffs)

palm/trunk/SOURCE/fft_xy_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Changed error messages
+! 
+! 2119 2017-01-17 16:51:50Z raasch
 !
 ! 2118 2017-01-17 16:38:49Z raasch
@@ -1793 +1796 @@
           message_string = 'fft method "' // TRIM( fft_method) // &
                            '" not available'
-          CALL message( 'fft_x_m', 'PA0189', 1, 2, 0, 6, 0 )
+          CALL message( 'fft_y_m', 'PA0189', 1, 2, 0, 6, 0 )
 
        ENDIF