Changeset 3874 for palm/trunk/SOURCE/module_interface.f90
- Timestamp:
- Apr 8, 2019 4:53:48 PM (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/module_interface.f90
r3873 r3874 147 147 bcm_header, & 148 148 bcm_actions, & 149 bcm_non_transport_physics, & 149 150 bcm_prognostic_equations, & 150 151 bcm_swap_timelevel, & … … 382 383 module_interface_header, & 383 384 module_interface_actions, & 385 module_interface_non_transport_physics, & 384 386 module_interface_prognostic_equations, & 385 387 module_interface_swap_timelevel, & … … 443 445 MODULE PROCEDURE module_interface_actions_ij 444 446 END INTERFACE module_interface_actions 447 448 INTERFACE module_interface_non_transport_physics 449 MODULE PROCEDURE module_interface_non_transport_physics 450 MODULE PROCEDURE module_interface_non_transport_physics_ij 451 END INTERFACE module_interface_non_transport_physics 445 452 446 453 INTERFACE module_interface_prognostic_equations … … 872 879 ! Description: 873 880 ! ------------ 874 !> Perform module-specific actions while in time-integration ( cache-optimized)881 !> Perform module-specific actions while in time-integration (vector-optimized) 875 882 !------------------------------------------------------------------------------! 876 883 SUBROUTINE module_interface_actions( location ) … … 893 900 ! Description: 894 901 ! ------------ 895 !> Perform module-specific actions while in time-integration ( vector-optimized)902 !> Perform module-specific actions while in time-integration (cache-optimized) 896 903 !------------------------------------------------------------------------------! 897 904 SUBROUTINE module_interface_actions_ij( i, j, location ) … … 916 923 ! Description: 917 924 ! ------------ 925 !> Compute module-specific prognostic_equations (vector-optimized) 926 !------------------------------------------------------------------------------! 927 SUBROUTINE module_interface_non_transport_physics() 928 929 930 IF ( bulk_cloud_model ) CALL bcm_non_transport_physics() 931 932 933 END SUBROUTINE module_interface_non_transport_physics 934 935 936 !------------------------------------------------------------------------------! 937 ! Description: 938 ! ------------ 918 939 !> Compute module-specific prognostic_equations (cache-optimized) 940 !------------------------------------------------------------------------------! 941 SUBROUTINE module_interface_non_transport_physics_ij( i, j ) 942 943 944 INTEGER(iwp), INTENT(IN) :: i !< grid index in x-direction 945 INTEGER(iwp), INTENT(IN) :: j !< grid index in y-direction 946 947 948 IF ( bulk_cloud_model ) CALL bcm_non_transport_physics( i, j ) 949 950 951 END SUBROUTINE module_interface_non_transport_physics_ij 952 953 954 !------------------------------------------------------------------------------! 955 ! Description: 956 ! ------------ 957 !> Compute module-specific prognostic_equations (vector-optimized) 919 958 !------------------------------------------------------------------------------! 920 959 SUBROUTINE module_interface_prognostic_equations() … … 933 972 ! Description: 934 973 ! ------------ 935 !> Compute module-specific prognostic_equations ( vector-optimized)974 !> Compute module-specific prognostic_equations (cache-optimized) 936 975 !------------------------------------------------------------------------------! 937 976 SUBROUTINE module_interface_prognostic_equations_ij( i, j, i_omp_start, tn )
Note: See TracChangeset
for help on using the changeset viewer.