Changeset 4056

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

Location:

palm/trunk

Files:

• EXAMPLES/benchmark_openacc (deleted)
• EXAMPLES/dvr (deleted)
• EXAMPLES/test_salsa (deleted)
• EXAMPLES/wind_turbine (deleted)
• SOURCE/wind_turbine_model_mod.f90 (modified) (3 diffs)
• TESTS/cases/wind_turbine_model (added)
• TESTS/cases/wind_turbine_model/INPUT (added)
• TESTS/cases/wind_turbine_model/INPUT/wind_turbine_model_p3d (added)
• TESTS/cases/wind_turbine_model/INPUT/wind_turbine_model_wtm (added)
• TESTS/cases/wind_turbine_model/MONITORING (added)
• TESTS/cases/wind_turbine_model/MONITORING/wind_turbine_model_rc (added)
• TESTS/cases/wind_turbine_model/OUTPUT (added)
• TESTS/cases/wind_turbine_model/OUTPUT/wind_turbine_model_pr.nc (added)
• TESTS/cases/wind_turbine_model/case_config.yml (added)

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