Ignore:
Timestamp:
Mar 26, 2009 3:11:21 PM (12 years ago)
Author:
heinze
Message:

Indentation of the message calls corrected

File:
1 edited

Legend:

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

    r257 r274  
    204204    IF ( files_to_be_opened /= 1  .OR.  numprocs /= numprocs_previous_run ) &
    205205    THEN
    206        WRITE( message_string, * ) 'number of PEs or virtual PE-grid changed in ',    &
    207                                   'restart run&  PE', myid, ' will read from files ', &
    208                                   file_list(1:files_to_be_opened)
     206       WRITE( message_string, * ) 'number of PEs or virtual PE-grid changed ', &
     207                        'in restart run&  PE', myid, ' will read from files ', &
     208                         file_list(1:files_to_be_opened)
    209209       CALL message( 'read_3d_binary', 'PA0285', 0, 0, 0, 6, 0 )
    210210    ENDIF
     
    237237       binary_version = '3.1'
    238238       IF ( TRIM( version_on_file ) /= TRIM( binary_version ) )  THEN
    239           WRITE( message_string, * ) 'version mismatch concerning data ',                    &
    240                                      'from prior run',                                       &
    241                                      '&version on file    = "', TRIM( version_on_file ), '"',&
    242                                      '&version in program = "', TRIM( binary_version ), '"'
     239          WRITE( message_string, * ) 'version mismatch concerning data ',      &
     240                      'from prior run',                                        &
     241                      '&version on file    = "', TRIM( version_on_file ), '"', &
     242                      '&version in program = "', TRIM( binary_version ), '"'
    243243          CALL message( 'read_3d_binary', 'PA0286', 1, 2, 0, 6, 0 )
    244244       ENDIF
     
    251251
    252252       IF ( nxl_on_file /= hor_index_bounds_previous_run(1,j) )  THEN
    253           WRITE( message_string, * ) 'problem with index bound nxl on ',          &
    254                                      'restart file "', myid_char, '"',            &
    255                                      '&nxl = ', nxl_on_file, ' but it should be', &
    256                                      '&= ', hor_index_bounds_previous_run(1,j),   &
    257                                      '&from the index bound information array'
     253          WRITE( message_string, * ) 'problem with index bound nxl on ',  &
     254                            'restart file "', myid_char, '"',             &
     255                            '&nxl = ', nxl_on_file, ' but it should be', &
     256                            '&= ', hor_index_bounds_previous_run(1,j),    &
     257                            '&from the index bound information array'
    258258          CALL message( 'read_3d_binary', 'PA0287', 2, 2, 0, 6, 0 )
    259259       ENDIF
    260260
    261261       IF ( nxr_on_file /= hor_index_bounds_previous_run(2,j) )  THEN
    262            WRITE( message_string, * ) 'problem with index bound nxr on ',          &
    263                                       'restart file "', myid_char, '"'  ,          &
    264                                       '&nxr = ', nxr_on_file, ' but it should be', &
    265                                       '&= ', hor_index_bounds_previous_run(2,j),   &
    266                                       '&from the index bound information array'
     262           WRITE( message_string, * ) 'problem with index bound nxr on ',   &
     263                               'restart file "', myid_char, '"'  ,          &
     264                               '&nxr = ', nxr_on_file, ' but it should be', &
     265                               '&= ', hor_index_bounds_previous_run(2,j),   &
     266                               '&from the index bound information array'
    267267          CALL message( 'read_3d_binary', 'PA0288', 2, 2, 0, 6, 0 )
    268268
     
    270270
    271271       IF ( nys_on_file /= hor_index_bounds_previous_run(3,j) )  THEN
    272           WRITE( message_string, * ) 'problem with index bound nys on ',          &
    273                                      'restart file "', myid_char, '"',            &
    274                                      '&nys = ', nys_on_file, ' but it should be', &
    275                                      '&= ', hor_index_bounds_previous_run(3,j),   &
     272          WRITE( message_string, * ) 'problem with index bound nys on ',      &
     273                                 'restart file "', myid_char, '"',            &
     274                                 '&nys = ', nys_on_file, ' but it should be', &
     275                                 '&= ', hor_index_bounds_previous_run(3,j),   &
    276276                                     '&from the index bound information array'
    277277          CALL message( 'read_3d_binary', 'PA0289', 2, 2, 0, 6, 0 )
     
    279279
    280280       IF ( nyn_on_file /= hor_index_bounds_previous_run(4,j) )  THEN
    281           WRITE( message_string, * ) 'problem with index bound nyn on ',          &
    282                                      'restart file "', myid_char, '"',            &
    283                                      '&nyn = ', nyn_on_file, ' but it should be', &
    284                                      '&= ', hor_index_bounds_previous_run(4,j),   &
    285                                      '&from the index bound information array'
     281          WRITE( message_string, * ) 'problem with index bound nyn on ',    &
     282                               'restart file "', myid_char, '"',            &
     283                               '&nyn = ', nyn_on_file, ' but it should be', &
     284                               '&= ', hor_index_bounds_previous_run(4,j),   &
     285                               '&from the index bound information array'
    286286          CALL message( 'read_3d_binary', 'PA0290', 2, 2, 0, 6, 0 )
    287287       ENDIF
     
    614614                   IF ( k == 1 )  THEN
    615615                      IF ( nx_on_file /= nx )  THEN
    616                          message_string = 'read_3d_binary: spectrum_x ' //         &
    617                                           'on restart file ignored because' //     &
    618                                           '&total numbers of grid points (nx) ' // &
    619                                           'do not match'
    620                          CALL message( 'read_3d_binary', 'PA0293', 0, 1, 0, 6, 0 ) 
     616                         message_string = 'read_3d_binary: spectrum_x ' // &
     617                                     'on restart file ignored because' // &
     618                                     '&total numbers of grid points (nx) ' // &
     619                                     'do not match'
     620                         CALL message( 'read_3d_binary', 'PA0293',&
     621                                                                 0, 1, 0, 6, 0 )
    621622                         READ ( 13 )  rdummy
    622623                      ELSE
     
    628629                   IF ( k == 1 )  THEN
    629630                      IF ( ny_on_file /= ny )  THEN
    630                          message_string = 'read_3d_binary: spectrum_y ' //        &
    631                                           'on restart file ignored because' //    &
    632                                           '&total numbers of grid points (ny) '// &
    633                                           'do not match'
    634                          CALL message( 'read_3d_binary', 'PA0294', 0, 1, 0, 6, 0 ) 
    635                          READ ( 13 )  rdummy
     631                         message_string = 'read_3d_binary: spectrum_y ' //   &
     632                                     'on restart file ignored because' //    &
     633                                     '&total numbers of grid points (ny) '// &
     634                                     'do not match'
     635                         CALL message( 'read_3d_binary', 'PA0294', &
     636                                                                 0, 1, 0, 6, 0 )
     637                      READ ( 13 )  rdummy
    636638                      ELSE
    637639                         READ ( 13 )  spectrum_y
Note: See TracChangeset for help on using the changeset viewer.