Changeset 3046 for palm/trunk/SOURCE/init_pegrid.f90

Timestamp:

May 29, 2018 8:02:15 AM (6 years ago)

Author:

Giersch

Message:

Remaining error messages revised, comments extended

File:

• palm/trunk/SOURCE/init_pegrid.f90 (modified) (9 diffs)

palm/trunk/SOURCE/init_pegrid.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-! 
+! Error messages revised
 ! 
 ! Former revisions:
@@ -345 +345 @@
        IF ( ( npex * npey ) /= numprocs )  THEN
           WRITE( message_string, * ) 'number of PEs of the prescribed ',       &
-              'topology (', npex*npey,') does not match the number of ',       &
+              'topology (', npex*npey,') does not match & the number of ',     &
               'PEs available to the job (', numprocs, ')'
           CALL message( 'init_pegrid', 'PA0221', 1, 2, 0, 6, 0 )
@@ -357 +357 @@
 !--    PEs must be given in both directions
        message_string = 'if the processor topology is prescribed by th' //     &
-                'e user both values of "npex" and "npey" must be given' //     &
+                'e user & both values of "npex" and "npey" must be given' //   &
                 ' in the &NAMELIST-parameter file'
        CALL message( 'init_pegrid', 'PA0222', 1, 2, 0, 6, 0 )
@@ -458 +458 @@
     IF ( MOD( nx+1 , pdims(1) ) /= 0 )  THEN
        WRITE( message_string, * ) 'x-direction: gridpoint number (',nx+1,') ', &
-                               'is not an integral divisor of the number ',    &
+                               'is not an& integral divisor of the number ',    &
                                'of processors (', pdims(1),')'
        CALL message( 'init_pegrid', 'PA0225', 1, 2, 0, 6, 0 )
@@ -476 +476 @@
     IF ( MOD( ny+1 , pdims(2) ) /= 0 )  THEN
        WRITE( message_string, * ) 'y-direction: gridpoint number (',ny+1,') ', &
-                           'is not an integral divisor of the number of',      &
+                           'is not an& integral divisor of the number of',      &
                            'processors (', pdims(2),')'
        CALL message( 'init_pegrid', 'PA0227', 1, 2, 0, 6, 0 )
@@ -522 +522 @@
           IF ( MOD( nz , pdims(1) ) /= 0 )  THEN
              WRITE( message_string, * ) 'transposition z --> x:',              &
-                       ' nz=',nz,' is not an integral divisior of pdims(1)=',  &
+                       '& nz=',nz,' is not an integral divisior of pdims(1)=', &
                                                                    pdims(1)
              CALL message( 'init_pegrid', 'PA0230', 1, 2, 0, 6, 0 )
@@ -544 +544 @@
        IF ( MOD( nx+1 , pdims(2) ) /= 0 )  THEN
           WRITE( message_string, * ) 'transposition x --> y:',                 &
-                            ' nx+1=',nx+1,' is not an integral divisor of ',   &
+                            '& nx+1=',nx+1,' is not an integral divisor of ',  &
                             'pdims(2)=',pdims(2)
           CALL message( 'init_pegrid', 'PA0231', 1, 2, 0, 6, 0 )
@@ -573 +573 @@
           IF ( MOD( ny+1 , pdims(1) ) /= 0 )  THEN
              WRITE( message_string, * ) 'transposition y --> z:',              &
-                               ' ny+1=',ny+1,' is not an integral divisor of', &
+                               '& ny+1=',ny+1,' is not an integral divisor of',&
                                ' pdims(1)=',pdims(1)
              CALL message( 'init_pegrid', 'PA0232', 1, 2, 0, 6, 0 )
@@ -584 +584 @@
           IF ( MOD( ny+1 , pdims(1) ) /= 0 )  THEN
              WRITE( message_string, * ) 'transposition x --> y:',              &
-                               ' ny+1=',ny+1,' is not an integral divisor of', &
+                               '& ny+1=',ny+1,' is not an integral divisor of',&
                                ' pdims(1)=',pdims(1)
              CALL message( 'init_pegrid', 'PA0233', 1, 2, 0, 6, 0 )