Index: palm/trunk/SOURCE/prognostic_equations.f90
===================================================================
--- palm/trunk/SOURCE/prognostic_equations.f90	(revision 4110)
+++ palm/trunk/SOURCE/prognostic_equations.f90	(revision 4180)
@@ -99,276 +99,4 @@
 ! OpenACC port for SPEC
 ! 
-! 3589 2018-11-30 15:09:51Z suehring
-! Move the control parameter "salsa" from salsa_mod to control_parameters 
-! (M. Kurppa)
-! 
-! 3582 2018-11-29 19:16:36Z suehring
-! Implementation of a new aerosol module salsa.
-! Remove cpu-logs from i,j loop in cache version.
-! 
-! 3458 2018-10-30 14:51:23Z kanani
-! remove duplicate USE chem_modules
-! from chemistry branch r3443, banzhafs, basit:
-! chem_depo call introduced
-! code added for decycling chemistry
-!
-! 3386 2018-10-19 16:28:22Z gronemeier
-! Renamed tcm_prognostic to tcm_prognostic_equations
-! 
-! 3355 2018-10-16 14:03:34Z knoop
-! (from branch resler)
-! Fix for chemistry call
-! 
-! 3302 2018-10-03 02:39:40Z raasch
-! Stokes drift + wave breaking term added
-! 
-! 3298 2018-10-02 12:21:11Z kanani
-! Code added for decycling chemistry (basit)
-!
-! 3294 2018-10-01 02:37:10Z raasch
-! changes concerning modularization of ocean option
-! 
-! 3274 2018-09-24 15:42:55Z knoop
-! Modularization of all bulk cloud physics code components
-! 
-! 3241 2018-09-12 15:02:00Z raasch
-! omp_get_thread_num now declared in omp directive
-! 
-! 3183 2018-07-27 14:25:55Z suehring
-! Remove unused variables from USE statements
-! 
-! 3182 2018-07-27 13:36:03Z suehring
-! Revise recent bugfix for nesting
-! 
-! 3021 2018-05-16 08:14:20Z maronga
-! Bugfix in IF clause for nesting
-! 
-! 3014 2018-05-09 08:42:38Z maronga
-! Fixed a bug in the IF condition to call pcm_tendency in case of 
-! potential temperature
-! 
-! 2815 2018-02-19 11:29:57Z kanani
-! Rename chem_tendency to chem_prognostic_equations,
-! implement vector version for air chemistry
-! 
-! 2766 2018-01-22 17:17:47Z kanani
-! Removed preprocessor directive __chem
-! 
-! 2746 2018-01-15 12:06:04Z suehring
-! Move flag plant canopy to modules
-! 
-! 2719 2018-01-02 09:02:06Z maronga
-! Bugfix for last change.
-! 
-! 2718 2018-01-02 08:49:38Z maronga
-! Corrected "Former revisions" section
-! 
-! 2696 2017-12-14 17:12:51Z kanani
-! - Change in file header (GPL part)
-! - Moved TKE equation to tcm_prognostic (TG)
-! - Added switch for chemical reactions (RF, FK)
-! - Implementation of chemistry module (RF, BK, FK)
-! 
-! 2563 2017-10-19 15:36:10Z Giersch
-! Variable wind_turbine moved to module control_parameters
-! 
-! 2320 2017-07-21 12:47:43Z suehring
-! Modularize large-scale forcing and nudging
-! 
-! 2292 2017-06-20 09:51:42Z schwenkel
-! Implementation of new microphysic scheme: cloud_scheme = 'morrison' 
-! includes two more prognostic equations for cloud drop concentration (nc)  
-! and cloud water content (qc). 
-! 
-! 2261 2017-06-08 14:25:57Z raasch
-! bugfix for r2232: openmp directives removed
-! 
-! 2233 2017-05-30 18:08:54Z suehring
-!
-! 2232 2017-05-30 17:47:52Z suehring
-! Adjutst to new surface-type structure. Remove call for usm_wall_heat_flux, 
-! which is realized directly in diffusion_s now.
-! 
-! 2192 2017-03-22 04:14:10Z raasch
-! Bugfix for misplaced and missing openMP directives from r2155
-!
-! 2155 2017-02-21 09:57:40Z hoffmann
-! Bugfix in the calculation of microphysical quantities on ghost points.
-!
-! 2118 2017-01-17 16:38:49Z raasch
-! OpenACC version of subroutine removed
-!
-! 2031 2016-10-21 15:11:58Z knoop
-! renamed variable rho to rho_ocean
-!
-! 2011 2016-09-19 17:29:57Z kanani
-! Flag urban_surface is now defined in module control_parameters.
-!
-! 2007 2016-08-24 15:47:17Z kanani
-! Added pt tendency calculation based on energy balance at urban surfaces
-! (new urban surface model)
-!
-! 2000 2016-08-20 18:09:15Z knoop
-! Forced header and separation lines into 80 columns
-!
-! 1976 2016-07-27 13:28:04Z maronga
-! Simplied calls to radiation model
-!
-! 1960 2016-07-12 16:34:24Z suehring
-! Separate humidity and passive scalar
-!
-! 1914 2016-05-26 14:44:07Z witha
-! Added calls for wind turbine model
-!
-! 1873 2016-04-18 14:50:06Z maronga
-! Module renamed (removed _mod)
-!
-! 1850 2016-04-08 13:29:27Z maronga
-! Module renamed
-!
-! 1826 2016-04-07 12:01:39Z maronga
-! Renamed canopy model calls.
-!
-! 1822 2016-04-07 07:49:42Z hoffmann
-! Kessler microphysics scheme moved to microphysics.
-!
-! 1757 2016-02-22 15:49:32Z maronga
-!
-! 1691 2015-10-26 16:17:44Z maronga
-! Added optional model spin-up without radiation / land surface model calls.
-! Formatting corrections.
-!
-! 1682 2015-10-07 23:56:08Z knoop
-! Code annotations made doxygen readable
-!
-! 1585 2015-04-30 07:05:52Z maronga
-! Added call for temperature tendency calculation due to radiative flux divergence
-!
-! 1517 2015-01-07 19:12:25Z hoffmann
-! advec_s_bc_mod addded, since advec_s_bc is now a module
-!
-! 1484 2014-10-21 10:53:05Z kanani
-! Changes due to new module structure of the plant canopy model:
-! parameters cthf and plant_canopy moved to module plant_canopy_model_mod.
-! Removed double-listing of use_upstream_for_tke in ONLY-list of module
-! control_parameters
-!
-! 1409 2014-05-23 12:11:32Z suehring
-! Bugfix: i_omp_start changed for advec_u_ws at left inflow and outflow boundary.
-! This ensures that left-hand side fluxes are also calculated for nxl in that
-! case, even though the solution at nxl is overwritten in boundary_conds()
-!
-! 1398 2014-05-07 11:15:00Z heinze
-! Rayleigh-damping for horizontal velocity components changed: instead of damping
-! against ug and vg, damping against u_init and v_init is used to allow for a
-! homogenized treatment in case of nudging
-!
-! 1380 2014-04-28 12:40:45Z heinze
-! Change order of calls for scalar prognostic quantities:
-! ls_advec -> nudging -> subsidence since initial profiles
-!
-! 1374 2014-04-25 12:55:07Z raasch
-! missing variables added to ONLY lists
-!
-! 1365 2014-04-22 15:03:56Z boeske
-! Calls of ls_advec for large scale advection added,
-! subroutine subsidence is only called if use_subsidence_tendencies = .F.,
-! new argument ls_index added to the calls of subsidence
-! +ls_index
-!
-! 1361 2014-04-16 15:17:48Z hoffmann
-! Two-moment microphysics moved to the start of prognostic equations. This makes
-! the 3d arrays for tend_q, tend_qr, tend_pt and tend_pt redundant.
-! Additionally, it is allowed to call the microphysics just once during the time
-! step (not at each sub-time step).
-!
-! Two-moment cloud physics added for vector and accelerator optimization.
-!
-! 1353 2014-04-08 15:21:23Z heinze
-! REAL constants provided with KIND-attribute
-!
-! 1337 2014-03-25 15:11:48Z heinze
-! Bugfix: REAL constants provided with KIND-attribute
-!
-! 1332 2014-03-25 11:59:43Z suehring
-! Bugfix: call advec_ws or advec_pw for TKE only if NOT use_upstream_for_tke
-!
-! 1330 2014-03-24 17:29:32Z suehring
-! In case of SGS-particle velocity advection of TKE is also allowed with
-! dissipative 5th-order scheme.
-!
-! 1320 2014-03-20 08:40:49Z raasch
-! ONLY-attribute added to USE-statements,
-! kind-parameters added to all INTEGER and REAL declaration statements,
-! kinds are defined in new module kinds,
-! old module precision_kind is removed,
-! revision history before 2012 removed,
-! comment fields (!:) to be used for variable explanations added to
-! all variable declaration statements
-!
-! 1318 2014-03-17 13:35:16Z raasch
-! module interfaces removed
-!
-! 1257 2013-11-08 15:18:40Z raasch
-! openacc loop vector clauses removed, independent clauses added
-!
-! 1246 2013-11-01 08:59:45Z heinze
-! enable nudging also for accelerator version
-!
-! 1241 2013-10-30 11:36:58Z heinze
-! usage of nudging enabled (so far not implemented for accelerator version)
-!
-! 1179 2013-06-14 05:57:58Z raasch
-! two arguments removed from routine buoyancy, ref_state updated on device
-!
-! 1128 2013-04-12 06:19:32Z raasch
-! those parts requiring global communication moved to time_integration,
-! loop index bounds in accelerator version replaced by i_left, i_right, j_south,
-! j_north
-!
-! 1115 2013-03-26 18:16:16Z hoffmann
-! optimized cloud physics: calculation of microphysical tendencies transfered
-! to microphysics.f90; qr and nr are only calculated if precipitation is required
-!
-! 1111 2013-03-08 23:54:10Z raasch
-! update directives for prognostic quantities removed
-!
-! 1106 2013-03-04 05:31:38Z raasch
-! small changes in code formatting
-!
-! 1092 2013-02-02 11:24:22Z raasch
-! unused variables removed
-!
-! 1053 2012-11-13 17:11:03Z hoffmann
-! implementation of two new prognostic equations for rain drop concentration (nr)
-! and rain water content (qr)
-!
-! currently, only available for cache loop optimization
-!
-! 1036 2012-10-22 13:43:42Z raasch
-! code put under GPL (PALM 3.9)
-!
-! 1019 2012-09-28 06:46:45Z raasch
-! non-optimized version of prognostic_equations removed
-!
-! 1015 2012-09-27 09:23:24Z raasch
-! new branch prognostic_equations_acc
-! OpenACC statements added + code changes required for GPU optimization
-!
-! 1001 2012-09-13 14:08:46Z raasch
-! all actions concerning leapfrog- and upstream-spline-scheme removed
-!
-! 978 2012-08-09 08:28:32Z fricke
-! km_damp_x and km_damp_y removed in calls of diffusion_u and diffusion_v
-! add ptdf_x, ptdf_y for damping the potential temperature at the inflow
-! boundary in case of non-cyclic lateral boundaries
-! Bugfix: first thread index changes for WS-scheme at the inflow
-!
-! 940 2012-07-09 14:31:00Z raasch
-! temperature equation can be switched off
-!
-! Revision 1.1  2000/04/13 14:56:27  schroeter
-! Initial revision
-!
 !
 ! Description:
