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

Timestamp:

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

Author:

heinze

Message:

Indentation of the message calls corrected

File:

• palm/trunk/SOURCE/read_3d_binary.f90 (modified) (7 diffs)

palm/trunk/SOURCE/read_3d_binary.f90

@@ -204 +204 @@
     IF ( files_to_be_opened /= 1  .OR.  numprocs /= numprocs_previous_run ) &
     THEN
-       WRITE( message_string, * ) 'number of PEs or virtual PE-grid changed in ',     &
-                                  'restart run&  PE', myid, ' will read from files ', &
-                                  file_list(1:files_to_be_opened)
+       WRITE( message_string, * ) 'number of PEs or virtual PE-grid changed ', &
+                        'in restart run&  PE', myid, ' will read from files ', &
+                         file_list(1:files_to_be_opened)
        CALL message( 'read_3d_binary', 'PA0285', 0, 0, 0, 6, 0 )
     ENDIF
@@ -237 +237 @@
        binary_version = '3.1'
        IF ( TRIM( version_on_file ) /= TRIM( binary_version ) )  THEN
-          WRITE( message_string, * ) 'version mismatch concerning data ',                    &
-                                     'from prior run',                                       &
-                                     '&version on file    = "', TRIM( version_on_file ), '"',&
-                                     '&version in program = "', TRIM( binary_version ), '"'
+          WRITE( message_string, * ) 'version mismatch concerning data ',      &
+                      'from prior run',                                        &
+                      '&version on file    = "', TRIM( version_on_file ), '"', &
+                      '&version in program = "', TRIM( binary_version ), '"'
           CALL message( 'read_3d_binary', 'PA0286', 1, 2, 0, 6, 0 )
        ENDIF
@@ -251 +251 @@
 
        IF ( nxl_on_file /= hor_index_bounds_previous_run(1,j) )  THEN
-          WRITE( message_string, * ) 'problem with index bound nxl on ',          &
-                                     'restart file "', myid_char, '"',            &
-                                     '&nxl = ', nxl_on_file, ' but it should be', &
-                                     '&= ', hor_index_bounds_previous_run(1,j),   &
-                                     '&from the index bound information array'
+          WRITE( message_string, * ) 'problem with index bound nxl on ',  &
+                            'restart file "', myid_char, '"',             &
+                            '&nxl = ', nxl_on_file, ' but it should be',  &
+                            '&= ', hor_index_bounds_previous_run(1,j),    &
+                            '&from the index bound information array'
           CALL message( 'read_3d_binary', 'PA0287', 2, 2, 0, 6, 0 )
        ENDIF
 
        IF ( nxr_on_file /= hor_index_bounds_previous_run(2,j) )  THEN
-           WRITE( message_string, * ) 'problem with index bound nxr on ',          &
-                                      'restart file "', myid_char, '"'  ,          &
-                                      '&nxr = ', nxr_on_file, ' but it should be', &
-                                      '&= ', hor_index_bounds_previous_run(2,j),   &
-                                      '&from the index bound information array' 
+           WRITE( message_string, * ) 'problem with index bound nxr on ',   &
+                               'restart file "', myid_char, '"'  ,          &
+                               '&nxr = ', nxr_on_file, ' but it should be', &
+                               '&= ', hor_index_bounds_previous_run(2,j),   &
+                               '&from the index bound information array' 
           CALL message( 'read_3d_binary', 'PA0288', 2, 2, 0, 6, 0 )
 
@@ -270 +270 @@
 
        IF ( nys_on_file /= hor_index_bounds_previous_run(3,j) )  THEN
-          WRITE( message_string, * ) 'problem with index bound nys on ',          &
-                                     'restart file "', myid_char, '"',            &
-                                     '&nys = ', nys_on_file, ' but it should be', &
-                                     '&= ', hor_index_bounds_previous_run(3,j),   &
+          WRITE( message_string, * ) 'problem with index bound nys on ',      &
+                                 'restart file "', myid_char, '"',            &
+                                 '&nys = ', nys_on_file, ' but it should be', &
+                                 '&= ', hor_index_bounds_previous_run(3,j),   &
                                      '&from the index bound information array'
           CALL message( 'read_3d_binary', 'PA0289', 2, 2, 0, 6, 0 ) 
@@ -279 +279 @@
 
        IF ( nyn_on_file /= hor_index_bounds_previous_run(4,j) )  THEN
-          WRITE( message_string, * ) 'problem with index bound nyn on ',          &
-                                     'restart file "', myid_char, '"',            &
-                                     '&nyn = ', nyn_on_file, ' but it should be', &
-                                     '&= ', hor_index_bounds_previous_run(4,j),   &
-                                     '&from the index bound information array'
+          WRITE( message_string, * ) 'problem with index bound nyn on ',    &
+                               'restart file "', myid_char, '"',            &
+                               '&nyn = ', nyn_on_file, ' but it should be', &
+                               '&= ', hor_index_bounds_previous_run(4,j),   &
+                               '&from the index bound information array'
           CALL message( 'read_3d_binary', 'PA0290', 2, 2, 0, 6, 0 ) 
        ENDIF
@@ -614 +614 @@
                    IF ( k == 1 )  THEN
                       IF ( nx_on_file /= nx )  THEN
-                         message_string = 'read_3d_binary: spectrum_x ' //         &
-                                          'on restart file ignored because' //     &
-                                          '&total numbers of grid points (nx) ' // &
-                                          'do not match'
-                         CALL message( 'read_3d_binary', 'PA0293', 0, 1, 0, 6, 0 )  
+                         message_string = 'read_3d_binary: spectrum_x ' // &
+                                     'on restart file ignored because' // &
+                                     '&total numbers of grid points (nx) ' // &
+                                     'do not match'
+                         CALL message( 'read_3d_binary', 'PA0293',&
+                                                                 0, 1, 0, 6, 0 )
                          READ ( 13 )  rdummy
                       ELSE
@@ -628 +629 @@
                    IF ( k == 1 )  THEN
                       IF ( ny_on_file /= ny )  THEN
-                         message_string = 'read_3d_binary: spectrum_y ' //        &
-                                          'on restart file ignored because' //    &
-                                          '&total numbers of grid points (ny) '// &
-                                          'do not match'
-                         CALL message( 'read_3d_binary', 'PA0294', 0, 1, 0, 6, 0 )  
-                         READ ( 13 )  rdummy
+                         message_string = 'read_3d_binary: spectrum_y ' //   &
+                                     'on restart file ignored because' //    &
+                                     '&total numbers of grid points (ny) '// &
+                                     'do not match'
+                         CALL message( 'read_3d_binary', 'PA0294', &
+                                                                 0, 1, 0, 6, 0 )
+                      READ ( 13 )  rdummy
                       ELSE
                          READ ( 13 )  spectrum_y