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/time_integration.f90

    r3658 r3684  
    514514        ONLY:  flight_measurement
    515515
    516     USE gust_mod,                                                              &
    517         ONLY:  gust_actions, gust_module_enabled
    518 
    519516    USE indices,                                                               &
    520517        ONLY:  nbgp, nx, nxl, nxlg, nxr, nxrg, nyn, nyng, nys, nysg, nzb, nzt, &
     
    537534    USE lsf_nudging_mod,                                                       &
    538535        ONLY:  calc_tnudge, ls_forcing_surf, ls_forcing_vert, nudge_ref
     536
     537    USE module_interface,                                                      &
     538        ONLY:  module_interface_actions
    539539
    540540    USE multi_agent_system_mod,                                                &
     
    616616        ONLY:  dt_stg_call, dt_stg_adjust, parametrize_inflow_turbulence,      &
    617617               stg_adjust, stg_main, time_stg_adjust, time_stg_call,           &
    618                use_syn_turb_gen   
    619 
    620     USE user_actions_mod,                                                      &
    621         ONLY:  user_actions
     618               use_syn_turb_gen
    622619
    623620
     
    836833
    837834!
    838 !--    Execute the gust module actions
    839        IF ( gust_module_enabled )  THEN
    840           CALL gust_actions( 'before_timestep' )
    841        ENDIF
    842 
    843 !
    844 !--    Execute the user-defined actions
    845        CALL user_actions( 'before_timestep' )
     835!--    Execute alle other module actions routunes
     836       CALL module_interface_actions( 'before_timestep' )
    846837
    847838!
     
    15311522
    15321523!
    1533 !--    Execute the gust module actions
    1534        IF ( gust_module_enabled )  THEN
    1535           CALL gust_actions( 'after_integration' )
    1536        ENDIF
    1537 
    1538 !
    1539 !--    Execute user-defined actions
    1540        CALL user_actions( 'after_integration' )
     1524!--    Execute alle other module actions routunes
     1525       CALL module_interface_actions( 'after_integration' )
    15411526
    15421527!
     
    17621747
    17631748!
    1764 !--    Execute the gust module actions
    1765        IF ( gust_module_enabled )  THEN
    1766           CALL gust_actions( 'after_timestep' )
    1767        ENDIF
    1768 
    1769 !
    1770 !--    Execute user-defined actions
    1771        CALL user_actions( 'after_timestep' )
     1749!--    Execute alle other module actions routunes
     1750       CALL module_interface_actions( 'after_timestep' )
    17721751
    17731752!
Note: See TracChangeset for help on using the changeset viewer.