Changeset 3837 for palm/trunk
- Timestamp:
- Mar 28, 2019 4:55:58 PM (6 years ago)
- Location:
- palm/trunk/SOURCE
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/gust_mod.f90
r3767 r3837 85 85 gust_header, & 86 86 gust_actions, & 87 gust_prognostic_equations, & 87 88 gust_swap_timelevel, & 88 89 gust_3d_data_averaging, & … … 137 138 END INTERFACE gust_actions 138 139 140 INTERFACE gust_prognostic_equations 141 MODULE PROCEDURE gust_prognostic_equations 142 MODULE PROCEDURE gust_prognostic_equations_ij 143 END INTERFACE gust_prognostic_equations 144 139 145 INTERFACE gust_swap_timelevel 140 146 MODULE PROCEDURE gust_swap_timelevel … … 380 386 381 387 END SUBROUTINE gust_actions_ij 388 389 390 !------------------------------------------------------------------------------! 391 ! Description: 392 ! ------------ 393 !> Call for all grid points 394 !------------------------------------------------------------------------------! 395 SUBROUTINE gust_prognostic_equations() 396 397 ! 398 !-- Next line is just to avoid compiler warnings about unused variables. You may remove it. 399 IF ( dummy_logical ) idum = 1 400 401 END SUBROUTINE gust_prognostic_equations 402 403 404 !------------------------------------------------------------------------------! 405 ! Description: 406 ! ------------ 407 !> Call for grid point i,j 408 !------------------------------------------------------------------------------! 409 SUBROUTINE gust_prognostic_equations_ij( i, j, i_omp_start, tn ) 410 411 412 INTEGER(iwp), INTENT(IN) :: i !< grid index in x-direction 413 INTEGER(iwp), INTENT(IN) :: j !< grid index in y-direction 414 INTEGER(iwp), INTENT(IN) :: i_omp_start !< first loop index of i-loop in prognostic_equations 415 INTEGER(iwp), INTENT(IN) :: tn !< task number of openmp task 416 417 ! 418 !-- Next line is just to avoid compiler warnings about unused variables. You may remove it. 419 IF ( dummy_logical ) idum = i + j + i_omp_start + tn 420 421 END SUBROUTINE gust_prognostic_equations_ij 382 422 383 423 -
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 !------------------------------------------------------------------------------! -
palm/trunk/SOURCE/prognostic_equations.f90
r3833 r3837 432 432 433 433 USE module_interface, & 434 ONLY: module_interface_actions 434 ONLY: module_interface_actions, & 435 module_interface_prognostic_equations 435 436 436 437 USE ocean_mod, & … … 1420 1421 !-- Calculate prognostic equations for turbulence closure 1421 1422 CALL tcm_prognostic_equations( i, j, i_omp_start, tn ) 1423 ! 1424 !-- Calculate prognostic equations for all other modules 1425 CALL module_interface_prognostic_equations( i, j, i_omp_start, tn ) 1422 1426 1423 1427 ! … … 2642 2646 !-- Calculate prognostic equations for turbulence closure 2643 2647 CALL tcm_prognostic_equations() 2648 ! 2649 !-- Calculate prognostic equations for all other modules 2650 CALL module_interface_prognostic_equations() 2644 2651 2645 2652 !
Note: See TracChangeset
for help on using the changeset viewer.