Changeset 2322 for palm


Ignore:
Timestamp:
Jul 26, 2017 8:30:28 AM (7 years ago)
Author:
Giersch
Message:

Bugfix of error message and assign error numbers

File:
1 edited

Legend:

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

    r2257 r2322  
    2626! -----------------
    2727! $Id$
     28! Bugfix of error message and assign error numbers
     29!
     30! 2257 2017-06-07 14:07:05Z witha
    2831! Bugfix: turb_cl_tab and turb_cd_tab were set to zero before being allocated
    2932!
     
    432435       IF ( ierrn < 0 )  THEN
    433436          message_string = 'errors in \$wind_turbine_par'
    434           CALL message( 'wtm_parin', 'PA0???', 1, 2, 0, 6, 0 )
     437          CALL message( 'wtm_parin', 'PA0460', 1, 2, 0, 6, 0 )
    435438       ENDIF
    436439       
     
    452455          message_string = 'pitch_control = .TRUE. requires '//                &
    453456                           'speed_control = .TRUE.'
    454           CALL message( 'wtm_check_parameters', 'PA0???', 1, 2, 0, 6, 0 )
     457          CALL message( 'wtm_check_parameters', 'PA0461', 1, 2, 0, 6, 0 )
    455458       ENDIF
    456459       
    457        IF ( ANY( omega_rot(1:nturbines) <= 0.0 ) )  THEN
    458           message_string = 'omega_rot <= 0.0, Please set omega_rot to '     // &
     460       IF ( ANY( omega_rot(1:nturbines) < 0.0 ) )  THEN
     461          message_string = 'omega_rot < 0.0, Please set omega_rot to '     // &
    459462                           'a value larger than zero'
    460           CALL message( 'wtm_check_parameters', 'PA0???', 1, 2, 0, 6, 0 )
     463          CALL message( 'wtm_check_parameters', 'PA0462', 1, 2, 0, 6, 0 )
    461464       ENDIF
    462465       
     
    468471          message_string = 'rcx, rcy, rcz '                                 // &
    469472                           'have to be given for each turbine.'         
    470           CALL message( 'wtm_check_parameters', 'PA0???', 1, 2, 0, 6, 0 )         
     473          CALL message( 'wtm_check_parameters', 'PA0463', 1, 2, 0, 6, 0 )         
    471474         
    472475       ENDIF
     
    10971100       IF ( ierrn /= 0 )  THEN
    10981101          message_string = 'file WTM_DATA does not exist'
    1099           CALL message( 'wtm_init', 'PA0???', 1, 2, 0, 6, 0 )
     1102          CALL message( 'wtm_init', 'PA0464', 1, 2, 0, 6, 0 )
    11001103       ENDIF
    11011104!
Note: See TracChangeset for help on using the changeset viewer.