Ignore:
Timestamp:
Jan 20, 2019 8:20:58 PM (3 years ago)
Author:
knoop
Message:

Enabled module_interface_actions in time_integration and prognostic_equations

File:
1 edited

Legend:

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

    r3655 r3684  
    409409        ONLY:  ls_advec, nudge
    410410
     411    USE module_interface,                                                      &
     412        ONLY:  module_interface_actions
     413
    411414    USE ocean_mod,                                                             &
    412415        ONLY:  ocean_prognostic_equations, stokes_drift_terms, stokes_force,   &
     
    442445        ONLY:  tcm_prognostic_equations
    443446
    444     USE user_actions_mod,                                                      &
    445         ONLY:  user_actions
    446 
    447447    USE wind_turbine_model_mod,                                                &
    448448        ONLY:  wtm_tendencies
     
    694694             IF ( wind_turbine )  CALL wtm_tendencies( i, j, 1 )
    695695
    696              CALL user_actions( i, j, 'u-tendency' )
     696             CALL module_interface_actions( i, j, 'u-tendency' )
    697697!
    698698!--          Prognostic equation for u-velocity component
     
    777777             IF ( wind_turbine )  CALL wtm_tendencies( i, j, 2 )
    778778
    779              CALL user_actions( i, j, 'v-tendency' )
     779             CALL module_interface_actions( i, j, 'v-tendency' )
    780780!
    781781!--          Prognostic equation for v-velocity component
     
    856856          IF ( wind_turbine )  CALL wtm_tendencies( i, j, 3 )
    857857
    858           CALL user_actions( i, j, 'w-tendency' )
     858          CALL module_interface_actions( i, j, 'w-tendency' )
    859859!
    860860!--       Prognostic equation for w-velocity component
     
    944944
    945945
    946              CALL user_actions( i, j, 'pt-tendency' )
     946             CALL module_interface_actions( i, j, 'pt-tendency' )
    947947!
    948948!--          Prognostic equation for potential temperature
     
    10291029             ENDIF
    10301030
    1031              CALL user_actions( i, j, 'q-tendency' )
     1031             CALL module_interface_actions( i, j, 'q-tendency' )
    10321032
    10331033!
     
    13501350             ENDIF
    13511351
    1352              CALL user_actions( i, j, 's-tendency' )
     1352             CALL module_interface_actions( i, j, 's-tendency' )
    13531353
    13541354!
     
    16151615    IF ( wind_turbine )  CALL wtm_tendencies( 1 )
    16161616
    1617     CALL user_actions( 'u-tendency' )
     1617    CALL module_interface_actions( 'u-tendency' )
    16181618
    16191619!
     
    17221722    IF ( wind_turbine )  CALL wtm_tendencies( 2 )
    17231723
    1724     CALL user_actions( 'v-tendency' )
     1724    CALL module_interface_actions( 'v-tendency' )
    17251725
    17261726!
     
    18251825    IF ( wind_turbine )  CALL wtm_tendencies( 3 )
    18261826
    1827     CALL user_actions( 'w-tendency' )
     1827    CALL module_interface_actions( 'w-tendency' )
    18281828
    18291829!
     
    19571957       ENDIF
    19581958
    1959        CALL user_actions( 'pt-tendency' )
     1959       CALL module_interface_actions( 'pt-tendency' )
    19601960
    19611961!
     
    20812081       ENDIF
    20822082
    2083        CALL user_actions( 'q-tendency' )
     2083       CALL module_interface_actions( 'q-tendency' )
    20842084
    20852085!
     
    25562556       ENDIF
    25572557
    2558        CALL user_actions( 's-tendency' )
     2558       CALL module_interface_actions( 's-tendency' )
    25592559
    25602560!
Note: See TracChangeset for help on using the changeset viewer.