Changeset 2271


Ignore:
Timestamp:
Jun 9, 2017 12:34:55 PM (4 years ago)
Author:
sward
Message:

error messages and numbers updated

Location:
palm/trunk/SOURCE
Files:
9 edited

Legend:

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

    r2270 r2271  
    2525! -----------------
    2626! $Id$
     27! roughness-length check altered
     28! Error messages fixed
     29!
     30! 2270 2017-06-09 12:18:47Z maronga
    2731! Revised numbering (removed 2 timeseries)
    2832!
     
    723727             WRITE( message_string, * ) 'coupling mode "',                     &
    724728                   TRIM( coupling_mode ),                                      &
    725              '": nx+1 in ocean is not divisible without remainder with nx+1 in', &
    726              ' atmosphere'
     729             '": nx+1 in ocean is not divisible by nx+1 in', &
     730             ' atmosphere without remainder'
    727731             CALL message( 'check_parameters', 'PA0339', 1, 2, 0, 6, 0 )
    728732          ENDIF
     
    731735             WRITE( message_string, * ) 'coupling mode "',                     &
    732736                   TRIM( coupling_mode ),                                      &
    733              '": ny+1 in ocean is not divisible without remainder with ny+1 in', &
    734              ' atmosphere'
     737             '": ny+1 in ocean is not divisible by ny+1 in', &
     738             ' atmosphere without remainder'
     739
    735740             CALL message( 'check_parameters', 'PA0340', 1, 2, 0, 6, 0 )
    736741          ENDIF
     
    11831188         conserve_volume_flow ) THEN
    11841189         message_string = 'initializing_actions = "initialize_vortex"' //      &
    1185                         ' ist not allowed with conserve_volume_flow = .T.'
     1190                        ' is not allowed with conserve_volume_flow = .T.'
    11861191       CALL message( 'check_parameters', 'PA0343', 1, 2, 0, 6, 0 )
    11871192    ENDIF       
     
    39763981    IF ( ( constant_flux_layer .OR.  &
    39773982           INDEX( initializing_actions, 'set_1d-model_profiles' ) /= 0 ) &
    3978          .AND. roughness_length > 0.5 * dz )  THEN
     3983         .AND. roughness_length >= 0.5 * dz )  THEN
    39793984       message_string = 'roughness_length must be smaller than dz/2'
    39803985       CALL message( 'check_parameters', 'PA0424', 1, 2, 0, 6, 0 )
  • palm/trunk/SOURCE/init_masks.f90

    r2101 r2271  
    2525! -----------------
    2626! $Id$
     27! Changed error message
     28!
     29! 2101 2017-01-05 16:42:31Z suehring
    2730!
    2831! 2031 2016-10-21 15:11:58Z knoop
     
    688691                     '.&Vertical mask locations will not ', &
    689692                     'match the desired heights&within the stretching ', &
    690                      'region. Recommendation: use mask instead of mask_loop.'
     693                     'region.'
    691694                CALL message( 'init_masks', 'PA0334', 0, 1, 0, 6, 0 )
    692695             ENDIF
  • palm/trunk/SOURCE/init_pegrid.f90

    r2259 r2271  
    2525! -----------------
    2626! $Id$
     27! Error message changed
     28!
     29! 2259 2017-06-08 09:09:11Z gronemeier
    2730! Implemented synthetic turbulence generator
    2831!
     
    938941                  mg_switch_to_pe0_level >= maximum_grid_level_l )  THEN
    939942                message_string = 'mg_switch_to_pe0_level ' // &
    940                                  'out of range and reset to default (=0)'
     943                                 'out of range and reset to 0'
    941944                CALL message( 'init_pegrid', 'PA0235', 0, 1, 0, 6, 0 )
    942945                mg_switch_to_pe0_level = 0
  • palm/trunk/SOURCE/ls_forcing_mod.f90

    r2233 r2271  
    2525! -----------------
    2626! $Id$
     27! Error messages changed
     28!
     29! 2233 2017-05-30 18:08:54Z suehring
    2730!
    2831! 2232 2017-05-30 17:47:52Z suehring
     
    229232
    230233       IF ( time_surf(1) > end_time )  THEN
    231           WRITE ( message_string, * ) 'No time dependent surface variables in ',&
    232                                      '&LSF_DATA for end of run found - ',      &
    233                                      'lsf_surf is set to FALSE'
     234          WRITE ( message_string, * ) 'Time dependent surface variables in ',  &
     235                                      '&LSF_DATA set in after end of ' ,      &
     236                                      'simulation - lsf_surf is set to FALSE'
    234237          CALL message( 'ls_forcing', 'PA0371', 0, 0, 0, 6, 0 )
    235238          lsf_surf = .FALSE.
     
    303306
    304307                IF ( ierrn /= 0 )  THEN
    305                    WRITE( message_string, * ) 'zu(nzt+1) = ', zu(nzt+1), 'm ', &
     308                   WRITE( message_string, * ) 'zu(',k,') = ', zu(k), 'm ', &
    306309                        'is higher than the maximum height in LSF_DATA which ',&
    307310                        'is ', lowheight, 'm. Interpolation on PALM ',         &
  • palm/trunk/SOURCE/nudging_mod.f90

    r2233 r2271  
    2525! -----------------
    2626! $Id$
     27! Error message changed
     28!
     29! 2233 2017-05-30 18:08:54Z suehring
    2730!
    2831! 2232 2017-05-30 17:47:52Z suehring
     
    238241                                                  highqnudge
    239242                IF (ierrn /= 0 )  THEN
    240                    WRITE( message_string, * ) 'zu(nzt+1) = ', zu(nzt+1), 'm is ',&
     243                   WRITE( message_string, * ) 'zu(',k,') = ', zu(k), 'm is ',&
    241244                        'higher than the maximum height in NUDING_DATA which ',  &
    242245                        'is ', lowheight, 'm. Interpolation on PALM ',           &
  • palm/trunk/SOURCE/pmc_handle_communicator_mod.f90

    r2101 r2271  
    2626! -----------------
    2727! $Id$
     28! Error message text changed
     29!
     30! 2101 2017-01-05 16:42:31Z suehring
    2831!
    2932! 2013 2016-09-21 13:07:56Z suehring
     
    536539       ENDDO
    537540       IF ( bad_llcorner /= 0)  THEN
    538           WRITE ( message_string, *)  'lower left corners do not match,',       &
    539                                       'they were set to (0, 0)'
     541          WRITE ( message_string, *)  'at least one dimension of lower ',       &
     542                                      'left corner of one domain is not 0. ',   &
     543                                      'All lower left corners were set to (0, 0)'
    540544          CALL message( 'read_coupling_layout', 'PA0427', 0, 0, 0, 6, 0 )
    541545       ENDIF
  • palm/trunk/SOURCE/time_integration.f90

    r2259 r2271  
    2525! -----------------
    2626! $Id$
     27! Start timestep message changed
     28!
     29! 2259 2017-06-08 09:09:11Z gronemeier
    2730! Implemented synthetic turbulence generator
    2831!
     
    438441#endif
    439442
    440     CALL location_message( 'start with time-stepping', .TRUE. )
     443    CALL location_message( 'starting timestep-sequence', .TRUE. )
    441444!
    442445!-- Start of the time loop
  • palm/trunk/SOURCE/user_define_netcdf_grid.f90

    r2101 r2271  
    2525! -----------------
    2626! $Id$
     27! found = .TRUE. added to grid definition in examples to avoid warning message
     28!
     29! 2101 2017-01-05 16:42:31Z suehring
    2730!
    2831! 2000 2016-08-20 18:09:15Z knoop
     
    7073!--    Uncomment and extend the following lines, if necessary
    7174!       CASE ( 'u2', 'u2_xy', 'u2_xz', 'u2_yz' )
     75!          found  = .TRUE.
    7276!          grid_x = 'xu'
    7377!          grid_y = 'y'
     
    7579
    7680!       CASE ( 'u*v*', 'u*v*_xy', 'u*v*_xz', 'u*v*_yz' )
     81!          found  = .TRUE.
    7782!          grid_x = 'x'
    7883!          grid_y = 'y'
  • palm/trunk/SOURCE/virtual_flight_mod.f90

    r2101 r2271  
    2525! -----------------
    2626! $Id$
     27! Todo added
     28!
     29! 2101 2017-01-05 16:42:31Z suehring
    2730!
    2831! 2000 2016-08-20 18:09:15Z knoop
     
    3942! ------------
    4043!> Module for virtual flight measurements.
     44!> @todo Err msg PA0438: flight can be inside topography -> extra check?
    4145!--------------------------------------------------------------------------------!
    4246 MODULE flight_mod
Note: See TracChangeset for help on using the changeset viewer.