Changeset 3911 for palm/trunk


Ignore:
Timestamp:
Apr 17, 2019 12:26:19 PM (5 years ago)
Author:
knoop
Message:

Bugfix: added before_prognostic_equations case in user_actions and introduced user_interface testcase

File:
1 edited

Legend:

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

    r3768 r3911  
    2525! -----------------
    2626! $Id$
     27! Bugfix: added before_prognostic_equations case in user_actions
     28!
     29! 3768 2019-02-27 14:35:58Z raasch
    2730! variables commented + statements added to avoid compiler warnings about unused variables
    2831!
     
    631634!--       Enter actions to be done before every timestep here
    632635
     636       CASE ( 'before_prognostic_equations' )
     637!
     638!--       Enter actions to be done before all prognostic equations here
    633639
    634640       CASE ( 'after_integration' )
     
    687693
    688694       CASE DEFAULT
    689           message_string = 'unknown location "' // location // '"'
    690           CALL message( 'user_actions', 'UI0001', 1, 2, 0, 6, 0 )
     695          CONTINUE
    691696
    692697    END SELECT
     
    745750
    746751
    747        CASE ( 'before_timestep', 'after_integration', 'after_timestep' )
    748           message_string = 'location "' // location // '" is not ' // &
    749                           'allowed to be called with parameters "i" and "j"'
    750           CALL message( 'user_actions', 'UI0002', 1, 2, 0, 6, 0 )
    751 
    752 
    753752       CASE DEFAULT
    754           message_string = 'unknown location "' // location // '"'
    755           CALL message( 'user_actions', 'UI0001', 1, 2, 0, 6, 0 )
    756 
     753          CONTINUE
    757754
    758755    END SELECT
Note: See TracChangeset for help on using the changeset viewer.