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/check_open.f90

    r263 r274  
    102102             IF ( file_id == 14 .AND. openfile(file_id)%opened_before )  THEN
    103103                message_string = 're-open of unit ' // &
    104                                  ' 14 is not verified. Please check results!'
     104                                 '14 is not verified. Please check results!'
    105105                CALL message( 'check_open', 'PA0165', 0, 1, 0, 6, 0 )       
    106106             ENDIF
     
    108108          CASE DEFAULT
    109109             WRITE( message_string, * ) 're-opening of file-id ', file_id, &
    110                                            ' is not allowed'
     110                                        ' is not allowed'
    111111             CALL message( 'check_open', 'PA0166', 0, 1, 0, 6, 0 )   
    112112               
     
    144144!--       File-ids that are used temporarily in other routines
    145145          WRITE( message_string, * ) 'opening file-id ',file_id, &
    146                                      ' is not allowed since it is used otherwise'
     146                                    ' is not allowed since it is used otherwise'
    147147          CALL message( 'check_open', 'PA0168', 0, 1, 0, 6, 0 )
    148148         
     
    405405                IF ( .NOT. avs_coor_file_found  .OR. &
    406406                     .NOT. avs_data_file_found )  THEN
    407                    message_string= 'no filename for AVS-data-file ' // &
    408                                    'found in MRUN-config-file' // &
     407                   message_string= 'no filename for AVS-data-file ' //       &
     408                                   'found in MRUN-config-file' //            &
    409409                                   ' &filename in FLD-file set to "unknown"'
    410410                   CALL message( 'check_open', 'PA0169', 0, 1, 0, 6, 0 )
     
    725725                                       id_set_xy(av) )
    726726#else
    727                 message_string = 'NetCDF: no 64-bit offset allowed on this machine'
     727                message_string = 'NetCDF: no 64-bit offset allowed ' // &
     728                                 'on this machine'
    728729                CALL message( 'check_open', 'PA0171', 0, 1, 0, 6, 0 )
    729730
     
    786787                                       id_set_xz(av) )
    787788#else
    788                 message_string = 'NetCDF: no 64-bit offset allowed on this machine'
     789                message_string = 'NetCDF: no 64-bit offset allowed ' // &
     790                                 'on this machine'
    789791                CALL message( 'check_open', 'PA0171', 0, 1, 0, 6, 0 )
    790792         
     
    847849                                       id_set_yz(av) )
    848850#else
    849                 message_string = 'NetCDF: no 64-bit offset allowed on this machine'
     851                message_string = 'NetCDF: no 64-bit offset allowed ' // &
     852                                 'on this machine'
    850853                CALL message( 'check_open', 'PA0171', 0, 1, 0, 6, 0 )
    851854               
     
    902905                                       id_set_pr )
    903906#else
    904                 message_string = 'NetCDF: no 64-bit offset allowed on this machine'
     907                message_string = 'NetCDF: no 64-bit offset allowed ' // &
     908                                 'on this machine'
    905909                CALL message( 'check_open', 'PA0171', 0, 1, 0, 6, 0 )
    906910               
     
    957961                                       id_set_ts )
    958962#else
    959                 message_string = 'NetCDF: no 64-bit offset allowed on this machine'
     963                message_string = 'NetCDF: no 64-bit offset allowed ' // &
     964                                 'on this machine'
    960965                CALL message( 'check_open', 'PA0171', 0, 1, 0, 6, 0 )
    961966               
     
    10191024                                       id_set_3d(av) )
    10201025#else
    1021                 message_string = 'NetCDF: no 64-bit offset allowed on this machine'
     1026                message_string = 'NetCDF: no 64-bit offset allowed ' // &
     1027                                 'on this machine'
    10221028                CALL message( 'check_open', 'PA0171', 0, 1, 0, 6, 0 )
    10231029               
     
    10761082                                       id_set_sp )
    10771083#else
    1078                 message_string = 'NetCDF: no 64-bit offset allowed on this machine'
     1084                message_string = 'NetCDF: no 64-bit offset allowed ' // &
     1085                                 'on this machine'
    10791086                CALL message( 'check_open', 'PA0171', 0, 1, 0, 6, 0 )
    10801087               
     
    11521159                                       id_set_prt )
    11531160#else
    1154                 message_string = 'NetCDF: no 64-bit offset allowed on this machine'
     1161                message_string = 'NetCDF: no 64-bit offset allowed ' // &
     1162                                 'on this machine'
    11551163                CALL message( 'check_open', 'PA0171', 0, 1, 0, 6, 0 )
    11561164               
     
    12081216                                       id_set_pts )
    12091217#else
    1210                 message_string = 'NetCDF: no 64-bit offset allowed on this machine'
     1218                message_string = 'NetCDF: no 64-bit offset allowed ' // &
     1219                                 'on this machine'
    12111220                CALL message( 'check_open', 'PA0171', 0, 1, 0, 6, 0 )
    12121221               
Note: See TracChangeset for help on using the changeset viewer.