Ignore:
Timestamp:
May 28, 2018 7:55:41 AM (3 years ago)
Author:
Giersch
Message:

Code adjusted according to coding standards, renamed namelists, error messages revised until PA0347, output CASE 108 disabled

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/fft_xy_mod.f90

    r2718 r3045  
    2525! -----------------
    2626! $Id$
     27! Error messages revised
     28!
     29! 2718 2018-01-02 08:49:38Z maronga
    2730! Corrected "Former revisions" section
    2831!
     
    723726          ENDIF
    724727
    725 #else
    726           message_string = 'no system-specific fft-call available'
    727           CALL message( 'fft_x', 'PA0188', 1, 2, 0, 6, 0 )
    728 #endif
    729 
    730        ELSE
    731 
    732           message_string = 'fft method "' // TRIM( fft_method) // &
    733                            '" not available'
    734           CALL message( 'fft_x', 'PA0189', 1, 2, 0, 6, 0 )
     728#endif
    735729
    736730       ENDIF
     
    945939
    946940          ENDIF
    947 #else
    948           message_string = 'no system-specific fft-call available'
    949           CALL message( 'fft_x_1d', 'PA0188', 1, 2, 0, 6, 0 )
    950 #endif
    951        ELSE
    952           message_string = 'fft method "' // TRIM( fft_method) // &
    953                            '" not available'
    954           CALL message( 'fft_x_1d', 'PA0189', 1, 2, 0, 6, 0 )
     941#endif
    955942
    956943       ENDIF
     
    12881275
    12891276          ENDIF
    1290 #else
    1291           message_string = 'no system-specific fft-call available'
    1292           CALL message( 'fft_y', 'PA0188', 1, 2, 0, 6, 0 )
    1293 #endif
    1294 
    1295        ELSE
    1296 
    1297           message_string = 'fft method "' // TRIM( fft_method) // &
    1298                            '" not available'
    1299           CALL message( 'fft_y', 'PA0189', 1, 2, 0, 6, 0 )
     1277#endif
    13001278
    13011279       ENDIF
     
    15121490
    15131491          ENDIF
    1514 #else
    1515           message_string = 'no system-specific fft-call available'
    1516           CALL message( 'fft_y_1d', 'PA0188', 1, 2, 0, 6, 0 )
    1517 
    1518 #endif
    1519 
    1520        ELSE
    1521 
    1522           message_string = 'fft method "' // TRIM( fft_method) // &
    1523                            '" not available'
    1524           CALL message( 'fft_y_1d', 'PA0189', 1, 2, 0, 6, 0 )
     1492#endif
    15251493
    15261494       ENDIF
     
    16531621
    16541622          DEALLOCATE( work )
    1655 #else
    1656           message_string = 'no system-specific fft-call available'
    1657           CALL message( 'fft_x_m', 'PA0188', 1, 2, 0, 6, 0 )
    1658 #endif
    1659 
    1660        ELSE
    1661 
    1662           message_string = 'fft method "' // TRIM( fft_method) // &
    1663                            '" not available'
    1664           CALL message( 'fft_x_m', 'PA0189', 1, 2, 0, 6, 0 )
     1623#endif
    16651624
    16661625       ENDIF
     
    17951754
    17961755          DEALLOCATE( work )
    1797 #else
    1798           message_string = 'no system-specific fft-call available'
    1799           CALL message( 'fft_y_m', 'PA0188', 1, 2, 0, 6, 0 )
    1800 #endif
    1801 
    1802        ELSE
    1803          
    1804           message_string = 'fft method "' // TRIM( fft_method) // &
    1805                            '" not available'
    1806           CALL message( 'fft_y_m', 'PA0189', 1, 2, 0, 6, 0 )
     1756#endif
    18071757
    18081758       ENDIF
Note: See TracChangeset for help on using the changeset viewer.