Changeset 4056 for palm/trunk/SOURCE


Ignore:
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:
1 edited

Legend:

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

    r3885 r4056  
    2626! -----------------
    2727! $Id$
     28! CASE DEFAULT action in wtm_actions needs to be CONTINUE. Otherwise an abort 
     29! will happen for location values that are not implemented as CASE statements
     30! but are already realized in the code (e.g. pt-tendency)
     31!
     32! 3885 2019-04-11 11:29:34Z kanani
    2833! Changes related to global restructuring of location messages and introduction
    2934! of additional debug messages
     
    28412846
    28422847       CASE DEFAULT
    2843 
    2844           WRITE( message_string, * ) 'unknown prognostic variable: ', TRIM( location )
    2845           CALL message( 'wtm_actions', 'PA04??', 1, 2, 0, 6, 0 )
     2848          CONTINUE
    28462849
    28472850       END SELECT
     
    29192922
    29202923       CASE DEFAULT
    2921 
    2922           WRITE( message_string, * ) 'unknown prognostic variable: ', TRIM( location )
    2923           CALL message( 'wtm_actions', 'PA04??', 1, 2, 0, 6, 0 )
     2924          CONTINUE
    29242925
    29252926       END SELECT
Note: See TracChangeset for help on using the changeset viewer.