Ignore:
Timestamp:
Apr 8, 2019 5:35:12 PM (2 years ago)
Author:
knoop
Message:

Implemented wtm_actions and moved respective module code into it

File:
1 edited

Legend:

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

    r3874 r3875  
    2525! -----------------
    2626! $Id$
     27! Moved wtm_tendencies to module_interface_actions
     28!
     29! 3874 2019-04-08 16:53:48Z knoop
    2730! Added non_transport_physics module interfaces and moved bcm code into it
    2831!
     
    475478        ONLY:  tcm_prognostic_equations
    476479
    477     USE wind_turbine_model_mod,                                                &
    478         ONLY:  wtm_tendencies
    479 
    480480    IMPLICIT NONE
    481481
     
    722722!--          Effect of Stokes drift (in ocean mode only)
    723723             IF ( stokes_force )  CALL stokes_drift_terms( i, j, 1 )
    724 
    725 !
    726 !--          Forces by wind turbines
    727              IF ( wind_turbine )  CALL wtm_tendencies( i, j, 1 )
    728724
    729725             CALL module_interface_actions( i, j, 'u-tendency' )
     
    806802             IF ( stokes_force )  CALL stokes_drift_terms( i, j, 2 )
    807803
    808 !
    809 !--          Forces by wind turbines
    810              IF ( wind_turbine )  CALL wtm_tendencies( i, j, 2 )
    811 
    812804             CALL module_interface_actions( i, j, 'v-tendency' )
    813805!
     
    885877          IF ( stokes_force )  CALL stokes_drift_terms( i, j, 3 )
    886878
    887 !
    888 !--       Forces by wind turbines
    889           IF ( wind_turbine )  CALL wtm_tendencies( i, j, 3 )
    890 
    891879          CALL module_interface_actions( i, j, 'w-tendency' )
    892880!
     
    13421330!-- Effect of Stokes drift (in ocean mode only)
    13431331    IF ( stokes_force )  CALL stokes_drift_terms( 1 )
    1344 
    1345 !
    1346 !-- Forces by wind turbines
    1347     IF ( wind_turbine )  CALL wtm_tendencies( 1 )
    13481332
    13491333    CALL module_interface_actions( 'u-tendency' )
     
    14501434    IF ( stokes_force )  CALL stokes_drift_terms( 2 )
    14511435
    1452 !
    1453 !-- Forces by wind turbines
    1454     IF ( wind_turbine )  CALL wtm_tendencies( 2 )
    1455 
    14561436    CALL module_interface_actions( 'v-tendency' )
    14571437
     
    15531533    IF ( stokes_force )  CALL stokes_drift_terms( 3 )
    15541534
    1555 !
    1556 !-- Forces by wind turbines
    1557     IF ( wind_turbine )  CALL wtm_tendencies( 3 )
    1558 
    15591535    CALL module_interface_actions( 'w-tendency' )
    15601536
Note: See TracChangeset for help on using the changeset viewer.