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

Timestamp:

Apr 8, 2019 5:35:12 PM (5 years ago)

Author:

knoop

Message:

Implemented wtm_actions and moved respective module code into it

File:

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

palm/trunk/SOURCE/prognostic_equations.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Moved wtm_tendencies to module_interface_actions
+! 
+! 3874 2019-04-08 16:53:48Z knoop
 ! Added non_transport_physics module interfaces and moved bcm code into it
 ! 
@@ -475 +478 @@
         ONLY:  tcm_prognostic_equations
 
-    USE wind_turbine_model_mod,                                                &
-        ONLY:  wtm_tendencies
-
     IMPLICIT NONE
 
@@ -722 +722 @@
 !--          Effect of Stokes drift (in ocean mode only)
              IF ( stokes_force )  CALL stokes_drift_terms( i, j, 1 )
-
-!
-!--          Forces by wind turbines
-             IF ( wind_turbine )  CALL wtm_tendencies( i, j, 1 )
 
              CALL module_interface_actions( i, j, 'u-tendency' )
@@ -806 +802 @@
              IF ( stokes_force )  CALL stokes_drift_terms( i, j, 2 )
 
-!
-!--          Forces by wind turbines
-             IF ( wind_turbine )  CALL wtm_tendencies( i, j, 2 )
-
              CALL module_interface_actions( i, j, 'v-tendency' )
 !
@@ -885 +877 @@
           IF ( stokes_force )  CALL stokes_drift_terms( i, j, 3 )
 
-!
-!--       Forces by wind turbines
-          IF ( wind_turbine )  CALL wtm_tendencies( i, j, 3 )
-
           CALL module_interface_actions( i, j, 'w-tendency' )
 !
@@ -1342 +1330 @@
 !-- Effect of Stokes drift (in ocean mode only)
     IF ( stokes_force )  CALL stokes_drift_terms( 1 )
-
-!
-!-- Forces by wind turbines
-    IF ( wind_turbine )  CALL wtm_tendencies( 1 )
 
     CALL module_interface_actions( 'u-tendency' )
@@ -1450 +1434 @@
     IF ( stokes_force )  CALL stokes_drift_terms( 2 )
 
-!
-!-- Forces by wind turbines
-    IF ( wind_turbine )  CALL wtm_tendencies( 2 )
-
     CALL module_interface_actions( 'v-tendency' )
 
@@ -1553 +1533 @@
     IF ( stokes_force )  CALL stokes_drift_terms( 3 )
 
-!
-!-- Forces by wind turbines
-    IF ( wind_turbine )  CALL wtm_tendencies( 3 )
-
     CALL module_interface_actions( 'w-tendency' )