Index: palm/trunk/SOURCE/poismg_noopt_mod.f90
===================================================================
--- palm/trunk/SOURCE/poismg_noopt_mod.f90	(revision 3655)
+++ palm/trunk/SOURCE/poismg_noopt_mod.f90	(revision 4180)
@@ -27,130 +27,4 @@
 ! unused variables removed
 ! 
-! 3183 2018-07-27 14:25:55Z suehring
-! Rename variables in mesoscale-offline nesting mode
-! 
-! 3182 2018-07-27 13:36:03Z suehring
-! Set lateral boundary conditions for divergence
-! 
-! 2793 2018-02-07 10:54:33Z suehring
-! Corrected "Former revisions" section
-! 
-! 2696 2017-12-14 17:12:51Z kanani
-! - Change in file header (GPL part)
-! - Rename file into poismg_noopt_mod
-! - Modularize poismg_noopt - initialization of masking flags moved from 
-!   init_grid
-! - Masking of downward-facing walls walls 
-! - Large-scale forcing implemented (MS) 
-! 
-! 2591 2017-10-30 08:07:25Z maronga
-! 
-! 2586 2017-10-27 13:03:50Z kanani
-!
-! 2232 2017-05-30 17:47:52Z suehring
-! Bugfixes OpenMP
-! 
-! 2037 2016-10-26 11:15:40Z knoop
-! Anelastic approximation implemented
-! 
-! 2021 2016-10-07 14:08:57Z suehring
-! Bugfix: restore nest_bound_(l/r/s/n) in case of mg_switch_to_pe0
-! 
-! 2000 2016-08-20 18:09:15Z knoop
-! Forced header and separation lines into 80 columns
-! 
-! 1934 2016-06-13 09:46:57Z hellstea
-! Rename subroutines and cpu-measure log points to indicate _noopt version
-! 
-! 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 
-! 
-! 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,
-! 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
-!
-! 1159 2013-05-21 11:58:22Z fricke
-! bc_lr/ns_dirneu/neudir removed
-!
-! 1092 2013-02-02 11:24:22Z raasch
-! unused variables removed
-!
-! 1056 2012-11-16 15:28:04Z raasch
-! Bugfix: all ghost points have to be used for allocating p3
-! arrays p2, f2, and f2_l changed from allocatable to automatic
-!
-! 1036 2012-10-22 13:43:42Z raasch
-! code put under GPL (PALM 3.9)
-!
-! 996 2012-09-07 10:41:47Z raasch
-! little reformatting
-!
-! 978 2012-08-09 08:28:32Z fricke
-! bc_lr/ns_dirneu/neudir added
-!
-! 880 2012-04-13 06:28:59Z raasch
-! Bugfix: preprocessor statements for parallel execution added
-!
-! 778 2011-11-07 14:18:25Z fricke
-! Allocation of p3 changes when multigrid is used and the collected field on PE0
-! has more grid points than the subdomain of an PE.
-!
-! 707 2011-03-29 11:39:40Z raasch
-! p_loc is used instead of p in the main routine (poismg).
-! On coarse grid levels, gathered data are identically processed on all PEs
-! (before, on PE0 only), so that the subsequent scattering of data is not
-! neccessary any more.
-! bc_lr/ns replaced by bc_lr/ns_cyc/dirrad/raddir
-! Bugfix: bottom (nzb) and top (nzt+1) boundary conditions set in routines
-! resid and restrict. They were missed before which may have led to
-! unpredictable results.
-!
-! 667 2010-12-23 12:06:00Z suehring/gryschka
-! Calls of exchange_horiz are modified.
-!
-! 622 2010-12-10 08:08:13Z raasch
-! optional barriers included in order to speed up collective operations
-!
-! 257 2009-03-11 15:17:42Z heinze
-! Output of messages replaced by message handling routine.
-!
-! 181 2008-07-30 07:07:47Z raasch
-! Bugfix: grid_level+1 has to be used in restrict for flags-array
-!
-! 114 2007-10-10 00:03:15Z raasch
-! Boundary conditions at walls are implicitly set using flag arrays. Only
-! Neumann BC is allowed. Upper walls are still not realized.
-! Bottom and top BCs for array f_mg in restrict removed because boundary
-! values are not needed (right hand side of SOR iteration).
-!
-! 75 2007-03-22 09:54:05Z raasch
-! 2nd+3rd argument removed from exchange horiz
-!
-! RCS Log replace by Id keyword, revision history cleaned up
-!
-! Revision 1.6  2005/03/26 20:55:54  raasch
-! Implementation of non-cyclic (Neumann) horizontal boundary conditions,
-! routine prolong simplified (one call of exchange_horiz spared)
-!
-! Revision 1.1  2001/07/20 13:10:51  raasch
-! Initial revision
-!
 !
 ! Description:
