Changeset 3684 for palm/trunk/SOURCE/time_integration.f90
- Timestamp:
- Jan 20, 2019 8:20:58 PM (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/time_integration.f90
r3658 r3684 514 514 ONLY: flight_measurement 515 515 516 USE gust_mod, &517 ONLY: gust_actions, gust_module_enabled518 519 516 USE indices, & 520 517 ONLY: nbgp, nx, nxl, nxlg, nxr, nxrg, nyn, nyng, nys, nysg, nzb, nzt, & … … 537 534 USE lsf_nudging_mod, & 538 535 ONLY: calc_tnudge, ls_forcing_surf, ls_forcing_vert, nudge_ref 536 537 USE module_interface, & 538 ONLY: module_interface_actions 539 539 540 540 USE multi_agent_system_mod, & … … 616 616 ONLY: dt_stg_call, dt_stg_adjust, parametrize_inflow_turbulence, & 617 617 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 622 619 623 620 … … 836 833 837 834 ! 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' ) 846 837 847 838 ! … … 1531 1522 1532 1523 ! 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' ) 1541 1526 1542 1527 ! … … 1762 1747 1763 1748 ! 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' ) 1772 1751 1773 1752 !
Note: See TracChangeset
for help on using the changeset viewer.