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

Timestamp:

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

Author:

scharf

Message:

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

File:

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

palm/trunk/SOURCE/turbulence_closure_mod.f90

@@ -66 +66 @@
 ! Remove unused variable simulated_time
 !
-! 3636 2018-12-19 13:48:34Z raasch
-! nopointer option removed
-!
-! 3634 2018-12-18 12:31:28Z knoop
-! OpenACC port for SPEC
-!
-! 3550 2018-11-21 16:01:01Z gronemeier
-! - calculate diss production same in vector and cache optimization
-! - move boundary condition for e and diss to boundary_conds
-!
-! 3545 2018-11-21 11:19:41Z gronemeier
-! - Set rans_mode according to value of turbulence_closure
-! - removed debug output
-!
-! 3430 2018-10-25 13:36:23Z maronga
-! Added support for buildings in the dynamic SGS model
-!
-! 3398 2018-10-22 19:30:24Z knoop
-! Refactored production_e and production_e_ij (removed code redundancy)
-!
-! 3386 2018-10-19 16:28:22Z gronemeier
-! Renamed tcm_prognostic to tcm_prognostic_equations
-!
-! 3385 2018-10-19 14:52:29Z knoop
-! Restructured loops and ifs in production_e to ease vectorization on GPUs
-!
-! 3300 2018-10-02 14:16:54Z gronemeier
-! - removed global array wall_flags_0_global, hence reduced accuracy of l_wall
-!   calculation
-! - removed maxloc call as this produced different results for different
-!   compiler options
-!
-! 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
-!
-! 3245 2018-09-13 14:08:16Z knoop
-! unused variables removed, shortest_distance has wp now
-!
-! 3183 2018-07-27 14:25:55Z suehring
-! Rename variables and remove unused variable from USE statement
-!
-! 3182 2018-07-27 13:36:03Z suehring
-! Use MOST for km only in RANS mode
-!
-! 3130 2018-07-16 11:08:55Z gronemeier
-! - move boundary condition of km and kh to tcm_diffusivities
-! - calculate km at boundaries according to MOST
-! - move phi_m to surface_layer_fluxes_mod
-!
-! 3129 2018-07-16 07:45:13Z gronemeier
-! - move limitation of diss to boundary_conds
-! - move boundary conditions for e and diss to boundary_conds
-! - consider non-default surfaces in tcm_diffusivities
-! - use z_mo within surface layer instead of calculating it
-! - resort output after case select -> reduced code duplication
-! - when using rans_tke_e and 1d-model, do not use e1d, km1d and diss1d
-!
-! 3121 2018-07-11 18:46:49Z gronemeier
-! - created the function phi_m
-! - implemented km = u* * kappa * zp / phi_m in production_e_init for all
-!   surfaces
-!
-! 3120 2018-07-11 18:30:57Z gronemeier
-! - changed tcm_diffusivities to tcm_diffusivities_default
-! - created subroutine tcm_diffusivities that calls tcm_diffusivities_default
-!   and tcm_diffusivities_dynamic
-!
-! 3086 2018-06-25 09:08:04Z gronemeier
-! bugfix: set rans_const_sigma(1) = 1.3
-!
-! 3083 2018-06-19 14:03:12Z gronemeier
-! - set limits of diss at the end of prognostic equations
-! - call production_e to calculate production term of diss
-! - limit change of diss to -90% to +100%
-! - remove factor 0.5 from diffusion_diss_ij
-! - rename c_m into c_0, and c_h into c_4
-! - add rans_const_c and rans_const_sigma as namelist parameters
-! - add calculation of mixing length for profile output in case of rans_tke_e
-! - changed format of annotations to comply with doxygen standards
-! - calculate and save dissipation rate during rans_tke_l mode
-! - set bc at vertical walls for e, diss, km, kh
-! - bugfix: set l_wall = 0.0 within buildings
-! - set l_wall at bottom and top boundary (rans-mode)
-! - bugfix in production term for dissipation rate
-! - bugfix in diffusion of dissipation rate
-! - disable check for 1D model if rans_tke_e is used
-! - bugfixes for initialization (rans-mode):
-!    - correction of dissipation-rate formula
-!    - calculate km based on l_wall
-!    - initialize diss if 1D model is not used
-!
-! 3045 2018-05-28 07:55:41Z Giersch
-! Error message revised
-!
-! 3014 2018-05-09 08:42:38Z maronga
-! Bugfix: nzb_do and nzt_do were not used for 3d data output
-!
-! 3004 2018-04-27 12:33:25Z Giersch
-! Further allocation checks implemented
-!
-! 2938 2018-03-27 15:52:42Z suehring
-! Further todo's
-!
-! 2936 2018-03-27 14:49:27Z gronemeier
-! - defined l_grid only within this module
-! - Moved l_wall definition from modules.f90
-! - Get level of highest topography, used to limit upward distance calculation
-! - Consider cyclic boundary conditions for mixing length calculation
-! - Moved copy of wall_flags into subarray to subroutine
-! - Implemented l_wall calculation in case of RANS simulation
-! - Moved init of l_black to tcm_init_mixing_length
-! - Moved init_mixing_length from init_grid.f90 and
-!   renamed it to tcm_init_mixing_length
-!
-! 2764 2018-01-22 09:25:36Z gronemeier
-! Bugfix: remove duplicate SAVE statements
-!
-! 2746 2018-01-15 12:06:04Z suehring
-! Move flag plant canopy to modules
-!
-! 2718 2018-01-02 08:49:38Z maronga
-! Corrected "Former revisions" section
-!
-! 2701 2017-12-15 15:40:50Z suehring
-! Changes from last commit documented
-!
-! 2698 2017-12-14 18:46:24Z suehring
-! Bugfix in get_topography_top_index
-!
-! 2696 2017-12-14 17:12:51Z kanani
-! Initial revision
-!
-!
-!
-!
-! Authors:
-! --------
-! @author Tobias Gronemeier
-! @author Hauke Wurps
 !
 ! Description: