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

Timestamp:

Mar 26, 2009 3:11:21 PM (14 years ago)

Author:

heinze

Message:

Indentation of the message calls corrected

File:

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

palm/trunk/SOURCE/init_pegrid.f90

@@ -122 +122 @@
 !--    must be equal to the number of PEs available to the job
        IF ( ( npex * npey ) /= numprocs )  THEN
-          WRITE( message_string, * ) 'number of PEs of the prescribed topology (', &
-                                     npex*npey,') does not match & the number of ',  & 
-                                     'PEs available to the job (', numprocs, ')'
+          WRITE( message_string, * ) 'number of PEs of the prescribed ',      & 
+                 '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 )
        ENDIF
@@ -134 +134 @@
 !--    If the processor topology is prescribed by the user, the number of
 !--    PEs must be given in both directions
-       message_string = 'if the processor topology is prescribed by the user, ' // &
-                    '& both values of "npex" and "npey" must be given in the ' //    &
-                    '&NAMELIST-parameter file'
+       message_string = 'if the processor topology is prescribed by the, ' //  &
+                   ' 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 )
 
@@ -235 +235 @@
 
     IF ( MOD( nxa+1 , pdims(1) ) /= 0 )  THEN
-       WRITE( message_string, * ) 'x-direction: gridpoint number (',nx+1,') is not an',&
-                                  '& integral divisor of the number of proces', &
-                                  'sors (', pdims(1),')'
+       WRITE( message_string, * ) 'x-direction: gridpoint number (',nx+1,') ',&
+                               'is not an& integral divisor of the number ',  &
+                               'processors (', pdims(1),')'
        CALL message( 'init_pegrid', 'PA0225', 1, 2, 0, 6, 0 )
     ELSE
        nnx  = ( nxa + 1 ) / pdims(1)
        IF ( nnx*pdims(1) - ( nx + 1) > nnx )  THEN
-          WRITE( message_string, * ) 'x-direction: nx does not match the', & 
-                                     'requirements given by the number of PEs', &
-                                     '& used',&
-                                     '& please use nx = ', nx - ( pdims(1) - ( nnx*pdims(1) &
-                                       - ( nx + 1 ) ) ), ' instead of nx =', nx
+          WRITE( message_string, * ) 'x-direction: nx does not match the',    & 
+                       'requirements given by the number of PEs &used',       &
+                       '& please use nx = ', nx - ( pdims(1) - ( nnx*pdims(1) &
+                                   - ( nx + 1 ) ) ), ' instead of nx =', nx
           CALL message( 'init_pegrid', 'PA0226', 1, 2, 0, 6, 0 )
        ENDIF
@@ -262 +261 @@
 !-- Calculate array bounds in y-direction for every PE.
     IF ( MOD( nya+1 , pdims(2) ) /= 0 )  THEN
-       WRITE( message_string, * ) 'y-direction: gridpoint number (',ny+1,') is not an', &
-                                  '& integral divisor of the number of proces', &
-                                  'sors (', pdims(2),')'
+       WRITE( message_string, * ) 'y-direction: gridpoint number (',ny+1,') ', &
+                           'is not an& integral divisor of the number of',     &
+                           'processors (', pdims(2),')'
        CALL message( 'init_pegrid', 'PA0227', 1, 2, 0, 6, 0 )
     ELSE
        nny  = ( nya + 1 ) / pdims(2)
        IF ( nny*pdims(2) - ( ny + 1) > nny )  THEN
-          WRITE( message_string, * ) 'y-direction: ny does not match the',&
-                                     'requirements given by the number of PEs', &
-                                     '& used', &
-                                     '& please use ny = ', ny - ( pdims(2) - ( nnx*pdims(2) &
+          WRITE( message_string, * ) 'y-direction: ny does not match the',    &
+                       'requirements given by the number of PEs &used ',      &
+                       '& please use ny = ', ny - ( pdims(2) - ( nnx*pdims(2) &
                                      - ( ny + 1 ) ) ), ' instead of ny =', ny
           CALL message( 'init_pegrid', 'PA0228', 1, 2, 0, 6, 0 )
@@ -324 +322 @@
        nny_x  = nny
        IF ( MOD( nza , pdims(1) ) /= 0 )  THEN
-          WRITE( message_string, * ) 'transposition z --> x:', &
-                                     '&nz=',nz,' is not an integral divisior of pdims(1)=', &
-                                     pdims(1)
+          WRITE( message_string, * ) 'transposition z --> x:',                &
+                       '&nz=',nz,' is not an integral divisior of pdims(1)=', &
+                                                                   pdims(1)
           CALL message( 'init_pegrid', 'PA0230', 1, 2, 0, 6, 0 )
        ENDIF
@@ -356 +354 @@
     nzt_y  = nzt_x
     IF ( MOD( nxa+1 , pdims(2) ) /= 0 )  THEN
-       WRITE( message_string, * ) 'transposition x --> y:', &
-                                  '&nx+1=',nx+1,' is not an integral divisor of ',&
-                                  'pdims(2)=',pdims(2)
+       WRITE( message_string, * ) 'transposition x --> y:',                &
+                         '&nx+1=',nx+1,' is not an integral divisor of ',&
+                         'pdims(2)=',pdims(2)
        CALL message( 'init_pegrid', 'PA0231', 1, 2, 0, 6, 0 )
     ENDIF
@@ -382 +380 @@
        nxr_z  = nxr_y
        IF ( MOD( nya+1 , pdims(1) ) /= 0 )  THEN
-          WRITE( message_string, * ) 'transposition y --> z:', &
-                                     '& ny+1=',ny+1,' is not an integral divisor of ',&
-                                     'pdims(1)=',pdims(1)
+          WRITE( message_string, * ) 'transposition y --> z:',            &
+                            '& ny+1=',ny+1,' is not an integral divisor of ',&
+                            'pdims(1)=',pdims(1)
           CALL message( 'init_pegrid', 'PA0232', 1, 2, 0, 6, 0 )
        ENDIF
@@ -398 +396 @@
 !--    x --> y. This condition must be fulfilled for a 1D-decomposition along x
        IF ( MOD( nya+1 , pdims(1) ) /= 0 )  THEN
-          WRITE( message_string, * ) 'transposition x --> y:', &
-                                     '& ny+1=',ny+1,' is not an integral divisor of ',&
-                                     'pdims(1)=',pdims(1)
+          WRITE( message_string, * ) 'transposition x --> y:',               &
+                            '& ny+1=',ny+1,' is not an integral divisor of ',&
+                            'pdims(1)=',pdims(1)
           CALL message( 'init_pegrid', 'PA0233', 1, 2, 0, 6, 0 )
        ENDIF
@@ -410 +408 @@
     IF ( dt_dosp /= 9999999.9 )  THEN
        IF ( MOD( nza, pdims(2) ) /= 0 )  THEN
-          WRITE( message_string, * ) 'direct transposition z --> y (needed for spectra):', &
-                                     '& nz=',nz,' is not an integral divisor of ',&
-                                     'pdims(2)=',pdims(2)
+          WRITE( message_string, * ) 'direct transposition z --> y (needed ', &
+                    'for spectra):& nz=',nz,' is not an integral divisor of ',&
+                    'pdims(2)=',pdims(2)
           CALL message( 'init_pegrid', 'PA0234', 1, 2, 0, 6, 0 )
        ELSE