Changeset 2274


Ignore:
Timestamp:
Jun 9, 2017 1:27:48 PM (7 years ago)
Author:
Giersch
Message:

Changed error messages

Location:
palm/trunk/SOURCE
Files:
7 edited

Legend:

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

    r2271 r2274  
    2525! -----------------
    2626! $Id$
     27! Changed error messages
     28!
     29! 2271 2017-06-09 12:34:55Z sward
    2730! roughness-length check altered
    2831! Error messages fixed
     
    957960!
    958961!-- Check ocean setting
    959     IF ( ocean )  THEN
    960 
    961        action = ' '
    962        IF ( action /= ' ' )  THEN
    963           message_string = 'ocean = .T. does not allow ' // TRIM( action )
    964           CALL message( 'check_parameters', 'PA0015', 1, 2, 0, 6, 0 )
    965        ENDIF
    966 
    967     ELSEIF ( TRIM( coupling_mode ) == 'uncoupled'  .AND.                       &
    968              TRIM( coupling_char ) == '_O' )  THEN
     962    IF ( TRIM( coupling_mode ) == 'uncoupled'  .AND.                           &
     963         TRIM( coupling_char ) == '_O' .AND.                                   &
     964         .NOT. ocean )  THEN
    969965
    970966!
     
    10721068       )  THEN
    10731069       use_upstream_for_tke = .TRUE.
    1074        message_string = 'use_upstream_for_tke set .TRUE. because ' //          &
     1070       message_string = 'use_upstream_for_tke is set to .TRUE. because ' //    &
    10751071                        'use_sgs_for_particles = .TRUE. '          //          &
    10761072                        'and scalar_advec /= ws-scheme'
     
    11731169
    11741170             CASE ( 'set_constant_profiles', 'set_1d-model_profiles',          &
    1175                     'by_user', 'initialize_vortex',     'initialize_ptanom' )
     1171                    'by_user', 'initialize_vortex', 'initialize_ptanom' )
    11761172                action = action(position+1:)
    11771173
     
    35033499    IF ( bc_lr /= 'cyclic' ) THEN
    35043500       IF ( pt_damping_width < 0.0_wp  .OR.                                    &
    3505             pt_damping_width > REAL( nx * dx ) )  THEN
     3501            pt_damping_width > REAL( (nx+1) * dx ) )  THEN
    35063502          message_string = 'pt_damping_width out of range'
    35073503          CALL message( 'check_parameters', 'PA0124', 1, 2, 0, 6, 0 )
     
    35113507    IF ( bc_ns /= 'cyclic' )  THEN
    35123508       IF ( pt_damping_width < 0.0_wp  .OR.                                    &
    3513             pt_damping_width > REAL( ny * dy ) )  THEN
     3509            pt_damping_width > REAL( (ny+1) * dy ) )  THEN
    35143510          message_string = 'pt_damping_width out of range'
    35153511          CALL message( 'check_parameters', 'PA0124', 1, 2, 0, 6, 0 )
     
    35943590    IF ( disturbance_level_ind_t < disturbance_level_ind_b )  THEN
    35953591       WRITE( message_string, * )  'disturbance_level_ind_t = ',               &
    3596                 disturbance_level_ind_t, ' must be >= disturbance_level_b = ', &
    3597                 disturbance_level_b
     3592                disturbance_level_ind_t, ' must be >= disturbance_level_ind_b = ', &
     3593                disturbance_level_ind_b
    35983594       CALL message( 'check_parameters', 'PA0130', 1, 2, 0, 6, 0 )
    35993595    ENDIF
     
    36963692         initializing_actions /= 'read_restart_data' )  THEN
    36973693       message_string = 'turbulent_inflow = .T. requires ' //                  &
    3698                         'initializing_actions = ''cyclic_fill'' '
     3694                        'initializing_actions = ''cyclic_fill'' or ' //        &
     3695                        'initializing_actions = ''read_restart_data'' '
    36993696       CALL message( 'check_parameters', 'PA0055', 1, 2, 0, 6, 0 )
    37003697    ENDIF
     
    37033700!-- In case of turbulent inflow calculate the index of the recycling plane
    37043701    IF ( turbulent_inflow )  THEN
    3705        IF ( recycling_width < dx  .OR.  recycling_width > nx * dx )  THEN
     3702       IF ( recycling_width <= dx  .OR.  recycling_width >= nx * dx )  THEN
    37063703          WRITE( message_string, * )  'illegal value for recycling_width:', &
    37073704                                      ' ', recycling_width
     
    37493746       ELSEIF ( damp_level_1d < 0.0_wp  .OR.  damp_level_1d > zu(nzt+1) )  THEN
    37503747          WRITE( message_string, * )  'damp_level_1d = ', damp_level_1d,       &
    3751                  ' must be > 0.0 and < ', zu(nzt+1), '(zu(nzt+1))'
     3748                 ' must be >= 0.0 and <= ', zu(nzt+1), '(zu(nzt+1))'
    37523749          CALL message( 'check_parameters', 'PA0136', 1, 2, 0, 6, 0 )
    37533750       ELSE
     
    37973794       ELSE
    37983795          termination_time_needed = 35.0_wp
    3799        ENDIF
    3800     ENDIF
    3801 
    3802 !
    3803 !-- Check the time needed to terminate a model run
    3804     IF ( host(1:3) == 't3e' )  THEN
    3805 !
    3806 !--    Time needed must be at least 30 seconds on all CRAY machines, because
    3807 !--    MPP_TREMAIN gives the remaining CPU time only in steps of 30 seconds
    3808        IF ( termination_time_needed <= 30.0_wp )  THEN
    3809           WRITE( message_string, * )  'termination_time_needed = ',            &
    3810                  termination_time_needed, ' must be > 30.0 on host "',         &
    3811                  TRIM( host ), '"'
    3812           CALL message( 'check_parameters', 'PA0139', 1, 2, 0, 6, 0 )
    3813        ENDIF
    3814     ELSEIF ( host(1:3) == 'ibm' )  THEN
    3815 !
    3816 !--    On IBM-regatta machines the time should be at least 300 seconds,
    3817 !--    because the job time consumed before executing palm (for compiling,
    3818 !--    copying of files, etc.) has to be regarded
    3819        IF ( termination_time_needed < 300.0_wp )  THEN
    3820           WRITE( message_string, * )  'termination_time_needed = ',            &
    3821                  termination_time_needed, ' should be >= 300.0 on host "',     &
    3822                  TRIM( host ), '"'
    3823           CALL message( 'check_parameters', 'PA0140', 1, 2, 0, 6, 0 )
    38243796       ENDIF
    38253797    ENDIF
     
    40133985          IF ( dt_fixed )  THEN
    40143986             WRITE( message_string, '(A,F9.4,A)' )  'Output at every '  //     &
    4015                     'timestep is desired (' // dt_do_name // ' = 0.0).&'//     &
     3987                    'timestep is wanted (' // dt_do_name // ' = 0.0).&'//      &
    40163988                    'Setting the output interval to the fixed timestep '//     &
    40173989                    'dt = ', dt, 's.'
  • palm/trunk/SOURCE/data_output_dvrp.f90

    r2101 r2274  
    2525! -----------------
    2626! $Id$
     27! Changed error messages
     28!
     29! 2101 2017-01-05 16:42:31Z suehring
    2730!
    2831! 2000 2016-08-20 18:09:15Z knoop
     
    353356                   ELSE                   
    354357                      message_string = 'if humidity = '    //                  &
    355                             'FALSE output of ' // TRIM( output_variable ) //   &
     358                            '.FALSE. output of ' // TRIM( output_variable ) //   &
    356359                            'is not provided'
    357360                      CALL message( 'data_output_dvrp', 'PA0183',&
     
    369372                      ENDDO
    370373                   ELSE                     
    371                       message_string = 'if cloud_physics = FALSE '       //    &
     374                      message_string = 'if cloud_physics = .FALSE. and '       //    &
     375                                  'cloud_droplets = .FALSE. '
    372376                                  'output of ' // TRIM( output_variable) //    &
    373377                                  'is not provided'
     
    387391                   ELSE                   
    388392                      message_string = 'if passive_scalar = '    //            &
    389                             'FALSE output of ' // TRIM( output_variable ) //   &
     393                            '.FALSE. output of ' // TRIM( output_variable ) //   &
    390394                            'is not provided'
    391395                      CALL message( 'data_output_dvrp', 'PA0183',&
  • palm/trunk/SOURCE/fft_xy_mod.f90

    r2119 r2274  
    2525! -----------------
    2626! $Id$
     27! Changed error messages
     28!
     29! 2119 2017-01-17 16:51:50Z raasch
    2730!
    2831! 2118 2017-01-17 16:38:49Z raasch
     
    17931796          message_string = 'fft method "' // TRIM( fft_method) // &
    17941797                           '" not available'
    1795           CALL message( 'fft_x_m', 'PA0189', 1, 2, 0, 6, 0 )
     1798          CALL message( 'fft_y_m', 'PA0189', 1, 2, 0, 6, 0 )
    17961799
    17971800       ENDIF
  • palm/trunk/SOURCE/init_grid.f90

    r2233 r2274  
    2525! -----------------
    2626! $Id$
     27! Changed error messages
     28!
     29! 2233 2017-05-30 18:08:54Z suehring
    2730!
    2831! 2232 2017-05-30 17:47:52Z suehring
     
    726729               tunnel_width_y == 9999999.9_wp  )  THEN
    727730             message_string = 'No tunnel width is given. '
    728              CALL message( 'init_grid', 'PA0207', 1, 2, 0, 6, 0 )
     731             CALL message( 'init_grid', 'PA0280', 1, 2, 0, 6, 0 )
    729732          ENDIF
    730733          IF ( tunnel_width_x /= 9999999.9_wp  .AND.                           &
     
    733736                              'tunnel can only be oriented' //                 &
    734737                              'either in x- or in y-direction.'
    735              CALL message( 'init_grid', 'PA0207', 1, 2, 0, 6, 0 )
     738             CALL message( 'init_grid', 'PA0281', 1, 2, 0, 6, 0 )
    736739          ENDIF
    737740!
     
    740743             IF ( tunnel_width_x > ( nx + 1 ) * dx )  THEN
    741744                message_string = 'Tunnel width too large'
    742                 CALL message( 'init_grid', 'PA0207', 1, 2, 0, 6, 0 )
     745                CALL message( 'init_grid', 'PA0282', 1, 2, 0, 6, 0 )
    743746             ENDIF
    744747
     
    758761               tunnel_width_x - 2.0_wp * tunnel_wall_depth <= 2.0_wp * dx )  THEN
    759762             message_string = 'Tunnel width too small'
    760              CALL message( 'init_grid', 'PA0207', 1, 2, 0, 6, 0 )
     763             CALL message( 'init_grid', 'PA0175', 1, 2, 0, 6, 0 )
    761764          ENDIF
    762765          IF ( tunnel_width_y /= 9999999.9_wp  .AND.                           &
    763766               tunnel_width_y - 2.0_wp * tunnel_wall_depth <= 2.0_wp * dy )  THEN
    764767             message_string = 'Tunnel width too small'
    765              CALL message( 'init_grid', 'PA0207', 1, 2, 0, 6, 0 )
     768             CALL message( 'init_grid', 'PA0455', 1, 2, 0, 6, 0 )
    766769          ENDIF
    767770!
     
    770773             IF ( tunnel_width_y > ( ny + 1 ) * dy )  THEN
    771774                message_string = 'Tunnel width too large'
    772                 CALL message( 'init_grid', 'PA0207', 1, 2, 0, 6, 0 )
     775                CALL message( 'init_grid', 'PA0456', 1, 2, 0, 6, 0 )
    773776             ENDIF
    774777
     
    910913                      message_string = 'NetCDF attribute lod ' //              &
    911914                                       '(level of detail) is not set properly.'
    912                       CALL message( 'init_grid', 'PA0208', 1, 2, 0, 6, 0 ) !Error number still need to be set properly
     915                      CALL message( 'init_grid', 'PA0457', 1, 2, 0, 6, 0 )
    913916                   ENDIF
    914917!
  • palm/trunk/SOURCE/lpm_droplet_collision.f90

    r2123 r2274  
    2020! Current revisions:
    2121! ------------------
    22 !
    23 !
     22! 
     23! 
    2424! Former revisions:
    2525! -----------------
    2626! $Id$
     27! Changed error messages
     28!
     29! 2123 2017-01-18 12:34:59Z hoffmann
    2730!
    2831! 2122 2017-01-18 12:22:54Z hoffmann
     
    330333
    331334          IF ( ANY(weight < 0.0_wp) )  THEN
    332                 WRITE( message_string, * ) 'negative weighting'
     335                WRITE( message_string, * ) 'negative weighting factor'
    333336                CALL message( 'lpm_droplet_collision', 'PA0028',      &
    334337                               2, 2, -1, 6, 1 )
     
    498501
    499502          IF ( ANY(weight < 0.0_wp) )  THEN
    500                 WRITE( message_string, * ) 'negative weighting'
     503                WRITE( message_string, * ) 'negative weighting factor'
    501504                CALL message( 'lpm_droplet_collision', 'PA0028',      &
    502505                               2, 2, -1, 6, 1 )
  • palm/trunk/SOURCE/lpm_init.f90

    r2265 r2274  
    2525! -----------------
    2626! $Id$
     27!  Changed error messages
     28!
     29! 2265 2017-06-08 16:58:28Z schwenkel
    2730! Unused variables removed.
    2831!
     
    301304!-- propably (not realized so far).
    302305    IF ( surf_def_h(1)%ns >= 1 )  THEN
    303        WRITE( message_string, * ) 'Overhanging topograpyh do not work '// &   
     306       WRITE( message_string, * ) 'Overhanging topography do not work '// &   
    304307                                  'with particles'
    305308       CALL message( 'lpm_init', 'PA0212', 0, 1, 0, 6, 0 )
  • palm/trunk/SOURCE/plant_canopy_model_mod.f90

    r2233 r2274  
    2525! -----------------
    2626! $Id$
     27! Changed error messages
     28!
     29! 2233 2017-05-30 18:08:54Z suehring
    2730!
    2831! 2232 2017-05-30 17:47:52Z suehring
     
    301304
    302305       IF ( calc_beta_lad_profile  .AND.  lad_surface /= 0.0_wp )  THEN
    303           message_string = 'simultaneous setting of alpha_lad /= 9999999.9' // &
     306          message_string = 'simultaneous setting of alpha_lad /= 9999999.9 '// &
     307                           'combined with beta_lad /= 9999999.9 '           // &
    304308                           'and lad_surface /= 0.0 is not possible, '       // &
    305309                           'use either vertical gradients or the beta '     // &
Note: See TracChangeset for help on using the changeset viewer.