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

Indentation of the message calls corrected

File:
1 edited

Legend:

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

    r257 r274  
    9999    READ ( 13 )  variable_chr
    100100    IF ( TRIM( variable_chr ) /= 'numprocs' )  THEN
    101        WRITE( message_string, * ) 'numprocs not found in data from prior run ', &
    102                                   'on PE ', myid
     101       WRITE( message_string, * ) 'numprocs not found in data from prior ', &
     102                                  'run on PE ', myid
    103103       CALL message( 'read_var_list', 'PA0297', 1, 2, 0, 6, 0 )
    104104    ENDIF
     
    633633    READ ( 13 )  variable_chr
    634634    IF ( TRIM( variable_chr ) /= 'numprocs' )  THEN
    635        WRITE( message_string, * ) 'numprocs not found in data from prior run ', &
    636                                   'on PE ', myid
     635       WRITE( message_string, * ) 'numprocs not found in data from prior ', &
     636                                  'run on PE ', myid
    637637       CALL message( 'read_parts_of_var_list', 'PA0297', 1, 2, 0, 6, 0 )
    638638    ENDIF
     
    663663    IF ( nz_on_file /= nz )  THEN
    664664       WRITE( message_string, * ) 'mismatch concerning number of ',      &
    665                                  'gridpoints along z',                  &
    666                                  '&nz on file    = "', nz_on_file, '"', &
    667                                  '&nz from run   = "', nz, '"'
     665                                  'gridpoints along z',                  &
     666                                  '&nz on file    = "', nz_on_file, '"', &
     667                                  '&nz from run   = "', nz, '"'
    668668       CALL message( 'read_parts_of_var_list', 'PA0304', 1, 2, 0, 6, 0 )
    669669    ENDIF
     
    676676    READ ( 13 )  max_pr_user_on_file
    677677    IF ( max_pr_user_on_file /= max_pr_user )  THEN
    678        WRITE( message_string, * ) 'number of user profiles on res', &
    679                                   'tart data file differs from the current run', &
    680                                   '&max_pr_user on file    = "', &
    681                                   max_pr_user_on_file, '"', &
    682                                   '&max_pr_user from run   = "', &
     678       WRITE( message_string, * ) 'number of user profiles on res',           &
     679                                  'tart data file differs from the current ', &
     680                                  'run&max_pr_user on file    = "',          &
     681                                  max_pr_user_on_file, '"',                   &
     682                                  '&max_pr_user from run   = "',              &
    683683                                  max_pr_user, '"'
    684684       CALL message( 'read_parts_of_var_list', 'PA0306', 0, 0, 0, 6, 0 )
     
    695695    READ ( 13 )  statistic_regions_on_file
    696696    IF ( statistic_regions_on_file /= statistic_regions )  THEN
    697        WRITE( message_string, * ) 'statistic regions on restart data file differ ',&
    698                                   'from the current run',&
    699                                   '&statistic regions on file    = "', &
    700                                   statistic_regions_on_file, '"', &
    701                                   '&statistic regions from run   = "', &
    702                                    statistic_regions, '"', &
     697       WRITE( message_string, * ) 'statistic regions on restart data file ',&
     698                                  'differ from the current run',            &
     699                                  '&statistic regions on file    = "',      &
     700                                  statistic_regions_on_file, '"',           &
     701                                  '&statistic regions from run   = "',      &
     702                                   statistic_regions, '"',                  &
    703703                                  '&statistic data may be lost!'
    704704       CALL message( 'read_parts_of_var_list', 'PA0308', 0, 1, 0, 6, 0 )
     
    725725             READ ( 13 )  average_count_pr
    726726             IF ( average_count_pr /= 0 )  THEN
    727                 WRITE( message_string, * ) 'inflow profiles not temporally averaged.',&
    728                                            '&Averaging will be done now using ',      &
    729                                            average_count_pr, ' samples.'
    730                 CALL message( 'read_parts_of_var_list', 'PA0309', 0, 1, 0, 6, 0 )
     727                WRITE( message_string, * ) 'inflow profiles not temporally ',  &
     728                               'averaged. &Averaging will be done now using ', &
     729                               average_count_pr, ' samples.'
     730                CALL message( 'read_parts_of_var_list', 'PA0309', &
     731                                                                 0, 1, 0, 6, 0 )
    731732             ENDIF
    732733
Note: See TracChangeset for help on using the changeset viewer.