Ignore:
Timestamp:
May 29, 2018 8:02:15 AM (3 years ago)
Author:
Giersch
Message:

Remaining error messages revised, comments extended

File:
1 edited

Legend:

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

    r3045 r3046  
    2020! Current revisions:
    2121! ------------------
    22 !
     22! Error messages revised
    2323!
    2424! Former revisions:
     
    345345       IF ( ( npex * npey ) /= numprocs )  THEN
    346346          WRITE( message_string, * ) 'number of PEs of the prescribed ',       &
    347               'topology (', npex*npey,') does not match the number of ',       &
     347              'topology (', npex*npey,') does not match & the number of ',     &
    348348              'PEs available to the job (', numprocs, ')'
    349349          CALL message( 'init_pegrid', 'PA0221', 1, 2, 0, 6, 0 )
     
    357357!--    PEs must be given in both directions
    358358       message_string = 'if the processor topology is prescribed by th' //     &
    359                 'e user both values of "npex" and "npey" must be given' //     &
     359                'e user & both values of "npex" and "npey" must be given' //   &
    360360                ' in the &NAMELIST-parameter file'
    361361       CALL message( 'init_pegrid', 'PA0222', 1, 2, 0, 6, 0 )
     
    458458    IF ( MOD( nx+1 , pdims(1) ) /= 0 )  THEN
    459459       WRITE( message_string, * ) 'x-direction: gridpoint number (',nx+1,') ', &
    460                                'is not an integral divisor of the number ',    &
     460                               'is not an& integral divisor of the number ',    &
    461461                               'of processors (', pdims(1),')'
    462462       CALL message( 'init_pegrid', 'PA0225', 1, 2, 0, 6, 0 )
     
    476476    IF ( MOD( ny+1 , pdims(2) ) /= 0 )  THEN
    477477       WRITE( message_string, * ) 'y-direction: gridpoint number (',ny+1,') ', &
    478                            'is not an integral divisor of the number of',      &
     478                           'is not an& integral divisor of the number of',      &
    479479                           'processors (', pdims(2),')'
    480480       CALL message( 'init_pegrid', 'PA0227', 1, 2, 0, 6, 0 )
     
    522522          IF ( MOD( nz , pdims(1) ) /= 0 )  THEN
    523523             WRITE( message_string, * ) 'transposition z --> x:',              &
    524                        ' nz=',nz,' is not an integral divisior of pdims(1)=', &
     524                       '& nz=',nz,' is not an integral divisior of pdims(1)=', &
    525525                                                                   pdims(1)
    526526             CALL message( 'init_pegrid', 'PA0230', 1, 2, 0, 6, 0 )
     
    544544       IF ( MOD( nx+1 , pdims(2) ) /= 0 )  THEN
    545545          WRITE( message_string, * ) 'transposition x --> y:',                 &
    546                             ' nx+1=',nx+1,' is not an integral divisor of ',   &
     546                            '& nx+1=',nx+1,' is not an integral divisor of ',  &
    547547                            'pdims(2)=',pdims(2)
    548548          CALL message( 'init_pegrid', 'PA0231', 1, 2, 0, 6, 0 )
     
    573573          IF ( MOD( ny+1 , pdims(1) ) /= 0 )  THEN
    574574             WRITE( message_string, * ) 'transposition y --> z:',              &
    575                                ' ny+1=',ny+1,' is not an integral divisor of', &
     575                               '& ny+1=',ny+1,' is not an integral divisor of',&
    576576                               ' pdims(1)=',pdims(1)
    577577             CALL message( 'init_pegrid', 'PA0232', 1, 2, 0, 6, 0 )
     
    584584          IF ( MOD( ny+1 , pdims(1) ) /= 0 )  THEN
    585585             WRITE( message_string, * ) 'transposition x --> y:',              &
    586                                ' ny+1=',ny+1,' is not an integral divisor of', &
     586                               '& ny+1=',ny+1,' is not an integral divisor of',&
    587587                               ' pdims(1)=',pdims(1)
    588588             CALL message( 'init_pegrid', 'PA0233', 1, 2, 0, 6, 0 )
Note: See TracChangeset for help on using the changeset viewer.