Changeset 3837 for palm/trunk/SOURCE/module_interface.f90
- Timestamp:
- Mar 28, 2019 4:55:58 PM (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/module_interface.f90
r3806 r3837 185 185 gust_header, & 186 186 gust_actions, & 187 gust_prognostic_equations, & 187 188 gust_swap_timelevel, & 188 189 gust_3d_data_averaging, & … … 372 373 module_interface_header, & 373 374 module_interface_actions, & 375 module_interface_prognostic_equations, & 374 376 module_interface_swap_timelevel, & 375 377 module_interface_3d_data_averaging, & … … 432 434 MODULE PROCEDURE module_interface_actions_ij 433 435 END INTERFACE module_interface_actions 436 437 INTERFACE module_interface_prognostic_equations 438 MODULE PROCEDURE module_interface_prognostic_equations 439 MODULE PROCEDURE module_interface_prognostic_equations_ij 440 END INTERFACE module_interface_prognostic_equations 434 441 435 442 INTERFACE module_interface_swap_timelevel … … 894 901 ! Description: 895 902 ! ------------ 903 !> Compute module-specific prognostic_equations (cache-optimized) 904 !------------------------------------------------------------------------------! 905 SUBROUTINE module_interface_prognostic_equations() 906 907 908 IF ( gust_module_enabled ) CALL gust_prognostic_equations() 909 910 911 END SUBROUTINE module_interface_prognostic_equations 912 913 914 !------------------------------------------------------------------------------! 915 ! Description: 916 ! ------------ 917 !> Compute module-specific prognostic_equations (vector-optimized) 918 !------------------------------------------------------------------------------! 919 SUBROUTINE module_interface_prognostic_equations_ij( i, j, i_omp_start, tn ) 920 921 922 INTEGER(iwp), INTENT(IN) :: i !< grid index in x-direction 923 INTEGER(iwp), INTENT(IN) :: j !< grid index in y-direction 924 INTEGER(iwp), INTENT(IN) :: i_omp_start !< first loop index of i-loop in prognostic_equations 925 INTEGER(iwp), INTENT(IN) :: tn !< task number of openmp task 926 927 928 IF ( gust_module_enabled ) CALL gust_prognostic_equations( i, j, i_omp_start, tn ) 929 930 931 END SUBROUTINE module_interface_prognostic_equations_ij 932 933 934 !------------------------------------------------------------------------------! 935 ! Description: 936 ! ------------ 896 937 !> Swap the timelevel pointers for module-specific arrays 897 938 !------------------------------------------------------------------------------!
Note: See TracChangeset
for help on using the changeset viewer.