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/temperton_fft_mod.f90

    r2300 r3045  
    99! -----------------
    1010! $Id$
     11! Error message revised
     12!
     13! 2300 2017-06-29 13:31:14Z raasch
    1114! NEC related CPP directives removed
    1215!
     
    21612164
    21622165!    WRITE (nout,'(A,I4,A)') ' n =',n,' - Contains illegal factors'
    2163     message_string = 'number of gridpoints along x or/and y ' // &
    2164                      'contain illegal  factors' //               &
    2165                      '&only factors 8,6,5,4,3,2 are allowed'
     2166    message_string = 'number of gridpoints along x or/and y ' //               &
     2167                     'contain illegal  factors' //                             &
     2168                     ' only factors 2, 3, 5 are allowed'
    21662169    CALL message( 'temperton_fft', 'PA0311', 1, 2, 0, 6, 0 )
    21672170
Note: See TracChangeset for help on using the changeset viewer.