Changeset 3885 for palm/trunk/SOURCE/chemistry_model_mod.f90
- Timestamp:
- Apr 11, 2019 11:29:34 AM (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/chemistry_model_mod.f90
r3880 r3885 15 15 ! PALM. If not, see <http://www.gnu.org/licenses/>. 16 16 ! 17 ! Copyright 2017-201 8Leibniz Universitaet Hannover18 ! Copyright 2017-201 8Karlsruhe Institute of Technology19 ! Copyright 2017-201 8Freie Universitaet Berlin17 ! Copyright 2017-2019 Leibniz Universitaet Hannover 18 ! Copyright 2017-2019 Karlsruhe Institute of Technology 19 ! Copyright 2017-2019 Freie Universitaet Berlin 20 20 !------------------------------------------------------------------------------! 21 21 ! … … 27 27 ! ----------------- 28 28 ! $Id: chemistry_model_mod.f90 3784 2019-03-05 14:16:20Z banzhafs 29 ! Changes related to global restructuring of location messages and introduction 30 ! of additional debug messages 31 ! 32 ! 3784 2019-03-05 14:16:20Z banzhafs 29 33 ! some formatting of the deposition code 30 34 ! … … 310 314 311 315 USE control_parameters, & 312 ONLY: bc_lr_cyc, bc_ns_cyc, dt_3d, humidity, initializing_actions, message_string, & 316 ONLY: bc_lr_cyc, bc_ns_cyc, & 317 debug_output, & 318 dt_3d, humidity, initializing_actions, message_string, & 313 319 omega, tsc, intermediate_timestep_count, intermediate_timestep_count_max, & 314 320 max_pr_user, timestep_scheme, use_prescribed_profile_data, ws_scheme_sca, air_chemistry … … 1755 1761 INTEGER(iwp) :: j !< running index y dimension 1756 1762 INTEGER(iwp) :: n !< running index for chemical species 1763 1764 1765 IF ( debug_output ) CALL debug_message( 'chem_init', 'start' ) 1757 1766 ! 1758 1767 !-- Next statement is to avoid compiler warning about unused variables … … 1778 1787 ENDIF 1779 1788 1789 IF ( debug_output ) CALL debug_message( 'chem_init', 'end' ) 1780 1790 1781 1791 END SUBROUTINE chem_init … … 1882 1892 !-- Initial profiles of the variables must be computed. 1883 1893 IF ( INDEX( initializing_actions, 'set_1d-model_profiles' ) /= 0 ) THEN 1884 CALL location_message( 'initializing with 1D chemistry model profiles', .FALSE. )1885 1894 ! 1886 1895 !-- Transfer initial profiles to the arrays of the 3D model … … 1897 1906 ELSEIF ( INDEX(initializing_actions, 'set_constant_profiles') /= 0 ) & 1898 1907 THEN 1899 CALL location_message( 'initializing with constant chemistry profiles', .FALSE. )1900 1908 1901 1909 DO lsp = 1, nspec … … 2287 2295 ! write(text,*) 'gas_phase chemistry: solver_type = ',TRIM( solver_type ) 2288 2296 !kk Has to be changed to right calling sequence 2289 !kk CALL location_message( TRIM( text ), .FALSE. )2290 2297 ! IF(myid == 0) THEN 2291 2298 ! write(9,*) ' '
Note: See TracChangeset
for help on using the changeset viewer.