Changeset 3046 for palm/trunk/SOURCE/check_parameters.f90

Timestamp:

May 29, 2018 8:02:15 AM (6 years ago)

Author:

Giersch

Message:

Remaining error messages revised, comments extended

File:

• palm/trunk/SOURCE/check_parameters.f90 (modified) (11 diffs)

palm/trunk/SOURCE/check_parameters.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! 
+! Error messages revised
 ! 
 ! Former revisions:
@@ -1210 +1210 @@
        aerosol_nh4no3 = .TRUE.
     ELSE
-       message_string = 'unknown aerosol ="' // &
-                        TRIM( aerosol_bulk ) // '"'
+       message_string = 'unknown aerosol = "' // TRIM( aerosol_bulk ) // '"'
        CALL message( 'check_parameters', 'PA0469', 1, 2, 0, 6, 0 )
     ENDIF
@@ -1842 +1841 @@
        ELSE
           WRITE( message_string, * ) 'cfl_factor = ', cfl_factor,              &
-                 ' out of range 0.0 < cfl_factor <= 1.0 is required'
+                 ' out of range &0.0 < cfl_factor <= 1.0 is required'
           CALL message( 'check_parameters', 'PA0045', 1, 2, 0, 6, 0 )
        ENDIF
@@ -1886 +1885 @@
        ELSE
           message_string = 'variable translation speed used for Galilei-' //   &
-             'transformation, which may cause instabilities in stably ' //     &
+             'transformation, which may cause & instabilities in stably ' //   &
              'stratified regions'
           CALL message( 'check_parameters', 'PA0048', 0, 1, 0, 6, 0 )
@@ -2062 +2061 @@
          surface_heatflux /= 0.0_wp )  THEN
        message_string = 'boundary_condition: bc_pt_b = "' // TRIM( bc_pt_b ) //&
-                        'is not allowed with constant_heatflux = .TRUE.'
+                        '& is not allowed with constant_heatflux = .TRUE.'
        CALL message( 'check_parameters', 'PA0065', 1, 2, 0, 6, 0 )
     ENDIF
@@ -3378 +3377 @@
              IF ( k == 0  .OR.  data_output(i)(ilen-2:ilen) /= '_xy' )  THEN
                 message_string = 'illegal value for data_output: "' //         &
-                                 TRIM( var ) // '" only 2d-horizontal ' //     &
+                                 TRIM( var ) // '" & only 2d-horizontal ' //   &
                                  'cross sections are allowed for this value'
                 CALL message( 'check_parameters', 'PA0111', 1, 2, 0, 6, 0 )
@@ -3637 +3636 @@
                            '5 (parallel netCDF 4) and ' //                     &
                            '6 (parallel netCDF 4 Classic model) '//            &
-                           ' are currently not supported (not yet tested) ' // &
-                           'for masked data. Using respective non-parallel' // &
+                           '& are currently not supported (not yet tested) ' //&
+                           'for masked data. &Using respective non-parallel' //&
                            ' output for masked data.'
           CALL message( 'check_parameters', 'PA0383', 0, 0, 0, 6, 0 )
@@ -3653 +3652 @@
 #else
        message_string = 'netCDF: netCDF4 format requested but no ' //          &
-                        'cpp-directive __netcdf4 given  switch '  //           &
+                        'cpp-directive __netcdf4 given & switch '  //          &
                         'back to 64-bit offset format'
        CALL message( 'check_parameters', 'PA0171', 0, 1, 0, 6, 0 )
@@ -3664 +3663 @@
 #else
        message_string = 'netCDF: netCDF4 parallel output requested but no ' // &
-                        'cpp-directive __netcdf4_parallel given, switch '   // &
+                        'cpp-directive __netcdf4_parallel given & switch '   //&
                         'back to netCDF4 non-parallel output'
        CALL message( 'check_parameters', 'PA0099', 0, 1, 0, 6, 0 )
@@ -4188 +4187 @@
        message_string = 'complex_terrain requires topography' //               &
                         ' = ''read_from_file'''
-       CALL message( 'check_parameters', 'PA0472', 1, 2, 0, 6, 0 )
+       CALL message( 'check_parameters', 'PA0295', 1, 2, 0, 6, 0 )
     ENDIF
 
@@ -4227 +4226 @@
           IF ( dt_fixed )  THEN
              WRITE( message_string, '(A,F9.4,A)' )  'Output at every '  //     &
-                    'timestep is wanted (' // dt_do_name // ' = 0.0). '//      &
+                    'timestep is wanted (' // dt_do_name // ' = 0.0).&'//      &
                     'The output interval is set to the fixed timestep dt '//   &
                     '= ', dt, 's.'