Changeset 3684 for palm/trunk/SOURCE/prognostic_equations.f90

Timestamp:

Jan 20, 2019 8:20:58 PM (5 years ago)

Author:

knoop

Message:

Enabled module_interface_actions in time_integration and prognostic_equations

File:

• palm/trunk/SOURCE/prognostic_equations.f90 (modified) (14 diffs)

palm/trunk/SOURCE/prognostic_equations.f90

@@ -409 +409 @@
         ONLY:  ls_advec, nudge
 
+    USE module_interface,                                                      &
+        ONLY:  module_interface_actions
+
     USE ocean_mod,                                                             &
         ONLY:  ocean_prognostic_equations, stokes_drift_terms, stokes_force,   &
@@ -442 +445 @@
         ONLY:  tcm_prognostic_equations
 
-    USE user_actions_mod,                                                      &
-        ONLY:  user_actions
-
     USE wind_turbine_model_mod,                                                &
         ONLY:  wtm_tendencies
@@ -694 +694 @@
              IF ( wind_turbine )  CALL wtm_tendencies( i, j, 1 )
 
-             CALL user_actions( i, j, 'u-tendency' )
+             CALL module_interface_actions( i, j, 'u-tendency' )
 !
 !--          Prognostic equation for u-velocity component
@@ -777 +777 @@
              IF ( wind_turbine )  CALL wtm_tendencies( i, j, 2 )
 
-             CALL user_actions( i, j, 'v-tendency' )
+             CALL module_interface_actions( i, j, 'v-tendency' )
 !
 !--          Prognostic equation for v-velocity component
@@ -856 +856 @@
           IF ( wind_turbine )  CALL wtm_tendencies( i, j, 3 )
 
-          CALL user_actions( i, j, 'w-tendency' )
+          CALL module_interface_actions( i, j, 'w-tendency' )
 !
 !--       Prognostic equation for w-velocity component
@@ -944 +944 @@
 
 
-             CALL user_actions( i, j, 'pt-tendency' )
+             CALL module_interface_actions( i, j, 'pt-tendency' )
 !
 !--          Prognostic equation for potential temperature
@@ -1029 +1029 @@
              ENDIF
 
-             CALL user_actions( i, j, 'q-tendency' )
+             CALL module_interface_actions( i, j, 'q-tendency' )
 
 !
@@ -1350 +1350 @@
              ENDIF
 
-             CALL user_actions( i, j, 's-tendency' )
+             CALL module_interface_actions( i, j, 's-tendency' )
 
 !
@@ -1615 +1615 @@
     IF ( wind_turbine )  CALL wtm_tendencies( 1 )
 
-    CALL user_actions( 'u-tendency' )
+    CALL module_interface_actions( 'u-tendency' )
 
 !
@@ -1722 +1722 @@
     IF ( wind_turbine )  CALL wtm_tendencies( 2 )
 
-    CALL user_actions( 'v-tendency' )
+    CALL module_interface_actions( 'v-tendency' )
 
 !
@@ -1825 +1825 @@
     IF ( wind_turbine )  CALL wtm_tendencies( 3 )
 
-    CALL user_actions( 'w-tendency' )
+    CALL module_interface_actions( 'w-tendency' )
 
 !
@@ -1957 +1957 @@
        ENDIF
 
-       CALL user_actions( 'pt-tendency' )
+       CALL module_interface_actions( 'pt-tendency' )
 
 !
@@ -2081 +2081 @@
        ENDIF
 
-       CALL user_actions( 'q-tendency' )
+       CALL module_interface_actions( 'q-tendency' )
 
 !
@@ -2556 +2556 @@
        ENDIF
 
-       CALL user_actions( 's-tendency' )
+       CALL module_interface_actions( 's-tendency' )
 
 !