Changeset 3931 for palm/trunk/SOURCE/module_interface.f90
- Timestamp:
- Apr 24, 2019 4:34:28 PM (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/module_interface.f90
r3930 r3931 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! Changed chem_non_transport_physics to chem_non_advective_processes23 22 ! 24 23 ! … … 26 25 ! ----------------- 27 26 ! $Id$ 27 ! Changed non_transport_physics to non_advective_processes 28 ! 29 ! 3930 2019-04-24 14:57:18Z forkel 28 30 ! Correct/complete module_interface introduction for chemistry model 29 31 ! … … 155 157 bcm_header, & 156 158 bcm_actions, & 157 bcm_non_ transport_physics,&159 bcm_non_advective_processes, & 158 160 bcm_exchange_horiz, & 159 161 bcm_prognostic_equations, & … … 397 399 module_interface_header, & 398 400 module_interface_actions, & 399 module_interface_non_ transport_physics,&401 module_interface_non_advective_processes, & 400 402 module_interface_exchange_horiz, & 401 403 module_interface_prognostic_equations, & … … 461 463 END INTERFACE module_interface_actions 462 464 463 INTERFACE module_interface_non_ transport_physics464 MODULE PROCEDURE module_interface_non_ transport_physics465 MODULE PROCEDURE module_interface_non_ transport_physics_ij466 END INTERFACE module_interface_non_ transport_physics465 INTERFACE module_interface_non_advective_processes 466 MODULE PROCEDURE module_interface_non_advective_processes 467 MODULE PROCEDURE module_interface_non_advective_processes_ij 468 END INTERFACE module_interface_non_advective_processes 467 469 468 470 INTERFACE module_interface_exchange_horiz … … 954 956 ! Description: 955 957 ! ------------ 956 !> Compute module-specific prognostic_equations (vector-optimized)957 !------------------------------------------------------------------------------! 958 SUBROUTINE module_interface_non_ transport_physics()959 960 961 IF ( bulk_cloud_model ) CALL bcm_non_ transport_physics()958 !> Compute module-specificc non_advective_processes (vector-optimized) 959 !------------------------------------------------------------------------------! 960 SUBROUTINE module_interface_non_advective_processes() 961 962 963 IF ( bulk_cloud_model ) CALL bcm_non_advective_processes() 962 964 IF ( air_chemistry ) CALL chem_non_advective_processes() 963 965 964 966 965 END SUBROUTINE module_interface_non_ transport_physics966 967 968 !------------------------------------------------------------------------------! 969 ! Description: 970 ! ------------ 971 !> Compute module-specific prognostic_equations (cache-optimized)972 !------------------------------------------------------------------------------! 973 SUBROUTINE module_interface_non_ transport_physics_ij( i, j )967 END SUBROUTINE module_interface_non_advective_processes 968 969 970 !------------------------------------------------------------------------------! 971 ! Description: 972 ! ------------ 973 !> Compute module-specific non_advective_processes (cache-optimized) 974 !------------------------------------------------------------------------------! 975 SUBROUTINE module_interface_non_advective_processes_ij( i, j ) 974 976 975 977 … … 978 980 979 981 982 IF ( bulk_cloud_model ) CALL bcm_non_advective_processes( i, j ) 980 983 IF ( air_chemistry ) CALL chem_non_advective_processes( i, j ) 981 IF ( bulk_cloud_model ) CALL bcm_non_transport_physics( i, j ) 982 983 984 END SUBROUTINE module_interface_non_transport_physics_ij 984 985 986 END SUBROUTINE module_interface_non_advective_processes_ij 985 987 986 988 !------------------------------------------------------------------------------!
Note: See TracChangeset
for help on using the changeset viewer.