Changeset 4056 for palm/trunk/SOURCE

Timestamp:

Jun 27, 2019 1:53:16 PM (5 years ago)

Author:

Giersch

Message:

Redundant example files deleted, wtm example added as a test case, bugfix in wtm

File:

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

palm/trunk/SOURCE/wind_turbine_model_mod.f90

@@ -26 +26 @@
 ! -----------------
 ! $Id$
+! CASE DEFAULT action in wtm_actions needs to be CONTINUE. Otherwise an abort  
+! will happen for location values that are not implemented as CASE statements
+! but are already realized in the code (e.g. pt-tendency) 
+! 
+! 3885 2019-04-11 11:29:34Z kanani
 ! Changes related to global restructuring of location messages and introduction 
 ! of additional debug messages
@@ -2841 +2846 @@
 
        CASE DEFAULT
-
-          WRITE( message_string, * ) 'unknown prognostic variable: ', TRIM( location )
-          CALL message( 'wtm_actions', 'PA04??', 1, 2, 0, 6, 0 )
+          CONTINUE
 
        END SELECT
@@ -2919 +2922 @@
 
        CASE DEFAULT
-
-          WRITE( message_string, * ) 'unknown prognostic variable: ', TRIM( location )
-          CALL message( 'wtm_actions', 'PA04??', 1, 2, 0, 6, 0 )
+          CONTINUE
 
        END SELECT