Changeset 4180 for palm/trunk/SOURCE/pres.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/pres.f90 (modified) (1 diff)

palm/trunk/SOURCE/pres.f90

@@ -30 +30 @@
 ! OpenACC port for SPEC
 ! 
-! 3347 2018-10-15 14:21:08Z suehring
-! Bugfixes in offline nesting.
-! Add comment. 
-! 
-! 3341 2018-10-15 10:31:27Z suehring
-! Rename variables for boundary flags and nesting
-! 
-! 3182 2018-07-27 13:36:03Z suehring
-! Dollar sign added before Id
-! 
-! 2696 2017-12-14 17:12:51Z kanani
-! To avoid jumps while plotting w-profiles w level nzt+1 is set to w level nzt 
-! after velocity modifications through the pressure solver were carried out
-! 
-! 2696 2017-12-14 17:12:51Z kanani
-! Corrected "Former revisions" section
-! 
-! 2696 2017-12-14 17:12:51Z kanani
-! Change in file header (GPL part)
-! poismg_noopt modularized (MS)
-! 
-! 2298 2017-06-29 09:28:18Z raasch
-! comment changed + some formatting
-! 
-! 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 directives and related code removed
-! 
-! 2073 2016-11-30 14:34:05Z raasch
-! openmp bugfix for calculation of new divergence
-! 
-! 2037 2016-10-26 11:15:40Z knoop
-! Anelastic approximation implemented
-! 
-! 2000 2016-08-20 18:09:15Z knoop
-! Forced header and separation lines into 80 columns
-! 
-! 1932 2016-06-10 12:09:21Z suehring
-! Initial version of purely vertical nesting introduced.
-!
-! 1931 2016-06-10 12:06:59Z suehring
-! Rename multigrid into multigrid_noopt and multigrid_fast into multigrid
-!
-! 1929 2016-06-09 16:25:25Z suehring
-! Bugfix: weight_substep for initial call, replace by local variable
-! 
-! 1918 2016-05-27 14:35:57Z raasch
-! sum of divergence is also calculated when pres is called before the initial
-! first time step,
-! stearing is modified by using intermediate_timestep_count = 0 in order to
-! determine if pres is called before the first initial timestep,
-! bugfix: in case of Neumann conditions for pressure both at bottom and top,
-!         mean vertical velocity is also removed for the first time step
-! bugfix for calculating divergences
-!
-! 1908 2016-05-25 17:22:32Z suehring
-! New divergence for output into RUN_CONTROL file is calculated only at last 
-! Runge-Kutta step
-!
-! 1845 2016-04-08 08:29:13Z raasch
-! nzb_2d replace by nzb_u|v_inner
-! 
-! 1799 2016-04-05 08:35:55Z gronemeier
-! Bugfix: excluded third dimension from horizontal volume flow calculation
-! 
-! 1762 2016-02-25 12:31:13Z hellstea
-! Introduction of nested domain feature
-!
-! 1682 2015-10-07 23:56:08Z knoop
-! Code annotations made doxygen readable 
-!
-! 1575 2015-03-27 09:56:27Z raasch
-! poismg_fast + respective module added, adjustments for psolver-queries
-!
-! 1342 2014-03-26 17:04:47Z kanani
-! 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,
-! 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
-!
-! 1306 2014-03-13 14:30:59Z raasch
-! second argument removed from routine poisfft
-!
-! 1257 2013-11-08 15:18:40Z raasch
-! openacc loop and loop vector clauses removed, independent clauses added,
-! end parallel replaced by end parallel loop
-!
-! 1221 2013-09-10 08:59:13Z raasch
-! openACC porting of reduction operations, loops for calculating d are
-! using the rflags_s_inner multiply flag instead of the nzb_s_inner loop index
-!
-! 1212 2013-08-15 08:46:27Z raasch
-! call of poisfft_hybrid removed
-!
-! 1117 2013-03-27 11:15:36Z suehring
-! Bugfix in OpenMP parallelization.
-!
-! 1113 2013-03-10 02:48:14Z raasch
-! GPU-porting of several loops, some loops rearranged
-!
-! 1111 2013-03-08 23:54:10Z
-! openACC statements added,
-! ibc_p_b = 2 removed
-!
-! 1092 2013-02-02 11:24:22Z raasch
-! unused variables removed
-!
-! 1036 2012-10-22 13:43:42Z raasch
-! code put under GPL (PALM 3.9)
-!
-! 1003 2012-09-14 14:35:53Z raasch
-! adjustment of array tend for cases with unequal subdomain sizes removed
-!
-! Revision 1.1  1997/07/24 11:24:44  raasch
-! Initial revision
-!
 !
 ! Description: