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

    r3045 r3046  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! Error messages revised
    2323!
    2424! Former revisions:
     
    12101210       aerosol_nh4no3 = .TRUE.
    12111211    ELSE
    1212        message_string = 'unknown aerosol ="' // &
    1213                         TRIM( aerosol_bulk ) // '"'
     1212       message_string = 'unknown aerosol = "' // TRIM( aerosol_bulk ) // '"'
    12141213       CALL message( 'check_parameters', 'PA0469', 1, 2, 0, 6, 0 )
    12151214    ENDIF
     
    18421841       ELSE
    18431842          WRITE( message_string, * ) 'cfl_factor = ', cfl_factor,              &
    1844                  ' out of range 0.0 < cfl_factor <= 1.0 is required'
     1843                 ' out of range &0.0 < cfl_factor <= 1.0 is required'
    18451844          CALL message( 'check_parameters', 'PA0045', 1, 2, 0, 6, 0 )
    18461845       ENDIF
     
    18861885       ELSE
    18871886          message_string = 'variable translation speed used for Galilei-' //   &
    1888              'transformation, which may cause instabilities in stably ' //     &
     1887             'transformation, which may cause & instabilities in stably ' //   &
    18891888             'stratified regions'
    18901889          CALL message( 'check_parameters', 'PA0048', 0, 1, 0, 6, 0 )
     
    20622061         surface_heatflux /= 0.0_wp )  THEN
    20632062       message_string = 'boundary_condition: bc_pt_b = "' // TRIM( bc_pt_b ) //&
    2064                         'is not allowed with constant_heatflux = .TRUE.'
     2063                        '& is not allowed with constant_heatflux = .TRUE.'
    20652064       CALL message( 'check_parameters', 'PA0065', 1, 2, 0, 6, 0 )
    20662065    ENDIF
     
    33783377             IF ( k == 0  .OR.  data_output(i)(ilen-2:ilen) /= '_xy' )  THEN
    33793378                message_string = 'illegal value for data_output: "' //         &
    3380                                  TRIM( var ) // '" only 2d-horizontal ' //     &
     3379                                 TRIM( var ) // '" & only 2d-horizontal ' //   &
    33813380                                 'cross sections are allowed for this value'
    33823381                CALL message( 'check_parameters', 'PA0111', 1, 2, 0, 6, 0 )
     
    36373636                           '5 (parallel netCDF 4) and ' //                     &
    36383637                           '6 (parallel netCDF 4 Classic model) '//            &
    3639                            ' are currently not supported (not yet tested) ' // &
    3640                            'for masked data. Using respective non-parallel' // &
     3638                           '& are currently not supported (not yet tested) ' //&
     3639                           'for masked data. &Using respective non-parallel' //&
    36413640                           ' output for masked data.'
    36423641          CALL message( 'check_parameters', 'PA0383', 0, 0, 0, 6, 0 )
     
    36533652#else
    36543653       message_string = 'netCDF: netCDF4 format requested but no ' //          &
    3655                         'cpp-directive __netcdf4 given  switch '  //           &
     3654                        'cpp-directive __netcdf4 given & switch '  //          &
    36563655                        'back to 64-bit offset format'
    36573656       CALL message( 'check_parameters', 'PA0171', 0, 1, 0, 6, 0 )
     
    36643663#else
    36653664       message_string = 'netCDF: netCDF4 parallel output requested but no ' // &
    3666                         'cpp-directive __netcdf4_parallel given, switch '   // &
     3665                        'cpp-directive __netcdf4_parallel given & switch '   //&
    36673666                        'back to netCDF4 non-parallel output'
    36683667       CALL message( 'check_parameters', 'PA0099', 0, 1, 0, 6, 0 )
     
    41884187       message_string = 'complex_terrain requires topography' //               &
    41894188                        ' = ''read_from_file'''
    4190        CALL message( 'check_parameters', 'PA0472', 1, 2, 0, 6, 0 )
     4189       CALL message( 'check_parameters', 'PA0295', 1, 2, 0, 6, 0 )
    41914190    ENDIF
    41924191
     
    42274226          IF ( dt_fixed )  THEN
    42284227             WRITE( message_string, '(A,F9.4,A)' )  'Output at every '  //     &
    4229                     'timestep is wanted (' // dt_do_name // ' = 0.0). '//      &
     4228                    'timestep is wanted (' // dt_do_name // ' = 0.0).&'//      &
    42304229                    'The output interval is set to the fixed timestep dt '//   &
    42314230                    '= ', dt, 's.'
Note: See TracChangeset for help on using the changeset viewer.