Changeset 2322 for palm

Timestamp:

Jul 26, 2017 8:30:28 AM (7 years ago)

Author:

Giersch

Message:

Bugfix of error message and assign error numbers

File:

• palm/trunk/SOURCE/wind_turbine_model_mod.f90 (modified) (5 diffs)

palm/trunk/SOURCE/wind_turbine_model_mod.f90

@@ -26 +26 @@
 ! -----------------
 ! $Id$
+! Bugfix of error message and assign error numbers
+! 
+! 2257 2017-06-07 14:07:05Z witha
 ! Bugfix: turb_cl_tab and turb_cd_tab were set to zero before being allocated
 ! 
@@ -432 +435 @@
        IF ( ierrn < 0 )  THEN
           message_string = 'errors in \$wind_turbine_par'
-          CALL message( 'wtm_parin', 'PA0???', 1, 2, 0, 6, 0 )
+          CALL message( 'wtm_parin', 'PA0460', 1, 2, 0, 6, 0 )
        ENDIF
        
@@ -452 +455 @@
           message_string = 'pitch_control = .TRUE. requires '//                &
                            'speed_control = .TRUE.'
-          CALL message( 'wtm_check_parameters', 'PA0???', 1, 2, 0, 6, 0 )
+          CALL message( 'wtm_check_parameters', 'PA0461', 1, 2, 0, 6, 0 )
        ENDIF
        
-       IF ( ANY( omega_rot(1:nturbines) <= 0.0 ) )  THEN
-          message_string = 'omega_rot <= 0.0, Please set omega_rot to '     // &
+       IF ( ANY( omega_rot(1:nturbines) < 0.0 ) )  THEN
+          message_string = 'omega_rot < 0.0, Please set omega_rot to '     // &
                            'a value larger than zero'
-          CALL message( 'wtm_check_parameters', 'PA0???', 1, 2, 0, 6, 0 )
+          CALL message( 'wtm_check_parameters', 'PA0462', 1, 2, 0, 6, 0 )
        ENDIF
        
@@ -468 +471 @@
           message_string = 'rcx, rcy, rcz '                                 // &
                            'have to be given for each turbine.'          
-          CALL message( 'wtm_check_parameters', 'PA0???', 1, 2, 0, 6, 0 )          
+          CALL message( 'wtm_check_parameters', 'PA0463', 1, 2, 0, 6, 0 )          
           
        ENDIF
@@ -1097 +1100 @@
        IF ( ierrn /= 0 )  THEN
           message_string = 'file WTM_DATA does not exist'
-          CALL message( 'wtm_init', 'PA0???', 1, 2, 0, 6, 0 )
+          CALL message( 'wtm_init', 'PA0464', 1, 2, 0, 6, 0 )
        ENDIF
 !