Ignore:
Timestamp:
May 29, 2018 8:02:15 AM (3 years ago)
Author:
Giersch
Message:

Remaining error messages revised, comments extended

File:
1 edited

Legend:

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

    r3045 r3046  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! Error messages revised
    2323!
    2424! Former revisions:
     
    679679    IF ( ioerr /= 0 )  THEN
    680680       message_string = 'local file ENVPAR not found' //                       &
    681                         ' some variables for steering may not be properly set'
     681                        '&some variables for steering may not be properly set'
    682682       CALL message( 'parin', 'PA0276', 0, 1, 0, 6, 0 )
    683683    ELSE
     
    685685       IF ( ioerr < 0 )  THEN
    686686          message_string = 'no envpar-NAMELIST found in local file '  //       &
    687                            'ENVPAR or some variables for steering may '  //    &
     687                           'ENVPAR& or some variables for steering may '  //   &
    688688                           'not be properly set'
    689689          CALL message( 'parin', 'PA0278', 0, 1, 0, 6, 0 )
    690690       ELSEIF ( ioerr > 0 )  THEN
    691691          message_string = 'errors in local file ENVPAR' //                    &
    692                            ' some variables for steering may not be properly set'
     692                           '&some variables for steering may not be properly set'
    693693          CALL message( 'parin', 'PA0277', 0, 1, 0, 6, 0 )
    694694       ENDIF
     
    745745          GOTO 12
    746746
    747  10       message_string = 'errors in &initialization_parameters or no ' //    &
    748                            '&initialization_parameters-namelist ' //           &
     747 10       message_string = 'errors in initialization_parameters & or no ' //  &
     748                           'initialization_parameters-namelist ' //           &
    749749                           'found (CRAY-machines only)'
    750750          CALL message( 'parin', 'PA0271', 1, 2, 0, 6, 0 )
     
    753753          READ ( 11, inipar, ERR=13, END=14 )
    754754 
    755           message_string = 'namelist &inipar is deprecated and will be ' //    &
    756                           'removed in near future. Please use namelist ' //    &
    757                           '&initialization_parameters instead'
     755          message_string = 'namelist inipar is deprecated and will be ' //    &
     756                          'removed in near future. & Please use namelist ' // &
     757                          'initialization_parameters instead'
    758758          CALL message( 'parin', 'PA0017', 0, 1, 0, 6, 0 )
    759759 
    760760          GOTO 12
    761761 
    762  13       message_string = 'errors in inipar  or no inipar-namelist ' //       &
     762 13       message_string = 'errors in inipar & or no inipar-namelist ' //      &
    763763                           'found (CRAY-machines only)'
    764764          CALL message( 'parin', 'PA0271', 1, 2, 0, 6, 0 )
    765765         
    766  14       message_string = 'no &initialization_parameters-namelist found'
     766 14       message_string = 'no initialization_parameters-namelist found'
    767767          CALL message( 'parin', 'PA0272', 1, 2, 0, 6, 0 )
    768768
     
    799799 
    800800          message_string = 'namelist d3par is deprecated and will be ' //      &
    801                           'removed in near future. Please &use namelist ' //   &
     801                          'removed in near future. &Please use namelist ' //   &
    802802                          'runtime_parameters instead'
    803803          CALL message( 'parin', 'PA0487', 0, 1, 0, 6, 0 )
Note: See TracChangeset for help on using the changeset viewer.