Changeset 3911 for palm/trunk

Timestamp:

Apr 17, 2019 12:26:19 PM (6 years ago)

Author:

knoop

Message:

Bugfix: added before_prognostic_equations case in user_actions and introduced user_interface testcase

File:

• palm/trunk/SOURCE/user_module.f90 (modified) (4 diffs)

palm/trunk/SOURCE/user_module.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Bugfix: added before_prognostic_equations case in user_actions
+! 
+! 3768 2019-02-27 14:35:58Z raasch
 ! variables commented + statements added to avoid compiler warnings about unused variables
 !
@@ -631 +634 @@
 !--       Enter actions to be done before every timestep here
 
+       CASE ( 'before_prognostic_equations' )
+!
+!--       Enter actions to be done before all prognostic equations here
 
        CASE ( 'after_integration' )
@@ -687 +693 @@
 
        CASE DEFAULT
-          message_string = 'unknown location "' // location // '"'
-          CALL message( 'user_actions', 'UI0001', 1, 2, 0, 6, 0 )
+          CONTINUE
 
     END SELECT
@@ -745 +750 @@
 
 
-       CASE ( 'before_timestep', 'after_integration', 'after_timestep' )
-          message_string = 'location "' // location // '" is not ' // &
-                          'allowed to be called with parameters "i" and "j"'
-          CALL message( 'user_actions', 'UI0002', 1, 2, 0, 6, 0 )
-
-
        CASE DEFAULT
-          message_string = 'unknown location "' // location // '"'
-          CALL message( 'user_actions', 'UI0001', 1, 2, 0, 6, 0 )
-
+          CONTINUE
 
     END SELECT