Changeset 4180 for palm/trunk/SOURCE/flow_statistics.f90

Timestamp:

Aug 21, 2019 2:37:54 PM (3 years ago)

Author:

scharf

Message:

removed comments in 'Former revisions' section that are older than 01.01.2019

File:

• palm/trunk/SOURCE/flow_statistics.f90 (modified) (1 diff)

palm/trunk/SOURCE/flow_statistics.f90

@@ -37 +37 @@
 ! Bugfix, terminate OMP Parallel block
 ! 
-! 3637 2018-12-20 01:51:36Z knoop
-! Implementation of the PALM module interface
-! 
-! 3458 2018-10-30 14:51:23Z kanani
-! from chemistry branch r3443, basit:
-! bug fixed in chemistry profiles
-! 
-! 3452 2018-10-30 13:13:34Z schwenkel
-! Bugfix for profiles output
-! 
-! 3298 2018-10-02 12:21:11Z kanani
-! - Minor formatting (kanani)
-! - Added  .AND. max_pr_cs > 0 before MPI_ALLREDUCE call (forkel)
-! - Data arrays, sums, sums_l, hom, hom_sum updated for chem species (basit)
-! - Directives of parallelism added for chemistry (basit)
-! - Call for chem_statistics added (basit)
-!
-! 3294 2018-10-01 02:37:10Z raasch
-! ocean renamed ocean_mode
-! 
-! 3274 2018-09-24 15:42:55Z knoop
-! Modularization of all bulk cloud physics code components
-! 
-! 3241 2018-09-12 15:02:00Z raasch
-! unused variables removed
-! 
-! 3042 2018-05-25 10:44:37Z schwenkel
-! Changed the name specific humidity to mixing ratio
-! 
-! 3040 2018-05-25 10:22:08Z schwenkel
-! Comments related to the calculation of the inversion height expanded
-! 
-! 3003 2018-04-23 10:22:58Z Giersch
-! The inversion height will not be calcuated before the first timestep in 
-! case of restarts.
-! 
-! 2968 2018-04-13 11:52:24Z suehring
-! Bugfix in output of timeseries quantities in case of elevated model surfaces.
-! 
-! 2817 2018-02-19 16:32:21Z knoop
-! Preliminary gust module interface implemented
-! 
-! 2773 2018-01-30 14:12:54Z suehring
-! Timeseries output of surface temperature.
-! 
-! 2753 2018-01-16 14:16:49Z suehring
-! Tile approach for spectral albedo implemented. 
-! 
-! 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)
-! Bugfix in evaluation of surface quantities in case different surface types
-! are used (MS)
-! 
-! 2674 2017-12-07 11:49:21Z suehring
-! Bugfix in output conversion of resolved-scale momentum fluxes in case of 
-! PW advections scheme.
-! 
-! 2320 2017-07-21 12:47:43Z suehring
-! Modularize large-scale forcing and nudging
-! 
-! 2296 2017-06-28 07:53:56Z maronga
-! Enabled output of radiation quantities for radiation_scheme = 'constant'
-! 
-! 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). 
-! 
-! 2270 2017-06-09 12:18:47Z maronga
-! Revised numbering (removed 2 timeseries)
-! 
-! 2252 2017-06-07 09:35:37Z knoop
-! perturbation pressure now depending on flux_output_mode
-! 
-! 2233 2017-05-30 18:08:54Z suehring
-!
-! 2232 2017-05-30 17:47:52Z suehring
-! Adjustments to new topography and surface concept
-! 
-! 2118 2017-01-17 16:38:49Z raasch
-! OpenACC version of subroutine removed
-! 
-! 2073 2016-11-30 14:34:05Z raasch
-! openmp bugfix: large scale forcing calculations cannot be executed thread
-! parallel
-! 
-! 2037 2016-10-26 11:15:40Z knoop
-! Anelastic approximation implemented
-! 
-! 2031 2016-10-21 15:11:58Z knoop
-! renamed variable rho to rho_ocean
-! 
-! 2026 2016-10-18 10:27:02Z suehring
-! Bugfix, enable output of s*2.
-! Change, calculation of domain-averaged perturbation energy.
-! Some formatting adjustments.
-! 
-! 2000 2016-08-20 18:09:15Z knoop
-! Forced header and separation lines into 80 columns
-! 
-! 1976 2016-07-27 13:28:04Z maronga
-! Removed some unneeded __rrtmg preprocessor directives
-! 
-! 1960 2016-07-12 16:34:24Z suehring
-! Separate humidity and passive scalar
-!
-! 1918 2016-05-27 14:35:57Z raasch
-! in case of Wicker-Skamarock scheme, calculate disturbance kinetic energy here,
-! if flow_statistics is called before the first initial time step
-!
-! 1853 2016-04-11 09:00:35Z maronga
-! Adjusted for use with radiation_scheme = constant
-!
-! 1849 2016-04-08 11:33:18Z hoffmann
-! prr moved to arrays_3d
-!
-! 1822 2016-04-07 07:49:42Z hoffmann
-! Output of bulk microphysics simplified.
-!
-! 1815 2016-04-06 13:49:59Z raasch
-! cpp-directives for intel openmp bug removed
-!
-! 1783 2016-03-06 18:36:17Z raasch
-! +module netcdf_interface
-!
-! 1747 2016-02-08 12:25:53Z raasch
-! small bugfixes for accelerator version
-!
-! 1738 2015-12-18 13:56:05Z raasch
-! bugfixes for calculations in statistical regions which do not contain grid
-! points in the lowest vertical levels, mean surface level height considered
-! in the calculation of the characteristic vertical velocity,
-! old upstream parts removed
-!
-! 1709 2015-11-04 14:47:01Z maronga
-! Updated output of Obukhov length
-! 
-! 1691 2015-10-26 16:17:44Z maronga
-! Revised calculation of Obukhov length. Added output of radiative heating >
-! rates for RRTMG.
-! 
-! 1682 2015-10-07 23:56:08Z knoop
-! Code annotations made doxygen readable
-!
-! 1658 2015-09-18 10:52:53Z raasch
-! bugfix: temporary reduction variables in the openacc branch are now
-! initialized to zero
-!
-! 1654 2015-09-17 09:20:17Z raasch
-! FORTRAN bugfix of r1652
-!
-! 1652 2015-09-17 08:12:24Z raasch
-! bugfix in calculation of energy production by turbulent transport of TKE
-!
-! 1593 2015-05-16 13:58:02Z raasch
-! FORTRAN errors removed from openacc branch
-!
-! 1585 2015-04-30 07:05:52Z maronga
-! Added output of timeseries and profiles for RRTMG
-! 
-! 1571 2015-03-12 16:12:49Z maronga
-! Bugfix: output of rad_net and rad_sw_in
-! 
-! 1567 2015-03-10 17:57:55Z suehring
-! Reverse modifications made for monotonic limiter.
-!
-! 1557 2015-03-05 16:43:04Z suehring
-! Adjustments for monotonic limiter
-!
-! 1555 2015-03-04 17:44:27Z maronga
-! Added output of r_a and r_s.
-! 
-! 1551 2015-03-03 14:18:16Z maronga
-! Added suppport for land surface model and radiation model output.
-!
-! 1498 2014-12-03 14:09:51Z suehring
-! Comments added
-!
-! 1482 2014-10-18 12:34:45Z raasch
-! missing ngp_sums_ls added in accelerator version
-!
-! 1450 2014-08-21 07:31:51Z heinze
-! bugfix: calculate fac only for simulated_time >= 0.0
-!
-! 1396 2014-05-06 13:37:41Z raasch
-! bugfix: "copyin" replaced by "update device" in openacc-branch
-!
-! 1386 2014-05-05 13:55:30Z boeske
-! bugfix: simulated time before the last timestep is needed for the correct 
-! calculation of the profiles of large scale forcing tendencies 
-! 
-! 1382 2014-04-30 12:15:41Z boeske
-! Renamed variables which store large scale forcing tendencies
-! pt_lsa -> td_lsa_lpt, pt_subs -> td_sub_lpt, 
-! q_lsa  -> td_lsa_q,   q_subs  -> td_sub_q,
-! added Neumann boundary conditions for profile data output of large scale
-! advection and subsidence terms at nzt+1
-! 
-! 1374 2014-04-25 12:55:07Z raasch
-! bugfix: syntax errors removed from openacc-branch
-! missing variables added to ONLY-lists
-! 
-! 1365 2014-04-22 15:03:56Z boeske
-! Output of large scale advection, large scale subsidence and nudging tendencies
-! +sums_ls_l, ngp_sums_ls, use_subsidence_tendencies
-! 
-! 1353 2014-04-08 15:21:23Z heinze
-! REAL constants provided with KIND-attribute 
-!
-! 1322 2014-03-20 16:38:49Z raasch
-! REAL constants defined as wp-kind
-!
-! 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, 
-! revision history before 2012 removed,
-! comment fields (!:) to be used for variable explanations added to
-! all variable declaration statements 
-!
-! 1299 2014-03-06 13:15:21Z heinze
-! Output of large scale vertical velocity w_subs
-!
-! 1257 2013-11-08 15:18:40Z raasch
-! openacc "end parallel" replaced by "end parallel loop"
-!
-! 1241 2013-10-30 11:36:58Z heinze
-! Output of ug and vg
-!
-! 1221 2013-09-10 08:59:13Z raasch
-! ported for openACC in separate #else branch
-!
-! 1179 2013-06-14 05:57:58Z raasch
-! comment for profile 77 added
-!
-! 1115 2013-03-26 18:16:16Z hoffmann
-! ql is calculated by calc_liquid_water_content
-!
-! 1111 2013-03-08 23:54:10Z raasch
-! openACC directive added
-!
-! 1053 2012-11-13 17:11:03Z hoffmann
-! additions for two-moment cloud physics scheme:
-! +nr, qr, qc, prr
-!
-! 1036 2012-10-22 13:43:42Z raasch
-! code put under GPL (PALM 3.9)
-!
-! 1007 2012-09-19 14:30:36Z franke
-! Calculation of buoyancy flux for humidity in case of WS-scheme is now using
-! turbulent fluxes of WS-scheme
-! Bugfix: Calculation of subgridscale buoyancy flux for humidity and cloud
-! droplets at nzb and nzt added
-!
-! 801 2012-01-10 17:30:36Z suehring
-! Calculation of turbulent fluxes in advec_ws is now thread-safe.
-!
-! Revision 1.1  1997/08/11 06:15:17  raasch
-! Initial revision
-!
 !
 ! Description: