Changeset 3684 for palm/trunk/SOURCE/module_interface.f90
- Timestamp:
- Jan 20, 2019 8:20:58 PM (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/module_interface.f90
r3655 r3684 130 130 gust_check_data_output, & 131 131 gust_header, & 132 gust_actions, & 132 133 gust_swap_timelevel, & 133 134 gust_3d_data_averaging, & … … 240 241 usm_rrd_local, & 241 242 usm_wrd_local 243 244 USE user_actions_mod, & 245 ONLY: user_actions 242 246 243 247 USE user_read_restart_data_mod, & … … 637 641 638 642 643 IF ( gust_module_enabled ) CALL gust_actions( location ) 644 645 CALL user_actions( location ) ! ToDo: make user module switch 646 647 639 648 END SUBROUTINE module_interface_actions 640 649 … … 651 660 INTEGER(iwp), INTENT(IN) :: j !< grid index in y-direction 652 661 CHARACTER (LEN=*), INTENT(IN) :: location !< call location string 662 663 664 IF ( gust_module_enabled ) CALL gust_actions( i, j, location ) 665 666 CALL user_actions( i, j, location ) ! ToDo: make user module switch 653 667 654 668
Note: See TracChangeset
for help on using the changeset viewer.