Index: /palm/trunk/SOURCE/advec_s_bc.f90
===================================================================
--- /palm/trunk/SOURCE/advec_s_bc.f90	(revision 4179)
+++ /palm/trunk/SOURCE/advec_s_bc.f90	(revision 4180)
@@ -30,83 +30,4 @@
 ! nopointer option removed
 ! 
-! 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)
-!
-! 2300 2017-06-29 13:31:14Z raasch
-! NEC related code removed
-! 
-! 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). 
-! 
-! 2101 2017-01-05 16:42:31Z suehring
-!
-! 2000 2016-08-20 18:09:15Z knoop
-! Forced header and separation lines into 80 columns
-! 
-! 1960 2016-07-12 16:34:24Z suehring
-! New CASE statement to treat scalars and humidity separately
-! 
-! 1873 2016-04-18 14:50:06Z maronga
-! Module renamed (removed _mod)
-! 
-! 
-! 1850 2016-04-08 13:29:27Z maronga
-! Module renamed
-! 
-!
-! 1815 2016-04-06 13:49:59Z raasch
-! comment change
-!
-! 1691 2015-10-26 16:17:44Z maronga
-! Formatting corrections
-! 
-! 1682 2015-10-07 23:56:08Z knoop
-! Code annotations made doxygen readable
-! 
-! 1517 2015-01-07 19:12:25Z hoffmann
-! interface added to advec_s_bc
-!
-! 1374 2014-04-25 12:55:07Z raasch
-! missing variables added to ONLY list
-! 
-! 1361 2014-04-16 15:17:48Z hoffmann
-! nr and qr added
-! 
-! 1353 2014-04-08 15:21:23Z heinze
-! REAL constants provided with KIND-attribute
-!
-! 1346 2014-03-27 13:18:20Z heinze
-! Bugfix: REAL constants provided with KIND-attribute especially in call of 
-! intrinsic function like MAX, MIN, SIGN
-!
-! 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
-!
-! 1318 2014-03-17 13:35:16Z raasch
-! module interfaces 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)
-!
-! 1010 2012-09-20 07:59:54Z raasch
-! cpp switch __nopointer added for pointer free version
-!
-! Revision 1.1  1997/08/29 08:53:46  raasch
-! Initial revision
-!
-!
 ! Description:
 ! ------------
Index: /palm/trunk/SOURCE/advec_s_pw.f90
===================================================================
--- /palm/trunk/SOURCE/advec_s_pw.f90	(revision 4179)
+++ /palm/trunk/SOURCE/advec_s_pw.f90	(revision 4180)
@@ -33,61 +33,4 @@
 ! nopointer option removed
 ! 
-! 3547 2018-11-21 13:21:24Z suehring
-! variables documented
-! 
-! 3538 2018-11-20 10:55:41Z suehring
-! Remove unnecessary double-masking of topography
-! 
-! 3302 2018-10-03 02:39:40Z raasch
-! Stokes drift velocity added
-! 
-! 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)
-!
-! 2233 2017-05-30 18:08:54Z suehring
-!
-! 2232 2017-05-30 17:47:52Z suehring
-! topography representation via flags
-! 
-! 2000 2016-08-20 18:09:15Z knoop
-! Forced header and separation lines into 80 columns
-! 
-! 1873 2016-04-18 14:50:06Z maronga
-! Module renamed (removed _mod)
-! 
-! 
-! 1850 2016-04-08 13:29:27Z maronga
-! Module renamed
-! 
-! 
-! 1682 2015-10-07 23:56:08Z knoop
-! Code annotations made doxygen readable 
-! 
-! 1374 2014-04-25 12:55:07Z raasch
-! missing variables added to ONLY list
-! 
-! 1353 2014-04-08 15:21:23Z heinze
-! REAL constants provided with KIND-attribute
-!
-! 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
-!
-! 1036 2012-10-22 13:43:42Z raasch
-! code put under GPL (PALM 3.9)
-!
-! 1010 2012-09-20 07:59:54Z raasch
-! cpp switch __nopointer added for pointer free version
-!
-! Revision 1.1  1997/08/29 08:54:20  raasch
-! Initial revision
-!
 !
 ! Description:
Index: /palm/trunk/SOURCE/advec_s_up.f90
===================================================================
--- /palm/trunk/SOURCE/advec_s_up.f90	(revision 4179)
+++ /palm/trunk/SOURCE/advec_s_up.f90	(revision 4180)
@@ -33,61 +33,4 @@
 ! nopointer option removed
 ! 
-! 3547 2018-11-21 13:21:24Z suehring
-! variables documented
-! 
-! 3538 2018-11-20 10:55:41Z suehring
-! Remove unnecessary double-masking of topography
-! 
-! 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)
-!
-! 2233 2017-05-30 18:08:54Z suehring
-!
-! 2232 2017-05-30 17:47:52Z suehring
-! topography representation via flags
-! 
-! 2000 2016-08-20 18:09:15Z knoop
-! Forced header and separation lines into 80 columns
-! 
-! 1873 2016-04-18 14:50:06Z maronga
-! Module renamed (removed _mod)
-! 
-! 
-! 1850 2016-04-08 13:29:27Z maronga
-! Module renamed
-! 
-! 
-! 1682 2015-10-07 23:56:08Z knoop
-! Code annotations made doxygen readable 
-! 
-! 1374 2014-04-25 12:55:07Z raasch
-! missing variables added to ONLY list
-! 
-! 1353 2014-04-08 15:21:23Z heinze
-! REAL constants provided with KIND-attribute
-!
-! 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
-!
-! 1036 2012-10-22 13:43:42Z raasch
-! code put under GPL (PALM 3.9)
-!
-! 1010 2012-09-20 07:59:54Z raasch
-! cpp switch __nopointer added for pointer free version
-!
-! 981 2012-08-09 14:57:44Z maronga
-! Typo removed
-!
-! Revision 1.1  1997/08/29 08:54:33  raasch
-! Initial revision
-!
 !
 ! Description:
Index: /palm/trunk/SOURCE/advec_u_pw.f90
===================================================================
--- /palm/trunk/SOURCE/advec_u_pw.f90	(revision 4179)
+++ /palm/trunk/SOURCE/advec_u_pw.f90	(revision 4180)
@@ -27,49 +27,4 @@
 ! variables documented
 ! 
-! 3538 2018-11-20 10:55:41Z suehring
-! Remove unnecessary double-masking of topography
-! 
-! 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)
-!
-! 2233 2017-05-30 18:08:54Z suehring
-!
-! 2232 2017-05-30 17:47:52Z suehring
-! topography representation via flags
-! 
-! 2000 2016-08-20 18:09:15Z knoop
-! Forced header and separation lines into 80 columns
-! 
-! 1873 2016-04-18 14:50:06Z maronga
-! Module renamed (removed _mod)
-! 
-! 
-! 1850 2016-04-08 13:29:27Z maronga
-! Module renamed
-! 
-! 
-! 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
-!
-! 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
-!
-! 1036 2012-10-22 13:43:42Z raasch
-! code put under GPL (PALM 3.9)
-!
-! Revision 1.1  1997/08/11 06:09:21  raasch
-! Initial revision
-!
 !
 ! Description:
Index: /palm/trunk/SOURCE/advec_u_up.f90
===================================================================
--- /palm/trunk/SOURCE/advec_u_up.f90	(revision 4179)
+++ /palm/trunk/SOURCE/advec_u_up.f90	(revision 4180)
@@ -27,49 +27,4 @@
 ! variables documented
 ! 
-! 3538 2018-11-20 10:55:41Z suehring
-! Remove unnecessary double-masking of topography
-! 
-! 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)
-!
-! 2233 2017-05-30 18:08:54Z suehring
-!
-! 2232 2017-05-30 17:47:52Z suehring
-! topography representation via flags
-! 
-! 2000 2016-08-20 18:09:15Z knoop
-! Forced header and separation lines into 80 columns
-! 
-! 1873 2016-04-18 14:50:06Z maronga
-! Module renamed (removed _mod)
-! 
-! 
-! 1850 2016-04-08 13:29:27Z maronga
-! Module renamed
-! 
-! 
-! 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
-!
-! 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
-!
-! 1036 2012-10-22 13:43:42Z raasch
-! code put under GPL (PALM 3.9)
-!
-! Revision 1.1  1997/08/29 08:55:25  raasch
-! Initial revision
-!
 !
 ! Description:
Index: /palm/trunk/SOURCE/advec_v_pw.f90
===================================================================
--- /palm/trunk/SOURCE/advec_v_pw.f90	(revision 4179)
+++ /palm/trunk/SOURCE/advec_v_pw.f90	(revision 4180)
@@ -28,49 +28,4 @@
 ! variables documented
 ! 
-! 3538 2018-11-20 10:55:41Z suehring
-! Remove unnecessary double-masking of topography
-! 
-! 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)
-!
-! 2233 2017-05-30 18:08:54Z suehring
-!
-! 2232 2017-05-30 17:47:52Z suehring
-! topography representation via flags
-! 
-! 2000 2016-08-20 18:09:15Z knoop
-! Forced header and separation lines into 80 columns
-! 
-! 1873 2016-04-18 14:50:06Z maronga
-! Module renamed (removed _mod)
-! 
-! 
-! 1850 2016-04-08 13:29:27Z maronga
-! Module renamed
-! 
-! 
-! 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
-!
-! 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
-!
-! 1036 2012-10-22 13:43:42Z raasch
-! code put under GPL (PALM 3.9)
-!
-! Revision 1.1  1997/08/11 06:09:57  raasch
-! Initial revision
-!
 !
 ! Description:
Index: /palm/trunk/SOURCE/advec_v_up.f90
===================================================================
--- /palm/trunk/SOURCE/advec_v_up.f90	(revision 4179)
+++ /palm/trunk/SOURCE/advec_v_up.f90	(revision 4180)
@@ -27,49 +27,4 @@
 ! variables documented
 ! 
-! 3538 2018-11-20 10:55:41Z suehring
-! Remove unnecessary double-masking of topography
-! 
-! 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)
-!
-! 2233 2017-05-30 18:08:54Z suehring
-!
-! 2232 2017-05-30 17:47:52Z suehring
-! topography representation via flags
-! 
-! 2000 2016-08-20 18:09:15Z knoop
-! Forced header and separation lines into 80 columns
-! 
-! 1873 2016-04-18 14:50:06Z maronga
-! Module renamed (removed _mod)
-! 
-! 
-! 1850 2016-04-08 13:29:27Z maronga
-! Module renamed
-! 
-! 
-! 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
-!
-! 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
-!
-! 1036 2012-10-22 13:43:42Z raasch
-! code put under GPL (PALM 3.9)
-!
-! Revision 1.1  1997/08/29 08:56:05  raasch
-! Initial revision
-!
 !
 ! Description:
Index: /palm/trunk/SOURCE/advec_w_pw.f90
===================================================================
--- /palm/trunk/SOURCE/advec_w_pw.f90	(revision 4179)
+++ /palm/trunk/SOURCE/advec_w_pw.f90	(revision 4180)
@@ -27,49 +27,4 @@
 ! variables documented
 ! 
-! 3538 2018-11-20 10:55:41Z suehring
-! Remove unnecessary double-masking of topography
-! 
-! 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)
-!
-! 2233 2017-05-30 18:08:54Z suehring
-!
-! 2232 2017-05-30 17:47:52Z suehring
-! topography representation via flags
-! 
-! 2000 2016-08-20 18:09:15Z knoop
-! Forced header and separation lines into 80 columns
-! 
-! 1873 2016-04-18 14:50:06Z maronga
-! Module renamed (removed _mod)
-! 
-! 
-! 1850 2016-04-08 13:29:27Z maronga
-! Module renamed
-! 
-! 
-! 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
-!
-! 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
-!
-! 1036 2012-10-22 13:43:42Z raasch
-! code put under GPL (PALM 3.9)
-!
-! Revision 1.1  1997/08/11 06:10:29  raasch
-! Initial revision
-!
 !
 ! Description:
Index: /palm/trunk/SOURCE/advec_w_up.f90
===================================================================
--- /palm/trunk/SOURCE/advec_w_up.f90	(revision 4179)
+++ /palm/trunk/SOURCE/advec_w_up.f90	(revision 4180)
@@ -27,52 +27,4 @@
 ! variables documented
 ! 
-! 3538 2018-11-20 10:55:41Z suehring
-! Remove unnecessary double-masking of topography
-! 
-! 3255 2018-09-17 11:57:36Z suehring
-! Missing wall flags added
-! 
-! 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)
-!
-! 2233 2017-05-30 18:08:54Z suehring
-!
-! 2232 2017-05-30 17:47:52Z suehring
-! topography representation via flags
-! 
-! 2000 2016-08-20 18:09:15Z knoop
-! Forced header and separation lines into 80 columns
-! 
-! 1873 2016-04-18 14:50:06Z maronga
-! Module renamed (removed _mod)
-! 
-! 
-! 1850 2016-04-08 13:29:27Z maronga
-! Module renamed
-! 
-! 
-! 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
-!
-! 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
-!
-! 1036 2012-10-22 13:43:42Z raasch
-! code put under GPL (PALM 3.9)
-!
-! Revision 1.1  1997/08/29 08:56:33  raasch
-! Initial revision
-!
 !
 ! Description:
Index: /palm/trunk/SOURCE/advec_ws.f90
===================================================================
--- /palm/trunk/SOURCE/advec_ws.f90	(revision 4179)
+++ /palm/trunk/SOURCE/advec_ws.f90	(revision 4180)
@@ -77,218 +77,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
-! - Computation of vertical fluxes separated from computation of horizontal 
-!   fluxes. Loops are splitted in order to avoid indirect indexing and allow 
-!   for better vectorization. 
-! - Accelerate code by remove type-conversions of ibits
-! - replace pointer definition in scalar routine by simple explicit definition
-!   of the passed array
-! 
-! 3547 2018-11-21 13:21:24Z suehring
-! variables documented
-! 
-! 3467 2018-10-30 19:05:21Z suehring
-! Implementation of a new aerosol module salsa.
-! 
-! 3302 2018-10-03 02:39:40Z raasch
-! Stokes drift velocity added in scalar advection
-! 
-! 3298 2018-10-02 12:21:11Z kanani
-! Add formatted note from ketelsen about statistics for chemistry
-!
-! 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
-! 
-! 3183 2018-07-27 14:25:55Z suehring
-! Rename variables for boundary-condition flags and for offline nesting mode 
-! 
-! 3182 2018-07-27 13:36:03Z suehring
-! Bugfix in calculation of left-sided fluxes for u-component in OpenMP case.
-! 
-! 2731 2018-01-09 17:44:02Z suehring
-! Enable loop vectorization by splitting the k-loop
-!
-! 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)
-! Implement advection for TKE-dissipation in case of RANS-TKE-e closure (TG)
-! Allocate advc_flags_1/2 within ws_init_flags instead of init_grid
-! Change argument list for exchange_horiz_2d_int (MS)
-! 
-! 2329 2017-08-03 14:24:56Z knoop
-! Bugfix concerning density in divergence correction close to buildings
-! 
-! 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). 
-! 
-! 2233 2017-05-30 18:08:54Z suehring
-! 
-! 2232 2017-05-30 17:47:52Z suehring
-! Rename wall_flags_0 and wall_flags_00 into advc_flags_m and advc_flags_1, 
-! respectively.
-! Set advc_flags_1/2 on basis of wall_flags_0/00 instead of nzb_s/u/v/w_inner.
-! Setting advc_flags_1/2 also for downward-facing walls
-! 
-! 2200 2017-04-11 11:37:51Z suehring
-! monotonic_adjustment removed
-! 
-! 2118 2017-01-17 16:38:49Z raasch
-! OpenACC version of subroutines removed
-! 
-! 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
-! 
-! 1996 2016-08-18 11:42:29Z suehring
-! Bugfix concerning calculation of turbulent of turbulent fluxes
-! 
-! 1960 2016-07-12 16:34:24Z suehring
-! Separate humidity and passive scalar
-! 
-! 1942 2016-06-14 12:18:18Z suehring
-! Initialization of flags for ws-scheme moved from init_grid.
-! 
-! 1873 2016-04-18 14:50:06Z maronga
-! Module renamed (removed _mod)
-! 
-! 
-! 1850 2016-04-08 13:29:27Z maronga
-! Module renamed
-!
-! 
-! 1822 2016-04-07 07:49:42Z hoffmann
-! icloud_scheme removed, microphysics_seifert added
-!
-! 1682 2015-10-07 23:56:08Z knoop
-! Code annotations made doxygen readable 
-! 
-! 1630 2015-08-26 16:57:23Z suehring
-! 
-! 
-! 1629 2015-08-26 16:56:11Z suehring
-! Bugfix concerning wall_flags at left and south PE boundaries
-!
-! 1581 2015-04-10 13:45:59Z suehring
-! 
-! 
-! 1580 2015-04-10 13:43:49Z suehring
-! Bugfix: statistical evaluation of scalar fluxes in case of monotonic limiter
-!
-! 1567 2015-03-10 17:57:55Z suehring
-! Bugfixes in monotonic limiter.
-!
-! 2015-03-09 13:10:37Z heinze
-! Bugfix: REAL constants provided with KIND-attribute in call of 
-! intrinsic functions like MAX and MIN 
-! 
-! 1557 2015-03-05 16:43:04Z suehring
-! Enable monotone advection for scalars using monotonic limiter
-!
-! 1374 2014-04-25 12:55:07Z raasch
-! missing variables added to ONLY list
-! 
-! 1361 2014-04-16 15:17:48Z hoffmann
-! accelerator and vector version for qr and nr added
-! 
-! 1353 2014-04-08 15:21:23Z heinze
-! REAL constants provided with KIND-attribute,
-! module kinds added
-! some formatting adjustments
-!
-! 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
-!
-! 1257 2013-11-08 15:18:40Z raasch
-! accelerator loop directives removed
-!
-! 1221 2013-09-10 08:59:13Z raasch
-! wall_flags_00 introduced, which holds bits 32-...
-!
-! 1128 2013-04-12 06:19:32Z raasch
-! loop index bounds in accelerator version replaced by i_left, i_right, j_south,
-! j_north
-!
-! 1115 2013-03-26 18:16:16Z hoffmann
-! calculation of qr and nr is restricted to precipitation
-!
-! 1053 2012-11-13 17:11:03Z hoffmann
-! necessary expansions according to the two new prognostic equations (nr, qr) 
-! of the two-moment cloud physics scheme:
-! +flux_l_*, flux_s_*, diss_l_*, diss_s_*, sums_ws*s_ws_l 
-!
-! 1036 2012-10-22 13:43:42Z raasch
-! code put under GPL (PALM 3.9)
-!
-! 1027 2012-10-15 17:18:39Z suehring
-! Bugfix in calculation indices k_mm, k_pp in accelerator version
-!
-! 1019 2012-09-28 06:46:45Z raasch
-! small change in comment lines
-!
-! 1015 2012-09-27 09:23:24Z raasch
-! accelerator versions (*_acc) added
-!
-! 1010 2012-09-20 07:59:54Z raasch
-! cpp switch __nopointer added for pointer free version
-!
-! 888 2012-04-20 15:03:46Z suehring
-! Number of REAL( IBITS() calls with identical arguments is reduced.
-!
-! 862 2012-03-26 14:21:38Z suehring
-! ws-scheme also work with topography in combination with vector version.
-! ws-scheme also work with outflow boundaries in combination with
-! vector version.
-! Degradation of the applied order of scheme is now steered by multiplying with
-! Integer advc_flags_1. 2nd order scheme, WS3 and WS5 are calculated on each
-! grid point and mulitplied with the appropriate flag.
-! 2nd order numerical dissipation term changed. Now the appropriate 2nd order
-! term derived according to the 4th and 6th order terms is applied. It turns
-! out that diss_2nd does not provide sufficient dissipation near walls.
-! Therefore, the function diss_2nd is removed.
-! Near walls a divergence correction is necessary to overcome numerical
-! instabilities due to too less divergence reduction of the velocity field.
-! boundary_flags and logicals steering the degradation are removed.
-! Empty SUBROUTINE local_diss removed.
-! Further formatting adjustments.
-!
-! 801 2012-01-10 17:30:36Z suehring
-! Bugfix concerning OpenMP parallelization. Summation of sums_wsus_ws_l,
-! sums_wsvs_ws_l, sums_us2_ws_l, sums_vs2_ws_l, sums_ws2_ws_l, sums_wspts_ws_l,
-! sums_wsqs_ws_l, sums_wssas_ws_l is now thread-safe by adding an additional
-! dimension.
-!
-! Initial revision
-!
-! 411 2009-12-11 12:31:43 Z suehring
-!
-!
-!
-! @author Matthias Suehring
-!
 !
 ! Description:
Index: /palm/trunk/SOURCE/average_3d_data.f90
===================================================================
--- /palm/trunk/SOURCE/average_3d_data.f90	(revision 4179)
+++ /palm/trunk/SOURCE/average_3d_data.f90	(revision 4180)
@@ -42,143 +42,4 @@
 ! Implementation of the PALM module interface
 ! 
-! 3597 2018-12-04 08:40:18Z maronga
-! Added theta_2m
-! 
-! 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
-! dom_dwd_user:
-! Clean up biometeorology call
-! 
-! 3525 2018-11-14 16:06:14Z kanani
-! Changes related to clean-up of biometeorology (dom_dwd_user)
-! 
-! 3467 2018-10-30 19:05:21Z suehring
-! Implementation of a new aerosol module salsa.
-! 
-! 3448 2018-10-29 18:14:31Z kanani
-! Adjustment of biometeorology calls
-! 
-! 3421 2018-10-24 18:39:32Z gronemeier
-! Renamed output variables
-! 
-! 3419 2018-10-24 17:27:31Z gronemeier
-! (from resler branch)
-! Add biometeorology output,
-! fix for chemistry output,
-! move of urban surface output
-! 
-! 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
-! 
-! 3004 2018-04-27 12:33:25Z Giersch
-! Further allocation checks implemented, case z0q* added
-! 
-! 2885 2018-03-14 11:02:46Z Giersch
-! Preliminary gust module interface implemented
-! 
-! 2797 2018-02-08 13:24:35Z suehring
-! Enable output of ground-heat flux also at urban surfaces.
-! 
-! 2766 2018-01-22 17:17:47Z kanani
-! Removed preprocessor directive __chem
-! 
-! 2742 2018-01-12 14:59:47Z suehring
-! Enable output of surface temperature
-! 
-! 2735 2018-01-11 12:01:27Z suehring
-! output of r_a moved from land-surface to consider also urban-type surfaces
-! 
-! 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)
-! Implement call for turbulence_closure_mod (TG)
-! Implementation of chemistry module (FK)
-! 
-! 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).  
-! 
-! 2233 2017-05-30 18:08:54Z suehring
-!
-! 2232 2017-05-30 17:47:52Z suehring
-! Adjustments to new surface concept - additional ghost point exchange 
-! of surface variable required
-! 
-! 2031 2016-10-21 15:11:58Z knoop
-! renamed variable rho to rho_ocean and rho_av to rho_ocean_av
-! 
-! 2011 2016-09-19 17:29:57Z kanani
-! Flag urban_surface is now defined in module control_parameters,
-! changed prefix for urban surface model output to "usm_",
-! introduced control parameter varnamelength for LEN of trimvar.
-! 
-! 2007 2016-08-24 15:47:17Z kanani
-! Added support for new urban surface model (temporary modifications of 
-! SELECT CASE ( ) necessary, see variable trimvar),
-! added comments in variable declaration section
-! 
-! 2000 2016-08-20 18:09:15Z knoop
-! Forced header and separation lines into 80 columns
-! 
-! 1972 2016-07-26 07:52:02Z maronga
-! Output of land surface quantities is now done directly in the respective module
-! 
-! 1960 2016-07-12 16:34:24Z suehring
-! Treat humidity and passive scalar separately
-! 
-! 1691 2015-10-26 16:17:44Z maronga
-! Added output of Obukhov length and radiative heating rates for RRTMG. 
-! 
-! 1682 2015-10-07 23:56:08Z knoop
-! Code annotations made doxygen readable 
-! 
-! 1585 2015-04-30 07:05:52Z maronga
-! Adapted for RRTMG
-! 
-! 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 support for land surface and radiation model parameters.
-!
-! 1322 2014-03-20 16:38:49Z raasch
-! REAL functions provided with KIND-attribute
-!
-! 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
-!
-! 1318 2014-03-17 13:35:16Z raasch
-! barrier argument removed from cpu_log,
-! module interfaces removed
-!
-! 1115 2013-03-26 18:16:16Z hoffmann
-! +qc
-!
-! 1053 2012-11-13 17:11:03Z hoffmann
-! averaging of nr, qr added
-!
-! 1036 2012-10-22 13:43:42Z raasch
-! code put under GPL (PALM 3.9)
-!
-! 978 2012-08-09 08:28:32Z fricke
-! +z0h_av
-!
-! Revision 1.1  2006/02/23 09:48:58  raasch
-! Initial revision
-!
 !
 ! Description:
Index: /palm/trunk/SOURCE/basic_constants_and_equations_mod.f90
===================================================================
--- /palm/trunk/SOURCE/basic_constants_and_equations_mod.f90	(revision 4179)
+++ /palm/trunk/SOURCE/basic_constants_and_equations_mod.f90	(revision 4180)
@@ -37,12 +37,4 @@
 ! OpenACC port for SPEC
 ! 
-! 3449 2018-10-29 19:36:56Z suehring
-! +degc_to_k 
-! 
-! 3361 2018-10-16 20:39:37Z knoop
-! New module (introduced with modularization of bulk cloud physics model)
-!
-! 
-!
 !
 ! Description:
Index: /palm/trunk/SOURCE/biometeorology_mod.f90
===================================================================
--- /palm/trunk/SOURCE/biometeorology_mod.f90	(revision 4179)
+++ /palm/trunk/SOURCE/biometeorology_mod.f90	(revision 4180)
@@ -90,51 +90,4 @@
 ! Bugfixes and additions for enabling restarts with biometeorology 
 ! 
-! 3646 2018-12-28 17:58:49Z kanani
-! Remove check for simulated_time > 0, it is not required since biometeorology
-! is only called from time_integration and not during time_integration_spinup
-! 
-! 3614 2018-12-10 07:05:46Z raasch
-! unused variables removed
-! 
-! 3593 2018-12-03 13:51:13Z kanani
-! Bugfix: additional tmrt_grid allocation in case bio_mrt not selected as ouput,
-! replace degree symbol by degree_C
-! 
-! 3582 2018-11-29 19:16:36Z suehring
-! Consistently use bio_fill_value everywhere,
-! move allocation and initialization of output variables to bio_check_data_output
-! and bio_3d_data_averaging,
-! dom_dwd_user, Schrempf:
-! - integration of UVEM module part from r3474 (edited)
-! - split UTCI regression into 6 parts
-! - all data_output_3d is now explicity casted to sp
-!
-! 3525 2018-11-14 16:06:14Z kanani
-! Clean up, renaming from "biom" to "bio", summary of thermal index calculation
-! into one module (dom_dwd_user)
-! 
-! 3479 2018-11-01 16:00:30Z gronemeier
-! - reworked check for output quantities
-! - assign new palm-error numbers
-! - set unit according to data standard.
-! 
-! 3475 2018-10-30 21:16:31Z kanani
-! Add option for using MRT from RTM instead of simplified global value
-! 
-! 3464 2018-10-30 18:08:55Z kanani
-! From branch resler@3462, pavelkrc:
-! make use of basic_constants_and_equations_mod
-! 
-! 3448 2018-10-29 18:14:31Z kanani
-! Initial revision
-!
-! 
-!
-! Authors:
-! --------
-! @author Dominik Froehlich <dominik.froehlich@dwd.de>, thermal indices
-! @author Jaroslav Resler <resler@cs.cas.cz>, mean radiant temperature
-! @author Michael Schrempf <schrempf@muk.uni-hannover.de>, uv exposure
-!
 !
 ! Description:
Index: /palm/trunk/SOURCE/boundary_conds.f90
===================================================================
--- /palm/trunk/SOURCE/boundary_conds.f90	(revision 4179)
+++ /palm/trunk/SOURCE/boundary_conds.f90	(revision 4180)
@@ -44,177 +44,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
-! variables documented
-! 
-! 3467 2018-10-30 19:05:21Z suehring
-! Implementation of a new aerosol module salsa.
-! 
-! 3347 2018-10-15 14:21:08Z suehring
-! Bugfix in setting boundary conditions in offline nesting
-! 
-! 3341 2018-10-15 10:31:27Z suehring
-! 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
-! unused variables removed
-! 
-! 3183 2018-07-27 14:25:55Z suehring
-! Rename some variables concerning LES-LES as well as offline nesting
-! 
-! 3182 2018-07-27 13:36:03Z suehring
-! - Use wall function for e_p and diss_p in case of rans_tke_e
-! - move limitation of diss_p from tcm_prognostic
-! 
-! 2938 2018-03-27 15:52:42Z suehring
-! Set boundary condition for TKE and TKE dissipation rate in case of nesting
-! and if parent model operates in RANS mode but child model in LES mode.
-! mode
-! 
-! 2793 2018-02-07 10:54:33Z suehring
-! Removed preprocessor directive __chem
-! 
-! 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)
-! Adjust boundary conditions for e and diss in case of TKE-e closure (TG)
-! Implementation of chemistry module (FK)
-! 
-! 2569 2017-10-20 11:54:42Z kanani
-! Removed redundant code for ibc_s_b=1 and ibc_q_b=1
-! 
-! 2365 2017-08-21 14:59:59Z kanani
-! Vertical grid nesting implemented: exclude setting vertical velocity to zero 
-! on fine grid (SadiqHuq)
-! 
-! 2320 2017-07-21 12:47:43Z suehring
-! Remove unused control parameter large_scale_forcing from only-list
-! 
-! 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). 
-! 
-! 2233 2017-05-30 18:08:54Z suehring
-!
-! 2232 2017-05-30 17:47:52Z suehring
-! Set boundary conditions on topography top using flag method.
-! 
-! 2118 2017-01-17 16:38:49Z raasch
-! OpenACC directives removed
-! 
-! 2000 2016-08-20 18:09:15Z knoop
-! Forced header and separation lines into 80 columns
-! 
-! 1992 2016-08-12 15:14:59Z suehring
-! Adjustments for top boundary condition for passive scalar
-! 
-! 1960 2016-07-12 16:34:24Z suehring
-! Treat humidity and passive scalar separately
-! 
-! 1823 2016-04-07 08:57:52Z hoffmann
-! Initial version of purely vertical nesting introduced.
-!
-! 1822 2016-04-07 07:49:42Z hoffmann
-! icloud_scheme removed. microphyisics_seifert added.
-!
-! 1764 2016-02-28 12:45:19Z raasch
-! index bug for u_p at left outflow removed
-!
-! 1762 2016-02-25 12:31:13Z hellstea
-! Introduction of nested domain feature
-!
-! 1742 2016-01-13 09:50:06Z raasch
-! bugfix for outflow Neumann boundary conditions at bottom and top
-!
-! 1717 2015-11-11 15:09:47Z raasch
-! Bugfix: index error in outflow conditions for left boundary
-!
-! 1682 2015-10-07 23:56:08Z knoop
-! Code annotations made doxygen readable
-! 
-! 1410 2014-05-23 12:16:18Z suehring
-! Bugfix: set dirichlet boundary condition for passive_scalar at model domain 
-! top 
-!
-! 1399 2014-05-07 11:16:25Z heinze
-! Bugfix: set inflow boundary conditions also if no humidity or passive_scalar
-! is used.
-! 
-! 1398 2014-05-07 11:15:00Z heinze
-! Dirichlet-condition at the top for u and v changed to u_init and v_init also 
-! for large_scale_forcing
-! 
-! 1380 2014-04-28 12:40:45Z heinze
-! Adjust Dirichlet-condition at the top for pt in case of nudging
-! 
-! 1361 2014-04-16 15:17:48Z hoffmann
-! Bottom and top boundary conditions of rain water content (qr) and 
-! rain drop concentration (nr) changed to Dirichlet
-! 
-! 1353 2014-04-08 15:21:23Z heinze
-! REAL constants provided with KIND-attribute
-!  
-! 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
-!
-! 1257 2013-11-08 15:18:40Z raasch
-! loop independent clauses added
-!
-! 1241 2013-10-30 11:36:58Z heinze
-! Adjust ug and vg at each timestep in case of large_scale_forcing
-!
-! 1159 2013-05-21 11:58:22Z fricke
-! Bugfix: Neumann boundary conditions for the velocity components at the
-! outflow are in fact radiation boundary conditions using the maximum phase
-! velocity that ensures numerical stability (CFL-condition).
-! Hence, logical operator use_cmax is now used instead of bc_lr_dirneu/_neudir.
-! Bugfix: In case of use_cmax at the outflow, u, v, w are replaced by
-! u_p, v_p, w_p  
-!
-! 1115 2013-03-26 18:16:16Z hoffmann
-! boundary conditions of two-moment cloud scheme are restricted to Neumann-
-! boundary-conditions
-!
-! 1113 2013-03-10 02:48:14Z raasch
-! GPU-porting
-! dummy argument "range" removed
-! Bugfix: wrong index in loops of radiation boundary condition
-!
-! 1053 2012-11-13 17:11:03Z hoffmann
-! boundary conditions for the two new prognostic equations (nr, qr) of the 
-! two-moment cloud scheme
-!
-! 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
-! Neumann boudnary conditions are added at the inflow boundary for the SGS-TKE.
-! Outflow boundary conditions for the velocity components can be set to Neumann
-! conditions or to radiation conditions with a horizontal averaged phase
-! velocity. 
-!
-! 875 2012-04-02 15:35:15Z gryschka
-! Bugfix in case of dirichlet inflow bc at the right or north boundary
-!
-! Revision 1.1  1997/09/12 06:21:34  raasch
-! Initial revision
-!
 !
 ! Description:
Index: /palm/trunk/SOURCE/bulk_cloud_model_mod.f90
===================================================================
--- /palm/trunk/SOURCE/bulk_cloud_model_mod.f90	(revision 4179)
+++ /palm/trunk/SOURCE/bulk_cloud_model_mod.f90	(revision 4180)
@@ -62,157 +62,4 @@
 ! nopointer option removed
 ! 
-! 3622 2018-12-12 09:52:53Z schwenkel
-! Important bugfix in case of restart runs.
-! 
-! 3507 2018-11-08 14:28:46Z schwenkel
-! Minor bugfixes for bcm cache version and initializing prr
-! 
-! 3452 2018-10-30 13:13:34Z schwenkel
-! Bugfix for profiles output
-! 
-! 3445 2018-10-29 12:23:02Z schwenkel
-! Minor bugfix and use of subroutine for supersaturation calculation in case
-! of cache version
-! 
-! 3383 2018-10-19 14:22:58Z knoop
-! Modularization of all bulk cloud physics code components
-! 
-! unused variables removed
-! 
-! 3026 2018-05-22 10:30:53Z schwenkel
-! Changed the name specific humidity to mixing ratio, since we are computing
-! mixing ratios.
-! 
-! 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
-! Change in file header (GPL part)
-!
-! 2608 2017-11-13 14:04:26Z schwenkel
-! Calculation of supersaturation in external module (diagnostic_quantities_mod).
-! Change: correct calculation of saturation specific humidity to saturation
-! mixing ratio (the factor of 0.378 vanishes).
-! 
-! 2522 2017-10-05 14:20:37Z schwenkel
-! Minor bugfix
-! 
-! 2375 2017-08-29 14:10:28Z schwenkel
-! Improved aerosol initilization and some minor bugfixes 
-! for droplet sedimenation
-! 
-! 2318 2017-07-20 17:27:44Z suehring
-! Get topography top index via Function call 
-!
-! 2317 2017-07-20 17:27:19Z suehring
-! s1 changed to log_sigma
-!
-! 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).
-! - The process of activation is parameterized with a simple Twomey
-!   activion scheme or with considering solution and curvature
-!   effects (Khvorostyanov and Curry ,2006).
-! - The saturation adjustment scheme is replaced by the parameterization
-!   of condensation rates (Khairoutdinov and Kogan, 2000, Mon. Wea. Rev.,128).
-! - All other microphysical processes of Seifert and Beheng are used.
-!   Additionally, in those processes the reduction of cloud number concentration
-!   is considered.
-!
-! 2233 2017-05-30 18:08:54Z suehring
-!
-! 2232 2017-05-30 17:47:52Z suehring
-! Adjustments to new topography and surface concept
-!
-! 2155 2017-02-21 09:57:40Z hoffmann
-! Bugfix in the calculation of microphysical quantities on ghost points.
-!
-! 2031 2016-10-21 15:11:58Z knoop
-! renamed variable rho to rho_ocean
-!
-! 2000 2016-08-20 18:09:15Z knoop
-! Forced header and separation lines into 80 columns
-!
-! 1850 2016-04-08 13:29:27Z maronga
-! Module renamed
-! Adapted for modularization of microphysics.
-!
-! 1845 2016-04-08 08:29:13Z raasch
-! nzb_2d replaced by nzb_s_inner, Kessler precipitation is stored at surface
-! point (instead of one point above surface)
-!
-! 1831 2016-04-07 13:15:51Z hoffmann
-! turbulence renamed collision_turbulence,
-! drizzle renamed cloud_water_sedimentation. cloud_water_sedimentation also
-! avaialble for microphysics_kessler.
-!
-! 1822 2016-04-07 07:49:42Z hoffmann
-! Unused variables removed.
-! Kessler scheme integrated.
-!
-! 1691 2015-10-26 16:17:44Z maronga
-! Added new routine calc_precipitation_amount. The routine now allows to account
-! for precipitation due to sedimenation of cloud (fog) droplets
-!
-! 1682 2015-10-07 23:56:08Z knoop
-! Code annotations made doxygen readable
-!
-! 1646 2015-09-02 16:00:10Z hoffmann
-! Bugfix: Wrong computation of d_mean.
-!
-! 1361 2014-04-16 15:17:48Z hoffmann
-! Bugfix in sedimentation_rain: Index corrected.
-! Vectorized version of adjust_cloud added.
-! Little reformatting of the code.
-!
-! 1353 2014-04-08 15:21:23Z heinze
-! REAL constants provided with KIND-attribute
-!
-! 1346 2014-03-27 13:18:20Z heinze
-! Bugfix: REAL constants provided with KIND-attribute especially in call of
-! intrinsic function like MAX, MIN, SIGN
-!
-! 1334 2014-03-25 12:21:40Z heinze
-! Bugfix: 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,
-! comment fields (!:) to be used for variable explanations added to
-! all variable declaration statements
-!
-! 1241 2013-10-30 11:36:58Z heinze
-! hyp and rho_ocean have to be calculated at each time step if data from external
-! file LSF_DATA are used
-!
-! 1115 2013-03-26 18:16:16Z hoffmann
-! microphyical tendencies are calculated in bcm_actions in an optimized
-! way; unrealistic values are prevented; bugfix in evaporation; some reformatting
-!
-! 1106 2013-03-04 05:31:38Z raasch
-! small changes in code formatting
-!
-! 1092 2013-02-02 11:24:22Z raasch
-! unused variables removed
-! file put under GPL
-!
-! 1065 2012-11-22 17:42:36Z hoffmann
-! Sedimentation process implemented according to Stevens and Seifert (2008).
-! Turbulence effects on autoconversion and accretion added (Seifert, Nuijens
-! and Stevens, 2010).
-!
-! 1053 2012-11-13 17:11:03Z hoffmann
-! initial revision
 !
 ! Description:
Index: /palm/trunk/SOURCE/buoyancy.f90
===================================================================
--- /palm/trunk/SOURCE/buoyancy.f90	(revision 4179)
+++ /palm/trunk/SOURCE/buoyancy.f90	(revision 4180)
@@ -30,98 +30,4 @@
 ! nopointer option removed
 ! 
-! 3634 2018-12-18 12:31:28Z knoop
-! OpenACC port for SPEC
-! 
-! 3538 2018-11-20 10:55:41Z suehring
-! Remove unnecessary double-masking of topography
-! 
-! 3294 2018-10-01 02:37:10Z raasch
-! module use statements moved to global declaration section
-! 
-! 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 Variable removed
-!
-! 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)
-!
-! 2233 2017-05-30 18:08:54Z suehring
-!
-! 2232 2017-05-30 17:47:52Z suehring
-! Adjustments to new topography concept
-! 
-! 2118 2017-01-17 16:38:49Z raasch
-! OpenACC version of subroutine removed
-! 
-! 2000 2016-08-20 18:09:15Z knoop
-! Forced header and separation lines into 80 columns
-! 
-! 1873 2016-04-18 14:50:06Z maronga
-! Module renamed (removed _mod)
-! 
-! 
-! 1850 2016-04-08 13:29:27Z maronga
-! Module renamed
-! 
-! 1682 2015-10-07 23:56:08Z knoop
-! Code annotations made doxygen readable 
-! 
-! 1374 2014-04-25 12:55:07Z raasch
-! missing variables added to ONLY list
-! 
-! 1365 2014-04-22 15:03:56Z boeske
-! Calculation of reference state in subroutine calc_mean_profile moved to
-! subroutine time_integration,
-! subroutine calc_mean_profile moved to new file calc_mean_profile.f90
-! 
-! 1353 2014-04-08 15:21:23Z heinze
-! REAL constants provided with KIND-attribute
-!
-! 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
-!
-! 1257 2013-11-08 15:18:40Z raasch
-! vector length (32) removed from openacc clause
-!
-! 1241 2013-10-30 11:36:58Z heinze
-! Generalize calc_mean_profile for wider use: use additional steering 
-! character loc 
-!
-! 1179 2013-06-14 05:57:58Z raasch
-! steering of reference state revised (var_reference and pr removed from
-! parameter list), use_reference renamed use_single_reference_value
-!
-! 1171 2013-05-30 11:27:45Z raasch
-! openacc statements added to use_reference-case in accelerator version
-!
-! 1153 2013-05-10 14:33:08Z raasch
-! code adjustments of accelerator version required by PGI 12.3 / CUDA 5.0
-!
-! 1128 2013-04-12 06:19:32Z raasch
-! loop index bounds in accelerator version replaced by i_left, i_right, j_south,
-! j_north
-!
-! 1036 2012-10-22 13:43:42Z raasch
-! code put under GPL (PALM 3.9)
-!
-! 1015 2012-09-27 09:23:24Z raasch
-! accelerator version (*_acc) added
-!
-! 1010 2012-09-20 07:59:54Z raasch
-! cpp switch __nopointer added for pointer free version
-!
-! Revision 1.1  1997/08/29 08:56:48  raasch
-! Initial revision
-!
 !
 ! Description:
Index: /palm/trunk/SOURCE/calc_mean_profile.f90
===================================================================
--- /palm/trunk/SOURCE/calc_mean_profile.f90	(revision 4179)
+++ /palm/trunk/SOURCE/calc_mean_profile.f90	(revision 4180)
@@ -27,40 +27,4 @@
 ! nopointer option removed
 ! 
-! 3241 2018-09-12 15:02:00Z raasch
-! omp_get_thread_num now declared in openmp directive,
-! unused variable removed
-! 
-! 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)
-! Enable usage also during initialization, required for initialization of 
-! radiation and land-surface model (MS)
-! 
-! 2233 2017-05-30 18:08:54Z suehring
-!
-! 2232 2017-05-30 17:47:52Z suehring
-! Adjustments to new topography concept
-! 
-! 2000 2016-08-20 18:09:15Z knoop
-! Forced header and separation lines into 80 columns
-! 
-! 1873 2016-04-18 14:50:06Z maronga
-! Module renamed (removed _mod)
-! 
-! 
-! 1850 2016-04-08 13:29:27Z maronga
-! Module renamed
-! 
-!
-! 1738 2015-12-18 13:56:05Z raasch
-! bugfix: if a layer is completely filled with topography, no mean is calculated
-!
-! 1682 2015-10-07 23:56:08Z knoop
-! Code annotations made doxygen readable 
-! 
-! 1365 2014-04-22 15:03:56Z boeske
-! Initial revision
 !
 ! Description:
Index: /palm/trunk/SOURCE/check_for_restart.f90
===================================================================
--- /palm/trunk/SOURCE/check_for_restart.f90	(revision 4179)
+++ /palm/trunk/SOURCE/check_for_restart.f90	(revision 4180)
@@ -27,54 +27,4 @@
 ! Error messages revised
 ! 
-! 3045 2018-05-28 07:55:41Z Giersch
-! Error messages revised
-! 
-! 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)
-!
-! 2298 2017-06-29 09:28:18Z raasch
-! type of write_binary changed from CHARACTER to LOGICAL
-! 
-! 2101 2017-01-05 16:42:31Z suehring
-!
-! 2000 2016-08-20 18:09:15Z knoop
-! Forced header and separation lines into 80 columns
-!
-! 1797 2016-03-21 16:50:28Z raasch
-! check accounts for nesting mode now
-!
-! 1682 2015-10-07 23:56:08Z knoop
-! Code annotations made doxygen readable 
-! 
-! 1509 2014-12-16 08:56:46Z heinze
-! bugfix: prevent infinite loop in case of automatic restarts
-!
-! 1468 2014-09-24 14:06:57Z maronga
-! Added support for unscheduled job termination using the flag files
-! DO_STOP_NOW and DO_RESTART_NOW
-! 
-! 1353 2014-04-08 15:21:23Z heinze
-! REAL constants provided with KIND-attribute
-!
-! 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
-!
-! 1036 2012-10-22 13:43:42Z raasch
-! code put under GPL (PALM 3.9)
-!
-! 1032 2012-10-21 13:03:21Z letzel
-! minor reformatting
-!
-! Revision 1.1  1998/03/18 20:06:51  raasch
-! Initial revision
-!
 !
 ! Description:
Index: /palm/trunk/SOURCE/check_open.f90
===================================================================
--- /palm/trunk/SOURCE/check_open.f90	(revision 4179)
+++ /palm/trunk/SOURCE/check_open.f90	(revision 4180)
@@ -48,146 +48,4 @@
 ! Open files for surface data
 ! 
-! 3399 2018-10-22 20:13:45Z gronemeier
-! unused variables and format statements removed
-! 
-! 3159 2018-07-20 11:20:01Z sward
-! Added multi agent system
-! 
-! 3045 2018-05-28 07:55:41Z Giersch
-! Output case 108 disabled
-! 
-! 2964 2018-04-12 16:04:03Z Giersch
-! Error message moved to radiation_model_mod
-! 
-! 2957 2018-04-11 08:48:06Z Giersch
-! Error message has been corrected in case of writing sky view factors
-! 
-! 2906 2018-03-19 08:56:40Z Giersch
-! CASE 88 and 89 has been added for the input/output of sky view factors
-! 
-! 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)
-!
-! 2669 2017-12-06 16:03:27Z raasch
-! file name extension for masked data files is changed to "_M##" and is now
-! appended at the end of the filename,
-! file ids not used any more have been removed
-! 
-! 2516 2017-10-04 11:03:04Z suehring
-! Remove tabs
-! 
-! 2514 2017-10-04 09:52:37Z suehring
-! upper bounds of cross section and 3d output changed from nx+1,ny+1 to nx,ny
-! no output of ghost layer data
-! iso2d-related parts removed
-! 
-! 2300 2017-06-29 13:31:14Z raasch
-! -host
-! 
-! 2298 2017-06-29 09:28:18Z raasch
-! -return_addres, return_username, avs_coor_file_..., avs_data_file_...,
-! cross_ts_numbers, cross_ts_number_count
-!
-! 2101 2017-01-05 16:42:31Z suehring
-!
-! 2063 2016-11-10 17:14:35Z raasch
-! bugfix: opening of PROGRESS file moved out of the NetCDF block
-!
-! 2040 2016-10-26 16:58:09Z gronemeier
-! Removed open of file 'PLOTTS_DATA' ( CASE(50:59) ) as it is no longer needed
-! 
-! 2000 2016-08-20 18:09:15Z knoop
-! Forced header and separation lines into 80 columns
-! 
-! 1988 2016-08-10 14:49:06Z gronemeier
-! informative message added if files cannot be opened in newly created directory
-! 
-! 1986 2016-08-10 14:07:17Z gronemeier
-! Bugfix: check if output can be opened in newly created directory. If not
-! wait one second and try again.
-! 
-! 1974 2016-07-26 08:43:25Z gronemeier
-! Bugfix: MPI barriers after deleting non-extendable files must only be called
-! in case of parallel I/O
-! 
-! 1957 2016-07-07 10:43:48Z suehring
-! flight module added
-!
-! 1804 2016-04-05 16:30:18Z maronga
-! Removed code for parameter file check (__check)
-!
-! 1783 2016-03-06 18:36:17Z raasch
-! name change of netcdf routines and module + related changes
-!
-! 1779 2016-03-03 08:01:28Z raasch
-! coupling_char is trimmed at every place it occurs, because it can have
-! different length now
-!
-! 1745 2016-02-05 13:06:51Z gronemeier
-! Bugfix: added MPI barrier after deleting existing non-extendable file by PE0
-! 
-! 1682 2015-10-07 23:56:08Z knoop
-! Code annotations made doxygen readable 
-! 
-! 1551 2015-03-03 14:18:16Z maronga
-! Removed redundant output for combine_plot_fields
-! 
-! 1468 2014-09-24 14:06:57Z maronga
-! Adapted for use on up to 6-digit processor cores
-! Added file unit 117 (PROGRESS)
-! 
-! 1359 2014-04-11 17:15:14Z hoffmann
-! Format of particle exchange statistics extended to reasonable numbers of      
-! particles.
-! 
-! 1353 2014-04-08 15:21:23Z heinze
-! REAL constants provided with KIND-attribute,
-! declaration for unused variables xkoor, ykoor, zkoor removed
-! 
-! 1327 2014-03-21 11:00:16Z raasch
-! parts concerning iso2d and avs output removed
-!
-! 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
-!
-! 1106 2013-03-04 05:31:38Z raasch
-! array_kind renamed precision_kind
-!
-! 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)
-!
-! 1031 2012-10-19 14:35:30Z raasch
-! netCDF4 without parallel file support implemented,
-! opening of netCDF files are done by new routines create_netcdf_file and
-! open_write_netcdf_file
-!
-! 964 2012-07-26 09:14:24Z raasch
-! old profil-units (40:49) removed,
-! append feature removed from unit 14
-!
-! 849 2012-03-15 10:35:09Z raasch
-! comment changed
-!
-! 809 2012-01-30 13:32:58Z maronga
-! Bugfix: replaced .AND. and .NOT. with && and ! in the preprocessor directives
-!
-! 807 2012-01-25 11:53:51Z maronga
-! New cpp directive "__check" implemented which is used by check_namelist_files
-!
-! Revision 1.1  1997/08/11 06:10:55  raasch
-! Initial revision
-!
 !
 ! Description:
Index: /palm/trunk/SOURCE/check_parameters.f90
===================================================================
--- /palm/trunk/SOURCE/check_parameters.f90	(revision 4179)
+++ /palm/trunk/SOURCE/check_parameters.f90	(revision 4180)
@@ -74,719 +74,4 @@
 ! Formatting
 ! 
-! 3637 2018-12-20 01:51:36Z knoop
-! Implementation of the PALM module interface
-! 
-! 3597 2018-12-04 08:40:18Z maronga
-! Added checks for theta_2m
-! 
-! 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
-! Call nesting_offl_check_parameters
-! 
-! 3575 2018-11-28 15:06:32Z kanani
-! Bugfix for output time levels in parallel NetCDF output with spinup
-! 
-! 3569 2018-11-27 17:03:40Z kanani
-! Sort chemistry routine calls into list.
-! dom_dwd_user, Schrempf:
-! remove CALLs to uv exposure model, this is now part of biometeorology_mod
-! 
-! 3545 2018-11-21 11:19:41Z gronemeier
-! Call tcm_check_parameters before other modules
-! 
-! 3529 2018-11-15 21:03:15Z gronemeier
-! Save time zone in variable run_zone, change date format into YYYY-MM-DD
-! 
-! 3525 2018-11-14 16:06:14Z kanani
-! Changes related to clean-up of biometeorology (dom_dwd_user)
-! 
-! 3517 2018-11-12 16:27:08Z gronemeier
-! bugfix: renamed 'w*2pt*' -> 'w*2theta*'
-!                 'w*pt*2' -> 'w*theta*2'
-!
-! 2017-10-10 11:29:14Z monakurppa
-! Implementation of a new aerosol module salsa.
-! 
-! 3472 2018-10-30 20:43:50Z suehring
-! Bugfix: Missing air_chemistry statement for profile check
-! 
-! 3452 2018-10-30 13:13:34Z schwenkel
-! Bugfix for profiles output
-! 
-! 3448 2018-10-29 18:14:31Z kanani
-! Add biometeorology
-! 
-! 3421 2018-10-24 18:39:32Z gronemeier
-! Renamed output variables
-! Add checks for surface data output
-! 
-! 3419 2018-10-24 17:27:31Z gronemeier
-! Remove offline nesting in if clause for pressure top boundary condition
-! 
-! 3343 2018-10-15 10:38:52Z suehring
-! (from branch resler)
-! Add biometeorology,
-! fix for chemistry output,
-! increase of uv_heights dimension
-! 
-! 3312 2018-10-06 14:15:46Z knoop
-! small code rearrangements
-! 
-! 3301 2018-10-02 17:10:50Z gronemeier
-! corrected former revision section
-! 
-! 3298 2018-10-02 12:21:11Z kanani
-! - Minor formatting and remarks
-! - Call of chem_emissions_check_parameters commented 
-!   (preliminary, as there is still a bug in this subroutine) (forkel)
-! - Corrected call for chemistry profile output added (basit)
-! - Call for init_vertical_profiles for chemistry removed (basit)
-! - Call for chem_init_profiles removed (basit)
-! - Setting of initial profiles for chemstry (constant and call of 
-!   init_vertical_profiles) commented (forkel)
-!
-! 3294 2018-10-01 raasch
-! changes concerning modularization of ocean option,
-! init_vertical_profiles moved to separate file to avoid circular dependency
-! 
-! 3274 2018-09-24 knoop
-! Modularization of all bulk cloud physics code components
-! 
-! 3241 2018-09-12 raasch
-! unused variables removed
-! 
-! 3232 2018-09-07 raasch
-! references to mrun replaced by palmrun, and updated
-! 
-! 3182 2018-07-27 suehring
-! Rename boundary conditions in offline nesting
-! 
-! 3083 2018-06-19 gronemeier
-! Add inital profile output for e (TG)
-! 
-! 3065 2018-06-12 07:03:02Z Giersch
-! dz was replaced by dz(1), error message revised
-! 
-! 3049 2018-05-29 13:52:36Z Giersch
-! add variable description
-! 
-! 3046 2018-05-29 08:02:15Z Giersch
-! Error messages revised
-!
-! 3045 2018-05-28 07:55:41Z Giersch
-! Error messages revised
-! 
-! 3035 2018-05-24 09:35:20Z schwenkel
-! Add option to initialize warm air bubble close to surface
-!
-! 3034 2018-05-24 08:41:20Z raasch
-! bugfix: check that initializing_actions has been set
-!
-! 2980 2018-04-17 15:19:27Z suehring
-! Further improvement for spinup checks.
-! 
-! 2974 2018-04-16 12:59:52Z gronemeier
-! Bugfix: check if dt_data_output_av is zero in case of parallel NetCDF output
-! 
-! 2970 2018-04-13 15:09:23Z suehring
-! Bugfix in old large-scale forcing mode
-! 
-! 2964 2018-04-12 16:04:03Z Giersch
-! Calculation of fixed number of output time levels for parallel netcdf output
-! has been revised (based on calculations in netcdf_interface_mod)
-! 
-! 2938 2018-03-27 15:52:42Z suehring
-! - Revise start and end indices for imposing random disturbances in case of
-!   nesting or large-scale forcing.
-! - Remove check for inifor initialization in case of nested runs. 
-! - Adapt call to check for synthetic turbulence geneartor settings.
-! 
-! 2936 2018-03-27 14:49:27Z suehring
-! Check spinup in case of nested runs, spinup time and timestep must be 
-! identical to assure synchronuous simulations. 
-! 
-! 2932 2018-03-26 09:39:22Z maronga
-! renamed particles_par to particle_parameters
-! 
-! 2918 2018-03-21 15:52:14Z gronemeier
-! Add check for 1D model
-! 
-! 2883 2018-03-14 08:29:10Z Giersch
-! dt_dopr_listing is not set to the default value zero anymore
-! 
-! 2851 2018-03-05 14:39:31Z maronga
-! Bugfix: calculation of output time levels in case of restart runs (parallel
-! NetCDF)
-! 
-! 2836 2018-02-26 13:40:05Z Giersch
-! dt_dopr_listing is set to the default value zero 
-! 
-! 2817 2018-02-19 16:32:21Z knoop
-! Preliminary gust module interface implemented
-! 
-! 2798 2018-02-09 17:16:39Z suehring
-! Consider also default-type surfaces for surface temperature output. 
-! 
-! 2797 2018-02-08 13:24:35Z suehring
-! Enable output of ground-heat flux also at urban surfaces.
-! 
-! 2776 2018-01-31 10:44:42Z Giersch
-! Variable synthetic_turbulence_generator has been abbreviated
-! 
-! 2773 2018-01-30 14:12:54Z suehring
-! Check for consistent initialization in nesting mode added.
-! 
-! 2766 2018-01-22 17:17:47Z kanani
-! Removed preprocessor directive __chem
-! 
-! 2765 2018-01-22 11:34:58Z maronga
-! Renamed simulation_time_since_reference to 
-! time_to_be_simulated_from_reference_point
-! 
-! 2746 2018-01-15 12:06:04Z suehring
-! Move flag plant canopy to modules
-! 
-! 2743 2018-01-12 16:03:39Z suehring
-! In case of natural- and urban-type surfaces output surfaces fluxes in W/m2.
-! 
-! 2742 2018-01-12 14:59:47Z suehring
-! Enable output of surface temperature
-! 
-! 2735 2018-01-11 12:01:27Z suehring
-! output of r_a moved from land-surface to consider also urban-type surfaces
-! 
-! 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)
-! Implementation of uv exposure model (FK)
-! + new possible value for dissipation_1d
-! Added checks for turbulence_closure_mod (TG)
-! Implementation of chemistry module (FK)
-! 
-! 2689 2017-12-12 17:46:55Z Giersch
-! Bugfix in if query
-! 
-! 2688 2017-12-12 17:27:04Z Giersch
-! Check if humidity is set to TRUE in the _p3d file for coupled runs
-! 
-! 2669 2017-12-06 16:03:27Z raasch
-! mrun-string replaced by palmrun
-! 
-! 2628 2017-11-20 12:40:38Z schwenkel
-! Enabled particle advection with grid stretching -> Removed parameter check
-! 
-! 2575 2017-10-24 09:57:58Z maronga
-! Renamed phi --> latitude
-! 
-! 2564 2017-10-19 15:56:56Z Giersch
-! Variable wind_turbine was added to control_parameters.
-! 
-! 2550 2017-10-16 17:12:01Z boeske
-! Added checks for complex terrain simulations
-! 
-! 2513 2017-10-04 09:24:39Z kanani
-! Bugfix for some dopr(_initial)_index values and units connected to 
-! passive-scalar output
-! 
-! 2508 2017-10-02 08:57:09Z suehring
-! Bugfix, change default value of vertical_gradient level in order to consider 
-! also ocean runs 
-! 
-! 2422 2017-09-08 08:25:41Z raasch
-! error message in case of missing "restart" file activation string
-! 
-! 2375 2017-08-29 14:10:28Z schwenkel
-! Added aerosol for bulk microphysics
-! 
-! 2365 2017-08-21 14:59:59Z kanani
-! Vertical grid nesting implemented: Check coupling mode. Generate file header
-! (SadiqHuq)
-! 
-! 2354 2017-08-17 10:49:36Z schwenkel
-! Bugfix correlated to lsm_check_data_output_pr.
-! If-statement for following checks is essential, otherwise units for lsm output 
-! are set to 'illegal' and palm will be aborted.
-! 
-! 2348 2017-08-10 10:40:10Z kanani
-! New: Check for simultaneous use of geostrophic wind and u_profile/v_profile
-! 
-! 2345 2017-08-09 11:50:30Z Giersch
-! Remove error message PA0156 and the conserve_volume_flow_mode option 
-! inflow_profile
-! 
-! 2339 2017-08-07 13:55:26Z raasch
-! corrected timestamp in header
-! 
-! 2338 2017-08-07 12:15:38Z gronemeier
-! Modularize 1D model
-! 
-! 2329 2017-08-03 14:24:56Z knoop
-! Bugfix: index corrected for rho_air and rho_air_zw output
-! 
-! 2320 2017-07-21 12:47:43Z suehring
-! Modularize large-scale forcing and nudging
-!
-! 2312 2017-07-14 20:26:51Z hoffmann
-! PA0349 and PA0420 removed.
-!
-! 2300 2017-06-29 13:31:14Z raasch
-! host-specific settings and checks removed
-!
-! 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).
-!
-! 2274 2017-06-09 13:27:48Z Giersch
-! Changed error messages
-!
-! 2271 2017-06-09 12:34:55Z sward
-! roughness-length check altered
-! Error messages fixed
-!
-! 2270 2017-06-09 12:18:47Z maronga
-! Revised numbering (removed 2 timeseries)
-!
-! 2259 2017-06-08 09:09:11Z gronemeier
-! Implemented synthetic turbulence generator
-!
-! 2251 2017-06-06 15:10:46Z Giersch
-!
-! 2250 2017-06-06 15:07:12Z Giersch
-! Doxygen comment added
-!
-! 2248 2017-06-06 13:52:54Z sward
-! Error message fixed
-!
-! 2209 2017-04-19 09:34:46Z kanani
-! Check for plant canopy model output
-!
-! 2200 2017-04-11 11:37:51Z suehring
-! monotonic_adjustment removed
-!
-! 2178 2017-03-17 11:07:39Z hellstea
-! Index limits for perturbations are now set also in case of nested
-! boundary conditions
-!
-! 2169 2017-03-06 18:16:35Z suehring
-! Bugfix, move setting for topography grid convention to init_grid
-!
-! 2118 2017-01-17 16:38:49Z raasch
-! OpenACC related parts of code removed
-!
-! 2088 2016-12-19 16:30:25Z suehring
-! Bugfix in initial salinity profile
-!
-! 2084 2016-12-09 15:59:42Z knoop
-! Removed anelastic + multigrid error message
-!
-! 2052 2016-11-08 15:14:59Z gronemeier
-! Bugfix: remove setting of default value for recycling_width
-!
-! 2050 2016-11-08 15:00:55Z gronemeier
-! Implement turbulent outflow condition
-!
-! 2044 2016-11-02 16:44:25Z knoop
-! Added error code for anelastic approximation
-!
-! 2042 2016-11-02 13:47:31Z suehring
-! Additional checks for wall_heatflux, wall_humidityflux and wall_scalarflux.
-! Bugfix, check for constant_scalarflux.
-!
-! 2040 2016-10-26 16:58:09Z gronemeier
-! Removed check for statistic_regions > 9.
-!
-! 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
-!
-! 2024 2016-10-12 16:42:37Z kanani
-! Added missing CASE, error message and unit for ssws*,
-! increased number of possible output quantities to 500.
-!
-! 2011 2016-09-19 17:29:57Z kanani
-! Flag urban_surface is now defined in module control_parameters,
-! changed prefix for urban surface model output to "usm_",
-! added flag lsf_exception (inipar-Namelist parameter) to allow explicit
-! enabling of large scale forcing together with buildings on flat terrain,
-! introduced control parameter varnamelength for LEN of var.
-!
-! 2007 2016-08-24 15:47:17Z kanani
-! Added checks for the urban surface model,
-! increased counter in DO WHILE loop over data_output (for urban surface output)
-!
-! 2000 2016-08-20 18:09:15Z knoop
-! Forced header and separation lines into 80 columns
-!
-! 1994 2016-08-15 09:52:21Z suehring
-! Add missing check for bulk_cloud_model and cloud_droplets
-!
-! 1992 2016-08-12 15:14:59Z suehring
-! New checks for top_scalarflux
-! Bugfixes concerning data output of profiles in case of passive_scalar
-!
-! 1984 2016-08-01 14:48:05Z suehring
-! Bugfix: checking for bottom and top boundary condition for humidity and scalars
-!
-! 1972 2016-07-26 07:52:02Z maronga
-! Removed check of lai* (done in land surface module)
-!
-! 1970 2016-07-18 14:27:12Z suehring
-! Bugfix, check for ibc_q_b and constant_waterflux in case of land-surface scheme
-!
-! 1962 2016-07-13 09:16:44Z suehring
-! typo removed
-!
-! 1960 2016-07-12 16:34:24Z suehring
-! Separate checks and calculations for humidity and passive scalar. Therefore,
-! a subroutine to calculate vertical gradients is introduced, in order  to reduce
-! redundance.
-! Additional check - large-scale forcing is not implemented for passive scalars
-! so far.
-!
-! 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 in check for use_upstream_for_tke
-!
-! 1918 2016-05-27 14:35:57Z raasch
-! setting of a fixed reference state ('single_value') for ocean runs removed
-!
-! 1914 2016-05-26 14:44:07Z witha
-! Added checks for the wind turbine model
-!
-! 1841 2016-04-07 19:14:06Z raasch
-! redundant location message removed
-!
-! 1833 2016-04-07 14:23:03Z raasch
-! check of spectra quantities moved to spectra_mod
-!
-! 1829 2016-04-07 12:16:29Z maronga
-! Bugfix: output of user defined data required reset of the string 'unit'
-!
-! 1826 2016-04-07 12:01:39Z maronga
-! Moved checks for radiation model to the respective module.
-! Moved checks for plant canopy model to the respective module.
-! Bugfix for check of too large roughness_length
-!
-! 1824 2016-04-07 09:55:29Z gronemeier
-! Check if roughness_length < dz/2. Moved location_message(finished) to the end.
-!
-! 1822 2016-04-07 07:49:42Z hoffmann
-! PALM collision kernel deleted. Collision algorithms are checked for correct
-! spelling.
-!
-! Tails removed.
-! !
-! Checks for use_sgs_for_particles adopted for the use of droplets with
-! use_sgs_for_particles adopted.
-!
-! Unused variables removed.
-!
-! 1817 2016-04-06 15:44:20Z maronga
-! Moved checks for land_surface model to the respective module
-!
-! 1806 2016-04-05 18:55:35Z gronemeier
-! Check for recycling_yshift
-!
-! 1804 2016-04-05 16:30:18Z maronga
-! Removed code for parameter file check (__check)
-!
-! 1795 2016-03-18 15:00:53Z raasch
-! Bugfix: setting of initial scalar profile in ocean
-!
-! 1788 2016-03-10 11:01:04Z maronga
-! Added check for use of most_method = 'lookup' in combination with water
-! surface presribed in the land surface model. Added output of z0q.
-! Syntax layout improved.
-!
-! 1786 2016-03-08 05:49:27Z raasch
-! cpp-direktives for spectra removed, check of spectra level removed
-!
-! 1783 2016-03-06 18:36:17Z raasch
-! netcdf variables and module name changed,
-! check of netcdf precision removed (is done in the netcdf module)
-!
-! 1764 2016-02-28 12:45:19Z raasch
-! output of nest id in run description header,
-! bugfix: check of validity of lateral boundary conditions moved to parin
-!
-! 1762 2016-02-25 12:31:13Z hellstea
-! Introduction of nested domain feature
-!
-! 1745 2016-02-05 13:06:51Z gronemeier
-! Bugfix: check data output intervals to be /= 0.0 in case of parallel NetCDF4
-!
-! 1701 2015-11-02 07:43:04Z maronga
-! Bugfix: definition of rad_net timeseries was missing
-!
-! 1691 2015-10-26 16:17:44Z maronga
-! Added output of Obukhov length (ol) and radiative heating rates for RRTMG.
-! Added checks for use of radiation / lsm with topography.
-!
-! 1682 2015-10-07 23:56:08Z knoop
-! Code annotations made doxygen readable
-!
-! 1606 2015-06-29 10:43:37Z maronga
-! Added check for use of RRTMG without netCDF.
-!
-! 1587 2015-05-04 14:19:01Z maronga
-! Added check for set of albedos when using RRTMG
-!
-! 1585 2015-04-30 07:05:52Z maronga
-! Added support for RRTMG
-!
-! 1575 2015-03-27 09:56:27Z raasch
-! multigrid_fast added as allowed pressure solver
-!
-! 1573 2015-03-23 17:53:37Z suehring
-! Bugfix: check for advection schemes in case of non-cyclic boundary conditions
-!
-! 1557 2015-03-05 16:43:04Z suehring
-! Added checks for monotonic limiter
-!
-! 1555 2015-03-04 17:44:27Z maronga
-! Added output of r_a and r_s. Renumbering of LSM PA-messages.
-!
-! 1553 2015-03-03 17:33:54Z maronga
-! Removed check for missing soil temperature profile as default values were added.
-!
-! 1551 2015-03-03 14:18:16Z maronga
-! Added various checks for land surface and radiation model. In the course of this
-! action, the length of the variable var has to be increased
-!
-! 1504 2014-12-04 09:23:49Z maronga
-! Bugfix: check for large_scale forcing got lost.
-!
-! 1500 2014-12-03 17:42:41Z maronga
-! Boundary conditions changed to dirichlet for land surface model
-!
-! 1496 2014-12-02 17:25:50Z maronga
-! Added checks for the land surface model
-!
-! 1484 2014-10-21 10:53:05Z kanani
-! Changes due to new module structure of the plant canopy model:
-!   module plant_canopy_model_mod added,
-!   checks regarding usage of new method for leaf area density profile
-!   construction added,
-!   lad-profile construction moved to new subroutine init_plant_canopy within
-!   the module plant_canopy_model_mod,
-!   drag_coefficient renamed to canopy_drag_coeff.
-! Missing KIND-attribute for REAL constant added
-!
-! 1455 2014-08-29 10:47:47Z heinze
-! empty time records in volume, cross-section and masked data output prevented
-! in case of non-parallel netcdf-output in restart runs
-!
-! 1429 2014-07-15 12:53:45Z knoop
-! run_description_header exended to provide ensemble_member_nr if specified
-!
-! 1425 2014-07-05 10:57:53Z knoop
-! bugfix: perturbation domain modified for parallel random number generator
-!
-! 1402 2014-05-09 14:25:13Z raasch
-! location messages modified
-!
-! 1400 2014-05-09 14:03:54Z knoop
-! Check random generator extended by option random-parallel
-!
-! 1384 2014-05-02 14:31:06Z raasch
-! location messages added
-!
-! 1365 2014-04-22 15:03:56Z boeske
-! Usage of large scale forcing for pt and q enabled:
-! output for profiles of large scale advection (td_lsa_lpt, td_lsa_q),
-! large scale subsidence (td_sub_lpt, td_sub_q)
-! and nudging tendencies (td_nud_lpt, td_nud_q, td_nud_u and td_nud_v) added,
-! check if use_subsidence_tendencies is used correctly
-!
-! 1361 2014-04-16 15:17:48Z hoffmann
-! PA0363 removed
-! PA0362 changed
-!
-! 1359 2014-04-11 17:15:14Z hoffmann
-! Do not allow the execution of PALM with use_particle_tails, since particle
-! tails are currently not supported by our new particle structure.
-!
-! PA0084 not necessary for new particle structure
-!
-! 1353 2014-04-08 15:21:23Z heinze
-! REAL constants provided with KIND-attribute
-!
-! 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.
-!
-! 1327 2014-03-21 11:00:16Z raasch
-! "baroclinicity" renamed "baroclinity", "ocean version" replaced by "ocean mode"
-! bugfix: duplicate error message 56 removed,
-! check of data_output_format and do3d_compress removed
-!
-! 1322 2014-03-20 16:38:49Z raasch
-! some REAL constants defined as wp-kind
-!
-! 1320 2014-03-20 08:40:49Z raasch
-! 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
-!
-! 1308 2014-03-13 14:58:42Z fricke
-! +netcdf_data_format_save
-! Calculate fixed number of output time levels for parallel netcdf output.
-! For masked data, parallel netcdf output is not tested so far, hence
-! netcdf_data_format is switched back to non-paralell output.
-!
-! 1299 2014-03-06 13:15:21Z heinze
-! enable usage of large_scale subsidence in combination with large_scale_forcing
-! output for profile of large scale vertical velocity w_subs added
-!
-! 1276 2014-01-15 13:40:41Z heinze
-! Use LSF_DATA also in case of Dirichlet bottom boundary condition for scalars
-!
-! 1241 2013-10-30 11:36:58Z heinze
-! output for profiles of ug and vg added
-! set surface_heatflux and surface_waterflux also in dependence on
-! large_scale_forcing
-! checks for nudging and large scale forcing from external file
-!
-! 1236 2013-09-27 07:21:13Z raasch
-! check number of spectra levels
-!
-! 1216 2013-08-26 09:31:42Z raasch
-! check for transpose_compute_overlap (temporary)
-!
-! 1214 2013-08-21 12:29:17Z kanani
-! additional check for simultaneous use of vertical grid stretching
-! and particle advection
-!
-! 1212 2013-08-15 08:46:27Z raasch
-! checks for poisfft_hybrid removed
-!
-! 1210 2013-08-14 10:58:20Z raasch
-! check for fftw
-!
-! 1179 2013-06-14 05:57:58Z raasch
-! checks and settings of buoyancy parameters and switches revised,
-! initial profile for rho_ocean added to hom (id=77)
-!
-! 1174 2013-05-31 10:28:08Z gryschka
-! Bugfix in computing initial profiles for ug, vg, lad, q in case of Atmosphere
-!
-! 1159 2013-05-21 11:58:22Z fricke
-! bc_lr/ns_dirneu/neudir removed
-!
-! 1115 2013-03-26 18:16:16Z hoffmann
-! unused variables removed
-! drizzle can be used without precipitation
-!
-! 1111 2013-03-08 23:54:10Z raasch
-! ibc_p_b = 2 removed
-!
-! 1103 2013-02-20 02:15:53Z raasch
-! Bugfix: turbulent inflow must not require cyclic fill in restart runs
-!
-! 1092 2013-02-02 11:24:22Z raasch
-! unused variables removed
-!
-! 1069 2012-11-28 16:18:43Z maronga
-! allow usage of topography in combination with cloud physics
-!
-! 1065 2012-11-22 17:42:36Z hoffmann
-! Bugfix: It is not allowed to use cloud_scheme = seifert_beheng without
-!         precipitation in order to save computational resources.
-!
-! 1060 2012-11-21 07:19:51Z raasch
-! additional check for parameter turbulent_inflow
-!
-! 1053 2012-11-13 17:11:03Z hoffmann
-! necessary changes for the new two-moment cloud physics scheme added:
-! - check cloud physics scheme (Kessler or Seifert and Beheng)
-! - plant_canopy is not allowed
-! - currently, only cache loop_optimization is allowed
-! - initial profiles of nr, qr
-! - boundary condition of nr, qr
-! - check output quantities (qr, nr, prr)
-!
-! 1036 2012-10-22 13:43:42Z raasch
-! code put under GPL (PALM 3.9)
-!
-! 1031/1034 2012-10-22 11:32:49Z raasch
-! check of netcdf4 parallel file support
-!
-! 1019 2012-09-28 06:46:45Z raasch
-! non-optimized version of prognostic_equations not allowed any more
-!
-! 1015 2012-09-27 09:23:24Z raasch
-! acc allowed for loop optimization,
-! checks for adjustment of mixing length to the Prandtl mixing length removed
-!
-! 1003 2012-09-14 14:35:53Z raasch
-! checks for cases with unequal subdomain sizes removed
-!
-! 1001 2012-09-13 14:08:46Z raasch
-! all actions concerning leapfrog- and upstream-spline-scheme removed
-!
-! 996 2012-09-07 10:41:47Z raasch
-! little reformatting
-
-! 978 2012-08-09 08:28:32Z fricke
-! setting of bc_lr/ns_dirneu/neudir
-! outflow damping layer removed
-! check for z0h*
-! check for pt_damping_width
-!
-! 964 2012-07-26 09:14:24Z raasch
-! check of old profil-parameters removed
-!
-! 940 2012-07-09 14:31:00Z raasch
-! checks for parameter neutral
-!
-! 924 2012-06-06 07:44:41Z maronga
-! Bugfix: preprocessor directives caused error during compilation
-!
-! 892 2012-05-02 13:51:44Z maronga
-! Bugfix for parameter file check ( excluding __netcdf4 )
-!
-! 866 2012-03-28 06:44:41Z raasch
-! use only 60% of the geostrophic wind as translation speed in case of Galilean
-! transformation and use_ug_for_galilei_tr = .T. in order to mimimize the
-! timestep
-!
-! 861 2012-03-26 14:18:34Z suehring
-! Check for topography and ws-scheme removed.
-! Check for loop_optimization = 'vector' and ws-scheme removed.
-!
-! 845 2012-03-07 10:23:05Z maronga
-! Bugfix: exclude __netcdf4 directive part from namelist file check compilation
-!
-! 828 2012-02-21 12:00:36Z raasch
-! check of collision_kernel extended
-!
-! 825 2012-02-19 03:03:44Z raasch
-! check for collision_kernel and curvature_solution_effects
-!
-! 809 2012-01-30 13:32:58Z maronga
-! Bugfix: replaced .AND. and .NOT. with && and ! in the preprocessor directives
-!
-! 807 2012-01-25 11:53:51Z maronga
-! New cpp directive "__check" implemented which is used by check_namelist_files
-!
-! Revision 1.1  1997/08/26 06:29:23  raasch
-! Initial revision
-!
 !
 ! Description:
Index: /palm/trunk/SOURCE/chem_emissions_mod.f90
===================================================================
--- /palm/trunk/SOURCE/chem_emissions_mod.f90	(revision 4179)
+++ /palm/trunk/SOURCE/chem_emissions_mod.f90	(revision 4180)
@@ -66,54 +66,4 @@
 ! Some interface calls moved to module_interface + cleanup
 ! 
-! 3611 2018-12-07 14:14:11Z banzhafs
-! Code update to comply PALM coding rules
-! removed unnecessary informative messsages/location
-! messages and corrected comments on PM units from to kg  
-! bug fix: spcs_name replaced by nvar in DO  loops
-!
-! 3591 2018-11-30 17:37:32Z suehring
-! - Removed salsa dependency.
-! - Enabled PARAMETRIZED mode for default surfaces when LSM is not applied but 
-!   salsa is (M. Kurppa)
-!
-! 3582 2018-11-29 19:16:36Z suehring
-! resler:
-! Break lines at 132 characters
-!
-! 3483 2018-11-02 14:19:26Z raasch
-! bugfix: wrong locations of netCDF directives fixed
-! 
-! 3467 2018-10-30 19:05:21Z suehring
-! Enabled PARAMETRIZED mode for default surfaces when LSM is not applied but 
-! salsa is used
-! 
-! 3458 2018-10-30 14:51:23Z kanani
-! from chemistry branch r3443, banzhafs, Russo:
-! Additional correction for index of input file of pre-processed mode
-! Removed atomic and molecular weights as now available in chem_modules and
-! added par_emis_time_factor (formerly in netcdf_data_input_mod)
-! Added correction for index of input file of pre-processed mode
-! Added a condition for default mode necessary for information read from ncdf file
-! in pre-processed and default mode
-! Correction of multiplying factor necessary for scaling emission values in time
-! Introduced correction for scaling units in the case of DEFAULT emission mode
-! 
-! 3373 2018-10-18 15:25:56Z kanani
-! Fix wrong location of __netcdf directive
-! 
-! 3337 2018-10-12 15:17:09Z kanani
-! (from branch resler)
-! Formatting
-! 
-! 3312 2018-10-06 14:15:46Z knoop
-! Initial revision
-!
-! 3286 2018-09-28 07:41:39Z forkel
-!
-! Authors:
-! --------
-! @author Emmanuele Russo (FU-Berlin)
-! @author Sabine Banzhaf  (FU-Berlin)
-! @author Martijn Schaap  (FU-Berlin, TNO Utrecht)
 ! 
 ! Description:
Index: /palm/trunk/SOURCE/chem_modules.f90
===================================================================
--- /palm/trunk/SOURCE/chem_modules.f90	(revision 4179)
+++ /palm/trunk/SOURCE/chem_modules.f90	(revision 4180)
@@ -57,32 +57,4 @@
 ! parameter chem_mechanism added (basit)
 ! 
-! 3636 2018-12-19 13:48:34Z raasch
-! nopointer option removed
-! 
-! 3611 2018-12-07 14:14:11Z banzhafs
-! Minor formatting
-!
-! 3458 2018-10-30 14:51:23Z kanani
-! from chemistry branch r3443:
-! ??
-!
-! 3298 2018-10-02 12:21:11Z kanani
-! - Minor formatting
-! - Introduced Variables for Chemistry emissions Module (Russo)
-! - Variables and parameters added for 2d and profile output (basit)
-! - Converted scalar  emission factors  to 1-D array of 99 elements each (basit)
-! - Removed "__chem" directive (basit)
-! 
-! 3282 2018-09-27 10:49:12Z basit
-! Initial revision
-!
-! Authors:
-! --------
-! @author Farah Kanani-Suehring
-! @author Basit Khan
-! @author Sabine Banzhaf
-! @author Emmanuele Russo
-! @author Edward C. Chan
-!
 !------------------------------------------------------------------------------!
 ! Description:
Index: /palm/trunk/SOURCE/chem_photolysis_mod.f90
===================================================================
--- /palm/trunk/SOURCE/chem_photolysis_mod.f90	(revision 4179)
+++ /palm/trunk/SOURCE/chem_photolysis_mod.f90	(revision 4180)
@@ -31,25 +31,4 @@
 ! unused variables removed
 ! 
-! 3298 2018-10-02 12:21:11Z kanani
-! Moved USE radiation_model_mod from MODULE section into Subroutine
-! in order to use constant photolysis without radiation module (forkel)
-! 
-! 3287 2018-09-28 10:19:58Z forkel
-! Modularization of all bulk cloud physics code components
-! 
-! 3241 2018-09-12 15:02:00Z raasch
-! unused variables commented
-! 
-! 2766 2018-01-22 17:17:47Z kanani
-! Removed preprocessor directive __chem
-! 
-! 2718 2018-01-02 08:49:38Z maronga
-! Initial revision
-!
-!
-! Authors:
-! --------
-! @author Renate Forkel
-!
 !------------------------------------------------------------------------------!
 ! Description:
Index: /palm/trunk/SOURCE/chemistry_model_mod.f90
===================================================================
--- /palm/trunk/SOURCE/chemistry_model_mod.f90	(revision 4179)
+++ /palm/trunk/SOURCE/chemistry_model_mod.f90	(revision 4180)
@@ -159,182 +159,4 @@
 ! 
 ! 
-! 3646 2018-12-28 17:58:49Z kanani
-! Bugfix: use time_since_reference_point instead of simulated_time (relevant
-! when using wall/soil spinup)
-! 
-! 3643 2018-12-24 13:16:19Z knoop
-! Bugfix: set found logical correct in chem_data_output_2d
-! 
-! 3638 2018-12-20 13:18:23Z forkel
-! Added missing conversion factor fr2ppm for qvap
-! 
-! 
-! 3637 2018-12-20 01:51:36Z knoop
-! Implementation of the PALM module interface
-! 
-! 3636 2018-12-19 13:48:34Z raasch
-! nopointer option removed
-!
-! 3611 2018-12-07 14:14:11Z banzhafs
-! Minor formatting             
-!
-! 3600 2018-12-04 13:49:07Z banzhafs
-! Code update to comply PALM coding rules            
-! Bug fix in par_dir_diff subroutine                 
-! Small fixes (corrected 'conastant', added 'Unused') 
-!
-! 3586 2018-11-30 13:20:29Z dom_dwd_user
-! Changed character lenth of name in species_def and photols_def to 15
-!
-! 3570 2018-11-27 17:44:21Z kanani
-! resler:
-! Break lines at 132 characters
-!
-! 3543 2018-11-20 17:06:15Z suehring
-! Remove tabs
-!
-! 3542 2018-11-20 17:04:13Z suehring
-! working precision added to make code Fortran 2008 conform
-!
-! 3458 2018-10-30 14:51:23Z kanani
-! from chemistry branch r3443, banzhafs, basit:
-! replace surf_lsm_h%qv1(m) by q(k,j,i) for mixing ratio in chem_depo
-!
-! bug fix in chem_depo: allow different surface fractions for one
-! surface element and set lai to zero for non vegetated surfaces
-! bug fixed in chem_data_output_2d
-! bug fix in chem_depo subroutine
-! added code on deposition of gases and particles
-! removed cs_profile_name from chem_parin
-! bug fixed in output profiles and code cleaned
-! 
-! 3449 2018-10-29 19:36:56Z suehring
-! additional output - merged from branch resler
-! 
-! 3438 2018-10-28 19:31:42Z pavelkrc
-! Add terrain-following masked output
-! 
-! 3373 2018-10-18 15:25:56Z kanani
-! Remove MPI_Abort, replace by message
-!
-! 3318 2018-10-08 11:43:01Z sward
-! Fixed faulty syntax of message string
-! 
-! 3298 2018-10-02 12:21:11Z kanani
-! Add remarks (kanani)
-! Merge with trunk, replaced cloud_physics by bulk_cloud_model         28.09.2018 forkel
-! Subroutines header and chem_check_parameters added                   25.09.2018 basit
-! Removed chem_emission routine now declared in chem_emissions.f90     30.07.2018 ERUSSO
-! Introduced emissions namelist parameters                             30.07.2018 ERUSSO
-!
-! Timestep steering added in subroutine chem_integrate_ij and 
-! output of chosen solver in chem_parin added                          30.07.2018 ketelsen
-!
-! chem_check_data_output_pr: added unit for PM compounds               20.07.2018 forkel
-! replaced : by nzb+1:nzt for pt,q,ql (found by kk)                    18.07.2018 forkel
-! debugged restart run for chem species               06.07.2018 basit
-! reorganized subroutines in alphabetical order.      27.06.2018 basit
-! subroutine chem_parin updated for profile output    27.06.2018 basit
-! Added humidity arrays to USE section and tmp_qvap in chem_integrate  26.6.2018 forkel
-! Merged chemistry with with trunk (nzb_do and nzt_do in 3d output)    26.6.2018 forkel
-!
-! reorganized subroutines in alphabetical order.      basit 22.06.2018
-! subroutine chem_parin updated for profile output    basit 22.06.2018
-! subroutine chem_statistics added                  
-! subroutine chem_check_data_output_pr add            21.06.2018 basit
-! subroutine chem_data_output_mask added              20.05.2018 basit
-! subroutine chem_data_output_2d added                20.05.2018 basit
-! subroutine chem_statistics added                    04.06.2018 basit
-! subroutine chem_emissions: Set cssws to zero before setting values 20.03.2018 forkel
-! subroutine chem_emissions: Introduced different conversion factors 
-! for PM and gaseous compounds                                    15.03.2018 forkel
-! subroutine chem_emissions updated to take variable number of chem_spcs and
-! emission factors.                                               13.03.2018 basit
-! chem_boundary_conds_decycle improved.                           05.03.2018 basit
-! chem_boundary_conds_decycle subroutine added                    21.02.2018 basit
-! chem_init_profiles subroutines re-activated after correction    21.02.2018 basit
-! 
-! 
-! 3293 2018-09-28 12:45:20Z forkel
-! Modularization of all bulk cloud physics code components
-!
-! 3248 2018-09-14 09:42:06Z sward
-! Minor formating changes
-!
-! 3246 2018-09-13 15:14:50Z sward
-! Added error handling for input namelist via parin_fail_message
-!
-! 3241 2018-09-12 15:02:00Z raasch
-! +nest_chemistry
-! 
-! 3209 2018-08-27 16:58:37Z suehring
-! Rename flags indicating outflow boundary conditions
-! 
-! 3182 2018-07-27 13:36:03Z suehring
-! Revise output of surface quantities in case of overhanging structures
-! 
-! 3045 2018-05-28 07:55:41Z Giersch
-! error messages 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
-! Comment concerning averaged data output added 
-! 
-! 2932 2018-03-26 09:39:22Z maronga
-! renamed chemistry_par to chemistry_parameters
-! 
-! 2894 2018-03-15 09:17:58Z Giersch
-! Calculations of the index range of the subdomain on file which overlaps with
-! the current subdomain are already done in read_restart_data_mod,
-! chem_last_actions was renamed to chem_wrd_local, chem_read_restart_data was
-! renamed to chem_rrd_local, chem_write_var_list was renamed to 
-! chem_wrd_global, chem_read_var_list was renamed to chem_rrd_global, 
-! chem_skip_var_list has been removed, variable named found has been
-! introduced for checking if restart data was found, reading of restart strings
-! has been moved completely to read_restart_data_mod, chem_rrd_local is already
-! inside the overlap loop programmed in read_restart_data_mod, todo list has 
-! bees extended, redundant characters in chem_wrd_local have been removed, 
-! the marker *** end chemistry *** is not necessary anymore, strings and their 
-! respective lengths are written out and read now in case of restart runs to 
-! get rid of prescribed character lengths
-!
-! 2815 2018-02-19 11:29:57Z suehring
-! Bugfix in restart mechanism,
-! rename chem_tendency to chem_prognostic_equations,
-! implement vector-optimized version of chem_prognostic_equations,
-! some clean up (incl. todo list)
-! 
-! 2773 2018-01-30 14:12:54Z suehring
-! Declare variables required for nesting as public
-! 
-! 2772 2018-01-29 13:10:35Z suehring
-! Bugfix in string handling
-! 
-! 2768 2018-01-24 15:38:29Z kanani
-! Shorten lines to maximum length of 132 characters
-! 
-! 2766 2018-01-22 17:17:47Z kanani
-! Removed preprocessor directive __chem
-! 
-! 2756 2018-01-16 18:11:14Z suehring
-! Fill values in 3D output introduced.
-! 
-! 2718 2018-01-02 08:49:38Z maronga
-! Initial revision
-!
-! 
-!
-!
-! Authors:
-! --------
-! @author Renate Forkel
-! @author Farah Kanani-Suehring
-! @author Klaus Ketelsen
-! @author Basit Khan
-! @author Sabine Banzhaf
-!
-!
 !------------------------------------------------------------------------------!
 ! Description:
Index: /palm/trunk/SOURCE/close_file.f90
===================================================================
--- /palm/trunk/SOURCE/close_file.f90	(revision 4179)
+++ /palm/trunk/SOURCE/close_file.f90	(revision 4180)
@@ -31,60 +31,4 @@
 ! unused variables and format statements removed
 ! 
-! 3045 2018-05-28 07:55:41Z Giersch
-! z_max_do2d removed and output case 108 disabled
-! 
-! 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)
-!
-! 2300 2017-06-29 13:31:14Z raasch
-! -host
-! 
-! 2277 2017-06-12 10:47:51Z kanani
-! Removed unused variables do2d_xy_n, do2d_xz_n, do2d_yz_n, do3d_avs_n
-! 
-! 2101 2017-01-05 16:42:31Z suehring
-!
-! 2000 2016-08-20 18:09:15Z knoop
-! Forced header and separation lines into 80 columns
-! 
-! 1992 2016-08-12 15:14:59Z suehring
-! -Close file containing flight data
-! -Some tabs removed.
-!
-! 1783 2016-03-06 18:36:17Z raasch
-! name change of netcdf routines and module + related changes
-!
-! 1682 2015-10-07 23:56:08Z knoop
-! Code annotations made doxygen readable 
-! 
-! 1327 2014-03-21 11:00:16Z raasch
-! parts concerning iso2d and avs output removed
-!
-! 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
-!
-! 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)
-!
-! 1031 2012-10-19 14:35:30Z raasch
-! netCDF4 without parallel file support implemented
-!
-! 964 2012-07-26 09:14:24Z raasch
-! old profil-units (40:49) and respective code removed
-!
-! Revision 1.1 (close_files) 1997/08/11 06:11:18  raasch
-! Initial revision
-!
 !
 ! Description:
Index: /palm/trunk/SOURCE/compute_vpt.f90
===================================================================
--- /palm/trunk/SOURCE/compute_vpt.f90	(revision 4179)
+++ /palm/trunk/SOURCE/compute_vpt.f90	(revision 4180)
@@ -27,38 +27,4 @@
 ! Modularization of all bulk cloud physics code components
 ! 
-! 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)
-!
-! 2101 2017-01-05 16:42:31Z suehring
-!
-! 2000 2016-08-20 18:09:15Z knoop
-! Forced header and separation lines into 80 columns
-! 
-! 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
-!
-! 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
-! 
-! 1036 2012-10-22 13:43:42Z raasch
-! code put under GPL (PALM 3.9)
-!
-! 803 2012-01-16 15:48:46Z franke
-! Bugfix: wrong factor in calculation of vpt in case of cloud droplets
-!
-! Revision 1.1  2000/04/13 14:40:53  schroeter
-! Initial revision
-!
 !
 ! Description:
Index: /palm/trunk/SOURCE/coriolis.f90
===================================================================
--- /palm/trunk/SOURCE/coriolis.f90	(revision 4179)
+++ /palm/trunk/SOURCE/coriolis.f90	(revision 4180)
@@ -27,68 +27,4 @@
 ! OpenACC port for SPEC
 ! 
-! 3538 2018-11-20 10:55:41Z suehring
-! Note concerning topography masking added
-! 
-! 3241 2018-09-12 15:02:00Z raasch
-! unused variables removed
-! 
-! 3183 2018-07-27 14:25:55Z suehring
-! Remove masking of geostrophic wind forcing in offline nesting case
-! 
-! 3182 2018-07-27 13:36:03Z suehring
-! Corrected "Former revisions" section
-! 
-! 2696 2017-12-14 17:12:51Z kanani
-! Change in file header (GPL part)
-! Forcing implemented, preliminary (MS)
-! 
-! 2233 2017-05-30 18:08:54Z suehring
-!
-! 2232 2017-05-30 17:47:52Z suehring
-! Adjustments to new topography concept
-! 
-! 2118 2017-01-17 16:38:49Z raasch
-! OpenACC version of subroutine removed
-! 
-! 2000 2016-08-20 18:09:15Z knoop
-! Forced header and separation lines into 80 columns
-! 
-! 1873 2016-04-18 14:50:06Z maronga
-! Module renamed (removed _mod)
-! 
-! 
-! 1850 2016-04-08 13:29:27Z maronga
-! Module renamed
-! 
-! 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
-!
-! 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
-! 
-! 1257 2013-11-08 15:18:40Z raasch
-! openacc loop and loop vector clauses removed
-!
-! 1128 2013-04-12 06:19:32Z raasch
-! loop index bounds in accelerator version replaced by i_left, i_right, j_south,
-! j_north
-!
-! 1036 2012-10-22 13:43:42Z raasch
-! code put under GPL (PALM 3.9)
-!
-! 1015 2012-09-27 09:23:24Z raasch
-! accelerator version (*_acc) added
-!
-! Revision 1.1  1997/08/29 08:57:38  raasch
-! Initial revision
-!
 !
 ! Description:
Index: /palm/trunk/SOURCE/cpulog_mod.f90
===================================================================
--- /palm/trunk/SOURCE/cpulog_mod.f90	(revision 4179)
+++ /palm/trunk/SOURCE/cpulog_mod.f90	(revision 4180)
@@ -35,78 +35,4 @@
 ! output format limited to a maximum line length of 80
 ! 
-! 3229 2018-09-04 15:05:36Z sward
-! Bugfix in maximum time spent per log point: PE 0 was beeing ignored.
-! 
-! 3049 2018-05-29 13:52:36Z Giersch
-! Error messages revised
-! 
-! 3045 2018-05-28 07:55:41Z Giersch
-! Error messages revised
-! 
-! 3028 2018-05-23 10:27:23Z knoop
-! renamed d3par to runtime_parameters
-! 
-! 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)
-!
-! 2266 2017-06-09 09:27:21Z raasch
-! bugfix: cpu-time per grid point is now calculated using ngp_3d in order to
-! avoid integer overflow,
-! some re-formatting
-! 
-! 2119 2017-01-17 16:51:50Z raasch
-!
-! 2118 2017-01-17 16:38:49Z raasch
-! OpenACC relevant code removed
-! 
-! 2000 2016-08-20 18:09:15Z knoop
-! Forced header and separation lines into 80 columns
-! 
-! 1931 2016-06-10 12:06:59Z suehring
-! Adjustment in character length and format statement
-! 
-! 1850 2016-04-08 13:29:27Z maronga
-! Module renamed
-! 
-!
-! 1808 2016-04-05 19:44:00Z raasch
-! cpu measurements are done with standard FORTRAN routine on every machine
-!
-! 1682 2015-10-07 23:56:08Z knoop
-! Code annotations made doxygen readable 
-! 
-! 1402 2014-05-09 14:25:13Z raasch
-! location messages added
-!
-! 1369 2014-04-24 05:57:38Z raasch
-! routine description added
-!
-! 1353 2014-04-08 15:21:23Z heinze
-! REAL constants provided with KIND-attribute
-!
-! 1322 2014-03-20 16:38:49Z raasch
-! REAL functions provided with KIND-attribute
-!
-! 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
-! 
-! 1318 2014-03-17 13:35:16Z raasch
-! former files/routines cpu_log and cpu_statistics combined to one module,
-! which also includes the former data module cpulog from the modules-file
-!
-! 1036 2012-10-22 13:43:42Z raasch
-! code put under GPL (PALM 3.9)
-!
-! Revision 1.1  1997/07/24 11:12:29  raasch
-! Initial revision
-!
 !
 ! Description:
Index: /palm/trunk/SOURCE/cuda_fft_interfaces.f90
===================================================================
--- /palm/trunk/SOURCE/cuda_fft_interfaces.f90	(revision 4179)
+++ /palm/trunk/SOURCE/cuda_fft_interfaces.f90	(revision 4180)
@@ -26,6 +26,4 @@
 ! Initial revision ( OpenACC port for SPEC )
 ! 
-! 1683 2015-10-07 23:57:51Z knoop
-!
 !
 ! Description:
Index: /palm/trunk/SOURCE/data_log.f90
===================================================================
--- /palm/trunk/SOURCE/data_log.f90	(revision 4179)
+++ /palm/trunk/SOURCE/data_log.f90	(revision 4180)
@@ -30,31 +30,4 @@
 ! Corrected "Former revisions" section
 ! 
-! 2696 2017-12-14 17:12:51Z kanani
-! Change in file header (GPL part)
-!
-! 2101 2017-01-05 16:42:31Z suehring
-!
-! 2000 2016-08-20 18:09:15Z knoop
-! Forced header and separation lines into 80 columns
-! 
-! 1682 2015-10-07 23:56:08Z knoop
-! Code annotations made doxygen readable 
-!
-! 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
-!
-! 1036 2012-10-22 13:43:42Z raasch
-! code put under GPL (PALM 3.9)
-!
-! RCS Log replace by Id keyword, revision history cleaned up
-!
-! Revision 1.1  2006/02/23 10:09:29  raasch
-! Initial revision
-!
 !
 ! Description:
Index: /palm/trunk/SOURCE/data_output_2d.f90
===================================================================
--- /palm/trunk/SOURCE/data_output_2d.f90	(revision 4179)
+++ /palm/trunk/SOURCE/data_output_2d.f90	(revision 4180)
@@ -50,246 +50,4 @@
 ! when using wall/soil spinup)
 ! 
-! 3637 2018-12-20 01:51:36Z knoop
-! Implementation of the PALM module interface
-! 
-! 3597 2018-12-04 08:40:18Z maronga
-! Added theta_2m
-! 
-! 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
-! Remove fill_value from bio_data_output_2d call
-! dom_dwd_user, Schrempf:
-! Clean up of biometeorology calls,
-! remove uv exposure model code, this is now part of biometeorology_mod.
-!
-! 3554 2018-11-22 11:24:52Z gronemeier
-! - add variable description
-! - rename variable 'if' into 'ivar'
-! - removed namelist LOCAL
-! - removed variable rtext
-! 
-! 3525 2018-11-14 16:06:14Z kanani
-! Changes related to clean-up of biometeorology (dom_dwd_user)
-! 
-! 3467 2018-10-30 19:05:21Z suehring
-! Implementation of a new aerosol module salsa.
-! 
-! 3448 2018-10-29 18:14:31Z kanani
-! Add biometeorology
-! 
-! 3421 2018-10-24 18:39:32Z gronemeier
-! Renamed output variables
-! 
-! 3419 2018-10-24 17:27:31Z gronemeier
-! minor formatting (kanani)
-! chem_data_output_2d subroutine added (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
-! unused variables removed
-! 
-! 3176 2018-07-26 17:12:48Z suehring
-! Remove output of latent heat flux at urban-surfaces and set fill values 
-! instead 
-! 
-! 3052 2018-05-31 06:11:20Z raasch
-! Do not open FORTRAN binary files in case of parallel netCDF I/O
-! 
-! 3049 2018-05-29 13:52:36Z Giersch
-! Error messages revised
-! 
-! 3045 2018-05-28 07:55:41Z Giersch
-! Error messages revised
-! 
-! 3014 2018-05-09 08:42:38Z maronga
-! Added nzb_do and nzt_do for some modules for 2d output
-! 
-! 3004 2018-04-27 12:33:25Z Giersch
-! precipitation_rate removed, case prr*_xy removed, to_be_resorted have to point
-! to ql_vp_av and not to ql_vp, allocation checks implemented (averaged data 
-! will be assigned to fill values if no allocation happened so far)   
-! 
-! 2963 2018-04-12 14:47:44Z suehring
-! Introduce index for vegetation/wall, pavement/green-wall and water/window 
-! surfaces, for clearer access of surface fraction, albedo, emissivity, etc. .
-! 
-! 2817 2018-02-19 16:32:21Z knoop
-! Preliminary gust module interface implemented
-! 
-! 2805 2018-02-14 17:00:09Z suehring
-! Consider also default-type surfaces for surface temperature output. 
-! 
-! 2797 2018-02-08 13:24:35Z suehring
-! Enable output of ground-heat flux also at urban surfaces.
-! 
-! 2743 2018-01-12 16:03:39Z suehring
-! In case of natural- and urban-type surfaces output surfaces fluxes in W/m2.
-! 
-! 2742 2018-01-12 14:59:47Z suehring
-! Enable output of surface temperature
-! 
-! 2735 2018-01-11 12:01:27Z suehring
-! output of r_a moved from land-surface to consider also urban-type surfaces
-! 
-! 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)
-! Implementation of uv exposure model (FK)
-! Implementation of turbulence_closure_mod (TG)
-! Set fill values at topography grid points or e.g. non-natural-type surface
-! in case of LSM output (MS)
-! 
-! 2512 2017-10-04 08:26:59Z raasch
-! upper bounds of cross section output changed from nx+1,ny+1 to nx,ny
-! no output of ghost layer data
-! 
-! 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). 
-! 
-! 2277 2017-06-12 10:47:51Z kanani
-! Removed unused variables do2d_xy_n, do2d_xz_n, do2d_yz_n
-! 
-! 2233 2017-05-30 18:08:54Z suehring
-!
-! 2232 2017-05-30 17:47:52Z suehring
-! Adjustments to new surface concept
-! 
-!
-! 2190 2017-03-21 12:16:43Z raasch
-! bugfix for r2031: string rho replaced by rho_ocean
-!
-! 2031 2016-10-21 15:11:58Z knoop
-! renamed variable rho to rho_ocean and rho_av to rho_ocean_av
-! 
-! 2000 2016-08-20 18:09:15Z knoop
-! Forced header and separation lines into 80 columns
-! 
-! 1980 2016-07-29 15:51:57Z suehring
-! Bugfix, in order to steer user-defined output, setting flag found explicitly
-! to .F.
-! 
-! 1976 2016-07-27 13:28:04Z maronga
-! Output of radiation quantities is now done directly in the respective module
-! 
-! 1972 2016-07-26 07:52:02Z maronga
-! Output of land surface quantities is now done directly in the respective 
-! module
-! 
-! 1960 2016-07-12 16:34:24Z suehring
-! Scalar surface flux added
-! Rename INTEGER variable s into s_ind, as s is already assigned to scalar
-!
-! 1849 2016-04-08 11:33:18Z hoffmann
-! precipitation_amount, precipitation_rate, prr moved to arrays_3d
-!
-! 1822 2016-04-07 07:49:42Z hoffmann
-! Output of bulk cloud physics simplified.
-!
-! 1788 2016-03-10 11:01:04Z maronga
-! Added output of z0q
-! 
-! 1783 2016-03-06 18:36:17Z raasch
-! name change of netcdf routines and module + related changes
-!
-! 1745 2016-02-05 13:06:51Z gronemeier
-! Bugfix: test if time axis limit exceeds moved to point after call of check_open
-!
-! 1703 2015-11-02 12:38:44Z raasch
-! bugfix for output of single (*) xy-sections in case of parallel netcdf I/O
-!
-! 1701 2015-11-02 07:43:04Z maronga
-! Bugfix in output of RRTGM data
-! 
-! 1691 2015-10-26 16:17:44Z maronga
-! Added output of Obukhov length (ol) and radiative heating rates  for RRTMG. 
-! Formatting corrections.
-! 
-! 1682 2015-10-07 23:56:08Z knoop
-! Code annotations made doxygen readable 
-! 
-! 1585 2015-04-30 07:05:52Z maronga
-! Added support for RRTMG
-! 
-! 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. In the course
-! of this action, the limits for vertical loops have been changed (from nzb and 
-! nzt+1 to nzb_do and nzt_do, respectively in order to allow soil model output).
-! Moreover, a new vertical grid zs was introduced.
-! 
-! 1359 2014-04-11 17:15:14Z hoffmann
-! New particle structure integrated. 
-! 
-! 1353 2014-04-08 15:21:23Z heinze
-! REAL constants provided with KIND-attribute
-! 
-! 1327 2014-03-21 11:00:16Z raasch
-! parts concerning iso2d output removed,
-! -netcdf output queries
-!
-! 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
-!
-! 1318 2014-03-17 13:35:16Z raasch
-! barrier argument removed from cpu_log.
-! module interfaces removed
-!
-! 1311 2014-03-14 12:13:39Z heinze
-! bugfix: close #if defined( __netcdf )
-!
-! 1308 2014-03-13 14:58:42Z fricke
-! +local_2d_sections, local_2d_sections_l, ns
-! Check, if the limit of the time dimension is exceeded for parallel output
-! To increase the performance for parallel output, the following is done:
-! - Update of time axis is only done by PE0
-! - Cross sections are first stored on a local array and are written
-!   collectively to the output file by all PEs.
-!
-! 1115 2013-03-26 18:16:16Z hoffmann
-! ql is calculated by calc_liquid_water_content
-!
-! 1076 2012-12-05 08:30:18Z hoffmann
-! Bugfix in output of ql 
-!
-! 1065 2012-11-22 17:42:36Z hoffmann
-! Bugfix: Output of cross sections of ql
-!
-! 1053 2012-11-13 17:11:03Z hoffmann
-! +qr, nr, qc and cross sections
-!
-! 1036 2012-10-22 13:43:42Z raasch
-! code put under GPL (PALM 3.9)
-!
-! 1031 2012-10-19 14:35:30Z raasch
-! netCDF4 without parallel file support implemented
-!
-! 1007 2012-09-19 14:30:36Z franke
-! Bugfix: missing calculation of ql_vp added
-!
-! 978 2012-08-09 08:28:32Z fricke
-! +z0h
-!
-! Revision 1.1  1997/08/11 06:24:09  raasch
-! Initial revision
-!
 !
 ! Description:
Index: /palm/trunk/SOURCE/data_output_3d.f90
===================================================================
--- /palm/trunk/SOURCE/data_output_3d.f90	(revision 4179)
+++ /palm/trunk/SOURCE/data_output_3d.f90	(revision 4180)
@@ -57,211 +57,4 @@
 ! when using wall/soil spinup)
 ! 
-! 3637 2018-12-20 01:51:36Z knoop
-! Implementation of the PALM module interface
-! 
-! 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
-! add variable description; rename variable 'if' into 'ivar'
-! 
-! 3525 2018-11-14 16:06:14Z kanani
-! Changes related to clean-up of biometeorology (dom_dwd_user)
-! 
-! 3467 2018-10-30 19:05:21Z suehring
-! Implementation of a new aerosol module salsa.
-! 
-! 3448 2018-10-29 18:14:31Z kanani
-! Adjustment of biometeorology calls
-! 
-! 3421 2018-10-24 18:39:32Z gronemeier
-! Renamed output variables
-! 
-! 3419 2018-10-24 17:27:31Z gronemeier
-! bugfix: nx, ny are required in non-parallel case
-! 
-! 3337 2018-10-12 15:17:09Z kanani
-! (from branch resler)
-! Add Biometeorology
-! 
-! 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
-! unused variables and format statements removed
-! 
-! 3049 2018-05-29 13:52:36Z Giersch
-! Error messages revised
-! 
-! 3045 2018-05-28 07:55:41Z Giersch
-! Error message revised
-! 
-! 3014 2018-05-09 08:42:38Z maronga
-! Added nzb_do and nzt_do for some modules for 3d output
-! 
-! 3004 2018-04-27 12:33:25Z Giersch
-! Allocation checks implemented (averaged data will be assigned to fill values 
-! if no allocation happened so far) 
-! 
-! 2967 2018-04-13 11:22:08Z raasch
-! bugfix: missing parallel cpp-directives added
-! 
-! 2817 2018-02-19 16:32:21Z knoop
-! Preliminary gust module interface implemented
-! 
-! 2766 2018-01-22 17:17:47Z kanani
-! Removed preprocessor directive __chem
-! 
-! 2756 2018-01-16 18:11:14Z suehring
-! Fill values for 3D output of chemical species introduced.
-! 
-! 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
-! 
-! 2696 2017-12-14 17:12:51Z kanani
-! Change in file header (GPL part)
-! Implementation of turbulence_closure_mod (TG)
-! Implementation of chemistry module (FK)
-! Set fill values at topography grid points or e.g. non-natural-type surface
-! in case of LSM output (MS)
-! 
-! 2512 2017-10-04 08:26:59Z raasch
-! upper bounds of 3d output changed from nx+1,ny+1 to nx,ny
-! no output of ghost layer data
-! 
-! 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). 
-! 
-! 2233 2017-05-30 18:08:54Z suehring
-!
-! 2232 2017-05-30 17:47:52Z suehring
-! Adjustments to new topography concept
-! 
-! 2209 2017-04-19 09:34:46Z kanani
-! Added plant canopy model output
-! 
-! 2031 2016-10-21 15:11:58Z knoop
-! renamed variable rho to rho_ocean and rho_av to rho_ocean_av
-! 
-! 2011 2016-09-19 17:29:57Z kanani
-! Flag urban_surface is now defined in module control_parameters,
-! changed prefix for urban surface model output to "usm_",
-! introduced control parameter varnamelength for LEN of trimvar.
-! 
-! 2007 2016-08-24 15:47:17Z kanani
-! Added support for new urban surface model (temporary modifications of 
-! SELECT CASE ( ) necessary, see variable trimvar)
-! 
-! 2000 2016-08-20 18:09:15Z knoop
-! Forced header and separation lines into 80 columns
-! 
-! 1980 2016-07-29 15:51:57Z suehring
-! Bugfix, in order to steer user-defined output, setting flag found explicitly
-! to .F.
-! 
-! 1976 2016-07-27 13:28:04Z maronga
-! Output of radiation quantities is now done directly in the respective module
-! 
-! 1972 2016-07-26 07:52:02Z maronga
-! Output of land surface quantities is now done directly in the respective module.
-! Unnecessary directive __parallel removed.
-! 
-! 1960 2016-07-12 16:34:24Z suehring
-! Scalar surface flux added
-!
-! 1849 2016-04-08 11:33:18Z hoffmann
-! prr moved to arrays_3d
-!
-! 1822 2016-04-07 07:49:42Z hoffmann
-! prr vertical dimensions set to nzb_do to nzt_do. Unused variables deleted.
-!
-! 1808 2016-04-05 19:44:00Z raasch
-! test output removed
-!
-! 1783 2016-03-06 18:36:17Z raasch
-! name change of netcdf routines and module + related changes
-!
-! 1745 2016-02-05 13:06:51Z gronemeier
-! Bugfix: test if time axis limit exceeds moved to point after call of check_open
-! 
-! 1691 2015-10-26 16:17:44Z maronga
-! Added output of radiative heating rates for RRTMG
-! 
-! 1682 2015-10-07 23:56:08Z knoop
-! Code annotations made doxygen readable 
-! 
-! 1585 2015-04-30 07:05:52Z maronga
-! Added support for RRTMG
-! 
-! 1551 2015-03-03 14:18:16Z maronga
-! Added suppport for land surface model and radiation model output. In the course
-! of this action, the limits for vertical loops have been changed (from nzb and 
-! nzt+1 to nzb_do and nzt_do, respectively in order to allow soil model output).
-! Moreover, a new vertical grid zs was introduced.
-! 
-! 1359 2014-04-11 17:15:14Z hoffmann
-! New particle structure integrated. 
-! 
-! 1353 2014-04-08 15:21:23Z heinze
-! REAL constants provided with KIND-attribute
-! 
-! 1327 2014-03-21 11:00:16Z raasch
-! parts concerning avs output removed,
-! -netcdf output queries
-!
-! 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
-! barrier argument removed from cpu_log,
-! module interfaces removed
-!
-! 1308 2014-03-13 14:58:42Z fricke
-! Check, if the limit of the time dimension is exceeded for parallel output
-! To increase the performance for parallel output, the following is done:
-! - Update of time axis is only done by PE0
-!
-! 1244 2013-10-31 08:16:56Z raasch
-! Bugfix for index bounds in case of 3d-parallel output
-!
-! 1115 2013-03-26 18:16:16Z hoffmann
-! ql is calculated by calc_liquid_water_content
-!
-! 1106 2013-03-04 05:31:38Z raasch
-! array_kind renamed precision_kind
-!
-! 1076 2012-12-05 08:30:18Z hoffmann
-! Bugfix in output of ql
-!
-! 1053 2012-11-13 17:11:03Z hoffmann
-! +nr, qr, prr, qc and averaged quantities
-!
-! 1036 2012-10-22 13:43:42Z raasch
-! code put under GPL (PALM 3.9)
-!
-! 1031 2012-10-19 14:35:30Z raasch
-! netCDF4 without parallel file support implemented
-!
-! 1007 2012-09-19 14:30:36Z franke
-! Bugfix: missing calculation of ql_vp added
-!
-! Revision 1.1  1997/09/03 06:29:36  raasch
-! Initial revision
-!
 !
 ! Description:
Index: /palm/trunk/SOURCE/data_output_flight.f90
===================================================================
--- /palm/trunk/SOURCE/data_output_flight.f90	(revision 4179)
+++ /palm/trunk/SOURCE/data_output_flight.f90	(revision 4180)
@@ -27,18 +27,4 @@
 ! unused variables removed
 ! 
-! 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)
-!
-! 2101 2017-01-05 16:42:31Z suehring
-!
-! 2000 2016-08-20 18:09:15Z knoop
-! Forced header and separation lines into 80 columns
-! 
-! 1957 2016-07-07 10:43:48Z suehring
-! Initial revision
-!
 !
 ! Description:
Index: /palm/trunk/SOURCE/data_output_mask.f90
===================================================================
--- /palm/trunk/SOURCE/data_output_mask.f90	(revision 4179)
+++ /palm/trunk/SOURCE/data_output_mask.f90	(revision 4180)
@@ -47,119 +47,4 @@
 ! Fix output time levels (use time_since_reference_point)
 ! 
-! 3589 2018-11-30 15:09:51Z suehring
-! Move the control parameter "salsa" from salsa_mod.f90 to control_parameters
-! 
-! 3582 2018-11-29 19:16:36Z suehring
-! add variable description
-! 
-! 3467 2018-10-30 19:05:21Z suehring
-! Implementation of a new aerosol module salsa.
-! 
-! 3435 2018-10-26 18:25:44Z gronemeier
-! Add terrain-following output
-! 
-! 3421 2018-10-24 18:39:32Z gronemeier
-! Renamed output variables
-! 
-! 3419 2018-10-24 17:27:31Z gronemeier
-! Minor formatting (kanani)
-! Call for chem_data_output_mask added (basit)
-! 
-! 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 variable removed
-! 
-! 3083 2018-06-19 14:03:12Z gronemeier
-! 
-! 
-! 3045 2018-05-28 07:55:41Z Giersch
-! Error messages revised
-! 
-! 3030 2018-05-23 14:37:00Z raasch
-! variable if renamed ivar
-! 
-! 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)
-! 
-! 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). 
-! 
-! 2101 2017-01-05 16:42:31Z suehring
-!
-! 2031 2016-10-21 15:11:58Z knoop
-! renamed variable rho to rho_ocean and rho_av to rho_ocean_av
-! 
-! 2000 2016-08-20 18:09:15Z knoop
-! Forced header and separation lines into 80 columns
-! 
-! 1980 2016-07-29 15:51:57Z suehring
-! Bugfix, in order to steer user-defined output, setting flag found explicitly
-! to .F.
-! 
-! 1976 2016-07-27 13:28:04Z maronga
-! Output of radiation quantities is now done directly in the respective module
-! 
-! 1960 2016-07-12 16:34:24Z suehring
-! Separate humidity and passive scalar
-!
-! 2016-03-06 18:36:17Z raasch
-! name change of netcdf routines and module + related changes,
-! switch back of netcdf data format moved from time integration routine to here
-!
-! 1691 2015-10-26 16:17:44Z maronga
-! Added output of radiative heating rates for RRTMG
-! 
-! 1682 2015-10-07 23:56:08Z knoop
-! Code annotations made doxygen readable 
-! 
-! 1585 2015-04-30 07:05:52Z maronga
-! Added support for RRTMG
-! 
-! 1438 2014-07-22 14:14:06Z heinze
-! +nr, qc, qr
-! 
-! 1359 2014-04-11 17:15:14Z hoffmann
-! New particle structure integrated. 
-! 
-! 1353 2014-04-08 15:21:23Z heinze
-! REAL constants provided with KIND-attribute
-! 
-! 1327 2014-03-21 11:00:16Z raasch
-! 
-!
-! 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
-!
-! 1318 2014-03-17 13:35:16Z raasch
-! barrier argument removed from cpu_log,
-! module interfaces 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)
-!
-! 1031 2012-10-19 14:35:30Z raasch
-! netCDF4 without parallel file support implemented
-!
-! 1007 2012-09-19 14:30:36Z franke
-! Bugfix: calculation of pr must depend on the particle weighting factor,
-! missing calculation of ql_vp added
-!
-! 410 2009-12-04 17:05:40Z letzel
-! Initial version
 !
 ! Description:
Index: /palm/trunk/SOURCE/data_output_profiles.f90
===================================================================
--- /palm/trunk/SOURCE/data_output_profiles.f90	(revision 4179)
+++ /palm/trunk/SOURCE/data_output_profiles.f90	(revision 4180)
@@ -27,67 +27,4 @@
 ! add variable description
 ! 
-! 3241 2018-09-12 15:02:00Z raasch
-! unused format statements removed
-! 
-! 2932 2018-03-26 09:39:22Z maronga
-! renamed d3par to runtime_parameters
-! 
-! 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)
-!
-! 2101 2017-01-05 16:42:31Z suehring
-!
-! 2026 2016-10-18 10:27:02Z suehring
-! Formatting adjustment
-! 
-! 2000 2016-08-20 18:09:15Z knoop
-! Forced header and separation lines into 80 columns
-!
-! 1783 2016-03-06 18:36:17Z raasch
-! name change of netcdf routines and module + related changes
-!
-! 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
-! 
-! 1327 2014-03-21 11:00:16Z raasch
-! -netcdf output queries
-!
-! 1322 2014-03-20 16:38:49Z raasch
-! REAL functions provided with KIND-attribute
-!
-! 1320 2014-03-20 08:40:49Z raasch
-! ONLY-attribute added to USE-statements,
-! kind-parameters added to all INTEGER 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
-!
-! 1318 2014-03-17 13:35:16Z raasch
-! barrier argument removed from cpu_log,
-! module interfaces removed
-!
-! 1106 2013-03-04 05:31:38Z raasch
-! bugfix: initial time for preruns of coupled runs is output as
-! -coupling_start_time
-!
-! 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)
-!
-! 964 2012-07-26 09:14:24Z raasch
-! code for profil-output removed
-!
-! Revision 1.1  1997/09/12 06:28:48  raasch
-! Initial revision
-!
 !
 ! Description:
Index: /palm/trunk/SOURCE/data_output_spectra.f90
===================================================================
--- /palm/trunk/SOURCE/data_output_spectra.f90	(revision 4179)
+++ /palm/trunk/SOURCE/data_output_spectra.f90	(revision 4180)
@@ -27,74 +27,4 @@
 ! variables documented
 ! 
-! 3421 2018-10-24 18:39:32Z gronemeier
-! Renamed output variables
-! 
-! 3419 2018-10-24 17:27:31Z gronemeier
-! Modularization of all bulk cloud physics code components
-! 
-! 3241 2018-09-12 15:02:00Z raasch
-! unused variables removed
-! 
-! 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)
-!
-! 2101 2017-01-05 16:42:31Z suehring
-!
-! 2000 2016-08-20 18:09:15Z knoop
-! Forced header and separation lines into 80 columns
-! 
-! 1960 2016-07-12 16:34:24Z suehring
-! Additional default spectra for passive scalar
-! 
-! 1833 2016-04-07 14:23:03Z raasch
-! spectrum renamed spectra_mod, spectra related variables moved to spectra_mod,
-! routines data_output_spectra_x/y removed
-!
-! 1786 2016-03-08 05:49:27Z raasch
-! cpp-directives for spectra removed, immediate return if no spectra levels are
-! given
-!
-! 1783 2016-03-06 18:36:17Z raasch
-! name change of netcdf routines and module + related changes
-!
-! 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
-! 
-! 1327 2014-03-21 11:00:16Z raasch
-! -netcdf output queries
-!
-! 1324 2014-03-21 09:13:16Z suehring
-! Bugfix: module statistics and module spectrum added, missing variables in ONLY
-! arguments added
-!
-! 1322 2014-03-20 16:38:49Z raasch
-! REAL functions provided with KIND-attribute
-!
-! 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
-!
-! 1318 2014-03-17 13:35:16Z raasch
-! module interfaces removed
-!
-! 1036 2012-10-22 13:43:42Z raasch
-! code put under GPL (PALM 3.9)
-!
-! 964 2012-07-26 09:14:24Z raasch
-! code for profil-output removed
-!
-! Revision 1.1  2001/01/05 15:14:20  raasch
-! Initial revision
-!
 !
 ! Description:
Index: /palm/trunk/SOURCE/data_output_tseries.f90
===================================================================
--- /palm/trunk/SOURCE/data_output_tseries.f90	(revision 4179)
+++ /palm/trunk/SOURCE/data_output_tseries.f90	(revision 4180)
@@ -27,48 +27,4 @@
 ! unused format removed
 ! 
-! 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)
-!
-! 2101 2017-01-05 16:42:31Z suehring
-!
-! 2000 2016-08-20 18:09:15Z knoop
-! Forced header and separation lines into 80 columns
-!
-! 1783 2016-03-06 18:36:17Z raasch
-! name change of netcdf routines and module + related changes
-!
-! 1682 2015-10-07 23:56:08Z knoop
-! Code annotations made doxygen readable 
-! 
-! 1524 2015-01-14 13:18:19Z keck
-! Bugfix: increment dots_time_count after the call of subroutine check_open
-! 
-! 1327 2014-03-21 11:00:16Z raasch
-! -netcdf output queries
-!
-! 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
-!
-! 1318 2014-03-17 13:35:16Z raasch
-! barrier argument removed from cpu_log.
-! module interfaces 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)
-!
-! Revision 1.1  1998/03/03 08:00:13  raasch
-! Initial revision
-!
 !
 ! Description:
Index: /palm/trunk/SOURCE/date_and_time_mod.f90
===================================================================
--- /palm/trunk/SOURCE/date_and_time_mod.f90	(revision 4179)
+++ /palm/trunk/SOURCE/date_and_time_mod.f90	(revision 4180)
@@ -33,37 +33,4 @@
 ! further tabs removed
 ! 
-! 3467 2018-10-30 19:05:21Z suehring
-! Tabs removed
-! 
-! 3458 2018-10-30 14:51:23Z kanani
-! from chemistry branch r3443, banzhafs:
-! Added initial hour_of_day, hour_of_year, day_of_year and month_of_year to
-! init_date_and_time
-!
-! 3298 2018-10-02 12:21:11Z kanani
-! - Minor formatting (kanani)
-! - Added Routines for DEFAULT mode of chemistry emissions (Russo)
-! - Added routine for reading-in real dates: format has to be in DDMMYYYY and 
-!   passed in the namelist parameter date_init (Russo)
-! - Added calculation of several time indices useful in several routines 
-!   of the model (Russo)
-!
-! 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 definition of d_seconds_year.
-!
-! 2696 2017-12-14 17:12:51Z kanani
-! Change in file header (GPL part)
-! 
-! 2544 2017-10-13 18:09:32Z maronga
-! Initial revision
-! 
-! 
-
 !
 ! Description:
Index: /palm/trunk/SOURCE/diffusion_s.f90
===================================================================
--- /palm/trunk/SOURCE/diffusion_s.f90	(revision 4179)
+++ /palm/trunk/SOURCE/diffusion_s.f90	(revision 4180)
@@ -33,84 +33,4 @@
 ! nopointer option removed
 ! 
-! 3634 2018-12-18 12:31:28Z knoop
-! OpenACC port for SPEC
-! 
-! 3547 2018-11-21 13:21:24Z suehring
-! variables documented
-! 
-! 2759 2018-01-17 16:24:59Z suehring
-! Major bugfix, horizontal diffusion at vertical surfaces corrected.
-! 
-! 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)
-!
-! 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
-! 
-! 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
-! 
-! 1873 2016-04-18 14:50:06Z maronga
-! Module renamed (removed _mod)
-!
-! 1850 2016-04-08 13:29:27Z maronga
-! Module renamed
-! 
-! 1691 2015-10-26 16:17:44Z maronga
-! Formatting corrections.
-! 
-! 1682 2015-10-07 23:56:08Z knoop
-! Code annotations made doxygen readable 
-! 
-! 1374 2014-04-25 12:55:07Z raasch
-! missing variables added to ONLY list
-! 
-! 1340 2014-03-25 19:45:13Z 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,
-! revision history before 2012 removed,
-! comment fields (!:) to be used for variable explanations added to
-! all variable declaration statements
-! 
-! 1257 2013-11-08 15:18:40Z raasch
-! openacc loop and loop vector clauses removed
-!
-! 1128 2013-04-12 06:19:32Z raasch
-! loop index bounds in accelerator version replaced by i_left, i_right, j_south,
-! j_north
-!
-! 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)
-!
-! 1015 2012-09-27 09:23:24Z raasch
-! accelerator version (*_acc) added
-!
-! 1010 2012-09-20 07:59:54Z raasch
-! cpp switch __nopointer added for pointer free version
-!
-! 1001 2012-09-13 14:08:46Z raasch
-! some arrays comunicated by module instead of parameter list
-!
-! Revision 1.1  2000/04/13 14:54:02  schroeter
-! Initial revision
-!
 !
 ! Description:
Index: /palm/trunk/SOURCE/diffusion_u.f90
===================================================================
--- /palm/trunk/SOURCE/diffusion_u.f90	(revision 4179)
+++ /palm/trunk/SOURCE/diffusion_u.f90	(revision 4180)
@@ -27,83 +27,4 @@
 ! OpenACC port for SPEC
 ! 
-! 3547 2018-11-21 13:21:24Z suehring
-! variables documented
-! 
-! 3241 2018-09-12 15:02:00Z raasch
-! unused variables removed
-! 
-! 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)
-!
-! 2638 2017-11-23 12:44:23Z raasch
-! bugfix for constant top momentumflux
-! 
-! 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
-! 
-! 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
-! 
-! 1873 2016-04-18 14:50:06Z maronga
-! Module renamed (removed _mod)
-! 
-! 1850 2016-04-08 13:29:27Z maronga
-! Module renamed
-!
-! 1740 2016-01-13 08:19:40Z raasch
-! unnecessary calculations of kmzm and kmzp in wall bounded parts removed
-!
-! 1691 2015-10-26 16:17:44Z maronga
-! Formatting corrections.
-! 
-! 1682 2015-10-07 23:56:08Z knoop
-! Code annotations made doxygen readable 
-! 
-! 1340 2014-03-25 19:45:13Z 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,
-! revision history before 2012 removed,
-! comment fields (!:) to be used for variable explanations added to
-! all variable declaration statements
-! 
-! 1257 2013-11-08 15:18:40Z raasch
-! openacc loop and loop vector clauses removed, declare create moved after
-! the FORTRAN declaration statement
-!
-! 1128 2013-04-12 06:19:32Z raasch
-! loop index bounds in accelerator version replaced by i_left, i_right, j_south,
-! j_north
-!
-! 1036 2012-10-22 13:43:42Z raasch
-! code put under GPL (PALM 3.9)
-!
-! 1015 2012-09-27 09:23:24Z raasch
-! accelerator version (*_acc) added
-!
-! 1001 2012-09-13 14:08:46Z raasch
-! arrays comunicated by module instead of parameter list
-!
-! 978 2012-08-09 08:28:32Z fricke
-! outflow damping layer removed
-! kmym_x/_y and kmyp_x/_y change to kmym and kmyp
-!
-! Revision 1.1  1997/09/12 06:23:51  raasch
-! Initial revision
-!
 !
 ! Description:
Index: /palm/trunk/SOURCE/diffusion_v.f90
===================================================================
--- /palm/trunk/SOURCE/diffusion_v.f90	(revision 4179)
+++ /palm/trunk/SOURCE/diffusion_v.f90	(revision 4180)
@@ -27,80 +27,4 @@
 ! OpenACC port for SPEC
 ! 
-! 3547 2018-11-21 13:21:24Z suehring
-! variables documented
-! 
-! 3241 2018-09-12 15:02:00Z raasch
-! unused variables removed
-! 
-! 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)
-!
-! 2638 2017-11-23 12:44:23Z raasch
-! bugfix for constant top momentumflux
-! 
-! 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
-! 
-! 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
-! 
-! 1873 2016-04-18 14:50:06Z maronga
-! Module renamed (removed _mod)
-! 
-! 1850 2016-04-08 13:29:27Z maronga
-! Module renamed
-!
-! 1740 2016-01-13 08:19:40Z raasch
-! unnecessary calculations of kmzm and kmzp in wall bounded parts removed
-!
-! 1682 2015-10-07 23:56:08Z knoop
-! Code annotations made doxygen readable 
-! 
-! 1340 2014-03-25 19:45:13Z 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,
-! revision history before 2012 removed,
-! comment fields (!:) to be used for variable explanations added to
-! all variable declaration statements
-! 
-! 1257 2013-11-08 15:18:40Z raasch
-! openacc loop and loop vector clauses removed, declare create moved after
-! the FORTRAN declaration statement
-!
-! 1128 2013-04-12 06:19:32Z raasch
-! loop index bounds in accelerator version replaced by i_left, i_right, j_south,
-! j_north
-!
-! 1036 2012-10-22 13:43:42Z raasch
-! code put under GPL (PALM 3.9)
-!
-! 1015 2012-09-27 09:23:24Z raasch
-! accelerator version (*_acc) added
-!
-! 1001 2012-09-13 14:08:46Z raasch
-! arrays comunicated by module instead of parameter list
-!
-! 978 2012-08-09 08:28:32Z fricke
-! outflow damping layer removed
-! kmxm_x/_y and kmxp_x/_y change to kmxm and kmxp
-!
-! Revision 1.1  1997/09/12 06:24:01  raasch
-! Initial revision
-!
 !
 ! Description:
Index: /palm/trunk/SOURCE/diffusion_w.f90
===================================================================
--- /palm/trunk/SOURCE/diffusion_w.f90	(revision 4179)
+++ /palm/trunk/SOURCE/diffusion_w.f90	(revision 4180)
@@ -27,84 +27,4 @@
 ! OpenACC port for SPEC
 ! 
-! 3547 2018-11-21 13:21:24Z suehring
-! variables documented
-! 
-! 3241 2018-09-12 15:02:00Z raasch
-! unused variables removed
-! 
-! 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)
-!
-! 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
-! 
-! 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
-! 
-! 1873 2016-04-18 14:50:06Z maronga
-! Module renamed (removed _mod)
-! 
-! 1850 2016-04-08 13:29:27Z maronga
-! Module renamed
-! 
-! 1682 2015-10-07 23:56:08Z knoop
-! Code annotations made doxygen readable 
-! 
-! 1374 2014-04-25 12:55:07Z raasch
-! vsws + vswst removed from acc-present-list
-! 
-! 1353 2014-04-08 15:21:23Z heinze
-! REAL constants provided with KIND-attribute 
-! 
-! 1340 2014-03-25 19:45:13Z kanani
-! REAL constants defined as wp-kind
-!
-! 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 
-!
-! 1257 2013-11-08 15:18:40Z raasch
-! openacc loop and loop vector clauses removed, declare create moved after
-! the FORTRAN declaration statement
-!
-! 1128 2013-04-12 06:19:32Z raasch
-! loop index bounds in accelerator version replaced by i_left, i_right, j_south,
-! j_north
-!
-! 1036 2012-10-22 13:43:42Z raasch
-! code put under GPL (PALM 3.9)
-!
-! 1015 2012-09-27 09:23:24Z raasch
-! accelerator version (*_acc) added
-!
-! 1001 2012-09-13 14:08:46Z raasch
-! arrays comunicated by module instead of parameter list
-!
-! 978 2012-08-09 08:28:32Z fricke
-! outflow damping layer removed
-! kmxm_x/_z and kmxp_x/_z change to kmxm and kmxp
-! kmym_y/_z and kmyp_y/_z change to kmym and kmyp
-!
-! Revision 1.1  1997/09/12 06:24:11  raasch
-! Initial revision
-!
 !
 ! Description:
Index: /palm/trunk/SOURCE/disturb_field.f90
===================================================================
--- /palm/trunk/SOURCE/disturb_field.f90	(revision 4179)
+++ /palm/trunk/SOURCE/disturb_field.f90	(revision 4180)
@@ -27,52 +27,4 @@
 ! Corrected "Former revisions" section
 ! 
-! 2696 2017-12-14 17:12:51Z kanani
-! Change in file header (GPL part)
-!
-! 2300 2017-06-29 13:31:14Z raasch
-! NEC related code removed
-! 
-! 2233 2017-05-30 18:08:54Z suehring
-!
-! 2232 2017-05-30 17:47:52Z suehring
-! Modify referenced parameter for disturb_field, instead of nzb_uv_inner, pass
-! character to identify the respective grid (u- or v-grid). 
-! Set perturbations within topography to zero using flags.
-! 
-! 2172 2017-03-08 15:55:25Z knoop
-! Bugfix removed id_random_array from USE list
-! 
-! 2000 2016-08-20 18:09:15Z knoop
-! Forced header and separation lines into 80 columns
-! 
-! 1682 2015-10-07 23:56:08Z knoop
-! Code annotations made doxygen readable 
-! 
-! 1425 2014-07-05 10:57:53Z knoop
-! bugfix: Parallel random number generator loop: print-statement no needed
-! 
-! 1400 2014-05-09 14:03:54Z knoop
-! Parallel random number generator added
-! 
-! 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 
-!
-! 1036 2012-10-22 13:43:42Z raasch
-! code put under GPL (PALM 3.9)
-!
-! Revision 1.1  1998/02/04 15:40:45  raasch
-! Initial revision
-!
 !
 ! Description:
Index: /palm/trunk/SOURCE/disturb_heatflux.f90
===================================================================
--- /palm/trunk/SOURCE/disturb_heatflux.f90	(revision 4179)
+++ /palm/trunk/SOURCE/disturb_heatflux.f90	(revision 4180)
@@ -33,46 +33,4 @@
 ! unused variable removed
 ! 
-! 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)
-!
-! 2233 2017-05-30 18:08:54Z suehring
-!
-! 2232 2017-05-30 17:47:52Z suehring
-! Adjustment according new surface data type.
-! Implemented parallel random number generator to obtain always the same 
-! random number distribution regardless of the processor distribution.
-! 
-! 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
-! 
-! 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, 
-! revision history before 2012 removed,
-! comment fields (!:) to be used for variable explanations added to
-! all variable declaration statements 
-!
-! 1036 2012-10-22 13:43:42Z raasch
-! code put under GPL (PALM 3.9)
-!
-! Revision 1.1  1998/03/25 20:03:47  raasch
-! Initial revision
-!
 !
 ! Description:
Index: /palm/trunk/SOURCE/exchange_horiz.f90
===================================================================
--- /palm/trunk/SOURCE/exchange_horiz.f90	(revision 4179)
+++ /palm/trunk/SOURCE/exchange_horiz.f90	(revision 4180)
@@ -30,71 +30,4 @@
 ! OpenACC port for SPEC
 ! 
-! 3241 2018-09-12 15:02:00Z raasch
-! unused variables removed
-! 
-! 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)
-! 3D-Integer exchange on multigrid level (MS)
-! 
-! 2298 2017-06-29 09:28:18Z raasch
-! sendrecv_in_background related parts removed
-! 
-! 2119 2017-01-17 16:51:50Z raasch
-!
-! 2118 2017-01-17 16:38:49Z raasch
-! OpenACC directives and related code removed
-! 
-! 2000 2016-08-20 18:09:15Z knoop
-! Forced header and separation lines into 80 columns
-! 
-! 1804 2016-04-05 16:30:18Z maronga
-! Removed code for parameter file check (__check)
-! 
-! 1682 2015-10-07 23:56:08Z knoop
-! Code annotations made doxygen readable 
-! 
-! 1677 2015-10-02 13:25:23Z boeske
-! Added new routine for exchange of three-dimensional integer arrays
-!
-! 1569 2015-03-12 07:54:38Z raasch
-! bugfix in background communication part
-!
-! 1348 2014-03-27 18:01:03Z raasch
-! bugfix: on_device added to ONLY-list
-!
-! 1344 2014-03-26 17:33:09Z kanani
-! Added missing parameters to ONLY-attribute
-!
-! 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 
-!
-! 1257 2013-11-08 15:18:40Z raasch
-! openacc loop and loop vector clauses removed
-!
-! 1128 2013-04-12 06:19:32Z raasch
-! modifications for asynchronous transfer,
-! local variables req, wait_stat are global now, and have been moved to module
-! pegrid
-!
-! 1113 2013-03-10 02:48:14Z raasch
-! GPU-porting for single-core (1PE) mode
-!
-! 1036 2012-10-22 13:43:42Z raasch
-! code put under GPL (PALM 3.9)
-!
-! 841 2012-02-28 12:29:49Z maronga
-! Excluded routine from compilation of namelist_file_check
-!
-! Revision 1.1  1997/07/24 11:13:29  raasch
-! Initial revision
-!
 !
 ! Description:
Index: /palm/trunk/SOURCE/exchange_horiz_2d.f90
===================================================================
--- /palm/trunk/SOURCE/exchange_horiz_2d.f90	(revision 4179)
+++ /palm/trunk/SOURCE/exchange_horiz_2d.f90	(revision 4180)
@@ -34,58 +34,4 @@
 ! - Set Neumann conditions also at radiation boundary
 ! 
-! 3542 2018-11-20 17:04:13Z suehring
-! Rename variables in offline nesting mode and flags indicating lateral
-! boundary conditions
-! 
-! 3182 2018-07-27 13:36:03Z suehring
-! Corrected "Former revisions" section
-! 
-! 2696 2017-12-14 17:12:51Z kanani
-! Change in file header (GPL part)
-! Forcing implemented (MS)
-! 
-! 2101 2017-01-05 16:42:31Z suehring
-!
-! 2000 2016-08-20 18:09:15Z knoop
-! Forced header and separation lines into 80 columns
-! 
-! 1968 2016-07-18 12:01:49Z suehring
-! 2D-INTEGER exchange adopted for different multigrid level
-! 
-! 1818 2016-04-06 15:53:27Z maronga
-! Initial version of purely vertical nesting introduced. 
-! 
-! 1804 2016-04-05 16:30:18Z maronga
-! Removed code for parameter file check (__check)
-! 
-! 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 
-!
-! 1348 2014-03-27 18:01:03Z raasch
-! bugfix: bc_lr_cyc and bc_ns_cyc added to ONLY-list
-!
-! 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 
-!
-! 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)
-!
-! 841 2012-02-28 12:29:49Z maronga
-! Excluded routine from compilation of namelist_file_check
-!
-! Revision 1.1  1998/01/23 09:58:21  raasch
-! Initial revision
-!
 !
 ! Description:
Index: /palm/trunk/SOURCE/fft_xy_mod.f90
===================================================================
--- /palm/trunk/SOURCE/fft_xy_mod.f90	(revision 4179)
+++ /palm/trunk/SOURCE/fft_xy_mod.f90	(revision 4180)
@@ -30,124 +30,4 @@
 ! OpenACC port for SPEC
 ! 
-! 3241 2018-09-12 15:02:00Z raasch
-! preprocessor switches for variables that are required on NEC only
-! 
-! 3045 2018-05-28 07:55:41Z Giersch
-! Error messages revised
-! 
-! 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)
-!
-! 2300 2017-06-29 13:31:14Z raasch
-! NEC related code partly removed, host replaced by loop_optimization
-! 
-! 2274 2017-06-09 13:27:48Z Giersch
-! Changed error messages
-! 
-! 2119 2017-01-17 16:51:50Z raasch
-!
-! 2118 2017-01-17 16:38:49Z raasch
-! OpenACC directives and CUDA-fft related code removed
-! 
-! 2000 2016-08-20 18:09:15Z knoop
-! Forced header and separation lines into 80 columns
-! 
-! 1850 2016-04-08 13:29:27Z maronga
-! Module renamed
-! 
-! 1815 2016-04-06 13:49:59Z raasch
-! cpp-directives for ibmy removed
-!
-! 1749 2016-02-09 12:19:56Z raasch
-! small OpenACC bugfix
-!
-! 1682 2015-10-07 23:56:08Z knoop
-! Code annotations made doxygen readable
-!
-! 1600 2015-06-11 15:50:12Z raasch
-! bugfix: openMP threadprivate statement moved after variable declaration
-!
-! 1482 2014-10-18 12:34:45Z raasch
-! cudafft workaround for data declaration of ar_tmp because of PGI 14.1 bug
-!
-! 1402 2014-05-09 14:25:13Z raasch
-! fortran bugfix for r1392
-! 
-! 1398 2014-05-07 11:15:00Z heinze
-! bugfix: typo removed for KIND in CMPLX function
-!
-! 1392 2014-05-06 09:10:05Z raasch
-! bugfix: KIND attribute added to CMPLX functions
-!
-! 1374 2014-04-25 12:55:07Z raasch
-! bugfixes: missing variables added to ONLY list, dpk renamed dp
-!
-! 1372 2014-04-24 06:29:32Z raasch
-! openMP-bugfix for fftw: some arrays defined as threadprivate
-!
-! 1353 2014-04-08 15:21:23Z heinze
-! REAL constants provided with KIND-attribute 
-! 
-! 1342 2014-03-26 17:04:47Z kanani
-! REAL constants defined as wp-kind
-!
-! 1322 2014-03-20 16:38:49Z raasch
-! REAL functions provided with KIND-attribute
-!
-! 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 
-!
-! 1304 2014-03-12 10:29:42Z raasch
-! openmp bugfix: work1 used in Temperton algorithm must be private
-!
-! 1257 2013-11-08 15:18:40Z raasch
-! openacc loop and loop vector clauses removed, declare create moved after
-! the FORTRAN declaration statement
-!
-! 1219 2013-08-30 09:33:18Z heinze
-! bugfix: use own branch for fftw
-!
-! 1216 2013-08-26 09:31:42Z raasch
-! fft_x and fft_y modified for parallel / ovverlapping execution of fft and
-! transpositions,
-! fftw implemented for 1d-decomposition (fft_x_1d, fft_y_1d)
-!
-! 1210 2013-08-14 10:58:20Z raasch
-! fftw added
-!
-! 1166 2013-05-24 13:55:44Z raasch
-! C_DOUBLE/COMPLEX reset to dpk
-!
-! 1153 2013-05-10 14:33:08Z raasch
-! code adjustment of data types for CUDA fft required by PGI 12.3 / CUDA 5.0
-!
-! 1111 2013-03-08 23:54:10Z raasch
-! further openACC statements added, CUDA branch completely runs on GPU
-! bugfix: CUDA fft plans adjusted for domain decomposition (before they always
-! used total domain)
-!
-! 1106 2013-03-04 05:31:38Z raasch
-! CUDA fft added
-! array_kind renamed precision_kind, 3D- instead of 1D-loops in fft_x and fft_y
-! old fft_x, fft_y become fft_x_1d, fft_y_1d and are used for 1D-decomposition
-!
-! 1092 2013-02-02 11:24:22Z raasch
-! variable sizw declared for NEC case only
-!
-! 1036 2012-10-22 13:43:42Z raasch
-! code put under GPL (PALM 3.9)
-!
-! Revision 1.1  2002/06/11 13:00:49  raasch
-! Initial revision
-!
 !
 ! Description:
Index: /palm/trunk/SOURCE/flow_statistics.f90
===================================================================
--- /palm/trunk/SOURCE/flow_statistics.f90	(revision 4179)
+++ /palm/trunk/SOURCE/flow_statistics.f90	(revision 4180)
@@ -37,267 +37,4 @@
 ! 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:
Index: /palm/trunk/SOURCE/global_min_max.f90
===================================================================
--- /palm/trunk/SOURCE/global_min_max.f90	(revision 4179)
+++ /palm/trunk/SOURCE/global_min_max.f90	(revision 4180)
@@ -27,38 +27,4 @@
 ! Corrected "Former revisions" section
 ! 
-! 2696 2017-12-14 17:12:51Z kanani
-! Change in file header (GPL part)
-!
-! 2101 2017-01-05 16:42:31Z suehring
-!
-! 2000 2016-08-20 18:09:15Z knoop
-! Forced header and separation lines into 80 columns
-! 
-! 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 
-!
-! 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 
-! 
-! 1188 2013-06-20 12:00:08Z heinze
-! Bugfix in modes 'min' and 'max': x and z component were interchanged
-!
-! 1036 2012-10-22 13:43:42Z raasch
-! code put under GPL (PALM 3.9)
-!
-! 866 2012-03-28 06:44:41Z raasch
-! new mode "absoff" accounts for an offset in the respective array
-!
-! Revision 1.1  1997/07/24 11:14:03  raasch
-! Initial revision
-!
 !
 ! Description:
Index: /palm/trunk/SOURCE/gust_mod.f90
===================================================================
--- /palm/trunk/SOURCE/gust_mod.f90	(revision 4179)
+++ /palm/trunk/SOURCE/gust_mod.f90	(revision 4180)
@@ -43,13 +43,4 @@
 ! Bugfix: domain bounds of local_pf corrected
 ! 
-! 
-! Interfaces concerning data output updated
-! 
-! 
-! renamed gust_par to gust_parameters
-! 
-! 
-! Initial interface definition
-!
 ! 
 ! Description:
Index: /palm/trunk/SOURCE/header.f90
===================================================================
--- /palm/trunk/SOURCE/header.f90	(revision 4179)
+++ /palm/trunk/SOURCE/header.f90	(revision 4180)
@@ -40,382 +40,4 @@
 ! Implementation of the PALM module interface
 ! 
-! 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
-! variables documented
-! 
-! 3552 2018-11-22 10:28:35Z suehring
-! change date format into YYYY-MM-DD
-! 
-! 3525 2018-11-14 16:06:14Z kanani
-! Changes related to clean-up of biometeorology (dom_dwd_user)
-! 
-! 3524 2018-11-14 13:36:44Z raasch
-! unused variables removed
-! 
-! 3467 2018-10-30 19:05:21Z suehring
-! Implementation of a new aerosol module salsa.
-! 
-! 3448 2018-10-29 18:14:31Z kanani
-! Add biometeorology
-! 
-! 3355 2018-10-16 14:03:34Z knoop
-! Header output concerning offline nesting
-! 
-! 3343 2018-10-15 10:38:52Z suehring
-! call of ocean_header
-! 
-! 3298 2018-10-02 12:21:11Z kanani
-! Minor formatting (kanani)
-! Add chemistry header (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
-! unused variables removed
-! 
-! 3232 2018-09-07 12:21:44Z raasch
-! Increase printed length of run identifier
-! 
-! 3225 2018-08-30 16:33:14Z kanani
-! Increase printed length of run identifier
-! 
-! 3083 2018-06-19 14:03:12Z gronemeier
-! Print RANS-mode constants
-! 
-! 3065 2018-06-12 07:03:02Z Giersch
-! Header output concerning stretching revised
-! 
-! 3045 2018-05-28 07:55:41Z Giersch
-! Error messages revised
-! 
-! 2967 2018-04-13 11:22:08Z raasch
-! bugfix: missing parallel cpp-directives added
-! 
-! 2883 2018-03-14 08:29:10Z Giersch
-! Format of the output of dt_dopr_listing (325) has been changed
-! 
-! 2817 2018-02-19 16:32:21Z knoop
-! Preliminary gust module interface implemented
-! 
-! 2776 2018-01-31 10:44:42Z Giersch
-! Variable synthetic_turbulence_generator has been abbreviated
-! 
-! 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
-! Change in file header (GPL part)
-! Print information about turbulence closure (TG)
-! Print information about inifor initialization (MS)
-! 
-! 2575 2017-10-24 09:57:58Z maronga
-! Added output for complex terrain simulations
-! 
-! 2544 2017-10-13 18:09:32Z maronga
-! Moved initial day of year and time to inipar. 
-! 
-! 2339 2017-08-07 13:55:26Z gronemeier
-! corrected timestamp in header
-! 
-! 2338 2017-08-07 12:15:38Z gronemeier
-! Modularize 1D model
-! 
-! 2320 2017-07-21 12:47:43Z suehring
-! Modularize large-scale forcing and nudging
-! 
-! 2300 2017-06-29 13:31:14Z raasch
-! host-specific code removed
-! 
-! 2299 2017-06-29 10:14:38Z maronga
-! Modified output for spinups
-! 
-! 2298 2017-06-29 09:28:18Z raasch
-! MPI2 related parts removed
-! 
-! 2270 2017-06-09 12:18:47Z maronga
-! Renamed Prandtl layer to constant flux layer
-! 
-! 2259 2017-06-08 09:09:11Z gronemeier
-! Implemented synthetic turbulence generator
-!
-! 2258 2017-06-08 07:55:13Z suehring
-! Bugfix, add pre-preprocessor directives to enable non-parrallel mode
-! 
-! 2233 2017-05-30 18:08:54Z suehring
-!
-! 2232 2017-05-30 17:47:52Z suehring
-! Adjustments to new topography and surface concept
-! Generic tunnel setup added
-! 
-! 2200 2017-04-11 11:37:51Z suehring
-! monotonic_adjustment removed
-! 
-! 2118 2017-01-17 16:38:49Z raasch
-! OpenACC relatec code removed
-! 
-! 2073 2016-11-30 14:34:05Z raasch
-! small bugfix concerning output of scalar profiles
-! 
-! 2050 2016-11-08 15:00:55Z gronemeier
-! Implement turbulent outflow condition
-! 
-! 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
-! 
-! 1992 2016-08-12 15:14:59Z suehring
-! Adapted for top_scalarflux
-! 
-! 1960 2016-07-12 16:34:24Z suehring
-! Treat humidity and passive scalar separately.
-! Modify misleading information concerning humidity.
-! Bugfix, change unit for humidity flux.
-! 
-! 1957 2016-07-07 10:43:48Z suehring
-! flight module added
-!
-! 1931 2016-06-10 12:06:59Z suehring
-! Rename multigrid into multigrid_noopt
-!
-! 1902 2016-05-09 11:18:56Z suehring
-! Write information about masking_method only for multigrid solver
-!
-! 1849 2016-04-08 11:33:18Z hoffmann
-! Adapted for modularization of microphysics
-!
-! 1833 2016-04-07 14:23:03Z raasch
-! spectrum renamed spectra_mod, output of spectra related quantities moved to
-! spectra_mod
-!
-! 1831 2016-04-07 13:15:51Z hoffmann
-! turbulence renamed collision_turbulence,
-! drizzle renamed cloud_water_sedimentation
-!
-! 1826 2016-04-07 12:01:39Z maronga
-! Moved radiation model header output to the respective module.
-! Moved canopy model header output to the respective module.
-!
-! 1822 2016-04-07 07:49:42Z hoffmann
-! Tails removed. icloud_scheme replaced by microphysics_*
-!
-! 1817 2016-04-06 15:44:20Z maronga
-! Moved land_surface_model header output to the respective module.
-!
-! 1808 2016-04-05 19:44:00Z raasch
-! routine local_flush replaced by FORTRAN statement
-!
-! 1797 2016-03-21 16:50:28Z raasch
-! output of nesting datatransfer mode
-!
-! 1791 2016-03-11 10:41:25Z raasch
-! output of nesting informations of all domains
-!
-! 1788 2016-03-10 11:01:04Z maronga
-! Parameter dewfall removed
-!
-! 1786 2016-03-08 05:49:27Z raasch
-! cpp-direktives for spectra removed
-!
-! 1783 2016-03-06 18:36:17Z raasch
-! netcdf module and variable names changed, output of netcdf_deflate
-!
-! 1764 2016-02-28 12:45:19Z raasch
-! output of nesting informations
-!
-! 1697 2015-10-28 17:14:10Z raasch
-! small E- and F-FORMAT changes to avoid informative compiler messages about
-! insufficient field width
-!
-! 1691 2015-10-26 16:17:44Z maronga
-! Renamed prandtl_layer to constant_flux_layer, renames rif_min/rif_max to
-! zeta_min/zeta_max.
-! 
-! 1682 2015-10-07 23:56:08Z knoop
-! Code annotations made doxygen readable 
-! 
-! 1675 2015-10-02 08:28:59Z gronemeier
-! Bugfix: Definition of topography grid levels
-! 
-! 1660 2015-09-21 08:15:16Z gronemeier
-! Bugfix: Definition of building/street canyon height if vertical grid stretching
-!         starts below the maximum topography height.
-! 
-! 1590 2015-05-08 13:56:27Z maronga
-! Bugfix: Added TRIM statements for character strings for LSM and radiation code
-! 
-! 1585 2015-04-30 07:05:52Z maronga
-! Further output for radiation model(s).
-!
-! 1575 2015-03-27 09:56:27Z raasch
-! adjustments for psolver-queries, output of seed_follows_topography
-!
-! 1560 2015-03-06 10:48:54Z keck
-! output for recycling y shift
-! 
-! 1557 2015-03-05 16:43:04Z suehring
-! output for monotonic limiter
-!
-! 1551 2015-03-03 14:18:16Z maronga
-! Added informal output for land surface model and radiation model. Removed typo.
-! 
-! 1496 2014-12-02 17:25:50Z maronga
-! Renamed: "radiation -> "cloud_top_radiation"
-! 
-! 1484 2014-10-21 10:53:05Z kanani
-! Changes due to new module structure of the plant canopy model:
-!   module plant_canopy_model_mod and output for new canopy model parameters 
-!   (alpha_lad, beta_lad, lai_beta,...) added,
-!   drag_coefficient, leaf_surface_concentration and scalar_exchange_coefficient
-!   renamed to canopy_drag_coeff, leaf_surface_conc and leaf_scalar_exch_coeff,
-!   learde renamed leaf_area_density.
-! Bugfix: DO-WHILE-loop for lad header information additionally restricted 
-! by maximum number of gradient levels (currently 10)
-!
-! 1482 2014-10-18 12:34:45Z raasch
-! information about calculated or predefined virtual processor topology adjusted
-!
-! 1468 2014-09-24 14:06:57Z maronga
-! Adapted for use on up to 6-digit processor cores
-! 
-! 1429 2014-07-15 12:53:45Z knoop
-! header exended to provide ensemble_member_nr if specified
-! 
-! 1376 2014-04-26 11:21:22Z boeske
-! Correction of typos
-! 
-! 1365 2014-04-22 15:03:56Z boeske
-! New section 'Large scale forcing and nudging':
-! output of large scale forcing and nudging information,
-! new section for initial profiles created
-! 
-! 1359 2014-04-11 17:15:14Z hoffmann
-! dt_sort_particles removed
-! 
-! 1353 2014-04-08 15:21:23Z heinze
-! REAL constants provided with KIND-attribute 
-! 
-! 1327 2014-03-21 11:00:16Z raasch
-! parts concerning iso2d and avs output removed,
-! -netcdf output queries
-!
-! 1324 2014-03-21 09:13:16Z suehring
-! Bugfix: module spectrum added
-!
-! 1322 2014-03-20 16:38:49Z raasch
-! REAL functions provided with KIND-attribute,
-! some 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 
-! 
-! 1308 2014-03-13 14:58:42Z fricke
-! output of the fixed number of output time levels
-! output_format adjusted for masked data if netcdf_data_format > 5
-!
-! 1299 2014-03-06 13:15:21Z heinze
-! output for using large_scale subsidence in combination 
-! with large_scale_forcing
-! reformatting, more detailed explanations
-!
-! 1241 2013-10-30 11:36:58Z heinze
-! output for nudging + large scale forcing from external file
-!
-! 1216 2013-08-26 09:31:42Z raasch
-! output for transpose_compute_overlap
-!
-! 1212 2013-08-15 08:46:27Z raasch
-! output for poisfft_hybrid removed
-!
-! 1179 2013-06-14 05:57:58Z raasch
-! output of reference_state, use_reference renamed use_single_reference_value
-!
-! 1159 2013-05-21 11:58:22Z fricke
-! +use_cmax
-!
-! 1115 2013-03-26 18:16:16Z hoffmann
-! descriptions for Seifert-Beheng-cloud-physics-scheme added
-!
-! 1111 2013-03-08 23:54:10Z raasch
-! output of accelerator board information
-! ibc_p_b = 2 removed
-!
-! 1108 2013-03-05 07:03:32Z raasch
-! bugfix for r1106
-!
-! 1106 2013-03-04 05:31:38Z raasch
-! some format changes for coupled runs
-!
-! 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)
-!
-! 1031 2012-10-19 14:35:30Z raasch
-! output of netCDF data format modified
-!
-! 1015 2012-09-27 09:23:24Z raasch
-! output of Adjustment of mixing length to the Prandtl mixing length at first
-! grid point above ground removed
-!
-! 1003 2012-09-14 14:35:53Z raasch
-! output of information about equal/unequal subdomain size removed
-!
-! 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_max, outflow_damping_width
-! +pt_damping_factor, pt_damping_width
-! +z0h
-!
-! 964 2012-07-26 09:14:24Z raasch
-! output of profil-related quantities removed
-!
-! 940 2012-07-09 14:31:00Z raasch
-! Output in case of simulations for pure neutral stratification (no pt-equation
-! solved)
-!
-! 927 2012-06-06 19:15:04Z raasch
-! output of masking_method for mg-solver
-!
-! 868 2012-03-28 12:21:07Z raasch
-! translation velocity in Galilean transformation changed to 0.6 * ug
-!
-! 833 2012-02-22 08:55:55Z maronga
-! Adjusted format for leaf area density
-!
-! 828 2012-02-21 12:00:36Z raasch
-! output of dissipation_classes + radius_classes
-!
-! 825 2012-02-19 03:03:44Z raasch
-! Output of cloud physics parameters/quantities complemented and restructured
-!
-! Revision 1.1  1997/08/11 06:17:20  raasch
-! Initial revision
-!
 !
 ! Description:
Index: /palm/trunk/SOURCE/indoor_model_mod.f90
===================================================================
--- /palm/trunk/SOURCE/indoor_model_mod.f90	(revision 4179)
+++ /palm/trunk/SOURCE/indoor_model_mod.f90	(revision 4180)
@@ -61,26 +61,4 @@
 ! Some interface calls moved to module_interface + cleanup
 ! 
-! 3597 2018-12-04 08:40:18Z maronga
-! Renamed t_surf_10cm to pt_10cm
-! 
-! 3593 2018-12-03 13:51:13Z kanani
-! Replace degree symbol by degree_C
-!
-! 3524 2018-11-14 13:36:44Z raasch
-! working precision added to make code Fortran 2008 conform
-! 
-! 3469 2018-10-30 20:05:07Z kanani
-! Initial revision (tlang, suehring, kanani, srissman)
-! 
-! 
-!
-! Authors:
-! --------
-! @author Tobias Lang
-! @author Jens Pfafferott
-! @author Farah Kanani-Suehring
-! @author Matthias Suehring
-! @author Sascha RiÃmann
-!
 !
 ! Description:
Index: /palm/trunk/SOURCE/inflow_turbulence.f90
===================================================================
--- /palm/trunk/SOURCE/inflow_turbulence.f90	(revision 4179)
+++ /palm/trunk/SOURCE/inflow_turbulence.f90	(revision 4180)
@@ -30,51 +30,4 @@
 ! Corrected "Former revisions" section
 ! 
-! 2696 2017-12-14 17:12:51Z kanani
-! Change in file header (GPL part)
-!
-! 2101 2017-01-05 16:42:31Z suehring
-!
-! 2000 2016-08-20 18:09:15Z knoop
-! Forced header and separation lines into 80 columns
-! 
-! 1960 2016-07-12 16:34:24Z suehring
-! Separate humidity and passive scalar
-! 
-! 1806 2016-04-05 18:55:35Z gronemeier
-! Added comments to variables and code segments. Removed code redundancies.
-! 
-! 1682 2015-10-07 23:56:08Z knoop
-! Code annotations made doxygen readable
-! 
-! 1615 2015-07-08 18:49:19Z suehring
-! Enable turbulent inflow for passive_scalar and humidity
-!
-! 1560 2015-03-06 10:48:54Z keck
-! Option recycling_yshift added. If this option is switched on, the turbulence
-! data, which is mapped from the recycling plane to the inflow, is shifted in
-! y direction (by ny * dy / 2 )
-! 
-! 1353 2014-04-08 15:21:23Z heinze
-! REAL constants provided with KIND-attribute 
-!
-! 1346 2014-03-27 13:18:20Z heinze
-! Bugfix: REAL constants provided with KIND-attribute especially in call of 
-! intrinsic function like MAX, MIN, SIGN
-!
-! 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 
-! 
-! 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)
-!
-! Initial version (2008/03/07)
 !
 ! Description:
Index: /palm/trunk/SOURCE/init_3d_model.f90
===================================================================
--- /palm/trunk/SOURCE/init_3d_model.f90	(revision 4179)
+++ /palm/trunk/SOURCE/init_3d_model.f90	(revision 4180)
@@ -82,539 +82,4 @@
 ! Rename subroutines for surface-data output
 ! 
-! 3636 2018-12-19 13:48:34Z raasch
-! nopointer option removed
-! 
-! 3609 2018-12-07 13:37:59Z suehring
-! Furhter correction in initialization of surfaces in cyclic-fill case
-! 
-! 3608 2018-12-07 12:59:57Z suehring
-! Bugfix in initialization of surfaces in cyclic-fill case
-! 
-! 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
-! Bugfix in initialization of turbulence generator
-! 
-! 3569 2018-11-27 17:03:40Z kanani
-! dom_dwd_user, Schrempf:
-! Remove uv exposure model code, this is now part of biometeorology_mod,
-! remove bio_init_arrays.
-!
-! 3547 2018-11-21 13:21:24Z suehring
-! variables documented
-! 
-! 3525 2018-11-14 16:06:14Z kanani
-! Changes related to clean-up of biometeorology (dom_dwd_user)
-! 
-! 3524 2018-11-14 13:36:44Z raasch
-! preprocessor directive added to avoid the compiler to complain about unused
-! variable
-! 
-! 3473 2018-10-30 20:50:15Z suehring
-! Add virtual measurement module
-! 
-! 3472 2018-10-30 20:43:50Z suehring
-! Add indoor model (kanani, srissman, tlang)
-! 
-! 3467 2018-10-30 19:05:21Z suehring
-! Implementation of a new aerosol module salsa.
-! 
-! 3458 2018-10-30 14:51:23Z kanani
-! from chemistry branch r3443, basit:
-! bug fixed in sums and sums_l for chemistry profile output
-! 
-! 3448 2018-10-29 18:14:31Z kanani
-! Add biometeorology
-! 
-! 3421 2018-10-24 18:39:32Z gronemeier
-! Initialize surface data output
-! 
-! 3415 2018-10-24 11:57:50Z suehring
-! Set bottom boundary condition for geostrophic wind components in inifor
-! initialization
-! 
-! 3347 2018-10-15 14:21:08Z suehring
-! - Separate offline nesting from large_scale_nudging_mod
-! - Improve the synthetic turbulence generator
-! 
-! 3298 2018-10-02 12:21:11Z kanani
-! Minor formatting (kanani)
-! Added CALL to the chem_emissions module (Russo)
-! 
-! 3294 2018-10-01 02:37:10Z raasch
-! allocate and set stokes drift velocity profiles
-! 
-! 3298 2018-10-02 12:21:11Z kanani
-! Minor formatting (kanani)
-! Added CALL to the chem_emissions module (Russo)
-! 
-! 3294 2018-10-01 02:37:10Z raasch
-! changes concerning modularization of ocean option
-! 
-! 3289 2018-09-28 10:23:58Z suehring
-! Introduce module parameter for number of inflow profiles
-! 
-! 3288 2018-09-28 10:23:08Z suehring
-! Modularization of all bulk cloud physics code components
-! 
-! 3241 2018-09-12 15:02:00Z raasch
-! unused variables removed
-! 
-! 3234 2018-09-07 13:46:58Z schwenkel
-! The increase of dots_num in case of radiation or land surface model must 
-! be done before user_init is called
-! 
-! 3183 2018-07-27 14:25:55Z suehring
-! Revise Inifor initialization
-! 
-! 3182 2018-07-27 13:36:03Z suehring
-! Added multi agent system
-! 
-! 3129 2018-07-16 07:45:13Z gronemeier
-! Move initialization call for nudging and 1D/3D offline nesting. 
-! Revise initialization with inifor data.
-! 
-! 3045 2018-05-28 07:55:41Z Giersch
-! Error messages revised
-! 
-! 3045 2018-05-28 07:55:41Z Giersch
-! Error messages revised
-! 
-! 3042 2018-05-25 10:44:37Z schwenkel
-! Changed the name specific humidity to mixing ratio
-! 
-! 3040 2018-05-25 10:22:08Z schwenkel
-! Add option to initialize warm air bubble close to surface
-! 
-! 3014 2018-05-09 08:42:38Z maronga
-! Bugfix: initialization of ts_value missing
-! 
-! 3011 2018-05-07 14:38:42Z schwenkel
-! removed redundant if statement
-! 
-! 3004 2018-04-27 12:33:25Z Giersch
-! precipitation_rate removed
-! 
-! 2995 2018-04-19 12:13:16Z Giersch
-! CALL radiation_control is not necessary during initialization because 
-! calculation of radiative fluxes at model start is done in radiation_init 
-! in any case 
-! 
-! 2977 2018-04-17 10:27:57Z kanani
-! Implement changes from branch radiation (r2948-2971) with minor modifications
-! (moh.hefny):
-! - set radiation_interactions according to the existence of urban/land vertical
-!   surfaces and trees to activiate RTM
-! - set average_radiation to TRUE if RTM is activiated
-! 
-! 2938 2018-03-27 15:52:42Z suehring
-! - Revise Inifor initialization for geostrophic wind components
-! - Initialize synthetic turbulence generator in case of Inifor initialization  
-!
-! 2936 2018-03-27 14:49:27Z suehring
-! Synchronize parent and child models after initialization.
-! Remove obsolete masking of topography grid points for Runge-Kutta weighted
-! tendency arrays.
-! 
-! 2920 2018-03-22 11:22:01Z kanani
-! Add call for precalculating apparent solar positions (moh.hefny)
-! 
-! 2906 2018-03-19 08:56:40Z Giersch
-! The variables read/write_svf_on_init have been removed. Instead ENVIRONMENT
-! variables read/write_svf have been introduced. Location_message has been 
-! added.
-! 
-! 2894 2018-03-15 09:17:58Z Giersch
-! Renamed routines with respect to reading restart data, file 13 is closed in
-! rrd_read_parts_of_global now
-! 
-! 2867 2018-03-09 09:40:23Z suehring
-! Further bugfix concerning call of user_init. 
-! 
-! 2864 2018-03-08 11:57:45Z suehring
-! Bugfix, move call of user_init in front of initialization of grid-point 
-! arrays
-! 
-! 2817 2018-02-19 16:32:21Z knoop
-! Preliminary gust module interface implemented
-! 
-! 2776 2018-01-31 10:44:42Z Giersch
-! Variable use_synthetic_turbulence_generator has been abbreviated
-! 
-! 2766 2018-01-22 17:17:47Z kanani
-! Removed preprocessor directive __chem
-! 
-! 2758 2018-01-17 12:55:21Z suehring
-! In case of spinup of land- and urban-surface model, do not mask wind velocity
-! at first computational grid level
-! 
-! 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
-! 
-! 2705 2017-12-18 11:26:23Z maronga
-! Bugfix for reading initial profiles from ls/nuding file
-!
-! 2701 2017-12-15 15:40:50Z suehring
-! Changes from last commit documented
-! 
-! 2700 2017-12-15 14:12:35Z suehring
-! Bugfix, missing initialization of surface attributes in case of 
-! inifor-initialization branch
-!
-! 2698 2017-12-14 18:46:24Z suehring
-! Bugfix in get_topography_top_index
-!
-! 2696 2017-12-14 17:12:51Z kanani
-! Change in file header (GPL part)
-! Implementation of uv exposure model (FK)
-! Moved initialisation of diss, e, kh, km to turbulence_closure_mod (TG)
-! Added chemical emissions (FK)
-! Initialize masking arrays and number-of-grid-points arrays before initialize
-! LSM, USM and radiation module 
-! Initialization with inifor (MS)
-! 
-! 2618 2017-11-16 15:37:30Z suehring
-! Reorder calls of init_surfaces.
-! 
-! 2564 2017-10-19 15:56:56Z Giersch
-! Variable wind_turbine was added to control_parameters.
-! 
-! 2550 2017-10-16 17:12:01Z boeske
-! Modifications to cyclic fill method and turbulence recycling method in case of
-! complex terrain simulations
-! 
-! 2513 2017-10-04 09:24:39Z kanani
-! Bugfix in storing initial scalar profile (wrong index)
-! 
-! 2350 2017-08-15 11:48:26Z kanani
-! Bugfix in nopointer version
-! 
-! 2339 2017-08-07 13:55:26Z gronemeier
-! corrected timestamp in header
-! 
-! 2338 2017-08-07 12:15:38Z gronemeier
-! Modularize 1D model
-! 
-! 2329 2017-08-03 14:24:56Z knoop
-! Removed temporary bugfix (r2327) as bug is properly resolved by this revision
-! 
-! 2327 2017-08-02 07:40:57Z maronga
-! Temporary bugfix
-! 
-! 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). 
-! 
-! 2277 2017-06-12 10:47:51Z kanani
-! Removed unused variable sums_up_fraction_l
-! 
-! 2270 2017-06-09 12:18:47Z maronga
-! dots_num must be increased when LSM and/or radiation is used
-! 
-! 2259 2017-06-08 09:09:11Z gronemeier
-! Implemented synthetic turbulence generator
-!
-! 2252 2017-06-07 09:35:37Z knoop
-! rho_air now depending on surface_pressure even in Boussinesq mode
-! 
-! 2233 2017-05-30 18:08:54Z suehring
-!
-! 2232 2017-05-30 17:47:52Z suehring
-! Adjustments to new topography and surface concept: 
-!   - Modify passed parameters for disturb_field
-!   - Topography representation via flags
-!   - Remove unused arrays. 
-!   - Move initialization of surface-related quantities to surface_mod
-! 
-! 2172 2017-03-08 15:55:25Z knoop
-! Bugfix: moved parallel random generator initialization into its module
-! 
-! 2118 2017-01-17 16:38:49Z raasch
-! OpenACC directives removed
-! 
-! 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
-! 
-! 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 support for urban surface model,
-! adjusted location_message in case of plant_canopy
-! 
-! 2000 2016-08-20 18:09:15Z knoop
-! Forced header and separation lines into 80 columns
-! 
-! 1992 2016-08-12 15:14:59Z suehring
-! Initializaton of scalarflux at model top
-! Bugfixes in initialization of surface and top salinity flux, top scalar and 
-! humidity fluxes
-! 
-! 1960 2016-07-12 16:34:24Z suehring
-! Separate humidity and passive scalar
-! Increase dimension for mean_inflow_profiles
-! Remove inadvertent write-statement
-! Bugfix, large-scale forcing is still not implemented for passive scalars
-!
-! 1957 2016-07-07 10:43:48Z suehring
-! flight module added
-!
-! 1920 2016-05-30 10:50:15Z suehring 
-! Initialize us with very small number to avoid segmentation fault during 
-! calculation of Obukhov length
-!
-! 1918 2016-05-27 14:35:57Z raasch
-! intermediate_timestep_count is set 0 instead 1 for first call of pres,
-! bugfix: initialization of local sum arrays are moved to the beginning of the
-!         routine because otherwise results from pres are overwritten
-!
-! 1914 2016-05-26 14:44:07Z witha
-! Added initialization of the wind turbine model
-!
-! 1878 2016-04-19 12:30:36Z hellstea
-! The zeroth element of weight_pres removed as unnecessary
-!
-! 1849 2016-04-08 11:33:18Z hoffmann
-! Adapted for modularization of microphysics.
-! precipitation_amount, precipitation_rate, prr moved to arrays_3d.
-! Initialization of nc_1d, nr_1d, pt_1d, qc_1d, qr_1d, q_1d moved to
-! bcm_init.
-!
-! 1845 2016-04-08 08:29:13Z raasch
-! nzb_2d replaced by nzb_u|v_inner
-!
-! 1833 2016-04-07 14:23:03Z raasch
-! initialization of spectra quantities moved to spectra_mod
-!
-! 1831 2016-04-07 13:15:51Z hoffmann
-! turbulence renamed collision_turbulence
-!
-! 1826 2016-04-07 12:01:39Z maronga
-! Renamed radiation calls.
-! Renamed canopy model calls.
-! 
-! 1822 2016-04-07 07:49:42Z hoffmann
-! icloud_scheme replaced by microphysics_*
-! 
-! 1817 2016-04-06 15:44:20Z maronga
-! Renamed lsm calls.
-!
-! 1815 2016-04-06 13:49:59Z raasch
-! zero-settings for velocities inside topography re-activated (was deactivated
-! in r1762)
-!
-! 1788 2016-03-10 11:01:04Z maronga
-! Added z0q. 
-! Syntax layout improved.
-!
-! 1783 2016-03-06 18:36:17Z raasch
-! netcdf module name changed + related changes
-!
-! 1764 2016-02-28 12:45:19Z raasch
-! bugfix: increase size of volume_flow_area_l and volume_flow_initial_l by 1
-!
-! 1762 2016-02-25 12:31:13Z hellstea
-! Introduction of nested domain feature
-!
-! 1738 2015-12-18 13:56:05Z raasch
-! calculate mean surface level height for each statistic region
-!
-! 1734 2015-12-02 12:17:12Z raasch
-! no initial disturbances in case that the disturbance energy limit has been
-! set zero
-!
-! 1707 2015-11-02 15:24:52Z maronga
-! Bugfix: transfer of Richardson number from 1D model to Obukhov length caused
-! devision by zero in neutral stratification
-! 
-! 1691 2015-10-26 16:17:44Z maronga
-! Call to init_surface_layer added. rif is replaced by ol and zeta.
-! 
-! 1682 2015-10-07 23:56:08Z knoop
-! Code annotations made doxygen readable
-! 
-! 1615 2015-07-08 18:49:19Z suehring
-! Enable turbulent inflow for passive_scalar and humidity
-!
-! 1585 2015-04-30 07:05:52Z maronga
-! Initialization of radiation code is now done after LSM initializtion
-!
-! 1575 2015-03-27 09:56:27Z raasch
-! adjustments for psolver-queries
-!
-! 1551 2015-03-03 14:18:16Z maronga
-! Allocation of land surface arrays is now done in the subroutine lsm_init_arrays,
-! which is part of land_surface_model.
-! 
-! 1507 2014-12-10 12:14:18Z suehring
-! Bugfix: set horizontal velocity components to zero inside topography
-!
-! 1496 2014-12-02 17:25:50Z maronga
-! Added initialization of the land surface and radiation schemes
-! 
-! 1484 2014-10-21 10:53:05Z kanani
-! Changes due to new module structure of the plant canopy model:
-! canopy-related initialization (e.g. lad and canopy_heat_flux) moved to new 
-! subroutine init_plant_canopy within the module plant_canopy_model_mod,
-! call of subroutine init_plant_canopy added.
-! 
-! 1431 2014-07-15 14:47:17Z suehring
-! var_d added, in order to normalize spectra.
-! 
-! 1429 2014-07-15 12:53:45Z knoop
-! Ensemble run capability added to parallel random number generator
-! 
-! 1411 2014-05-16 18:01:51Z suehring
-! Initial horizontal velocity profiles were not set to zero at the first vertical 
-! grid level in case of non-cyclic lateral boundary conditions. 
-! 
-! 1406 2014-05-16 13:47:01Z raasch
-! bugfix: setting of initial velocities at k=1 to zero not in case of a
-! no-slip boundary condition for uv
-! 
-! 1402 2014-05-09 14:25:13Z raasch
-! location messages modified
-! 
-! 1400 2014-05-09 14:03:54Z knoop
-! Parallel random number generator added
-! 
-! 1384 2014-05-02 14:31:06Z raasch
-! location messages added
-! 
-! 1361 2014-04-16 15:17:48Z hoffmann
-! tend_* removed
-! Bugfix: w_subs is not allocated anymore if it is already allocated
-! 
-! 1359 2014-04-11 17:15:14Z hoffmann
-! module lpm_init_mod added to use statements, because lpm_init has become a 
-! module
-! 
-! 1353 2014-04-08 15:21:23Z heinze
-! REAL constants provided with KIND-attribute 
-! 
-! 1340 2014-03-25 19:45:13Z kanani
-! REAL constants defined as wp-kind
-!
-! 1322 2014-03-20 16:38:49Z raasch
-! REAL constants defined as wp-kind
-! module interfaces removed
-!
-! 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 
-! 
-! 1316 2014-03-17 07:44:59Z heinze
-! Bugfix: allocation of w_subs
-!
-! 1299 2014-03-06 13:15:21Z heinze
-! Allocate w_subs due to extension of large scale subsidence in combination
-! with large scale forcing data (LSF_DATA)
-!
-! 1241 2013-10-30 11:36:58Z heinze
-! Overwrite initial profiles in case of nudging
-! Inititialize shf and qsws in case of large_scale_forcing
-!
-! 1221 2013-09-10 08:59:13Z raasch
-! +rflags_s_inner in copyin statement, use copyin for most arrays instead of
-! copy
-!
-! 1212 2013-08-15 08:46:27Z raasch
-! array tri is allocated and included in data copy statement
-!
-! 1195 2013-07-01 12:27:57Z heinze
-! Bugfix: move allocation of ref_state to parin.f90 and read_var_list.f90
-!
-! 1179 2013-06-14 05:57:58Z raasch
-! allocate and set ref_state to be used in buoyancy terms
-!
-! 1171 2013-05-30 11:27:45Z raasch
-! diss array is allocated with full size if accelerator boards are used
-!
-! 1159 2013-05-21 11:58:22Z fricke
-! -bc_lr_dirneu, bc_lr_neudir, bc_ns_dirneu, bc_ns_neudir
-!
-! 1153 2013-05-10 14:33:08Z raasch
-! diss array is allocated with dummy elements even if it is not needed
-! (required by PGI 13.4 / CUDA 5.0)
-!
-! 1115 2013-03-26 18:16:16Z hoffmann
-! unused variables removed
-!
-! 1113 2013-03-10 02:48:14Z raasch
-! openACC directive modified
-!
-! 1111 2013-03-08 23:54:10Z raasch
-! openACC directives added for pres
-! array diss allocated only if required
-!
-! 1092 2013-02-02 11:24:22Z raasch
-! unused variables removed
-!
-! 1065 2012-11-22 17:42:36Z hoffmann
-! allocation of diss (dissipation rate) in case of turbulence = .TRUE. added
-!
-! 1053 2012-11-13 17:11:03Z hoffmann
-! allocation and initialisation of necessary data arrays for the two-moment 
-! cloud physics scheme the two new prognostic equations (nr, qr):
-! +dr, lambda_r, mu_r, sed_*, xr, *s, *sws, *swst, *, *_p, t*_m, *_1, *_2, *_3, 
-! +tend_*, prr
-!
-! 1036 2012-10-22 13:43:42Z raasch
-! code put under GPL (PALM 3.9)
-!
-! 1032 2012-10-21 13:03:21Z letzel
-! save memory by not allocating pt_2 in case of neutral = .T.
-!
-! 1025 2012-10-07 16:04:41Z letzel
-! bugfix: swap indices of mask for ghost boundaries
-!
-! 1015 2012-09-27 09:23:24Z raasch
-! mask is set to zero for ghost boundaries
-!
-! 1010 2012-09-20 07:59:54Z raasch
-! cpp switch __nopointer added for pointer free version
-!
-! 1003 2012-09-14 14:35:53Z raasch
-! nxra,nyna, nzta replaced ny nxr, nyn, nzt
-!
-! 1001 2012-09-13 14:08:46Z raasch
-! all actions concerning leapfrog scheme removed
-!
-! 996 2012-09-07 10:41:47Z raasch
-! little reformatting
-!
-! 978 2012-08-09 08:28:32Z fricke
-! outflow damping layer removed
-! roughness length for scalar quantites z0h added
-! damping zone for the potential temperatur in case of non-cyclic lateral
-! boundaries added
-! initialization of ptdf_x, ptdf_y
-! initialization of c_u_m, c_u_m_l, c_v_m, c_v_m_l, c_w_m, c_w_m_l
-!
-! 849 2012-03-15 10:35:09Z raasch
-! init_particles renamed lpm_init
-!
-! 825 2012-02-19 03:03:44Z raasch
-! wang_collision_kernel renamed wang_kernel
-!
-! Revision 1.1  1998/03/09 16:22:22  raasch
-! Initial revision
-!
 !
 ! Description:
Index: /palm/trunk/SOURCE/init_advec.f90
===================================================================
--- /palm/trunk/SOURCE/init_advec.f90	(revision 4179)
+++ /palm/trunk/SOURCE/init_advec.f90	(revision 4180)
@@ -27,45 +27,4 @@
 ! Corrected "Former revisions" section
 ! 
-! 2696 2017-12-14 17:12:51Z kanani
-! Change in file header (GPL part)
-!
-! 2101 2017-01-05 16:42:31Z suehring
-!
-! 2000 2016-08-20 18:09:15Z knoop
-! Forced header and separation lines into 80 columns
-! 
-! 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 
-! 
-! 1346 2014-03-27 13:18:20Z heinze
-! Bugfix: REAL constants provided with KIND-attribute especially in call of 
-! intrinsic function like MAX, MIN, SIGN
-!
-! 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 
-! 
-! 1036 2012-10-22 13:43:42Z raasch
-! code put under GPL (PALM 3.9)
-!
-! 1003 2012-09-14 14:35:53Z raasch
-! obsolete variables removed
-!
-! 1001 2012-09-13 14:08:46Z raasch
-! all actions concerning upstream-spline-method removed
-!
-! Revision 1.1  1999/02/05 09:07:38  raasch
-! Initial revision
-!
 !
 ! Description:
Index: /palm/trunk/SOURCE/init_coupling.f90
===================================================================
--- /palm/trunk/SOURCE/init_coupling.f90	(revision 4179)
+++ /palm/trunk/SOURCE/init_coupling.f90	(revision 4180)
@@ -27,43 +27,4 @@
 ! references to mrun replaced by palmrun, and updated
 ! 
-! 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)
-!
-! 2669 2017-12-06 16:03:27Z raasch
-! file extension for vertical nesting changed to "_NV"
-! 
-! 2365 2017-08-21 14:59:59Z kanani
-! Vertical nesting implemented (SadiqHuq)
-! 
-! 2298 2017-06-29 09:28:18Z raasch
-! MPI2 coupling removed
-! 
-! 2101 2017-01-05 16:42:31Z suehring
-!
-! 2000 2016-08-20 18:09:15Z knoop
-! Forced header and separation lines into 80 columns
-!
-! 1808 2016-04-05 19:44:00Z raasch
-! routine local_getenv replaced by standard FORTRAN routine
-! 
-! 1682 2015-10-07 23:56:08Z knoop
-! Code annotations made doxygen readable 
-!
-! 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 
-!
-! 1036 2012-10-22 13:43:42Z raasch
-! code put under GPL (PALM 3.9)
-!
-! 222 2009-01-12 16:04:16Z letzel
-! Initial revision
 !
 ! Description:
Index: /palm/trunk/SOURCE/init_grid.f90
===================================================================
--- /palm/trunk/SOURCE/init_grid.f90	(revision 4179)
+++ /palm/trunk/SOURCE/init_grid.f90	(revision 4180)
@@ -67,316 +67,4 @@
 ! Comment added
 ! 
-! 3294 2018-10-01 02:37:10Z raasch
-! ocean renamed ocean_mode
-! 
-! 3241 2018-09-12 15:02:00Z raasch
-! unused variables removed
-! 
-! 3200 2018-08-17 14:46:36Z suehring
-! Bugfix, missing pre-processor directive
-! 
-! 3183 2018-07-27 14:25:55Z suehring
-! Rename variables in mesoscale-offline nesting mode
-! 
-! 3182 2018-07-27 13:36:03Z suehring
-! Bugfix in referencing buildings on orography top
-! 
-! 3139 2018-07-17 11:30:10Z Giersch
-! Bugfix in case of restarts and grid stretching
-! 
-! 3115 2018-07-10 12:49:26Z suehring
-! Referencing of buildings onto top of terrain - special treatment for bridges. 
-! 
-! 3103 2018-07-04 17:30:52Z suehring
-! Reference lowest terrain height to zero level
-! 
-! 3068 2018-06-12 14:49:41Z Giersch
-! New warning message concerning grid stretching has been introduced
-! 
-! 3066 2018-06-12 08:55:55Z Giersch
-! Bugfix in IF statement before error message
-! 
-! 3065 2018-06-12 07:03:02Z Giersch
-! New vertical stretching mechanism introduced
-! 
-! 3051 2018-05-30 17:43:55Z suehring
-! Minor bugfix concerning mapping 3D buildings on top of terrain
-! 
-! 3045 2018-05-28 07:55:41Z Giersch
-! Error messages revised
-! 
-! 3045 2018-05-28 07:55:41Z Giersch
-! Error messages revised
-! 
-! 2968 2018-04-13 11:52:24Z suehring
-! Bugfix in initialization in case of elevated model surface. Introduce
-! index for minimum topography-top. 
-! 
-! 2955 2018-04-09 15:14:01Z suehring
-! Improve topography filter routine and add ghost-point exchange for building 
-! ID and building type. 
-! 
-! 2927 2018-03-23 15:13:00Z suehring
-! Bugfix, setting boundary conditions for topography index array.
-! 
-! 2918 2018-03-21 15:52:14Z gronemeier
-! Moved init_mixing_length to turbulence_closure_mod.f90
-! 
-! 2897 2018-03-15 11:47:16Z suehring
-! Relax restrictions for topography input, terrain and building heights can be
-! input separately and are not mandatory any more. 
-! 
-! 2893 2018-03-14 16:20:52Z suehring
-! Revise informative message concerning filtered topography (1 grid-point 
-! holes). 
-! 
-! 2892 2018-03-14 15:06:29Z suehring
-! Bugfix, uninitialized array in case of single_building.
-! 
-! 2867 2018-03-09 09:40:23Z suehring
-! Revise mapping of 3D buildings onto onto orography.
-! 
-! 2823 2018-02-20 15:31:45Z Giersch
-! Set boundary conditions for 3D topography in case of non-cyclic boundary 
-! conditions
-! 
-! 2796 2018-02-08 12:25:39Z suehring
-! Bugfix in 3D building initialization
-! 
-! 2747 2018-01-15 12:44:17Z suehring
-! Bugfix, topography height is rounded to the nearest discrete grid level
-! 
-! 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
-! Change in file header (GPL part)
-! Revised topography input
-! Set nzb_max not for the entire nest domain, only for boundary PEs
-! Re-organize routine, split-up into several subroutines
-! Modularize poismg_noopt
-! Remove setting bit 26, 27, 28 in wall_flags_0, indicating former '_outer'
-! arrays (not required any more).  
-! Bugfix in generic tunnel setup (MS)
-! 
-! 2550 2017-10-16 17:12:01Z boeske
-! Set lateral boundary conditions for topography on all three ghost layers
-! 
-! 2478 2017-09-18 13:37:24Z suehring
-! Bugfix, correct flag for use_top
-! 
-! 2365 2017-08-21 14:59:59Z kanani
-! Vertical nesting implemented (SadiqHuq)
-! 
-! 2319 2017-07-20 17:33:17Z suehring
-! Remove print statements
-! 
-! 2318 2017-07-20 17:27:44Z suehring
-! Get topography top index via Function call 
-! 
-! 2317 2017-07-20 17:27:19Z suehring
-! Bugfixes in reading 3D topography from file
-! 
-! 2274 2017-06-09 13:27:48Z Giersch
-! Changed error messages
-! 
-! 2233 2017-05-30 18:08:54Z suehring
-!
-! 2232 2017-05-30 17:47:52Z suehring
-! - Adjustments according to new topography representation
-! - Bugfix: Move determination of nzb_max behind topography modification in 
-!   cell-edge case 
-! - Get rid off global arrays required for topography output
-! - Enable topography input via netcdf 
-! - Generic tunnel set-up added
-! 
-! 2200 2017-04-11 11:37:51Z suehring
-! monotonic_adjustment removed
-! 
-! 2169 2017-03-06 18:16:35Z suehring
-! Bugfix, move setting for topography grid convention to init_grid, else, if no
-! value is set, the simulation may abort in case of restarts
-! 
-! 2128 2017-01-23 15:00:03Z suehring
-! Bugfix in setting topography from file in case of ocean simulations
-! 
-! 2088 2016-12-19 16:30:25Z suehring
-! Bugfix in generic topography in case of ocean simulations
-! 
-! 2037 2016-10-26 11:15:40Z knoop
-! Anelastic approximation implemented
-! 
-! 2021 2016-10-07 14:08:57Z suehring
-! Bugfix: setting Neumann boundary conditions for topography required for 
-! topography flags in multigrid_noopt solver
-! 
-! 2000 2016-08-20 18:09:15Z knoop
-! Forced header and separation lines into 80 columns
-! 
-! 1994 2016-08-15 09:52:21Z suehring
-! Bugfix in definition of generic topography
-! 
-! 1982 2016-08-01 11:04:48Z suehring
-! Bugfix concering consistency check for topography
-! 
-! 1968 2016-07-18 12:01:49Z suehring
-! Changed: PE-wise reading of topography file in order to avoid global definition
-! of arrays nzb_local and nzb_tmp. Thereby, topography definition for single
-! buildings and street canyons has changed, as well as flag setting for 
-! multigrid scheme.
-!
-! Bugfix in checking l_grid anisotropy. 
-! Simplify initial computation of lwall and vertical_influence, i.e. remove 
-! nzb_s_inner as it is still zero at this point.
-! 
-! 1942 2016-06-14 12:18:18Z suehring
-! Topography filter implemented to fill holes resolved by only one grid point.
-! Initialization of flags for ws-scheme moved to advec_ws.  
-! 
-! 1931 2016-06-10 12:06:59Z suehring
-! Rename multigrid into multigrid_noopt and multigrid_fast into multigrid
-!
-! 1910 2016-05-26 06:49:46Z raasch
-! Bugfix: if topography is read from file, Neumann conditions are used for the
-! nzb_local array (instead of cyclic conditions) in case that non-cyclic
-! boundary conditions are switched on for the run
-!
-! 1902 2016-05-09 11:18:56Z suehring
-! Set topography flags for multigrid solver only (not for multigrid_fast)
-!
-! 1886 2016-04-21 11:20:47Z suehring
-! Bugfix: setting advection flags near walls
-! reformulated index values for nzb_v_inner
-! variable discriptions added in declaration block
-!
-! 1845 2016-04-08 08:29:13Z raasch
-! nzb_2d removed
-! 
-! 1804 2016-04-05 16:30:18Z maronga
-! Removed code for parameter file check (__check)
-!
-! 1779 2016-03-03 08:01:28Z raasch
-! coupling_char is trimmed at every place it occurs, because it can have
-! different length now
-!
-! 1762 2016-02-25 12:31:13Z hellstea
-! Introduction of nested domain feature
-!
-! 1743 2016-01-13 10:23:51Z raasch
-! Bugfix for calculation of nzb_s_outer and nzb_u_outer at north boundary of
-! total domain
-!
-! 1691 2015-10-26 16:17:44Z maronga
-! Renamed prandtl_layer to constant_flux_layer.
-! 
-! 1682 2015-10-07 23:56:08Z knoop
-! Code annotations made doxygen readable 
-! 
-! 1677 2015-10-02 13:25:23Z boeske
-! Bugfix: Ghost points are included in wall_flags_0 and wall_flags_00
-! 
-! 1675 2015-10-02 08:28:59Z gronemeier
-! Bugfix: Definition of topography grid levels
-! 
-! 1660 2015-09-21 08:15:16Z gronemeier
-! Bugfix: Definition of topography grid levels if vertical grid stretching
-!         starts below the maximum topography height.
-!
-! 1580 2015-04-10 13:43:49Z suehring
-! Bugfix: setting flags for 5th order scheme near buildings
-!
-! 1575 2015-03-27 09:56:27Z raasch
-! adjustments for psolver-queries
-!
-! 1557 2015-03-05 16:43:04Z suehring
-! Adjustment for monotoinic limiter
-!
-! 1418 2014-06-06 13:05:08Z fricke
-! Bugfix: Change if-condition for stretched grid in the ocean, with the old
-!          condition and a negative value for dz_stretch_level the condition
-!          was always true for the whole model domain
-!
-! 1409 2014-05-23 12:11:32Z suehring
-! Bugfix: set wall_flags_0 at inflow and outflow boundary also for i <= nxlu 
-! j <= nysv
-! 
-! 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 
-! 
-! 1221 2013-09-10 08:59:13Z raasch
-! wall_flags_00 introduced to hold bits 32-63,
-! additional 3D-flag arrays for replacing the 2D-index array nzb_s_inner in
-! loops optimized for openACC (pres + flow_statistics)
-!
-! 1092 2013-02-02 11:24:22Z raasch
-! unused variables removed
-!
-! 1069 2012-11-28 16:18:43Z maronga
-! bugfix: added coupling_char to TOPOGRAPHY_DATA to allow topography in the
-!         ocean model in case of coupled runs
-!
-! 1036 2012-10-22 13:43:42Z raasch
-! code put under GPL (PALM 3.9)
-!
-! 1015 2012-09-27 09:23:24Z raasch
-! lower index for calculating wall_flags_0 set to nzb_w_inner instead of
-! nzb_w_inner+1
-!
-! 996 2012-09-07 10:41:47Z raasch
-! little reformatting
-!
-! 978 2012-08-09 08:28:32Z fricke
-! Bugfix: nzb_max is set to nzt at non-cyclic lateral boundaries
-! Bugfix: Set wall_flags_0 for inflow boundary
-!
-! 927 2012-06-06 19:15:04Z raasch
-! Wall flags are not set for multigrid method in case of masking method
-!
-! 864 2012-03-27 15:10:33Z gryschka 
-! In case of ocean and Dirichlet bottom bc for u and v dzu_mg and ddzu_pres
-! were not correctly defined for k=1.
-!
-! 861 2012-03-26 14:18:34Z suehring
-! Set wall_flags_0. The array is needed for degradation in ws-scheme near walls,
-! inflow and outflow boundaries as well as near the bottom and the top of the
-! model domain.!
-! Initialization of nzb_s_inner and nzb_w_inner.
-! gls has to be at least nbgp to do not exceed the array bounds of nzb_local
-! while setting wall_flags_0
-!
-! 843 2012-02-29 15:16:21Z gryschka
-! In case of ocean and dirichlet bc for u and v at the bottom
-! the first u-level ist defined at same height as the first w-level
-!
-! 818 2012-02-08 16:11:23Z maronga
-! Bugfix: topo_height is only required if topography is used. It is thus now
-! allocated in the topography branch
-!
-! 809 2012-01-30 13:32:58Z maronga
-! Bugfix: replaced .AND. and .NOT. with && and ! in the preprocessor directives
-!
-! 807 2012-01-25 11:53:51Z maronga
-! New cpp directive "__check" implemented which is used by check_namelist_files
-!
-! Revision 1.1  1997/08/11 06:17:45  raasch
-! Initial revision (Testversion)
-!
 !
 ! Description:
Index: /palm/trunk/SOURCE/init_masks.f90
===================================================================
--- /palm/trunk/SOURCE/init_masks.f90	(revision 4179)
+++ /palm/trunk/SOURCE/init_masks.f90	(revision 4180)
@@ -38,125 +38,4 @@
 ! (M. Kurppa)
 ! 
-! 3582 2018-11-29 19:16:36Z suehring
-! add variable description
-! 
-! 3512 2018-11-09 18:09:51Z gronemeier
-! Bugfix: do not output ghost points if mask_x/y_loop is not specified
-! 
-! 3467 2018-10-30 19:05:21Z suehring
-! Implementation of a new aerosol module salsa.
-! 
-! 3435 2018-10-26 18:25:44Z gronemeier
-! Add checks for chemistry and radiation model
-! Set indices for terrain-following masked output
-! 
-! 3421 2018-10-24 18:39:32Z gronemeier
-! Renamed output variables
-! 
-! 3419 2018-10-24 17:27:31Z gronemeier
-! ocean renamed ocean_mode
-! 
-! 3274 2018-09-24 15:42:55Z knoop
-! Modularization of all bulk cloud physics code components
-! 
-! 3065 2018-06-12 07:03:02Z Giersch
-! dz_stretch_level was replaced by dz_stretch_level_start
-! 
-! 3049 2018-05-29 13:52:36Z Giersch
-! Error messages revised
-! 
-! 3045 2018-05-28 07:55:41Z Giersch
-! Error messages revised
-! 
-! 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)
-!
-! 2344 2017-08-09 11:00:34Z raasch
-! explicit setting of initial values for array domask required due to a bug
-! in the Cray compiler (appears only if option -eD is used)
-! 
-! 2301 2017-06-29 16:41:21Z gronemeier
-! Bugfix: set variable name length to global value
-! 
-! 
-! Implementation of new microphysic scheme: cloud_scheme = 'morrison' 
-! includes two more prognostic equations for cloud drop concentration (nc)  
-! and cloud water content (qc). 
-! 
-! 2271 2017-06-09 12:34:55Z sward
-! Changed error message
-! 
-! 2101 2017-01-05 16:42:31Z suehring
-!
-! 2031 2016-10-21 15:11:58Z knoop
-! renamed variable rho to rho_ocean
-! 
-! 2000 2016-08-20 18:09:15Z knoop
-! Forced header and separation lines into 80 columns
-! 
-! 1822 2016-04-07 07:49:42Z hoffmann
-! icloud_scheme replaced by microphysics_*
-!
-! 1804 2016-04-05 16:30:18Z maronga
-! Removed code for parameter file check (__check)
-!
-! 1783 2016-03-06 18:36:17Z raasch
-! netcdf module name changed + related changes
-!
-! 1682 2015-10-07 23:56:08Z knoop
-! Code annotations made doxygen readable 
-! 
-! 1438 2014-07-22 14:14:06Z heinze
-! +nr, qc, qr
-! 
-! 1414 2014-05-31 11:19:48Z gronemeier
-! Bugfix: first and last grid points as they appear in 3D volume data can now
-! be included to masked data output
-! 
-! 1353 2014-04-08 15:21:23Z heinze
-! REAL constants provided with KIND-attribute
-!
-! 1324 2014-03-21 09:13:16Z suehring
-! Bugfix: ONLY statement for module netcdf_control removed 
-!
-! 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
-!
-! 1186 2013-06-18 06:22:52Z raasch
-! bugfix: 0.0 replaced by zu(nzb) as the lowest default height level for masks,
-! because a zero value does not work in case of ocean runs
-!
-! 1036 2012-10-22 13:43:42Z raasch
-! code put under GPL (PALM 3.9)
-!
-! 1032 2012-10-21 13:03:21Z letzel
-! mask locations determined based on scalar positions
-!
-! 1031 2012-10-19 14:35:30Z raasch
-! netCDF4 without parallel file support implemented
-!
-! 996 2012-09-07 10:41:47Z raasch
-! little reformatting
-!
-! 978 2012-08-09 08:28:32Z fricke
-! +z0h*
-!
-! 809 2012-01-30 13:32:58Z maronga
-! Bugfix: replaced .AND. and .NOT. with && and ! in the preprocessor directives 
-!
-! 807 2012-01-25 11:53:51Z maronga
-! New cpp directive "__check" implemented which is used by check_namelist_files
-!
-! 410 2009-12-04 17:05:40Z letzel
-! Initial revision
-!
 !
 ! Description:
Index: /palm/trunk/SOURCE/init_pegrid.f90
===================================================================
--- /palm/trunk/SOURCE/init_pegrid.f90	(revision 4179)
+++ /palm/trunk/SOURCE/init_pegrid.f90	(revision 4180)
@@ -51,218 +51,4 @@
 ! variables documented
 ! 
-! 3552 2018-11-22 10:28:35Z suehring
-! Introduce new MPI-datatype for ghostpoint exchange of 2D 8-bit Integer arrays 
-! 
-! 3542 2018-11-20 17:04:13Z suehring
-! Bugfix in setting number of ghost layers in neutral case 
-! 
-! 3341 2018-10-15 10:31:27Z suehring
-! unused variables removed
-! 
-! 3183 2018-07-27 14:25:55Z suehring
-! Rename variables and boundary conditions in mesoscale-offline nesting mode
-! 
-! 3182 2018-07-27 13:36:03Z suehring
-! bugfix: wrong error number in r3057 revised
-! 
-! 3057 2018-06-05 09:03:41Z raasch
-! bugfix: check that nz is even in case that optimized multigrid is used
-! 
-! 3049 2018-05-29 13:52:36Z Giersch
-! Error messages revised
-! 
-! 3045 2018-05-28 07:55:41Z Giersch
-! Error messages revised
-! 
-! 2938 2018-03-27 15:52:42Z suehring
-! - No checks for domain decomposition in case of turbulence generator 
-!  (is done in stg module)
-! - Introduce ids to indicate lateral processors for turbulence generator
-! 
-! 2936 2018-03-27 14:49:27Z suehring
-! Variable use_synthetic_turbulence_generator has been abbreviated
-! 
-! 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)
-! 3D-Integer exchange on multigrid level (MS)
-! Forcing implemented (MS)
-! 
-! 2600 2017-11-01 14:11:20Z raasch
-! calculation of block-I/O quantitites removed (is now done in parin)
-! 
-! 2516 2017-10-04 11:03:04Z suehring
-! Remove tabs
-! 
-! 2514 2017-10-04 09:52:37Z suehring
-! Redundant preprocessor directives removed 
-! 
-! 2372 2017-08-25 12:37:32Z sward
-! Shifted cyclic boundary conditions implemented
-! 
-! 2365 2017-08-21 14:59:59Z kanani
-! Vertical nesting implemented (SadiqHuq)
-! 
-! 2300 2017-06-29 13:31:14Z raasch
-! host-specific settings removed
-! 
-! 2298 2017-06-29 09:28:18Z raasch
-! MPI2 related parts removed
-! 
-! 2271 2017-06-09 12:34:55Z sward
-! Error message changed
-! 
-! 2259 2017-06-08 09:09:11Z gronemeier
-! Implemented synthetic turbulence generator
-!
-! 2238 2017-05-31 16:49:16Z suehring
-! Remove unnecessary module load of pmc_interface
-! 
-! 2231 2017-05-30 16:44:33Z suehring
-!
-! 2200 2017-04-11 11:37:51Z suehring
-! monotonic_adjustment removed
-!
-! 2197 2017-03-24 02:25:00Z raasch
-! bugfix: do not allow odd values for nz at the coarsest grid level in case of
-! optimized multigrid solver
-!
-! 2180 2017-03-17 13:33:05Z hellstea
-! Checks to ensure (2178) that pdims match the grid dimensions in the
-! automatic determination of pdims are canceled as unnecessary
-! 
-! 2178 2017-03-17 11:07:39Z hellstea
-! Checks to ensure that pdims match the grid dimensions are added in the
-! automatic determination of pdims
-!
-! 2050 2016-11-08 15:00:55Z gronemeier
-! Implement turbulent outflow condition
-! 
-! 2000 2016-08-20 18:09:15Z knoop
-! Forced header and separation lines into 80 columns
-! 
-! 1968 2016-07-18 12:01:49Z suehring
-! Extent MPI-datatypes for exchange of 2D-INTEGER arrays on coarser multigrid
-! level  
-! 
-! 1964 2016-07-14 15:35:18Z hellstea
-! Bugfix: erroneous setting of nest_bound_l/r/s/n = .TRUE. for vertical nesting mode removed.
-!
-! 1923 2016-05-31 16:37:07Z boeske
-! Initial version of purely vertical nesting introduced. 
-! 
-! 1922 2016-05-31 16:36:08Z boeske
-! Bugfix: array transposition checks restricted to cases if a fourier 
-! transform is used , removed unused variable nnx_z
-! 
-! 1833 2016-04-07 14:23:03Z raasch
-! spectra related variables moved to spectra_mod
-!
-! 1815 2016-04-06 13:49:59Z raasch
-! cpp-directives for intel openmp bug removed
-!
-! 1804 2016-04-05 16:30:18Z maronga
-! Removed code for parameter file check (__check)
-!
-! 1779 2016-03-03 08:01:28Z raasch
-! changes regarding nested domain removed: virtual PE grid will be automatically
-! calculated for nested runs too
-!
-! 1764 2016-02-28 12:45:19Z raasch
-! cpp-statements for nesting removed
-!
-! 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 
-! 
-! 1677 2015-10-02 13:25:23Z boeske
-! New MPI-data types for exchange of 3D integer arrays.
-!
-! 1575 2015-03-27 09:56:27Z raasch
-! adjustments for psolver-queries, calculation of ngp_xz added
-!
-! 1565 2015-03-09 20:59:31Z suehring
-! Refine if-clause for setting nbgp. 
-!
-! 1557 2015-03-05 16:43:04Z suehring
-! Adjustment for monotonic limiter
-!
-! 1468 2014-09-24 14:06:57Z maronga
-! Adapted for use on up to 6-digit processor cores
-! 
-! 1435 2014-07-21 10:37:02Z keck
-! bugfix: added missing parameter coupling_mode_remote to ONLY-attribute
-! 
-! 1402 2014-05-09 14:25:13Z raasch
-! location messages modified
-! 
-! 1384 2014-05-02 14:31:06Z raasch
-! location messages added
-! 
-! 1353 2014-04-08 15:21:23Z heinze
-! REAL constants provided with KIND-attribute
-!
-! 1322 2014-03-20 16:38:49Z raasch
-! REAL functions provided with KIND-attribute
-!
-! 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
-!
-! 1304 2014-03-12 10:29:42Z raasch
-! bugfix: single core MPI runs missed some settings of transpose indices
-!
-! 1212 2013-08-15 08:46:27Z raasch
-! error message for poisfft_hybrid removed
-!
-! 1159 2013-05-21 11:58:22Z fricke
-! dirichlet/neumann and neumann/dirichlet removed
-!
-! 1139 2013-04-18 07:25:03Z raasch
-! bugfix for calculating the id of the PE carrying the recycling plane
-!
-! 1111 2013-03-08 23:54:10Z raasch
-! initialization of poisfft moved to module poisfft
-!
-! 1092 2013-02-02 11:24:22Z raasch
-! unused variables removed
-!
-! 1056 2012-11-16 15:28:04Z raasch
-! Indices for arrays n.._mg start from zero due to definition of arrays f2 and
-! p2 as automatic arrays in recursive subroutine next_mg_level
-!
-! 1041 2012-11-06 02:36:29Z raasch
-! a 2d virtual processor topology is used by default for all machines
-!
-! 1036 2012-10-22 13:43:42Z raasch
-! code put under GPL (PALM 3.9)
-!
-! 1003 2012-09-14 14:35:53Z raasch
-! subdomains must have identical size (grid matching = "match" removed)
-!
-! 1001 2012-09-13 14:08:46Z raasch
-! all actions concerning upstream-spline-method removed
-!
-! 978 2012-08-09 08:28:32Z fricke
-! dirichlet/neumann and neumann/dirichlet added
-! nxlu and nysv are also calculated for inflow boundary
-!
-! 809 2012-01-30 13:32:58Z maronga
-! Bugfix: replaced .AND. and .NOT. with && and ! in the preprocessor directives
-!
-! 807 2012-01-25 11:53:51Z maronga
-! New cpp directive "__check" implemented which is used by check_namelist_files
-!
-! Revision 1.1  1997/07/24 11:15:09  raasch
-! Initial revision
-!
 !
 ! Description:
Index: /palm/trunk/SOURCE/init_pt_anomaly.f90
===================================================================
--- /palm/trunk/SOURCE/init_pt_anomaly.f90	(revision 4179)
+++ /palm/trunk/SOURCE/init_pt_anomaly.f90	(revision 4180)
@@ -27,44 +27,4 @@
 ! Added topography flags
 ! 
-! 3035 2018-05-24 09:35:20Z schwenkel
-! Add option to initialize warm air bubble close to surface
-! 
-! 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)
-!
-! 2101 2017-01-05 16:42:31Z suehring
-!
-! 2000 2016-08-20 18:09:15Z knoop
-! Forced header and separation lines into 80 columns
-! 
-! 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,
-! revision history before 2012 removed,
-! comment fields (!:) to be used for variable explanations added to
-! all variable declaration statements
-!
-! 1036 2012-10-22 13:43:42Z raasch
-! code put under GPL (PALM 3.9)
-!
-! 861 2012-03-26 14:18:34Z suehring
-! Modification of the amplitude to obtain a visible temperature perturbation.
-!
-! Revision 1.1  1997/08/29 08:58:56  raasch
-! Initial revision
-!
 !
 ! Description:
Index: /palm/trunk/SOURCE/init_rankine.f90
===================================================================
--- /palm/trunk/SOURCE/init_rankine.f90	(revision 4179)
+++ /palm/trunk/SOURCE/init_rankine.f90	(revision 4180)
@@ -27,38 +27,4 @@
 ! Modularization of all bulk cloud physics code components
 ! 
-! 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)
-!
-! 2101 2017-01-05 16:42:31Z suehring
-!
-! 2000 2016-08-20 18:09:15Z knoop
-! Forced header and separation lines into 80 columns
-! 
-! 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,
-! revision history before 2012 removed,
-! comment fields (!:) to be used for variable explanations added to
-! all variable declaration statements
-!
-! 1036 2012-10-22 13:43:42Z raasch
-! code put under GPL (PALM 3.9)
-!
-! Revision 1.1  1997/08/11 06:18:43  raasch
-! Initial revision
-!
 !
 ! Description:
Index: /palm/trunk/SOURCE/init_slope.f90
===================================================================
--- /palm/trunk/SOURCE/init_slope.f90	(revision 4179)
+++ /palm/trunk/SOURCE/init_slope.f90	(revision 4180)
@@ -27,38 +27,4 @@
 ! Modularization of all bulk cloud physics code components
 ! 
-! 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)
-!
-! 2101 2017-01-05 16:42:31Z suehring
-!
-! 2000 2016-08-20 18:09:15Z knoop
-! Forced header and separation lines into 80 columns
-! 
-! 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,
-! revision history before 2012 removed,
-! comment fields (!:) to be used for variable explanations added to
-! all variable declaration statements
-!
-! 1036 2012-10-22 13:43:42Z raasch
-! code put under GPL (PALM 3.9)
-!
-! Revision 1.1  2000/04/27 07:06:24  raasch
-! Initial revision
-!
 !
 ! Description:
Index: /palm/trunk/SOURCE/lagrangian_particle_model_mod.f90
===================================================================
--- /palm/trunk/SOURCE/lagrangian_particle_model_mod.f90	(revision 4179)
+++ /palm/trunk/SOURCE/lagrangian_particle_model_mod.f90	(revision 4180)
@@ -71,118 +71,4 @@
 ! interval is smaller than the model timestep
 ! 
-! 2801 2018-02-14 16:01:55Z thiele
-! Changed lpm from subroutine to module.
-! Introduce particle transfer in nested models.
-! 
-! 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
-! Grid indices passed to lpm_boundary_conds. (responsible Philipp Thiele)
-!
-! 2696 2017-12-14 17:12:51Z kanani
-! Change in file header (GPL part)
-!
-! 2606 2017-11-10 10:36:31Z schwenkel
-! Changed particle box locations: center of particle box now coincides 
-! with scalar grid point of same index.
-! Renamed module and subroutines: lpm_pack_arrays_mod -> lpm_pack_and_sort_mod
-! lpm_pack_all_arrays -> lpm_sort_and_delete, lpm_pack_arrays -> lpm_pack
-! lpm_sort -> lpm_sort_timeloop_done
-! 
-! 2418 2017-09-06 15:24:24Z suehring
-! Major bugfixes in modeling SGS particle speeds (since revision 1359).
-! Particle sorting added to distinguish between already completed and 
-! non-completed particles.
-! 
-! 2263 2017-06-08 14:59:01Z schwenkel
-! Implemented splitting and merging algorithm
-! 
-! 2233 2017-05-30 18:08:54Z suehring
-!
-! 2232 2017-05-30 17:47:52Z suehring
-! Adjustments to new topography concept
-! 
-! 2000 2016-08-20 18:09:15Z knoop
-! Forced header and separation lines into 80 columns
-! 
-! 1936 2016-06-13 13:37:44Z suehring
-! Call routine for deallocation of unused memory.
-! Formatting adjustments
-! 
-! 1929 2016-06-09 16:25:25Z suehring
-! Call wall boundary conditions only if particles are in the vertical range of 
-! topography.
-!
-! 1822 2016-04-07 07:49:42Z hoffmann
-! Tails removed.
-!
-! Initialization of sgs model not necessary for the use of cloud_droplets and
-! use_sgs_for_particles.
-!
-! lpm_release_set integrated.
-!
-! Unused variabled removed.
-!
-! 1682 2015-10-07 23:56:08Z knoop
-! Code annotations made doxygen readable 
-! 
-! 1416 2014-06-04 16:04:03Z suehring
-! user_lpm_advec is called for each gridpoint.
-! Bugfix: in order to prevent an infinite loop, time_loop_done is set .TRUE. 
-! at the head of the do-loop.  
-! 
-! 1359 2014-04-11 17:15:14Z hoffmann
-! New particle structure integrated. 
-! Kind definition added to all floating point numbers.
-!
-! 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
-!
-! 1318 2014-03-17 13:35:16Z raasch
-! module interfaces removed
-!
-! 1036 2012-10-22 13:43:42Z raasch
-! code put under GPL (PALM 3.9)
-!
-! 851 2012-03-15 14:32:58Z raasch
-! Bugfix: resetting of particle_mask and tail mask moved from routine
-! lpm_exchange_horiz to here (end of sub-timestep loop)
-!
-! 849 2012-03-15 10:35:09Z raasch
-! original routine advec_particles split into several subroutines and renamed
-! lpm
-!
-! 831 2012-02-22 00:29:39Z raasch
-! thermal_conductivity_l and diff_coeff_l now depend on temperature and
-! pressure
-!
-! 828 2012-02-21 12:00:36Z raasch
-! fast hall/wang kernels with fixed radius/dissipation classes added,
-! particle feature color renamed class, routine colker renamed
-! recalculate_kernel,
-! lower limit for droplet radius changed from 1E-7 to 1E-8
-!
-! Bugfix: transformation factor for dissipation changed from 1E5 to 1E4
-!
-! 825 2012-02-19 03:03:44Z raasch
-! droplet growth by condensation may include curvature and solution effects,
-! initialisation of temporary particle array for resorting removed,
-! particle attributes speed_x|y|z_sgs renamed rvar1|2|3,
-! module wang_kernel_mod renamed lpm_collision_kernels_mod,
-! wang_collision_kernel renamed wang_kernel
-!
-!
-! Revision 1.1  1999/11/25 16:16:06  raasch
-! Initial revision
-!
 !
 ! Description:
Index: /palm/trunk/SOURCE/land_surface_model_mod.f90
===================================================================
--- /palm/trunk/SOURCE/land_surface_model_mod.f90	(revision 4179)
+++ /palm/trunk/SOURCE/land_surface_model_mod.f90	(revision 4180)
@@ -107,440 +107,4 @@
 ! nopointer option removed
 ! 
-! 3620 2018-12-11 12:29:43Z moh.hefny
-! update the 3d rad_lw_out array
-!
-! 3597 2018-12-04 08:40:18Z maronga 
-! Added pt_2m / theta_2m. Removed unncessary _eb strings.
-! 
-! 3486 2018-11-05 06:20:18Z maronga
-! Bugfix for liquid water treatment on pavements
-! 
-! 3361 2018-10-16 20:39:37Z knoop
-! Bugfix in initialization of soil properties from dynamic input file
-! 
-! 3347 2018-10-15 14:21:08Z suehring
-! Assign real value instead of integer
-! 
-! 3341 2018-10-15 10:31:27Z suehring
-! Modularization of all bulk cloud physics code components
-! 
-! 3271 2018-09-24 08:20:34Z suehring
-! Several bugfixes:
-! - Initialization of pt_surface array with soil temperature in the uppermost
-!   soil layer, else heat fluxes at the very first time step become quite large
-! - Default initialization of vertical surface elements in special case terrain
-!   height changes are larger than adjacent building heights. 
-! 
-! 3256 2018-09-17 12:20:07Z suehring
-! Enable initialization of z0q for vegetation, pavement and water surfaces via
-! namelist input. 
-! 
-! 3248 2018-09-14 09:42:06Z sward
-! Minor formating changes
-! 
-! 3246 2018-09-13 15:14:50Z sward
-! Added error handling for input namelist via parin_fail_message
-! 
-! 3241 2018-09-12 15:02:00Z raasch
-! unused variables removed
-! 
-! 3233 2018-09-07 13:21:24Z schwenkel
-! Adapted for the use of cloud_droplets 
-! 
-! 3222 2018-08-30 13:35:35Z suehring
-! - Introduction of surface array for type and its names
-! - Bugfix in intialization of pavement surfaces
-! 
-! 3215 2018-08-29 09:58:59Z suehring
-! Enable optional initialization of soil properties directly from dynamic 
-! input file.
-! 
-! 3209 2018-08-27 16:58:37Z suehring
-! Added maximum aerodynamic resistance of 300.
-! 
-! 3161 2018-07-23 09:30:10Z maronga
-! Increased roughness of asphalt surfaces to account for turbulence production
-! by traffic and other obstacles
-! 
-! 3152 2018-07-19 13:26:52Z suehring
-! Further adjustments for q_surface
-! 
-! 3147 2018-07-18 22:38:11Z maronga
-! Adjustments for new surface structure
-! 
-! 3146 2018-07-18 22:36:19Z maronga
-! Modified calculation of the surface resistance r_s
-! 
-! 3142 2018-07-17 15:27:45Z suehring
-! Minor bugfix for last commit.
-! 
-! 3138 2018-07-17 08:21:20Z maronga
-! Bugfix: limit roughness lengths in case of sea surface with constant_roughness
-! = .F.
-! 
-! 3136 2018-07-16 14:48:21Z suehring
-! Limit also roughness length for heat and moisture where necessary;
-! Limit surface resistance to positive values
-! 
-! 3133 2018-07-16 11:46:50Z maronga
-! Bugfix for last commit.
-! 
-! Some adjustments for pavement parameters
-! Limit magnus formula to avoid negative q_s (leads to model crash)
-! 
-! 3091 2018-06-28 16:20:35Z suehring
-! Add check for local roughness length not exceeding surface-layer height and
-! limit roughness length where necessary.
-! 
-! 3051 2018-05-30 17:43:55Z suehring
-! Bugfix in surface-element loops for pavement surfaces 
-! 
-! 3045 2018-05-28 07:55:41Z Giersch
-! Error messages revised
-! 
-! 3045 2018-05-28 07:55:41Z Giersch
-! Error messages revised and added
-! 
-! 3026 2018-05-22 10:30:53Z schwenkel
-! Changed the name specific humidity to mixing ratio, since we are computing
-! mixing ratios.
-! 
-! 3014 2018-05-09 08:42:38Z maronga
-! Bugfix: set some initial values
-! Bugfix: domain bounds of local_pf corrected
-! 
-! 3004 2018-04-27 12:33:25Z Giersch
-! Further allocation checks implemented (averaged data will be assigned to fill
-! values if no allocation happened so far) 
-! 
-! 2968 2018-04-13 11:52:24Z suehring
-! Bugfix in initialization in case of elevated model surface
-! 
-! 2963 2018-04-12 14:47:44Z suehring
-! - In initialization of surface types, consider the case that surface_fractions
-!   is not given in static input file.
-! - Introduce index for vegetation/wall, pavement/green-wall and water/window 
-!   surfaces, for clearer access of surface fraction, albedo, emissivity, etc. .
-! 
-! 2938 2018-03-27 15:52:42Z suehring
-! Initialization of soil moisture and temperature via Inifor-provided data also
-! in nested child domains, even if no dynamic input file is available for 
-! child domain. 1D soil profiles are received from parent model.  
-! 
-! 2936 2018-03-27 14:49:27Z suehring
-! renamed lsm_par to land_surface_parameters. Bugfix in message calls
-! 
-! 2921 2018-03-22 15:05:23Z Giersch
-! The activation of spinup has been moved to parin
-! 
-! 2894 2018-03-15 09:17:58Z Giersch
-! Calculations of the index range of the subdomain on file which overlaps with
-! the current subdomain are already done in read_restart_data_mod,
-! lsm_read/write_restart_data was renamed to lsm_r/wrd_local, USE kinds has 
-! been removed in several routines, variable named found has been
-! introduced for checking if restart data was found, reading of restart strings
-! has been moved completely to read_restart_data_mod, lsm_rrd_local is already
-! inside the overlap loop programmed in read_restart_data_mod, the marker ***
-! end lsm *** is not necessary anymore, strings and their respective lengths 
-! are written out and read now in case of restart runs to get rid of prescribed
-! character lengths, SAVE attribute added where necessary, deallocation and 
-! allocation of some arrays have been changed to take care of different restart
-! files that can be opened (index i)
-! 
-! 2881 2018-03-13 16:24:40Z suehring
-! Bugfix: wrong loop structure for soil moisture calculation
-! 
-! 2805 2018-02-14 17:00:09Z suehring
-! Bugfix in initialization of roughness over water surfaces
-! 
-! 2798 2018-02-09 17:16:39Z suehring
-! Minor bugfix for initialization of pt_surface
-! 
-! 2797 2018-02-08 13:24:35Z suehring
-! Move output of ghf to general 2D output to output ghf also at urban-type 
-! surfaces. 
-! Move restart data of ghf_av to read/write_3d_binary, as this is not a 
-! exclusively LSM variable anymore.   
-! 
-! 2765 2018-01-22 11:34:58Z maronga
-! Major bugfix in calculation of f_shf for vertical surfaces
-! 
-! 2735 2018-01-11 12:01:27Z suehring
-! output of r_a moved from land-surface to consider also urban-type surfaces
-! 
-! 2729 2018-01-09 11:22:28Z maronga
-! Separated deep soil temperature from soil_temperature array
-! 
-! 2724 2018-01-05 12:12:38Z maronga
-! Added security check for insufficient soil_temperature values
-! 
-! 2723 2018-01-05 09:27:03Z maronga
-! Bugfix for spinups (end_time was increased twice in case of LSM + USM runs)
-! 
-! 2718 2018-01-02 08:49:38Z maronga
-! Corrected "Former revisions" section
-! 
-! 2707 2017-12-18 18:34:46Z suehring
-! Changes from last commit documented
-! 
-! 2706 2017-12-18 18:33:49Z suehring
-! Bugfix, read surface temperature in case of restart runs.
-!
-! 2705 2017-12-18 11:26:23Z maronga
-! Bugfix in binary output (wrong sequence)
-! 
-! 2696 2017-12-14 17:12:51Z kanani
-! Change in file header (GPL part)
-! Bugfix: missing USE statement for calc_mean_profile
-! do not write surface temperatures onto pt array as this might cause 
-! problems with nesting (MS)
-! Revised calculation of pt1 and qv1 (now done in surface_layer_fluxes). Bugfix
-! in calculation of surface density (cannot be done via an surface non-air 
-! temperature) (BM)
-! Bugfix: g_d was NaN for non-vegetaed surface types (BM)
-! Bugfix initialization of c_veg and lai
-! Revise data output to enable _FillValues
-! Bugfix in calcultion of r_a and rad_net_l (MS)
-! Bugfix: rad_net is not updated in case of radiation_interaction and must thu
-! be calculated again from the radiative fluxes
-! Temporary fix for cases where no soil model is used on some PEs (BM)
-! Revised input and initialization of soil and surface paramters
-! pavement_depth is variable for each surface element
-! radiation quantities belong to surface type now
-! surface fractions initialized
-! Rename lsm_last_actions into lsm_wrd_subdomain (MS)
-! 
-! 2608 2017-11-13 14:04:26Z schwenkel
-! Calculation of magnus equation in external module (diagnostic_quantities_mod).
-! Adjust calculation of vapor pressure and saturation mixing ratio that it is
-! consistent with formulations in other parts of PALM.
-! 
-! 2575 2017-10-24 09:57:58Z maronga
-! Pavement parameterization revised
-! 
-! 2573 2017-10-20 15:57:49Z scharf
-! bugfixes in last_actions
-! 
-! 2548 2017-10-16 13:18:20Z suehring
-! extended by cloud_droplets option
-! 
-! 2532 2017-10-11 16:00:46Z scharf
-! bugfixes in data_output_3d
-! 
-! 2516 2017-10-04 11:03:04Z suehring
-! Remove tabs
-! 
-! 2514 2017-10-04 09:52:37Z suehring
-! upper bounds of cross section and 3d output changed from nx+1,ny+1 to nx,ny
-! no output of ghost layer data
-! 
-! 2504 2017-09-27 10:36:13Z maronga
-! Support roots and water under pavement. Added several pavement types.
-! 
-! 2476 2017-09-18 07:54:32Z maronga
-! Bugfix for last commit
-! 
-! 2475 2017-09-18 07:42:36Z maronga
-! Bugfix: setting of vegetation_pars for bare soil corrected.
-! 
-! 2354 2017-08-17 10:49:36Z schwenkel
-! minor bugfixes
-! 
-! 2340 2017-08-07 17:11:13Z maronga
-! Revised root_distribution tabel and implemented a pseudo-generic root fraction
-! calculation
-! 
-! 2333 2017-08-04 09:08:26Z maronga
-! minor bugfixes
-! 
-! 2332 2017-08-03 21:15:22Z maronga
-! bugfix in pavement_pars
-! 
-! 2328 2017-08-03 12:34:22Z maronga
-! Revised skin layer concept.
-! Bugfix for runs with pavement surface and humidity
-! Revised some standard values in vegetation_pars
-! Added emissivity and default albedo_type as variable to tables
-! Changed default surface type to vegetation
-! Revised input of soil layer configuration
-! 
-! 2307 2017-07-07 11:32:10Z suehring
-! Bugfix, variable names corrected
-! 
-! 2299 2017-06-29 10:14:38Z maronga
-! Removed pt_p from USE statement. Adjusted call to lsm_soil_model to allow
-! spinups without soil moisture prediction
-! 
-! 2298 2017-06-29 09:28:18Z raasch
-! type of write_binary changed from CHARACTER to LOGICAL
-! 
-! 2296 2017-06-28 07:53:56Z maronga
-! Bugfix in calculation of bare soil heat capacity.
-! Bugfix in calculation of shf
-! Added support for spinups
-! 
-! 2282 2017-06-13 11:38:46Z schwenkel
-! Bugfix for check of saturation moisture
-! 
-! 2273 2017-06-09 12:46:06Z sward
-! Error number changed
-! 
-! 2270 2017-06-09 12:18:47Z maronga
-! Revised parameterization of heat conductivity between skin layer and soil.
-! Temperature and moisture are now defined at the center of the layers.
-! Renamed veg_type to vegetation_type and pave_type to pavement_type_name
-! Renamed and reduced the number of look-up tables (vegetation_pars, soil_pars)
-! Revised land surface model initialization
-! Removed output of shf_eb and qsws_eb and removed _eb throughout code
-! Removed Clapp & Hornberger parameterization
-! 
-! 2249 2017-06-06 13:58:01Z sward
-! 
-! 2248 2017-06-06 13:52:54Z sward $
-! Error no changed
-!
-! 2246 2017-06-06 13:09:34Z sward
-! Error no changed
-!
-! Changed soil configuration to 8 layers. The number of soil layers is now
-! freely adjustable via the NAMELIST.
-! 
-! 2237 2017-05-31 10:34:53Z suehring
-! Bugfix in write restart data
-! 
-! 2233 2017-05-30 18:08:54Z suehring
-!
-! 2232 2017-05-30 17:47:52Z suehring
-! Adjustments to new topography and surface concept
-!   - now, also vertical walls are possible
-!   - for vertical walls, parametrization of r_a (aerodynamic resisistance) is 
-!     implemented. 
-!
-! Add check for soil moisture, it must not exceed its saturation value.
-! 
-! 2149 2017-02-09 16:57:03Z scharf
-! Land surface parameters II corrected for vegetation_type 18 and 19
-! 
-! 2031 2016-10-21 15:11:58Z knoop
-! renamed variable rho to rho_ocean
-! 
-! 2000 2016-08-20 18:09:15Z knoop
-! Forced header and separation lines into 80 columns
-! 
-! 1978 2016-07-29 12:08:31Z maronga
-! Bugfix: initial values of pave_surface and water_surface were not set.
-! 
-! 1976 2016-07-27 13:28:04Z maronga
-! Parts of the code have been reformatted. Use of radiation model output is
-! generalized and simplified. Added more output quantities due to modularization
-! 
-! 1972 2016-07-26 07:52:02Z maronga
-! Further modularization: output of cross sections and 3D data is now done in this
-! module. Moreover, restart data is written and read directly within this module.
-!
-! 
-! 1966 2016-07-18 11:54:18Z maronga
-! Bugfix: calculation of m_total in soil model was not set to zero at model start
-! 
-! 1949 2016-06-17 07:19:16Z maronga
-! Bugfix: calculation of qsws_soil_eb with precipitation = .TRUE. gave
-! qsws_soil_eb = 0 due to a typo
-! 
-! 1856 2016-04-13 12:56:17Z maronga
-! Bugfix: for water surfaces, the initial water surface temperature is set equal
-! to the intital skin temperature. Moreover, the minimum value of r_a is now
-! 1.0 to avoid too large fluxes at the first model time step
-! 
-! 1849 2016-04-08 11:33:18Z hoffmann
-! prr moved to arrays_3d
-!
-! 1826 2016-04-07 12:01:39Z maronga
-! Cleanup after modularization
-! 
-! 1817 2016-04-06 15:44:20Z maronga
-! Added interface for lsm_init_arrays. Added subroutines for check_parameters,
-! header, and parin. Renamed some subroutines.
-! 
-! 1788 2016-03-10 11:01:04Z maronga
-! Bugfix: calculate lambda_surface based on temperature gradient between skin
-! layer and soil layer instead of Obukhov length
-! Changed: moved calculation of surface specific humidity to energy balance solver
-! New: water surfaces are available by using a fixed sea surface temperature.
-! The roughness lengths are calculated dynamically using the Charnock 
-! parameterization. This involves the new roughness length for moisture z0q.
-! New: modified solution of the energy balance solver and soil model for
-! paved surfaces (i.e. asphalt concrete).
-! Syntax layout improved.
-! Changed: parameter dewfall removed.
-! 
-! 1783 2016-03-06 18:36:17Z raasch
-! netcdf variables moved to netcdf module
-!
-! 1757 2016-02-22 15:49:32Z maronga
-! Bugfix: set tm_soil_m to zero after allocation. Added parameter 
-! unscheduled_radiation_calls to control calls of the radiation model based on
-! the skin temperature change during one time step (preliminary version). Set 
-! qsws_soil_eb to zero at model start (previously set to qsws_eb). Removed MAX
-! function as it cannot be vectorized.
-! 
-! 1709 2015-11-04 14:47:01Z maronga
-! Renamed pt_1 and qv_1 to pt1 and qv1.
-! Bugfix: set initial values for t_surface_p in case of restart runs
-! Bugfix: zero resistance caused crash when using radiation_scheme = 'clear-sky'
-! Bugfix: calculation of rad_net when using radiation_scheme = 'clear-sky'
-! Added todo action
-!
-! 1697 2015-10-28 17:14:10Z raasch
-! bugfix: misplaced cpp-directive
-!
-! 1695 2015-10-27 10:03:11Z maronga
-! Bugfix: REAL constants provided with KIND-attribute in call of 
-! Replaced rif with ol
-! 
-! 1691 2015-10-26 16:17:44Z maronga
-! Added skip_time_do_lsm to allow for spin-ups without LSM. Various bugfixes:
-! Soil temperatures are now defined at the edges of the layers, calculation of
-! shb_eb corrected, prognostic equation for skin temperature corrected. Surface
-! fluxes are now directly transfered to atmosphere
-! 
-! 1682 2015-10-07 23:56:08Z knoop
-! Code annotations made doxygen readable 
-! 
-! 1590 2015-05-08 13:56:27Z maronga
-! Bugfix: definition of character strings requires same length for all elements
-! 
-! 1585 2015-04-30 07:05:52Z maronga
-! Modifications for RRTMG. Changed tables to PARAMETER type. 
-! 
-! 1571 2015-03-12 16:12:49Z maronga
-! Removed upper-case variable names. Corrected distribution of precipitation to 
-! the liquid water reservoir and the bare soil fractions.
-! 
-! 1555 2015-03-04 17:44:27Z maronga
-! Added output of r_a and r_s
-! 
-! 1553 2015-03-03 17:33:54Z maronga
-! Improved better treatment of roughness lengths. Added default soil temperature
-! profile
-! 
-! 1551 2015-03-03 14:18:16Z maronga
-! Flux calculation is now done in prandtl_fluxes. Added support for data output.
-! Vertical indices have been replaced. Restart runs are now possible. Some
-! variables have beem renamed. Bugfix in the prognostic equation for the surface
-! temperature. Introduced z0_eb and z0h_eb, which overwrite the setting of
-! roughness_length and z0_factor. Added Clapp & Hornberger parametrization for
-! the hydraulic conductivity. Bugfix for root fraction and extraction
-! calculation
-! 
-! intrinsic function MAX and MIN
-!
-! 1500 2014-12-03 17:42:41Z maronga
-! Corrected calculation of aerodynamic resistance (r_a).
-! Precipitation is now added to liquid water reservoir using LE_liq.
-! Added support for dry runs.
-! 
-! 1496 2014-12-02 17:25:50Z maronga
-! Initial revision
-! 
 !
 ! Description:
Index: /palm/trunk/SOURCE/large_scale_forcing_nudging_mod.f90
===================================================================
--- /palm/trunk/SOURCE/large_scale_forcing_nudging_mod.f90	(revision 4179)
+++ /palm/trunk/SOURCE/large_scale_forcing_nudging_mod.f90	(revision 4180)
@@ -30,51 +30,4 @@
 ! unused variables removed
 ! 
-! 3428 2018-10-25 12:32:05Z gronemeier
-! Rename td_XXX_lpt to td_XXX_thetal
-! 
-! 3347 2018-10-15 14:21:08Z suehring
-! Offline nesting parts are moved to an independent module nesting_offl_mod
-! 
-! 3341 2018-10-15 10:31:27Z suehring
-! ocean renamed ocean_mode
-! 
-! 3241 2018-09-12 15:02:00Z raasch
-! unused variables removed
-! 
-! 3183 2018-07-27 14:25:55Z suehring
-! * Adjustment to new Inifor version: 
-!   - No vertical interpolation/extrapolation of lateral boundary data required
-!     any more (Inifor can treat grid stretching now
-!   - Revise initialization in case of COSMO forcing 
-! * Rename variables and subroutines for offline nesting
-! 
-! 3182 2018-07-27 13:36:03Z suehring
-! Error messages revised
-! 
-! 3045 2018-05-28 07:55:41Z Giersch
-! Error messages revised 
-! 
-! 3026 2018-05-22 10:30:53Z schwenkel
-! Changed the name specific humidity to mixing ratio, since we are computing
-! mixing ratios.
-! 
-! 2970 2018-04-13 15:09:23Z suehring
-! Bugfix in old large-scale forcing mode
-! 
-! 2938 2018-03-27 15:52:42Z suehring
-! Further improvements for nesting in larger-scale model
-! 
-! 2863 2018-03-08 11:36:25Z suehring
-! Corrected "Former revisions" section
-! 
-! 2696 2017-12-14 17:12:51Z kanani
-! Change in file header (GPL part)
-! Forcing with larger-scale models implemented (MS)
-! 
-! 2342 2017-08-08 11:00:43Z boeske
-! fixed check if surface forcing data is available until end of simulation
-! 
-! 2320 2017-07-21 12:47:43Z suehring
-! initial revision
 !
 ! Description:
Index: /palm/trunk/SOURCE/local_stop.f90
===================================================================
--- /palm/trunk/SOURCE/local_stop.f90	(revision 4179)
+++ /palm/trunk/SOURCE/local_stop.f90	(revision 4180)
@@ -27,49 +27,4 @@
 ! Added an empty output string to stop keywords to clean up job protocol
 ! 
-! 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)
-!
-! 2371 2017-08-24 13:01:17Z kanani
-! Removed unnecessary USE of vertical_nesting_mod
-! 
-! 2365 2017-08-21 14:59:59Z kanani
-! Vertical nesting implemented (SadiqHuq)
-! 
-! 2101 2017-01-05 16:42:31Z suehring
-!
-! 2000 2016-08-20 18:09:15Z knoop
-! Forced header and separation lines into 80 columns
-! 
-! 1804 2016-04-05 16:30:18Z maronga
-! Removed code for parameter file check (__check)
-!
-! 1764 2016-02-28 12:45:19Z raasch
-! abort with MPI_COMM_WORLD added, nested runs always abort with MPI_ABORT
-!
-! 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
-!
-! 1320 2014-03-20 08:40:49Z raasch
-! ONLY-attribute added to USE-statements,
-! revision history before 2012 removed
-!
-! 1036 2012-10-22 13:43:42Z raasch
-! code put under GPL (PALM 3.9)
-!
-! 809 2012-01-30 13:32:58Z maronga
-! Bugfix: replaced .AND. and .NOT. with && and ! in the preprocessor directives
-!
-! 807 2012-01-25 11:53:51Z maronga
-! New cpp directive "__check" implemented which is used by check_namelist_files
-!
-! Revision 1.1  2002/12/19 15:46:23  raasch
-! Initial revision
-!
 !
 ! Description:
Index: /palm/trunk/SOURCE/local_system.f90
===================================================================
--- /palm/trunk/SOURCE/local_system.f90	(revision 4179)
+++ /palm/trunk/SOURCE/local_system.f90	(revision 4180)
@@ -27,26 +27,4 @@
 ! Corrected "Former revisions" section
 ! 
-! 2696 2017-12-14 17:12:51Z kanani
-! Change in file header (GPL part)
-!
-! 2101 2017-01-05 16:42:31Z suehring
-!
-! 2000 2016-08-20 18:09:15Z knoop
-! Forced header and separation lines into 80 columns
-! 
-! 1682 2015-10-07 23:56:08Z knoop
-! Code annotations made doxygen readable
-!
-! 1320 2014-03-20 08:40:49Z raasch
-! revision history before 2012 removed,
-! comment fields (!:) to be used for variable explanations added to
-! all variable declaration statements
-!
-! 1036 2012-10-22 13:43:42Z raasch
-! code put under GPL (PALM 3.9)
-!
-! Revision 1.1  1997/09/03 06:27:27  raasch
-! Initial revision
-!
 !
 ! Description:
Index: /palm/trunk/SOURCE/local_tremain.f90
===================================================================
--- /palm/trunk/SOURCE/local_tremain.f90	(revision 4179)
+++ /palm/trunk/SOURCE/local_tremain.f90	(revision 4180)
@@ -27,38 +27,4 @@
 ! Corrected "Former revisions" section
 ! 
-! 2696 2017-12-14 17:12:51Z kanani
-! Change in file header (GPL part)
-!
-! 2101 2017-01-05 16:42:31Z suehring
-!
-! 2000 2016-08-20 18:09:15Z knoop
-! Forced header and separation lines into 80 columns
-!
-! 1808 2016-04-05 19:44:00Z raasch
-! cpu measurements are done with standard FORTRAN routine on every machine
-!
-! 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,
-! revision history before 2012 removed,
-! comment fields (!:) to be used for variable explanations added to
-! all variable declaration statements
-!
-! 1036 2012-10-22 13:43:42Z raasch
-! code put under GPL (PALM 3.9)
-!
-! Revision 1.1  1998/03/18 20:14:47  raasch
-! Initial revision
-!
 !
 ! Description:
Index: /palm/trunk/SOURCE/local_tremain_ini.f90
===================================================================
--- /palm/trunk/SOURCE/local_tremain_ini.f90	(revision 4179)
+++ /palm/trunk/SOURCE/local_tremain_ini.f90	(revision 4180)
@@ -27,38 +27,4 @@
 ! Corrected "Former revisions" section
 ! 
-! 2696 2017-12-14 17:12:51Z kanani
-! Change in file header (GPL part)
-!
-! 2101 2017-01-05 16:42:31Z suehring
-!
-! 2000 2016-08-20 18:09:15Z knoop
-! Forced header and separation lines into 80 columns
-!
-! 1808 2016-04-05 19:44:00Z raasch
-! cpu measurements are done with standard FORTRAN routine on every machine
-!
-! 1682 2015-10-07 23:56:08Z knoop
-! Code annotations made doxygen readable
-!
-! 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
-!
-! 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)
-!
-! Revision 1.1  1998/03/18 20:15:05  raasch
-! Initial revision
-!
 !
 ! Description:
Index: /palm/trunk/SOURCE/message.f90
===================================================================
--- /palm/trunk/SOURCE/message.f90	(revision 4179)
+++ /palm/trunk/SOURCE/message.f90	(revision 4180)
@@ -38,65 +38,4 @@
 ! Minor formating changes
 ! 
-! 3247 2018-09-14 07:06:30Z sward
-! Subroutine description updated and parin_fail_message now also outputs
-! the line number in which namelist reading failed
-! 
-! 3246 2018-09-13 15:14:50Z sward
-! Added SUBROUTINE parin_fail_message for error handling of input namelists
-! 
-! 3241 2018-09-12 15:02:00Z raasch
-! unused variables removed
-! 
-! 3019 2018-05-13 07:05:43Z maronga
-! Temporaraly deactivate MPI_BARRIER as long as nested systems freeze due to
-! asynchronous calls of location_message.
-! 
-! 2961 2018-04-12 10:13:48Z suehring
-! Synchronize location message between parent and child. Message will be not 
-! flushed before all models finished their respective task.  
-! 
-! 2932 2018-03-26 09:39:22Z maronga
-! Corrected "Former revisions" section
-! 
-! 2696 2017-12-14 17:12:51Z kanani
-! Change in file header (GPL part)
-!
-! 2101 2017-01-05 16:42:31Z suehring
-!
-! 2000 2016-08-20 18:09:15Z knoop
-! Forced header and separation lines into 80 columns
-!
-! 1808 2016-04-05 19:44:00Z raasch
-! routine local_flush replaced by FORTRAN statement
-!
-! 1764 2016-02-28 12:45:19Z raasch
-! nest id added to header string, add linefeed to stdout to get messages better
-! seperated from the location messages,
-! in case of nested runs, location messages are given only by the root domain
-!
-! 1682 2015-10-07 23:56:08Z knoop
-! Code annotations made doxygen readable 
-! 
-! 1664 2015-09-23 06:18:12Z knoop
-! updated information_string_2 to meet the new server structure
-! 
-! 1402 2014-05-09 14:25:13Z raasch
-! formatting of messages modified
-! 
-! 1384 2014-05-02 14:31:06Z raasch
-! routine location_message added
-!
-! 1320 2014-03-20 08:40:49Z raasch
-! ONLY-attribute added to USE-statements,
-! kind-parameters added to all INTEGER and REAL declaration statements,
-! revision history before 2012 removed,
-! comment fields (!:) to be used for variable explanations added to
-! all variable declaration statements
-!
-! 1036 2012-10-22 13:43:42Z raasch
-! code put under GPL (PALM 3.9)
-!
-! 213 2008-11-13 10:26:18Z raasch
-! Initial revision
 !
 ! Description:
Index: /palm/trunk/SOURCE/mod_kinds.f90
===================================================================
--- /palm/trunk/SOURCE/mod_kinds.f90	(revision 4179)
+++ /palm/trunk/SOURCE/mod_kinds.f90	(revision 4180)
@@ -30,17 +30,4 @@
 ! Corrected "Former revisions" section
 ! 
-! 2696 2017-12-14 17:12:51Z kanani
-! Change in file header (GPL part)
-!
-! 2101 2017-01-05 16:42:31Z suehring
-!
-! 2000 2016-08-20 18:09:15Z knoop
-! Forced header and separation lines into 80 columns
-! 
-! 1682 2015-10-07 23:56:08Z knoop
-! Code annotations made doxygen readable
-!
-! 1306 2014-03-13 14:30:59Z raasch
-! Initial revision
 !
 ! Description:
Index: /palm/trunk/SOURCE/mod_particle_attributes.f90
===================================================================
--- /palm/trunk/SOURCE/mod_particle_attributes.f90	(revision 4179)
+++ /palm/trunk/SOURCE/mod_particle_attributes.f90	(revision 4180)
@@ -33,78 +33,4 @@
 ! time_prel replaced by last_particle_release_time
 ! 
-! 3405 2018-10-23 15:34:41Z raasch
-! bugfix: BIND attribute added to derived type particle_type
-! 
-! 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)
-!
-! 2375 2017-08-29 14:10:28Z schwenkel
-! molecular_weight_of_solute, molecular_weight_of_water, vanthoff removed and 
-! added in modules. Parameters are also used in bulk-microphysics.
-!
-! 2312 2017-07-14 20:26:51Z hoffmann
-! Aerosol initialization improved.
-!
-! 2305 2017-07-06 11:18:47Z hoffmann
-! Improved calculation of particle IDs.
-!
-! 2278 2017-06-12 13:08:18Z schwenkel
-! Added comments
-!
-! 2265 2017-06-08 16:58:28Z schwenkel
-! Unused variables removed.
-!
-! 2263 2017-06-08 14:59:01Z schwenkel
-! Implemented splitting and merging algorithm
-!
-! 2183 2017-03-17 14:29:15Z schwenkel
-!
-! 2182 2017-03-17 14:27:40Z schwenkel
-! Added parameters for simplified particle initialization.
-!
-! 2122 2017-01-18 12:22:54Z hoffmann
-! Calculation of particle ID
-! Particle attribute dvrp_psize renamed to user: this attribute can be used by
-! by the user to store any variable
-!
-! 2000 2016-08-20 18:09:15Z knoop
-! Forced header and separation lines into 80 columns
-!
-! 1936 2016-06-13 13:37:44Z suehring
-! +deallocate_memory, step_dealloc
-!
-! 1929 2016-06-09 16:25:25Z suehring
-! -sgs_wfu_par, sgs_wfv_par, sgs_wfw_par
-! + sgs_wf_par
-!
-! 1871 2016-04-15 11:46:09Z hoffmann
-! Initialization of aerosols added.
-!
-! 1849 2016-04-08 11:33:18Z hoffmann
-! bfactor, mass_of_solute, molecular_weight_of_solute, molecular_weight_of_water,
-! vanthoff added from modules
-!
-! 1831 2016-04-07 13:15:51Z hoffmann
-! palm_kernel removed, curvature_solution_effects added
-!
-! 1822 2016-04-07 07:49:42Z hoffmann
-! +collision_algorithm, all_or_nothing, average_impact
-! Tails removed.
-!
-! 1727 2015-11-20 07:22:02Z knoop
-! Bugfix: Cause of syntax warning gfortran preprocessor removed
-!
-! 1682 2015-10-07 23:56:08Z knoop
-! Code annotations made doxygen readable
-!
-! 1575 2015-03-27 09:56:27Z raasch
-! +seed_follows_topography
-!
-! 1359 2014-04-11 17:15:14Z hoffmann
-! new module containing all particle related variables
-! -dt_sort_particles
 !
 ! Description:
Index: /palm/trunk/SOURCE/model_1d_mod.f90
===================================================================
--- /palm/trunk/SOURCE/model_1d_mod.f90	(revision 4179)
+++ /palm/trunk/SOURCE/model_1d_mod.f90	(revision 4180)
@@ -27,134 +27,4 @@
 ! Modularization of all bulk cloud physics code components
 ! 
-! 3135 2018-07-16 14:43:04Z gronemeier
-! Bugfix: add +1 to c_3 according to Sogachev et al. (2012)
-! 
-! 3126 2018-07-13 15:13:54Z gronemeier
-! Bugfix: define c_0 = 0.03^0.25 = 0.416179145
-! 
-! 3083 2018-06-19 14:03:12Z gronemeier
-! Bugfixes:
-!   - preset te_diss and te_e to avoid runtime errors
-!   - implementation of buoyancy term to dissipation
-!     according to Sogachev et al. (2012)
-!   - where diss_p < 0 set diss_p = 0.1 diss
-!   - calculate progn eq(diss) starting from nzb+1
-! Changes:
-!   - add sig_e to TKE equation
-!   - adjust prognostic equation of diss
-!   - set model constants according to Koblitz (2013)
-!   - renamed c_m to c_0
-!   - rename l_black into l1d_init
-!   - calculate l_grid within init_1d_model and save it as l1d_init
-!   - calculate l1d according to DE85 if dissipation is a prognostic value
-!   - made annotations doxygen-readable
-! 
-! 3049 2018-05-29 13:52:36Z Giersch
-! Error messages revised
-! 
-! 3045 2018-05-28 07:55:41Z Giersch
-! Error message revised
-! 
-! 2965 2018-04-13 07:37:25Z scharf
-! adjusted format string for 1D run control output
-! 
-! 2918 2018-03-21 15:52:14Z gronemeier
-! - rename l_black into l1d_init
-! - calculate l_grid within init_1d_model and save it as l1d_init
-! 
-! 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)
-! implement TKE-e closure
-! modification of dissipation production according to Detering and Etling
-! reduced factor for timestep criterion to 0.125 and first dt to 1s (TG)
-! 
-! 2339 2017-08-07 13:55:26Z gronemeier
-! corrected timestamp in header
-! 
-! 2338 2017-08-07 12:15:38Z gronemeier
-! renamed init_1d_model to model_1d_mod and and formatted it as a module;
-! reformatted output of profiles
-! 
-! 2337 2017-08-07 08:59:53Z gronemeier
-! revised calculation of mixing length
-! removed rounding of time step
-! corrected calculation of virtual potential temperature
-! 
-! 2334 2017-08-04 11:57:04Z gronemeier
-! set c_m = 0.4 according to Detering and Etling (1985)
-! 
-! 2299 2017-06-29 10:14:38Z maronga
-! Removed german text
-!
-! 2101 2017-01-05 16:42:31Z suehring
-!
-! 2059 2016-11-10 14:20:40Z maronga
-! Corrected min/max values of Rif.
-!
-! 2000 2016-08-20 18:09:15Z knoop
-! Forced header and separation lines into 80 columns
-! 
-! 1960 2016-07-12 16:34:24Z suehring
-! Remove passive_scalar from IF-statements, as 1D-scalar profile is effectively
-! not used.
-! Formatting adjustment
-!
-! 1808 2016-04-05 19:44:00Z raasch
-! routine local_flush replaced by FORTRAN statement
-!
-! 1709 2015-11-04 14:47:01Z maronga
-! Set initial time step to 10 s to avoid instability of the 1d model for small
-! grid spacings
-!
-! 1697 2015-10-28 17:14:10Z raasch
-! small E- and F-FORMAT changes to avoid informative compiler messages about
-! insufficient field width
-!
-! 1691 2015-10-26 16:17:44Z maronga
-! Renamed prandtl_layer to constant_flux_layer. rif is replaced by ol and zeta.
-! 
-! 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 
-! 
-! 1346 2014-03-27 13:18:20Z heinze
-! Bugfix: REAL constants provided with KIND-attribute especially in call of 
-! intrinsic function like MAX, MIN, SIGN
-!
-! 1322 2014-03-20 16:38:49Z raasch
-! REAL functions provided with KIND-attribute
-!
-! 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 
-! 
-! 1036 2012-10-22 13:43:42Z raasch
-! code put under GPL (PALM 3.9)
-!
-! 1015 2012-09-27 09:23:24Z raasch
-! adjustment of mixing length to the Prandtl mixing length at first grid point
-! above ground removed
-!
-! 1001 2012-09-13 14:08:46Z raasch
-! all actions concerning leapfrog scheme removed
-!
-! 996 2012-09-07 10:41:47Z raasch
-! little reformatting
-!
-! 978 2012-08-09 08:28:32Z fricke
-! roughness length for scalar quantities z0h1d added
-!
-! Revision 1.1  1998/03/09 16:22:10  raasch
-! Initial revision
-!
 !
 ! Description:
Index: /palm/trunk/SOURCE/module_interface.f90
===================================================================
--- /palm/trunk/SOURCE/module_interface.f90	(revision 4179)
+++ /palm/trunk/SOURCE/module_interface.f90	(revision 4180)
@@ -133,7 +133,4 @@
 ! 3648 2019-01-02 16:35:46Z suehring
 ! Rename subroutines for surface-data output
-!
-! 3641 2018-12-23 22:10:01Z knoop
-! Initial implementation of the PALM module interface
 !
 !
Index: /palm/trunk/SOURCE/modules.f90
===================================================================
--- /palm/trunk/SOURCE/modules.f90	(revision 4179)
+++ /palm/trunk/SOURCE/modules.f90	(revision 4180)
@@ -70,684 +70,4 @@
 ! -surface_data_output +surface_output
 ! 
-! 3636 2018-12-19 13:48:34Z raasch
-! nopointer option removed
-! 
-! 3597 2018-12-04 08:40:18Z maronga
-! Added flag parameter do_output_at_2m for automatic output of 2m-temperature
-! 
-! 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
-! dom_dwd_user, Schrempf:
-! -uv_exposure flag, UV model is now part of biometeorology_mod
-! 
-! 3543 2018-11-20 17:06:15Z suehring
-! +type_x_byte, type_y_byte
-! 
-! 3542 2018-11-20 17:04:13Z suehring
-! +run_zone
-! 
-! 3473 2018-10-30 20:50:15Z suehring
-! +virtual_measurement
-! 
-! 3472 2018-10-30 20:43:50Z suehring
-! Add indoor model (kanani, srissman, tlang)
-! 
-! 3467 2018-10-30 19:05:21Z suehring
-! Add biometeorology
-! 
-! 3435 2018-10-26 18:25:44Z gronemeier
-! +mask_k_over_surface, mask_surface
-! 
-! 3422 2018-10-24 19:01:57Z gronemeier
-! bugfix: increase number of blanks in output string
-! 
-! 3421 2018-10-24 18:39:32Z gronemeier
-! Renamed output variables
-! +surface_data_output
-! 
-! 3355 2018-10-16 14:03:34Z knoop
-! (from branch resler)
-! Increase dimension of uv_heights etc.
-! 
-! 3302 2018-10-03 02:39:40Z raasch
-! +u/v_stokes_zu, u/v_stokes_zw
-! 
-! 3298 2018-10-02 12:21:11Z kanani
-! Minor formatting/clean-up (kanani)
-! Added some variables for time treatment (Russo)
-!
-! 3294 2018-10-01 02:37:10Z raasch
-! ocean renamed ocean_mode
-! 
-! 3289 2018-09-28 10:23:58Z suehring
-! +num_mean_inflow_profiles
-! 
-! 3288 2018-09-28 10:23:08Z suehring
-! Modularization of all bulk cloud physics code components
-! 
-! 3240 2018-09-12 12:04:40Z Giersch
-! max_pr_user_tmp has been defined as a control variable because it is not 
-! local anymore
-! 
-! 3235 2018-09-07 14:06:15Z sward
-! Added global variable dim_size_agtnum to own module. Necessary to avoid
-! circular dependency in agent output.
-! 
-! 3232 2018-09-07 12:21:44Z raasch
-! references to mrun replaced by palmrun, and updated
-! 
-! 3198 2018-08-15 09:23:10Z sward
-! Added multi_agent_system_end and multi_agent_system_start
-! 
-! 3183 2018-07-27 14:25:55Z suehring
-! Rename offline nesting variables:
-! -inflow_l, inflow_n, inflow_r, inflow_s, 
-!  nest_bound_l, nest_bound_n, nest_bound_r, nest_bound_s, nest_domain, forcing, 
-!  force_bound_l, force_bound_n, force_bound_r, force_bound_s, outflow_l, 
-!  outflow_n, outflow_r, outflow_s
-! +bc_dirichlet_l, bc_dirichlet_n, bc_dirichlet_n, bc_dirichlet_r, 
-!  bc_radiation_l, bc_radiation_n, bc_radiation_n, bc_radiation_r, child_domain 
-!  nesting_offline
-! 
-! 3182 2018-07-27 13:36:03Z suehring
-! Default value of dz_max has changed to a more uncommon value of 999 (value 
-! of dz_max can not be part of dz values when using new stretching procedure)
-! 
-! 3159 2018-07-20 11:20:01Z sward
-! Added multi agent system
-! 
-! 3157 2018-07-19 21:08:49Z maronga
-! added use_free_convection_scaling
-! 
-! 3129 2018-07-16 07:45:13Z gronemeier
-! add target attribute to km and kh, necessary for output in tcm_data_output_3d
-! 
-! 3120 2018-07-11 18:30:57Z gronemeier
-! +les_dynamic
-! 
-! 3083 2018-06-19 14:03:12Z gronemeier
-! set dt_3d = 0.01
-! 
-! 3065 2018-06-12 07:03:02Z Giersch
-! Variables concerning stretching introduced or revised
-! 
-! 3045 2018-05-28 07:55:41Z Giersch
-! z_max_do2d removed
-! 
-! 3026 2018-05-22 10:30:53Z schwenkel
-! Changed the name specific humidity to mixing ratio, since we are computing
-! mixing ratios.
-! 
-! 3014 2018-05-09 08:42:38Z maronga
-! Added default values of u_max, v_max, and w_max to avoid floating invalid
-! during spinup
-! 
-! 3004 2018-04-27 12:33:25Z Giersch
-! precipitation_rate removed
-! 
-! 3003 2018-04-23 10:22:58Z Giersch
-! The inversion height is defined as a global variable now which belongs to the 
-! module statistics 
-! 
-! 2968 2018-04-13 11:52:24Z suehring
-! +topo_min_level
-! 
-! 2964 2018-04-12 16:04:03Z raasch
-! *_time_count variables are all initialized with zero now
-! 
-! 2918 2018-03-21 15:52:14Z gronemeier
-! -l_grid, -l_wall
-! 
-! 2906 2018-03-19 08:56:40Z Giersch
-! Module control_parameters has been extended with ENVIRONMENT variables 
-! read/write_svf 
-! 
-! 2894 2018-03-15 09:17:58Z Giersch
-! _prerun flags were removed, Control paramters restart_string and length have
-! been added
-! 
-! 2881 2018-03-13 16:24:40Z suehring
-! Added flag for switching on/off calculation of soil moisture
-! 
-! 2797 2018-02-08 13:24:35Z suehring
-! +ghf_av
-! 
-! 2776 2018-01-31 10:44:42Z Giersch
-! Variable synthetic_turbulence_generator has been abbreviated and _prerun flags
-! for skipping module related restart data has beed introduced
-! 
-! 2765 2018-01-22 11:34:58Z maronga
-! Set initial value for time_since_reference_point
-! 
-! 2746 2018-01-15 12:06:04Z suehring
-! +plant_canopy
-! 
-! 2742 2018-01-12 14:59:47Z suehring
-! +tsurf_av
-! 
-! 2735 2018-01-11 12:01:27Z suehring
-! +r_a_av
-! 
-! 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)
-! Implementation of uv exposure model (FK)
-! + turbulence closure variables (control_parameters)
-! + arrays for prognostic equation of disspiation (arrays_3d)
-! + km_av, kh_av (TG)
-! Implementation of chemistry module (FK)
-! -lod
-! +topo_distinct (MS)
-! 
-! 2669 2017-12-06 16:03:27Z raasch
-! CONTIGUOUS-attribut added to 3d pointer arrays,
-! coupling_char extended to LEN=8
-! 
-! 2575 2017-10-24 09:57:58Z maronga
-! Renamed phi -> latitude, moved longitude from radiation model to modules
-! 
-! 2563 2017-10-19 15:36:10Z Giersch
-! Variable wind_turbine was added to control_parameters
-! 
-! 2550 2017-10-16 17:12:01Z boeske
-! complex_terrain namelist parameter added
-! 
-! 2508 2017-10-02 08:57:09Z suehring
-! Change default value for pt/q/s/sa_vertical_gradient_level
-! 
-! 2499 2017-09-22 16:47:58Z kanani
-! Default changed to fft_method = 'temperton-algorithm'
-! 
-! 2408 2017-09-05 15:47:53Z gronemeier
-! Changed default value of mg_cycles from -1 to 4.
-! 
-! 2375 2017-08-29 14:10:28Z schwenkel
-! Moved mass_of_solute, molecular_weight_of_solute, molecular_weight_of_water,
-! vanthoff back from particle attributes because they can now also be used in
-! bulk microphysics. 
-! Added aerosol_bulk, aerosol_nacl, aerosol_c3h4o4, aerosol_nh4no3
-! 
-! 2372 2017-08-25 12:37:32Z sward
-! y_shift namelist parameter added
-! 
-! 2339 2017-08-07 13:55:26Z gronemeier
-! corrected timestamp in header
-! 
-! 2338 2017-08-07 12:15:38Z gronemeier
-! moved 1d-model varaibles to own module model_1d_mod
-! 
-! 2337 2017-08-07 08:59:53Z gronemeier
-! -old_dt_1d
-! +l1d_diss
-! 
-! 2326 2017-08-01 07:23:24Z gronemeier
-! Updated variable descriptions
-! 
-! 2320 2017-07-21 12:47:43Z suehring
-! -ptnudge, qnudge, tnudge, td_lsa_lpt, td_lsa_q, td_sub_lpt, td_sub_q, ug_vert,
-!  vg_vert, unudge, vnudge, wsubs_vert, shf_surf, p_surf, pt_surf, q_surt,
-!  qsws_surf, tmp_tnudge, timenudge, time_surf, time_vert
-! 
-! 2300 2017-06-29 13:31:14Z raasch
-! default value for host changed to '????', default value for loop_optimization
-! changed to 'cache', default value for termination_time_needed set to 35.0
-! 
-! 2298 2017-06-29 09:28:18Z raasch
-! missing variable descriptions have been added,
-! type of write_binary changed from CHARACTER to LOGICAL
-! -plot_precision, plot_3d_precision, return_addres, return_username,
-! avs_data_file, exchange_mg, sendrecvcound_yxd, sendrecv_in_background,
-! port_name, profile_number, cross_ts_numbers, cross_ts_number_count,
-! dots_crossindex, dots_index, cross_ts_uymax, cross_ts_uymax_computed,
-! cross_ts_uymin, cross_ts_uymin_computed
-! 
-! 2296 2017-06-28 07:53:56Z maronga
-! Added parameters for model spinup
-! 
-! 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). 
-! 
-! 2277 2017-06-12 10:47:51Z kanani
-! Added doxygen comments for variables/parameters,
-! removed unused variables dissipation_control, do2d_xy_n, do2d_xz_n, do2d_yz_n, 
-! do3d_avs_n, lptnudge, lqnudge, lunudge, lvnudge, lwnudge, skip_do_avs, 
-! sums_up_fraction_l.
-! 
-! 2259 2017-06-08 09:09:11Z gronemeier
-! Implemented synthetic turbulence generator
-!
-! 2256 2017-06-07 13:58:08Z suehring
-! Change default value of zeta_min to -20
-! Increase dimension for wall_heatflux, etc. 
-! 
-! 2233 2017-05-30 18:08:54Z suehring
-!
-! 2232 2017-05-30 17:47:52Z suehring
-! Renamed wall_flags_0 and wall_flags_00 into advc_flags_1 and advc_flags_2, 
-! respectively. Moreover, introduced further flag array wall_flags_0. 
-!
-! Adjustments for new topography concept:
-!   -fwxm, fwxp, fwym, fwyp, fxm, fxp, fym, fyp, rif_wall, wall_e_x, wall_e_y, 
-!   -wall_v, wall_u, wall_w_x, wall_w_y, wall_qflux, wall_sflux, wall_nrflux, 
-!   -wall_qrflux
-!
-! Adjustments for new surface concept:
-!   +land_surface
-!   -z0, z0h, z0q, us, ts, qs, qsws, nrs, nrsws, qrs, qrsws, ssws, ss, saswsb 
-!   -nzb_diff_u, nzb_diff_v, nzt_diff
-!   -uswst, vswst, tswst, sswst, saswst, qswst, qrswst, nrswst, qswst_remote
-!
-! Generic tunnel setup:
-!   +tunnel_height, tunnel_length, tunnel_width_x, tunnel_width_y, 
-!   +tunnel_wall_depth
-!
-! Topography input via netcdf
-!   +lod
-! 
-! 2200 2017-04-11 11:37:51Z suehring
-! -monotonic_adjustment
-! 
-! 2174 2017-03-13 08:18:57Z maronga
-! Changed default values for most_method to 'newton'
-! 
-! 2118 2017-01-17 16:38:49Z raasch
-! -acc_rank, background_communication, i_left, i_right, j_south, j_north,
-!  num_acc_per_node, on_device
-! 
-! 2107 2017-01-09 12:21:49Z kanani
-! Preparation for doxygen comments (Giersch)
-! 
-! 2050 2016-11-08 15:00:55Z gronemeier
-! Implement turbulent outflow condition
-! 
-! 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 and rho_av to rho_ocean_av
-! 
-! 2011 2016-09-19 17:29:57Z kanani
-! +urban_surface, +lsf_exception, +varnamelength
-! 
-! 2007 2016-08-24 15:47:17Z kanani
-! Increased DIMENSION of data_output, data_output_user, do2d, do3d
-! 
-! 2000 2016-08-20 18:09:15Z knoop
-! Forced header and separation lines into 80 columns
-! 
-! 1992 2016-08-12 15:14:59Z suehring
-! +constant_top_scalarflux, top_scalarflux
-! default of bc_s_t adjusted
-! 
-! 1968 2016-07-18 12:01:49Z suehring
-! Changed dimension for MPI-datatypes type_x_int and type_y_int
-! 
-! 1960 2016-07-12 16:34:24Z suehring
-! Separate humidity and passive scalar
-! +bc_s_t_val, diss_s_s, diss_l_s, flux_s_s, flux_l_s, s, sp, s1, s2, s3, ssws_av, 
-!  s_init, s_surf, sums_wsss_ws_l, ss, ssws, sswst, ts_m, wall_sflux
-! +constant_scalarflux, ibc_s_b, ibc_s_t, s_vertical_gradient_level_ind
-!
-! Unused variables removed
-! -gamma_x, gamma_y, gamma_z, var_x, var_y, var_z
-!
-! Change initial values (in order to unify gradient calculation): 
-! pt_vertical_gradient_level, sa_vertical_gradient_level
-!
-! 1957 2016-07-07 10:43:48Z suehring
-! +fl_max, num_leg, num_var_fl, num_var_fl_user, var_fl_max, virtual_flight
-! 
-! 1918 2016-05-27 14:35:57Z raasch
-! default timestep switched from -1.0 to +1.0 in order to avoid wrong sign of
-! initially calculated divergence
-!
-! 1906 2016-05-24 14:38:08Z suehring
-! default value of mg_switch_to_pe0_level changed to -1
-!
-! 1849 2016-04-08 11:33:18Z hoffmann
-! bfactor, mass_of_solute, molecular_weight_of_solute, molecular_weight_of_water,
-! vanthoff moved to mod_particle_attributes.
-! dt_micro and several cloud_parameters moved to microphysics_mod.
-! 1d-microphysics profiles moved to microphysics_mod.
-!
-! 1845 2016-04-08 08:29:13Z raasch
-! -nzb_2d
-!
-! 1833 2016-04-07 14:23:03Z raasch
-! spectra parameter moved to spectra module
-!
-! 1831 2016-04-07 13:15:51Z hoffmann
-! curvature_solution_effects removed
-! turbulence renamed collision_turbulence, drizzle renamed 
-! cloud_water_sedimentation
-!
-! 1822 2016-04-07 07:49:42Z hoffmann
-! icloud_scheme removed. microphysics_sat_adjust, microphysics_kessler,
-! microphysics_seifert added.
-!
-! 1815 2016-04-06 13:49:59Z raasch
-! cpp-directive for decalpha removed
-!
-! 1808 2016-04-05 19:44:00Z raasch
-! MPI module used by default on all machines
-!
-! 1804 2016-04-05 16:30:18Z maronga
-! Removed code for parameter file check (__check)
-! 
-! 1788 2016-03-10 11:01:04Z maronga
-! Added roughness length for moisture (z0q)
-!
-! 1786 2016-03-08 05:49:27Z raasch
-! module spectrum moved to new separate module
-!
-! 1783 2016-03-06 18:36:17Z raasch
-! netcdf variables moved to the netcdf-interface module
-!
-! 1779 2016-03-03 08:01:28Z raasch
-! coupling_char extended to LEN=3
-!
-! 1764 2016-02-28 12:45:19Z raasch
-! some reformatting
-!
-! 1762 2016-02-25 12:31:13Z hellstea
-! +nest_* variables, size of volume_flow arrays increased by one element
-!
-! 1738 2015-12-18 13:56:05Z raasch
-! +mean_surface_level_height
-!
-! 1695 2015-10-27 10:03:11Z maronga
-! Removed rif (forgotten in last revision)
-! 
-! 1693 2015-10-27 08:35:45Z maronga
-! Renamed zp -> z_mo
-! 
-! 1691 2015-10-26 16:17:44Z maronga
-! Renamed Obukhov length. Added ol, removed rif. Increased number of profiles 
-! (pr_palm). Changed default values for dissipation_1d to 'detering' and 
-! (mixing_length_1d to 'blackadar'. Added most_method. rif_min and rif_max
-! renamed to zeta_min and zeta_max and new values assigned.
-! 
-! 1682 2015-10-07 23:56:08Z knoop
-! Code annotations made doxygen readable 
-! 
-! 1677 2015-10-02 13:25:23Z boeske
-! +ngp_yz_int, type_xz_int, type_yz_int
-! 
-! 1666 2015-09-23 07:31:10Z raasch
-! +user_interface_current_revision, user_interface_required_revision in
-! control_parameters
-!
-! 1639 2015-08-31 14:46:48Z knoop
-! Bugfix: string 'unknown' extended to match LEN=13 
-!
-! 1575 2015-03-27 09:56:27Z raasch
-! +ngp_xz
-!
-! 1560 2015-03-06 10:48:54Z keck
-! +recycling_yshift
-! 
-! 1557 2015-03-05 16:43:04Z suehring
-! +monotonic_adjustment
-! 
-! 1551 2015-03-03 14:18:16Z maronga
-! Increased pr_palm to 120. Increased length of dots_unit and dots_label to 13
-! digits. Increased length of domask, do2d, and do3d to 20 digits.
-! 
-! 1496 2014-12-02 17:25:50Z maronga
-! Renamed "radiation" -> "cloud_top_radiation"
-! 
-! 1484 2014-10-21 10:53:05Z kanani
-! Changes due to new module structure of the plant canopy model:
-!   canopy-model related parameters/variables moved to module 
-!   plant_canopy_model_mod
-! 
-! 1468 2014-09-24 14:06:57Z maronga
-! Adapted for use on up to 6-digit processor cores.
-! Increased identifier string length for user-defined quantities to 20.
-! 
-! 1450 2014-08-21 07:31:51Z heinze
-! ntnudge from 100 to 1000 increased to allow longer simulations
-! 
-! 1431 2014-07-15 14:47:17Z suehring
-! +var_d
-! 
-! 1429 2014-07-15 12:53:45Z knoop
-! +ensemble_member_nr to prepare the random_generator for ensemble runs
-!
-! 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
-! 
-! 1365 2014-04-22 15:03:56Z boeske
-! Usage of large scale forcing enabled:
-! increase pr_palm from 90 to 100 to allow for more standard profiles
-! + ngp_sums_ls, pt_lsa, pt_subs, q_lsa, q_subs, tmp_tnudge, sums_ls_l, 
-! use_subsidence_tendencies
-! 
-! 1361 2014-04-16 15:17:48Z hoffmann
-! tend_* removed
-! call_microphysics_at_all_substeps added
-! default of drizzle set to true
-! 
-! 1359 2014-04-11 17:15:14Z hoffmann
-! particle_attributes moved to mod_particle_attributes.f90
-! 
-! 1353 2014-04-08 15:21:23Z heinze
-! REAL constants provided with KIND-attribute
-! 
-! 1327 2014-03-21 11:00:16Z raasch
-! REAL constants defined as wp-kind
-! -avs_output, data_output_format, do3d_compress, iso2d_output, netcdf_output
-!
-! 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 cpulog moved to new separate module-file
-! interface for cpu_log removed
-!
-! 1314 2014-03-14 18:25:17Z suehring
-! + log_z_z0, number_of_sublayers, z0_av_global 
-! 1308 2014-03-13 14:58:42Z fricke
-! +ntdim_2d_xy, ntdim_2d_xz, ntdim_2d_yz, ntdim_3d
-!
-! 1257 2013-11-08 15:18:40Z raasch
-! set default values for grid indices of maximum velocity components
-! u|v|w_max_ijk
-!
-! 1241 2013-10-30 11:36:58Z heinze
-! Usage of nudging enabled 
-! +nudging, ntnudge, ptnudge, qnudge, tnudge, unudge, vnudge, wnudge
-! increase pr_palm from 80 to 90 to allow for more standard profiles
-!
-! Enable prescribed time depenend surface fluxes and geostrophic wind read in
-! from external file LSF_DATA
-! +large_scale_forcing, lsf_surf, lsf_vert, nlsf, time_surf, shf_surf, qsws_surf,
-!  pt_surf, q_surf, p_surf, time_vert, ug_vert, vg_vert, wsubs_vert
-!
-! 1221 2013-09-10 08:59:13Z raasch
-! wall_flags_0 changed to 32bit int, +wall_flags_00,
-! +rflags_s_inner, rflags_invers
-!
-! 1216 2013-08-26 09:31:42Z raasch
-! +transpose_compute_overlap,
-! several variables are now defined in the serial (non-parallel) case also
-!
-! 1212 2013-08-15 08:46:27Z raasch
-! +tri
-!
-! 1179 2013-06-14 05:57:58Z raasch
-! +reference_state, ref_state, use_initial_profile_as_reference, vpt_reference,
-! use_reference renamed use_single_reference_value
-!
-! 1159 2013-05-21 11:58:22Z fricke
-! -bc_lr_dirneu, bc_lr_neudir, bc_ns_dirneu, bc_ns_neudir
-! +use_cmax
-!
-! 1128 2013-04-12 06:19:32Z raasch
-! +background_communication, i_left, i_right, j_north, j_south, req, req_count,
-! send_receive, sendrecv_in_background, wait_stat
-!
-! 1115 2013-03-26 18:16:16Z hoffmann
-! unused variables removed
-!
-! 1113 2013-03-10 02:48:14Z raasch
-! +on_device
-!
-! 1111 2013-03-08 23:54:10Z raasch
-! +tric, nr_timesteps_this_run
-!
-! 1106 2013-03-04 05:31:38Z raasch
-! array_kind renamed precision_kind, pdims defined in serial code
-! bugfix: default value assigned to coupling_start_time
-!
-! 1095 2013-02-03 02:21:01Z raasch
-! FORTRAN error in r1092 removed
-!
-! 1092 2013-02-02 11:24:22Z raasch
-! character length in some derived type changed for better alignment
-!
-! 1065 2012-11-22 17:42:36Z hoffmann
-! + c_sedimentation, limiter_sedimentation, turbulence, a_1, a_2, a_3, b_1, b_2, 
-! + b_3, c_1, c_2, c_3, beta_cc
-!
-! bottom boundary condition of qr, nr changed from Dirichlet to Neumann
-!
-! 1053 2012-11-13 17:11:03Z hoffmann
-! necessary expansions according to the two new prognostic equations (nr, qr) 
-! of the two-moment cloud physics scheme:
-! +*_init, flux_l_*, diss_l_*, flux_s_*, diss_s_*, *sws, *swst, tend_*, *, *_p
-! +t*_m, *_1, *_2, *_3, *_av, bc_*_b, bc_*_t, ibc_*_b, ibc_*_t, bc_*_t_val, 
-! +*_vertical_gradient, *_surface_initial_change, *_vertical_gradient_level, 
-! +*_vertical_gradient_level_ind, *_surface, constant_waterflux_*,  
-! +cloud_scheme, icloud_scheme, surface_waterflux_*, sums_ws*s_ws_l, wall_*flux
-!
-! constants for the two-moment scheme:
-! +a_vent, a_term, b_vent, b_term, c_evap, c_term, cof, eps_sb, k_cc, k_cr, k_rr, 
-! +k_br, kappa_rr, kin_vis_air, mu_constant_value, nc, pirho_l, dpirho_l, rho_1,
-! +schmidt, schmidt_p_1d3, stp, x0, xmin, xmax, dt_precipitation, w_precipitation
-!
-! steering parameters for the two_moment scheme:
-! +mu_constant, ventilation_effect
-!
-! 1036 2012-10-22 13:43:42Z raasch
-! code put under GPL (PALM 3.9)
-!
-! 1031 2012-10-19 14:35:30Z raasch
-! +output_format_netcdf
-!
-! 1015 2012-09-27 09:23:24Z raasch
-! +acc_rank, num_acc_per_node,
-! -adjust_mixing_length
-!
-! 1010 2012-09-20 07:59:54Z raasch
-! pointer free version can be generated with cpp switch __nopointer
-!
-! 1003 2012-09-14 14:35:53Z raasch
-! -grid_matching, nxa, nya, etc., nnx_pe, nny_pe, spl_*
-!
-! 1001 2012-09-13 14:08:46Z raasch
-! -asselin_filter_factor, cut_spline_overshoot, dt_changed, last_dt_change,
-! last_dt_change_1d, long_filter_factor, overshoot_limit_*, ups_limit_*
-! several pointer/target arrays converted to normal ones
-!
-! 996 2012-09-07 10:41:47Z raasch
-! -use_prior_plot1d_parameters
-!
-! 978 2012-08-09 08:28:32Z fricke
-! +c_u_m, c_u_m_l, c_v_m, c_v_m_l, c_w_m, c_w_m_l,
-! +bc_lr_dirneu, bc_lr_neudir, bc_ns_dirneu, bc_ns_neudir
-! -km_damp_x, km_damp_y, km_damp_max, outflow_damping_width
-! +z0h, z0h_av, z0h_factor, z0h1d
-! +ptdf_x, ptdf_y, pt_damping_width, pt_damping_factor 
-!
-! 964 2012-07-26 09:14:24Z raasch
-! -cross_linecolors, cross_linestyles, cross_normalized_x, cross_normx_factor,
-! cross_normalized_y, cross_normy_factor, cross_pnc_local,
-! cross_profile_numbers, cross_profile_number_counter, cross_uxmax,
-! cross_uxmax_computed, cross_uxmax_normalized,
-! cross_uxmax_normalized_computed, cross_uxmin, cross_uxmin_computed,
-! cross_uxmin_normalized, cross_uxmin_normalized_computed, cross_uymax,
-! cross_uymin, cross_xtext, dopr_crossindex, dopr_label, linecolors, linestyles,
-! nz_do1d, profil_output, z_max_do1d, z_max_do1d_normalized
-!
-! 951 2012-07-19 14:22:52Z hoffmann
-! changing profile_columns and profile_rows
-!
-! 940 2012-07-09 14:31:00Z raasch
-! +neutral
-!
-! 927 2012-06-06 19:15:04Z raasch
-! +masking_method
-!
-! 880 2012-04-13 06:28:59Z raasch
-! gathered_size, subdomain_size moved to control_parameters
-!
-! 866 2012-03-28 06:44:41Z raasch
-! interface for global_min_max changed
-!
-! 861 2012-03-26 14:18:34Z suehring
-! +wall_flags_0
-! -boundary_flags
-! +nzb_max
-! +adv_sca_1, +adv_mom_1
-!
-! 849 2012-03-15 10:35:09Z raasch
-! +deleted_particles, deleted_tails, tr.._count_sum, tr.._count_recv_sum in
-! particle_attributes,
-! +de_dx, de_dy, de_dz in arrays_3d,
-! first_call_advec_particles renamed first_call_lpm
-!
-! 828 2012-02-21 12:00:36Z raasch
-! +dissipation_classes, radius_classes, use_kernel_tables,
-! particle feature color renamed class
-!
-! 825 2012-02-19 03:03:44Z raasch
-! +bfactor, curvature_solution_effects, eps_ros, molecular_weight_of_water,
-! vanthoff, -b_cond in cloud_parameters,
-! dopts_num increased to 29, particle attributes speed_x|y|z_sgs renamed
-! rvar1|2|3
-! wang_collision_kernel and turbulence_effects_on_collision replaced by
-! collision_kernel, hall_kernel, palm_kernel, wang_kernel
-!
-! 809 2012-01-30 13:32:58Z marongas
-! Bugfix: replaced .AND. and .NOT. with && and ! in the preprocessor directives
-!
-! 807 2012-01-25 11:53:51Z maronga
-! New cpp directive "__check" implemented which is used by check_namelist_files.
-! New parameter check_restart has been defined which is needed by 
-! check_namelist_files only.
-!
-! 805 2012-01-17 15:53:28Z franke
-! Bugfix collective_wait must be out of parallel branch for runs in serial mode
-!
-! 801 2012-01-10 17:30:36Z suehring
-! Dimesion of sums_wsus_ws_l, ! sums_wsvs_ws_l, sums_us2_ws_l, sums_vs2_ws_l,
-! sums_ws2_ws_l, sums_wspts_ws_l, sums_wsqs_ws_l, sums_wssas_ws_l increased.
-! for thread-safe summation in advec_ws.
-!
-! RCS Log replace by Id keyword, revision history cleaned up
-!
-! Revision 1.95  2007/02/11 13:18:30  raasch
-! version 3.1b (last under RCS control)
-!
-! Revision 1.1  1997/07/24 11:21:26  raasch
-! Initial revision
-!
-!
 !------------------------------------------------------------------------------!
 ! Description:
Index: /palm/trunk/SOURCE/multi_agent_system_mod.f90
===================================================================
--- /palm/trunk/SOURCE/multi_agent_system_mod.f90	(revision 4179)
+++ /palm/trunk/SOURCE/multi_agent_system_mod.f90	(revision 4180)
@@ -43,66 +43,4 @@
 ! unused variables removed
 ! 
-! 3602 2018-12-04 16:03:51Z sward
-! Added check for missing NAVIGATION_DATA input file
-! 
-! 3601 2018-12-04 16:00:04Z sward
-! Replace degree symbol by degree_C/degrees
-!
-! 3587 2018-11-30 13:52:19Z sward
-! Added output of agent substep time
-! 
-! 3525 2018-11-14 16:06:14Z kanani
-! Changes related to clean-up of biometeorology (dom_dwd_user)
-! 
-! 3448 2018-10-29 18:14:31Z kanani
-! Adjustment of biometeorology calls,
-! implement some agent biometeorology
-! 
-! 3274 2018-09-24 15:42:55Z knoop
-! Modularization of all bulk cloud physics code components
-! 
-! 3268 2018-09-21 13:45:37Z sward
-! Cleaned up agent pointer assignment in output routine
-! 
-! 3248 2018-09-14 09:42:06Z sward
-! Minor formating changes
-! 
-! 3246 2018-09-13 15:14:50Z sward
-! Added error handling for input namelist via parin_fail_message
-! 
-! 3241 2018-09-12 15:02:00Z raasch
-! unused variables removed
-! 
-! 3235 2018-09-07 14:06:15Z sward
-! Bugfix in output, added agent-number dimension and related messages and
-! input parameters, updated cpu logging, added mas_last_actions
-! 
-! 3201 2018-08-20 11:45:01Z sward
-! Bugfix, missing pre-processor directive. Set default 
-! read_agents_from_restartfile = .FALSE. restarts not yet implemented.
-! 
-! 3198 2018-08-15 09:23:10Z sward
-! Now using time_since_reference_point; moved multi_agent_system_start and
-! multi_agent_system_end to control_parameters; renamed NAMELIST agents_par to
-! agent_parameters
-! 
-! 3187 2018-07-31 10:32:34Z sward
-! Reworked agent pathfinding to avoid collisions with walls
-! 
-! 3165 2018-07-24 13:12:42Z sward
-! Added agent ID output
-! 
-! 3160 2018-07-20 11:52:56Z sward
-! Changed C_SIZEOF to STORAGE_SIZE
-! 
-! 3159 2018-07-20 11:20:01Z sward
-! Initial revision
-!
-! 
-!
-! Authors:
-! --------
-! @author sward
-!
 !
 ! Description:
Index: /palm/trunk/SOURCE/nesting_offl_mod.f90
===================================================================
--- /palm/trunk/SOURCE/nesting_offl_mod.f90	(revision 4179)
+++ /palm/trunk/SOURCE/nesting_offl_mod.f90	(revision 4180)
@@ -79,17 +79,4 @@
 ! 3704 2019-01-29 19:51:41Z suehring
 ! Check implemented for offline nesting in child domain 
-! 
-! 3413 2018-10-24 10:28:44Z suehring
-! Keyword ID set
-! 
-! 3404 2018-10-23 13:29:11Z suehring
-! Consider time-dependent geostrophic wind components in offline nesting
-! 
-! 
-! Initial Revision: 
-! - separate offline nesting from large_scale_nudging_mod
-! - revise offline nesting, adjust for usage of synthetic turbulence generator
-! - adjust Rayleigh damping depending on the time-depending atmospheric
-!   conditions
 ! 
 ! 
Index: /palm/trunk/SOURCE/netcdf_data_input_mod.f90
===================================================================
--- /palm/trunk/SOURCE/netcdf_data_input_mod.f90	(revision 4179)
+++ /palm/trunk/SOURCE/netcdf_data_input_mod.f90	(revision 4180)
@@ -101,235 +101,4 @@
 ! unused variables removed
 ! 
-! 3560 2018-11-23 09:20:21Z raasch
-! Some formatting adjustment
-! 
-! 3556 2018-11-22 14:11:57Z suehring
-! variables documented and unused variables removed
-! 
-! 3552 2018-11-22 10:28:35Z suehring
-! Revise ghost point exchange and resizing of input variables
-! 
-! 3542 2018-11-20 17:04:13Z suehring
-! - read optional attributes from file
-! - set default origin_time
-! 
-! 3518 2018-11-12 18:10:23Z suehring
-! Additional checks
-! 
-! 3516 2018-11-12 15:49:39Z gronemeier
-! bugfix: - difference in z coordinate between file and PALM must be <1e-6
-!         - output of error 553 for all PEs
-! 
-! 3498 2018-11-07 10:53:03Z gronemeier
-! Bugfix: print error message by processor which encounters the error
-! 
-! 3485 2018-11-03 17:09:40Z gronemeier
-! - get central meridian from origin_lon if crs does not exist
-! - set default origin_lon to 0
-! 
-! 3483 2018-11-02 14:19:26Z raasch
-! bugfix: misplaced directives for netCDF fixed
-! 
-! 3474 2018-10-30 21:07:39Z kanani
-! Add UV exposure model input (Schrempf)
-! 
-! 3472 2018-10-30 20:43:50Z suehring
-! Salsa implemented
-! 
-! 3464 2018-10-30 18:08:55Z kanani
-! Define coordinate reference system (crs) and read from input dataset
-! Revise default values for reference coordinates
-! 
-! 3459 2018-10-30 15:04:11Z gronemeier
-! from chemistry branch r3443, banzhafs, Russo:
-! Uncommented lines on dimension of surface_fractions
-! Removed par_emis_time_factor variable, moved to chem_emissions_mod
-! Initialized nspec and other emission variables at time of declaration
-! Modified EXPERT mode to PRE-PROCESSED mode
-! Introduced Chemistry static netcdf file
-! Added the routine for reading-in netcdf data for chemistry
-! Added routines to get_variable interface specific for chemistry files
-! 
-! 3429 2018-10-25 13:04:23Z knoop
-! add default values of origin_x/y/z
-! 
-! 3404 2018-10-23 13:29:11Z suehring
-! Consider time-dependent geostrophic wind components in offline nesting
-! 
-! 3376 2018-10-19 10:15:32Z suehring
-! Additional check for consistent building initialization implemented
-! 
-! 3347 2018-10-15 14:21:08Z suehring
-! Subroutine renamed
-! 
-! 3257 2018-09-17 17:11:46Z suehring
-! (from branch resler)
-! Formatting
-! 
-! 3298 2018-10-02 12:21:11Z kanani
-! Modified EXPERT mode to PRE-PROCESSED mode (Russo)
-! Introduced Chemistry static netcdf file (Russo)
-! Added the routine for reading-in netcdf data for chemistry (Russo)
-! Added routines to get_variable interface specific for chemistry files (Russo)
-!
-! 3257 2018-09-17 17:11:46Z suehring
-! Adjust checks for building_type and building_id, which is necessary after 
-! topography filtering (building_type and id can be modified by the filtering).
-! 
-! 3254 2018-09-17 10:53:57Z suehring
-! Additional check for surface_fractions and and checks for building_id and 
-! building_type extended.
-! 
-! 3241 2018-09-12 15:02:00Z raasch
-! unused variables removed
-! 
-! 3215 2018-08-29 09:58:59Z suehring
-! - Separate input of soil properties from input of atmospheric data. This 
-!   enables input of soil properties also in child domains without any 
-!   dependence on atmospheric input
-! - Check for missing initial 1D/3D data in dynamic input file
-! - Revise checks for matching grid spacing in model and input file 
-! - Bugfix, add netcdf4_parallel directive for collective read operation
-! - Revise error message numbers
-! 
-! 3209 2018-08-27 16:58:37Z suehring
-! Read zsoil dimension length only if soil variables are provided
-! 
-! 3183 2018-07-27 14:25:55Z suehring
-! Adjust input of dynamic driver according to revised Inifor version. 
-! Replace simulated_time by time_since_reference_point.
-! Rename variables in mesoscale-offline nesting mode.
-! 
-! 3182 2018-07-27 13:36:03Z suehring
-! Slightly revise check for surface_fraction in order to check only the relevant
-! fractions
-! 
-! 3103 2018-07-04 17:30:52Z suehring
-! New check for negative terrain heights
-! 
-! 3089 2018-06-27 13:20:38Z suehring
-! Revise call for message routine in case of local data inconsistencies.
-! 
-! 3054 2018-06-01 16:08:59Z gronemeier
-! Bugfix: force an MPI abort if errors occur while reading building heights
-! from ASCII file
-! 
-! 3053 2018-06-01 12:59:07Z suehring
-! Revise checks for variable surface_fraction
-! 
-! 3051 2018-05-30 17:43:55Z suehring
-! - Speed-up NetCDF input
-! - Revise input routines and remove NetCDF input via IO-blocks since this is 
-!   not working in parallel mode in case blocking collective read operations 
-!   are done 
-! - Temporarily revoke renaming of input variables in dynamic driver (tend_ug, 
-!   tend_vg, zsoil) in order to keep dynamic input file working with current 
-!   model version
-! - More detailed error messages created
-! 
-! 3045 2018-05-28 07:55:41Z Giersch
-! Error messages revised
-! 
-! 3041 2018-05-25 10:39:54Z gronemeier
-! Add data type for global file attributes
-! Add read of global attributes of static driver
-!
-! 3037 2018-05-24 10:39:29Z gronemeier
-! renamed 'depth' to 'zsoil'
-!
-! 3036 2018-05-24 10:18:26Z gronemeier
-! Revision of input vars according to UC2 data standard
-!  - renamed 'orography_2D' to 'zt'
-!  - renamed 'buildings_2D' to 'buildings_2d'
-!  - renamed 'buildings_3D' to 'buildings_3d'
-!  - renamed 'leaf_are_density' to 'lad'
-!  - renamed 'basal_are_density' to 'bad'
-!  - renamed 'root_are_density_lad' to 'root_area_dens_r'
-!  - renamed 'root_are_density_lsm' to 'root_area_dens_s'
-!  - renamed 'ls_forcing_ug' to 'tend_ug'
-!  - renamed 'ls_forcing_vg' to 'tend_vg'
-!
-! 3019 2018-05-13 07:05:43Z maronga
-! Improved reading speed of large NetCDF files
-!
-! 2963 2018-04-12 14:47:44Z suehring
-! - Revise checks for static input variables.
-! - Introduce index for vegetation/wall, pavement/green-wall and water/window
-!   surfaces, for clearer access of surface fraction, albedo, emissivity, etc. .
-!
-! 2958 2018-04-11 15:38:13Z suehring
-! Synchronize longitude and latitude between nested model domains, values are
-! taken from the root model.
-!
-! 2955 2018-04-09 15:14:01Z suehring
-! Extend checks for consistent setting of buildings, its ID and type.
-! Add log-points to measure CPU time of NetCDF data input.
-!
-! 2953 2018-04-09 11:26:02Z suehring
-! Bugfix in checks for initialization data
-!
-! 2947 2018-04-04 18:01:41Z suehring
-! Checks for dynamic input revised
-!
-! 2946 2018-04-04 17:01:23Z suehring
-! Bugfix for revision 2945, perform checks only if dynamic input file is
-! available.
-!
-! 2945 2018-04-04 16:27:14Z suehring
-! - Mimic for topography input slightly revised, in order to enable consistency
-!   checks
-! - Add checks for dimensions in dynamic input file and move already existing
-!   checks
-!
-! 2938 2018-03-27 15:52:42Z suehring
-! Initial read of geostrophic wind components from dynamic driver.
-!
-! 2773 2018-01-30 14:12:54Z suehring
-! Revise checks for surface_fraction.
-!
-! 2925 2018-03-23 14:54:11Z suehring
-! Check for further inconsistent settings of surface_fractions.
-! Some messages slightly rephrased and error numbers renamed.
-!
-! 2898 2018-03-15 13:03:01Z suehring
-! Check if each building has a type. Further, check if dimensions in static
-! input file match the model dimensions.
-!
-! 2897 2018-03-15 11:47:16Z suehring
-! Relax restrictions for topography input, terrain and building heights can be
-! input separately and are not mandatory any more.
-!
-! 2874 2018-03-13 10:55:42Z knoop
-! Bugfix: wrong placement of netcdf cpp-macros fixed
-!
-! 2794 2018-02-07 14:09:43Z knoop
-! Check if 3D building input is consistent to numeric grid.
-!
-! 2773 2018-01-30 14:12:54Z suehring
-! - Enable initialization with 3D topography.
-! - Move check for correct initialization in nesting mode to check_parameters.
-!
-! 2772 2018-01-29 13:10:35Z suehring
-! Initialization of simulation independent on land-surface model.
-!
-! 2746 2018-01-15 12:06:04Z suehring
-! Read plant-canopy variables independently on land-surface model usage
-!
-! 2718 2018-01-02 08:49:38Z maronga
-! Corrected "Former revisions" section
-!
-! 2711 2017-12-20 17:04:49Z suehring
-! Rename subroutine close_file to avoid double-naming.
-!
-! 2700 2017-12-15 14:12:35Z suehring
-!
-! 2696 2017-12-14 17:12:51Z kanani
-! Initial revision (suehring)
-!
-! Authors:
-! --------
-! @author Matthias Suehring
-! @author Edward C. Chan
-! @author Emanuele Russo
 !
 ! Description:
Index: /palm/trunk/SOURCE/netcdf_interface_mod.f90
===================================================================
--- /palm/trunk/SOURCE/netcdf_interface_mod.f90	(revision 4179)
+++ /palm/trunk/SOURCE/netcdf_interface_mod.f90	(revision 4180)
@@ -79,298 +79,4 @@
 ! Move the control parameter "salsa" from salsa_mod to control_parameters
 ! (M. Kurppa)
-!
-! 3582 2018-11-29 19:16:36Z suehring
-! dom_dwd_user, Schrempf:
-! Remove uv exposure model code, this is now part of biometeorology_mod
-!
-! 3529 2018-11-15 21:03:15Z gronemeier
-! - set time units
-! - add additional global attributes,
-! - add additinal variable attributes
-! - move definition of UTM and geographic coordinates into subroutine
-! - change fill_value
-!
-! 3525 2018-11-14 16:06:14Z kanani
-! Changes related to clean-up of biometeorology (dom_dwd_user)
-!
-! 3485 2018-11-03 17:09:40Z gronemeier
-! Write geographic coordinates as global attributes to file.
-!
-! 3467 2018-10-30 19:05:21Z suehring
-! - Salsa implemented
-! - Bugfix convert_utm_to...
-!
-! 3464 2018-10-30 18:08:55Z kanani
-! - Add variable crs to output files
-! - Add long_name to UTM coordinates
-! - Add latitude/longitude coordinates. For 3d and xy output, lon and lat are
-!   only written if parallel output is used.
-!
-! 3459 2018-10-30 15:04:11Z gronemeier
-! Adjustment of biometeorology calls
-!
-! 3435 2018-10-26 18:25:44Z gronemeier
-! Bugfix: corrected order of calls to define_netcdf_grid for masked output
-! Add vertical dimensions to masked output in case of terrain-following output
-!
-! 3421 2018-10-24 18:39:32Z gronemeier
-! Bugfix: move ocean output variables to ocean_mod
-! Renamed output variables
-! Add UTM coordinates to mask, 3d, xy, xz, yz output
-!
-! 3337 2018-10-12 15:17:09Z kanani
-! (from branch resler)
-! Add biometeorology
-!
-! 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
-! unused variables removed
-!
-! 3235 2018-09-07 14:06:15Z sward
-! Changed MAS output dimension id_dim_agtnum to be of defined size and no longer
-! unlimited. Also changed some MAS output variables to be of type float
-!
-! 3198 2018-08-15 09:23:10Z sward
-! Redefined MAS limited time dimension to fit usage of multi_agent_system_end
-!
-! 3187 2018-07-31 10:32:34Z sward
-! Changed agent output to precision NF90_DOUBLE
-!
-! 3165 2018-07-24 13:12:42Z sward
-! Added agent ID output
-!
-! 3159 2018-07-20 11:20:01Z sward
-! Added multi agent system
-!
-! 3049 2018-05-29 13:52:36Z Giersch
-! Error messages revised
-!
-! 3045 2018-05-28 07:55:41Z Giersch
-! Error messages revised, code adjusted to PALMs coding standards, CASE pt_ext
-! pt_new disabled, comment revised
-!
-! 3004 2018-04-27 12:33:25Z Giersch
-! .NOT. found in if-query added to account for variables found in tcm
-!
-! 2964 2018-04-12 16:04:03Z Giersch
-! Calculation of fixed number of output time levels for parallel netcdf output
-! has been moved completely to check_parameters
-!
-! 2932 2018-03-26 09:39:22Z maronga
-! Renamed inipar to initialization_parameters.
-!
-! 2817 2018-02-19 16:32:21Z knoop
-! Preliminary gust module interface implemented
-!
-! 2769 2018-01-25 09:22:24Z raasch
-! bugfix for calculating number of required output time levels in case of output
-! at the beginning of a restart run
-!
-! 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
-!
-! 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)
-! Implementation of uv exposure model (FK)
-! Implemented checks for turbulence_closure_mod (TG)
-! Implementation of chemistry module (FK)
-! Bugfix in setting netcdf grids for LSM variables
-! Enable setting of _FillValue attribute in output files (MS)
-!
-! 2512 2017-10-04 08:26:59Z raasch
-! upper bounds of cross section and 3d output changed from nx+1,ny+1 to nx,ny
-! no output of ghost layer data any more
-!
-! 2302 2017-07-03 14:07:20Z suehring
-! Reading of 3D topography using NetCDF data type NC_BYTE
-!
-! 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
-! Removed 2 timeseries (shf_eb + qsws_eb). Removed _eb suffixes
-!
-! 2265 2017-06-08 16:58:28Z schwenkel
-! Unused variables removed.
-!
-! 2239 2017-06-01 12:04:51Z suehring
-! Bugfix xy-output of land-surface variables
-!
-! 2233 2017-05-30 18:08:54Z suehring
-!
-! 2232 2017-05-30 17:47:52Z suehring
-! Adjustments to new topography and surface concept
-!
-! Topograpyh height arrays (zu_s_inner, zw_w_inner) are defined locally, output
-! only if parallel netcdf.
-!
-! Build interface for topography input:
-! - open file in read-only mode
-! - read global attributes
-! - read variables
-!
-! Bugfix in xy output (land-surface case)
-!
-! 2209 2017-04-19 09:34:46Z kanani
-! Added support for plant canopy model output
-!
-! 2189 2017-03-21 09:29:52Z raasch
-! bugfix: rho renamed rho_ocean for the cross section output
-!
-! 2109 2017-01-10 12:18:08Z raasch
-! bugfix: length of character string netcdf_var_name extended to avoid problems
-!         which appeared in restart runs due to truncation
-!
-! 2040 2016-10-26 16:58:09Z gronemeier
-! Increased number of possible statistic_regions to 99
-!
-! 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
-!
-! 2011 2016-09-19 17:29:57Z kanani
-! Flag urban_surface is now defined in module control_parameters,
-! changed prefix for urban surface model output to "usm_",
-! introduced control parameter varnamelength for LEN of trimvar.
-!
-! 2007 2016-08-24 15:47:17Z kanani
-! Added support for new urban surface model (temporary modifications of
-! SELECT CASE ( ) necessary, see variable trimvar),
-! increased DIMENSION of do2d_unit, do3d_unit, id_var_do2d, id_var_do3d,
-! increased LEN of char_cross_profiles, var_list, var_list_old
-!
-! 2000 2016-08-20 18:09:15Z knoop
-! Forced header and separation lines into 80 columns
-!
-! 1990 2016-08-12 09:54:36Z gronemeier
-! Bugfix: variable list was not written for time series output
-!
-! 1980 2016-07-29 15:51:57Z suehring
-! Bugfix, in order to steer user-defined output, setting flag found explicitly
-! to .F.
-!
-! 1976 2016-07-27 13:28:04Z maronga
-! Removed remaining 2D land surface quantities. Definition of radiation
-! quantities is now done directly in the respective module
-!
-! 1972 2016-07-26 07:52:02Z maronga
-! Bugfix: wrong units for lsm quantities.
-! Definition of grids for land surface quantities is now done directly in the
-! respective module.
-!
-! 1960 2016-07-12 16:34:24Z suehring
-! Additional labels and units for timeseries output of passive scalar-related
-! quantities
-!
-! 1957 2016-07-07 10:43:48Z suehring
-! flight module added
-!
-! 1850 2016-04-08 13:29:27Z maronga
-! Module renamed
-!
-!
-! 1833 2016-04-07 14:23:03Z raasch
-! spectrum renamed spectra_mod
-!
-! 1786 2016-03-08 05:49:27Z raasch
-! Bugfix: id_var_time_sp made public
-!
-! 1783 2016-03-06 18:36:17Z raasch
-! netcdf interface has been modularized, former file netcdf renamed to
-! netcdf_interface, creation of netcdf-dimensions and -variables moved to
-! specific new subroutines create_netcdf_dim and create_netcdf_var,
-! compression (deflation) of variables implemented,
-! ibmy special cpp directive removed
-!
-! 1745 2016-02-05 13:06:51Z gronemeier
-! Bugfix: recalculating ntdim_3d, ntdim_2d_xy/xz/yz when checking the
-!         extensibility of an existing file (only when using parallel NetCDF).
-!
-! 1691 2015-10-26 16:17:44Z maronga
-! Added output of radiative heating rates for RRTMG. Corrected output of
-! radiative fluxes
-!
-! 1682 2015-10-07 23:56:08Z knoop
-! Code annotations made doxygen readable
-!
-! 1596 2015-05-21 09:34:28Z gronemeier
-! Bugfix in masked data output. Read 'zu_3d' when trying to extend masked data
-!
-! 1551 2015-03-03 14:18:16Z maronga
-! Added support for land surface model and radiation model output. In the course
-! of this action a new vertical grid zs (soil) was introduced.
-!
-! 1353 2014-04-08 15:21:23Z heinze
-! REAL constants provided with KIND-attribute
-!
-! 1322 2014-03-20 16:38:49Z raasch
-! Forgotten ONLY-attribute added to USE-statements
-!
-! 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
-!
-! 1308 2014-03-13 14:58:42Z fricke
-! +ntime_count, oldmode
-! Adjust NF90_CREATE and NF90_OPEN statement for parallel output
-! To increase the performance for parallel output, the following is done:
-! - Limit time dimension
-! - Values of axis data are only written by PE0
-! - No fill is set for all variables
-! Check the number of output time levels for restart jobs
-!
-! 1206 2013-07-18 12:49:16Z witha
-! Bugfix: typo in preprocessor directive in subroutine open_write_netcdf_file
-!
-! 1092 2013-02-02 11:24:22Z raasch
-! unused variables removed
-!
-! 1053 2012-11-13 17:11:03Z hoffmann
-! +qr, nr, prr
-!
-! 1036 2012-10-22 13:43:42Z raasch
-! code put under GPL (PALM 3.9)
-!
-! 1031 2012-10-19 14:35:30Z raasch
-! netCDF4 without parallel file support implemented, new routines
-! create_netcdf_file and open_write_netcdf_file at end
-!
-! 992 2012-09-05 15:08:26Z hoffmann
-! Removal of the informative messages PA0352 and PA0353.
-!
-! 983 2012-08-21 14:17:57Z hoffmann
-! Bugfix in cross_profiles.
-!
-! 964 2012-07-26 09:14:24Z raasch
-! rev 951 and 959 reformatted
-!
-! 959 2012-07-24 13:13:41Z hoffmann
-! Bugfix in cross_profiles. It is not allowed to arrange more than 100
-! profiles with cross_profiles.
-!
-! 951 2012-07-19 14:22:52Z hoffmann
-! cross_profiles, profile_rows, profile_columns are written to netCDF header
-!
-! Revision 1.1  2005/05/18 15:37:16  raasch
-! Initial revision
 !
 !
Index: /palm/trunk/SOURCE/ocean_mod.f90
===================================================================
--- /palm/trunk/SOURCE/ocean_mod.f90	(revision 4179)
+++ /palm/trunk/SOURCE/ocean_mod.f90	(revision 4180)
@@ -42,34 +42,4 @@
 ! nopointer option removed
 ! 
-! 3614 2018-12-10 07:05:46Z raasch
-! unused variables removed
-! 
-! 3568 2018-11-27 16:07:59Z raasch
-! bugifx: calculate equation of state for seawater even if salinity is switched
-!         off
-! 
-! 3421 2018-10-24 18:39:32Z gronemeier
-! Renamed output variables
-! 
-! 3381 2018-10-19 13:09:06Z raasch
-! spin-up cooling for ocean surface implemented, see new parameter
-! surface_cooling_spinup_time
-! 
-! 3311 2018-10-05 12:34:56Z raasch
-! check if ocean mode is used for invalid combinations
-! 
-! 3303 2018-10-03 12:04:15Z raasch
-! salinity allowed to be switched off
-! 
-! 3302 2018-10-03 02:39:40Z raasch
-! Craik Leibovich force (Stokes drift) + wave breaking effect added
-! 
-! 3294 2018-10-01 02:37:10Z raasch
-! initial revision
-!
-!
-! Authors:
-! --------
-! @author Siegfried Raasch
 !
 ! Description:
Index: /palm/trunk/SOURCE/outflow_turbulence.f90
===================================================================
--- /palm/trunk/SOURCE/outflow_turbulence.f90	(revision 4179)
+++ /palm/trunk/SOURCE/outflow_turbulence.f90	(revision 4180)
@@ -26,15 +26,4 @@
 ! $Id: outflow_turbulence.f90 3241 2018-09-12 15:02:00Z raasch $
 ! unused variables removed
-! 
-! 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)
-!
-! 2101 2017-01-05 16:42:31Z suehring
-!
-! 2050 2016-11-08 15:00:55Z gronemeier
-! Initial version
 ! 
 !
Index: /palm/trunk/SOURCE/palm.f90
===================================================================
--- /palm/trunk/SOURCE/palm.f90	(revision 4179)
+++ /palm/trunk/SOURCE/palm.f90	(revision 4180)
@@ -46,236 +46,4 @@
 ! Rename subroutines for surface-data output
 ! 
-! 3524 2018-11-14 13:36:44Z raasch
-! unused variable removed
-! 
-! 3494 2018-11-06 14:51:27Z suehring
-! Last actions for surface output added
-! 
-! 3487 2018-11-05 07:18:02Z maronga
-! Updates version to 6.0
-! 
-! 3484 2018-11-02 14:41:25Z hellstea
-! pmci_ensure_nest_mass_conservation removed permanently
-! 
-! 3458 2018-10-30 14:51:23Z kanani
-! from chemistry branch r3443, forkel:
-! removed double do_emis check around CALL chem_init
-! replaced call to calc_date_and_time to init_date_and_time
-! 
-! 3337 2018-10-12 15:17:09Z kanani
-! (from branch resler)
-! Fix chemistry call
-! 
-! 3298 2018-10-02 12:21:11Z kanani
-! - Minor formatting (kanani)
-! - Added Call of date_and_time_init (Russo)
-! - Added Call of calc_date_and_time before call of init_3d where emissions 
-!   are initialized:
-!   we have to know the time indices to initialize emission values (Russo)
-! - Added Call of netcdf_data_input_chemistry_data (Russo)
-!
-! 3274 2018-09-24 15:42:55Z knoop
-! Modularization of all bulk cloud physics code components
-! 
-! 3258 2018-09-18 07:23:31Z Giersch
-! current revision for user interface has been changed to 3240
-! 
-! 3241 2018-09-12 15:02:00Z raasch
-! unused variables removed
-! 
-! 3235 2018-09-07 14:06:15Z sward
-! Added mas_last_actions call and multi_agent_system_mod dependency
-! 
-! 3232 2018-09-07 12:21:44Z raasch
-! references to mrun replaced by palmrun, and updated
-! 
-! 3182 2018-07-27 13:36:03Z suehring
-! Deduct spinup_time from RUN_CONTROL output of main 3d run 
-! (use time_since_reference_point instead of simulated_time)
-! 
-! 2951 2018-04-06 09:05:08Z kanani
-! Add log_point_s for pmci_init
-! 
-! 2903 2018-03-16 08:17:06Z hellstea
-! Nesting-related calls to pmci_ensure_nest_mass_conservation and pres after
-! the nest initialization are removed as they may create unwanted initial
-! perturbation in some cases.
-! 
-! 2894 2018-03-15 09:17:58Z Giersch
-! Modified todo list, _write_restart_data/_last_actions has been renamed to 
-! _wrd_local, unit 14 will be opened now for each io_group
-! write_3d_binary is called wrd_local now, wrd_global moved from wrd_local to 
-! palm.f90, unit 14 is closed directly after the wrd_local call, Module related
-! routines for writing restart data have been moved to wrd_local
-! 
-! 2801 2018-02-14 16:01:55Z suehring
-! Changed lpm from subroutine to module.
-! Introduce particle transfer in nested models.
-! 
-! 2766 2018-01-22 17:17:47Z kanani
-! Removed preprocessor directive __chem
-! 
-! 2720 2018-01-02 16:27:15Z kanani
-! Version update to 5.0
-! 
-! 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)
-! Implementation of chemistry module (FK)
-! Introduce input-data standard
-! Rename lsm_last_actions into lsm_write_restart_data
-! Move usm_write_restart_data into io_blocks loop (MS)
-! 
-! 2512 2017-10-04 08:26:59Z raasch
-! user interface required revision updated
-! 
-! 2320 2017-07-21 12:47:43Z suehring
-! Modularize large-scale forcing and nudging
-! 
-! 2298 2017-06-29 09:28:18Z raasch
-! type of write_binary changed from CHARACTER to LOGICAL,
-! user interface required revision updated, MPI2 related part removed
-! 
-! 2296 2017-06-28 07:53:56Z maronga
-! Added call to new spinup routine
-! 
-! 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
-! output of run number for mrun to create unified cycle numbers
-! 
-! 2233 2017-05-30 18:08:54Z suehring
-!
-! 2232 2017-05-30 17:47:52Z suehring
-! Renamed wall_flags_0 and wall_flags_00 into advc_flags_1 and advc_flags_2, 
-! respectively, within copyin statement. Moreover, introduced further flag 
-! array wall_flags_0. 
-! Remove unused variables from ONLY list.
-! 
-! 2178 2017-03-17 11:07:39Z hellstea
-! Calls for pmci_ensure_nest_mass_conservation and pres are added after
-! the nest initialization
-!
-! 2118 2017-01-17 16:38:49Z raasch
-! OpenACC directives and related code removed
-! 
-! 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
-! Temporarily added CALL for writing of restart data for 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
-! Added call to radiation_last_actions for binary output of land surface model 
-! data
-! 
-! 1972 2016-07-26 07:52:02Z maronga
-! Added call to lsm_last_actions for binary output of land surface model data
-! 
-! 1960 2016-07-12 16:34:24Z suehring
-! Separate humidity and passive scalar
-! 
-! 1834 2016-04-07 14:34:20Z raasch
-! Initial version of purely vertical nesting introduced. 
-! 
-! 1833 2016-04-07 14:23:03Z raasch
-! required user interface version changed
-!
-! 1808 2016-04-05 19:44:00Z raasch
-! routine local_flush replaced by FORTRAN statement
-!
-! 1783 2016-03-06 18:36:17Z raasch
-! required user interface version changed
-!
-! 1781 2016-03-03 15:12:23Z raasch
-! pmc initialization moved from time_integration to here
-!
-! 1779 2016-03-03 08:01:28Z raasch
-! setting of nest_domain and coupling_char moved to the pmci
-!
-! 1764 2016-02-28 12:45:19Z raasch
-! cpp-statements for nesting removed, communicator settings cleaned up
-!
-! 1762 2016-02-25 12:31:13Z hellstea
-! Introduction of nested domain feature
-!
-! 1747 2016-02-08 12:25:53Z raasch
-! OpenACC-adjustment for new surface layer parameterization
-!
-! 1682 2015-10-07 23:56:08Z knoop
-! Code annotations made doxygen readable 
-!
-! 1668 2015-09-23 13:45:36Z raasch
-! warning replaced by abort in case of failed user interface check
-!
-! 1666 2015-09-23 07:31:10Z raasch
-! check for user's interface version added
-!
-! 1482 2014-10-18 12:34:45Z raasch
-! adjustments for using CUDA-aware OpenMPI
-!
-! 1468 2014-09-24 14:06:57Z maronga
-! Adapted for use on up to 6-digit processor cores
-! 
-! 1402 2014-05-09 14:25:13Z raasch
-! location messages added
-! 
-! 1374 2014-04-25 12:55:07Z raasch
-! bugfix: various modules added
-!
-! 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
-!
-! 1241 2013-10-30 11:36:58Z heinze
-! initialization of nuding and large scale forcing from external file
-!
-! 1221 2013-09-10 08:59:13Z raasch
-! +wall_flags_00, rflags_invers, rflags_s_inner in copyin statement
-!
-! 1212 2013-08-15 08:46:27Z raasch
-! +tri in copyin statement
-!
-! 1179 2013-06-14 05:57:58Z raasch
-! ref_state added to copyin-list
-!
-! 1113 2013-03-10 02:48:14Z raasch
-! openACC statements modified
-!
-! 1111 2013-03-08 23:54:10Z raasch
-! openACC statements updated
-!
-! 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)
-!
-! 1015 2012-09-27 09:23:24Z raasch
-! Version number changed from 3.8 to 3.8a.
-! OpenACC statements added + code changes required for GPU optimization
-!
-! 849 2012-03-15 10:35:09Z raasch
-! write_particles renamed lpm_write_restart_file
-!
-! Revision 1.1  1997/07/24 11:23:35  raasch
-! Initial revision
-!
 !
 ! Description:
Index: /palm/trunk/SOURCE/parin.f90
===================================================================
--- /palm/trunk/SOURCE/parin.f90	(revision 4179)
+++ /palm/trunk/SOURCE/parin.f90	(revision 4180)
@@ -59,441 +59,4 @@
 ! Delete debug-print statements
 ! 
-! 3646 2018-12-28 17:58:49Z kanani
-! Bugfix: for restarts, reset data_output_during_spinup to FALSE to enable
-! correct calculation of ntdim in check_parameters
-! 
-! 3637 2018-12-20 01:51:36Z knoop
-! Implementation of the PALM module interface
-! 
-! 3569 2018-11-27 17:03:40Z kanani
-! dom_dwd_user, Schrempf:
-! Remove uv exposure model code, this is now part of biometeorology_mod.
-!
-! 3545 2018-11-21 11:19:41Z gronemeier
-! remove rans_mode from initialization_parameters
-! 
-! 3525 2018-11-14 16:06:14Z kanani
-! Changes related to clean-up of biometeorology (dom_dwd_user)
-! 
-! 3473 2018-10-30 20:50:15Z suehring
-! Add virtual measurement module
-! 
-! 3472 2018-10-30 20:43:50Z suehring
-! Add indoor model (kanani, srissman, tlang),
-! minor formatting
-! 
-! 3467 2018-10-30 19:05:21Z suehring
-! Implementation of a new aerosol module salsa.
-! 
-! 3448 2018-10-29 18:14:31Z kanani
-! Add biometeorology
-! 
-! 3435 2018-10-26 18:25:44Z gronemeier
-! Add mask_k_over_surface
-! 
-! 3421 2018-10-24 18:39:32Z gronemeier
-! Added module for data output at surfaces
-! 
-! 3355 2018-10-16 14:03:34Z knoop
-! - offline nesting separated from large-scale forcing module
-! - top boundary condition for pressure in offline nesting changed
-! 
-! 3343 2018-10-15 10:38:52Z suehring
-! Introduced reading of date_init to inipar.(Russo)
-! Add extra profiles for 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
-! 
-! 3248 2018-09-14 09:42:06Z sward
-! Minor formating changes
-! 
-! 3246 2018-09-13 15:14:50Z sward
-! Added error handling for input namelist via parin_fail_message
-! 
-! 3240 2018-09-12 12:04:40Z Giersch
-! A check that controls the number of user-defined profiles on the restart file
-! with the one given for the current run has been added.
-! 
-! 3204 2018-08-23 10:49:05Z raasch
-! additional check for nz
-! 
-! 3184 2018-07-27 17:13:09Z suehring
-! Bugfix, comment setting of chemistry and passive scalar top boundary condition
-! in case of offline nesting
-! 
-! 3183 2018-07-27 14:25:55Z suehring
-! Rename variables and boundary conditions in mesoscale-offline nesting mode
-! 
-! 3182 2018-07-27 13:36:03Z suehring
-! Added multi agent system
-! 
-! 3157 2018-07-19 21:08:49Z maronga
-! added use_free_convection_scaling
-! 
-! 3083 2018-06-19 14:03:12Z gronemeier
-! Added rans_const_c and rans_const_sigma as input parameters (TG)
-! 
-! 3065 2018-06-12 07:03:02Z Giersch
-! New initialization parameters added
-! 
-! 3049 2018-05-29 13:52:36Z Giersch
-! Error messages revised
-! 
-! 3045 2018-05-28 07:55:41Z Giersch
-! z_max_do2d removed, error messages revised
-! 
-! 2995 2018-04-19 12:13:16Z Giersch
-! time_since_reference_point must be calculated/initialized before the first  
-! call of functions related to the radiation model which occur in 
-! time_integration_spinup or time_integration
-! 
-! 2980 2018-04-17 15:19:27Z suehring
-! Revise message call
-! 
-! 2975 2018-04-16 15:22:20Z suehring
-! - Informative message when initializing_actions has been changed 
-!   to set_constant_profile in child domain 
-! - Change location in message call
-! 
-! 2967 2018-04-13 11:22:08Z raasch
-! bugfix: missing parallel cpp-directives added
-! 
-! 2941 2018-04-03 11:54:58Z kanani
-! Fix for spinup in case of restart run
-! 
-! 2938 2018-03-27 15:52:42Z suehring
-! Change initialization in case child domain should be initialized with Inifor.
-! 
-! 2936 2018-03-27 14:49:27Z suehring
-! inipar renamed to initialization_parameters.
-! d3par renamed to runtime_parameters.
-! 
-! 2921 2018-03-22 15:05:23Z Giersch
-! Activation of spinup has been moved from lsm/usm_parin to parin itself
-! 
-! 2906 2018-03-19 08:56:40Z Giersch
-! ENVIRONMENT variables read/write_svf has been added 
-! 
-! 2894 2018-03-15 09:17:58Z Giersch
-! read_var_list has been renamed to rrd_global, all module related _parin 
-! routines are called before reading the global restart data to overwrite them
-! in case of restart runs
-! 
-! 2881 2018-03-13 16:24:40Z suehring
-! Added flag for switching on/off calculation of soil moisture
-! 
-! 2849 2018-03-05 10:49:33Z Giersch
-! Position of d3par namelist in parameter file is unimportant now 
-! 
-! 2826 2018-02-21 12:39:28Z Giersch
-! Bugfix in setting the default boundary conditions for nest domains
-!
-! 2817 2018-02-19 16:32:21Z knoop
-! Preliminary gust module interface implemented
-!
-! 2773 2018-01-30 14:12:54Z suehring
-! Nesting for chemical species implemented
-! 
-! 2766 2018-01-22 17:17:47Z kanani
-! Removed preprocessor directive __chem
-! 
-! 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)
-! Implementation of uv exposure model (FK)
-! Added rans_mode and turbulence_closure to inipar (TG)
-! Implementation of chemistry module
-! Sorting of USE list (FK)
-! Forcing implemented, and initialization with inifor (MS)
-! 
-! 2600 2017-11-01 14:11:20Z raasch
-! some comments added and variables renamed concerning r2599
-! 
-! 2599 2017-11-01 13:18:45Z hellstea
-! The i/o grouping is updated to work correctly also in nested runs.
-! 
-! 2575 2017-10-24 09:57:58Z maronga
-! Renamed phi -> latitude, added longitude
-! 
-! 2563 2017-10-19 15:36:10Z Giersch
-! Changed position where restart files are closed.
-! 
-! 2550 2017-10-16 17:12:01Z boeske
-! Added complex_terrain
-! 
-! 2544 2017-10-13 18:09:32Z maronga
-! Moved day_of_year_init and time_utc_init to inipar.
-! 
-! 2397 2017-09-04 16:22:48Z suehring
-! Enable initialization of 3d model by user in the child domain. 
-! 
-! 2375 2017-08-29 14:10:28Z schwenkel
-! Added aerosol initialization for bulk microphysics
-! 
-! 2372 2017-08-25 12:37:32Z sward
-! y_shift added to namelist
-! 
-! 2365 2017-08-21 14:59:59Z kanani
-! Vertical grid nesting: add vnest_start_time to d3par (SadiqHuq)
-! 
-! 2339 2017-08-07 13:55:26Z gronemeier
-! corrected timestamp in header
-! 
-! 2338 2017-08-07 12:15:38Z gronemeier
-! Modularize 1D model
-! 
-! 2310 2017-07-11 09:37:02Z gronemeier
-! Bugfix: re-arranged call for error messages for ENVPAR file
-! 
-! 2304 2017-07-04 14:35:55Z suehring
-! Bugfix, enable restarts for child domain.
-! 
-! 2298 2017-06-29 09:28:18Z raasch
-! -return_addres, return_username in ENVPAR, -cross_ts_uymax, cross_ts_uymin in
-! d3par
-! 
-! 2296 2017-06-28 07:53:56Z maronga
-! Added parameters for model spinup
-! 
-! 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). 
-! 
-! 2267 2017-06-09 09:33:25Z gronemeier
-! Bugfix: removed skipping of reading namelists in case of omitted d3par
-! 
-! 2259 2017-06-08 09:09:11Z gronemeier
-! Implemented synthetic turbulence generator
-!
-! 2233 2017-05-30 18:08:54Z suehring
-! 
-! 2232 2017-05-30 17:47:52Z suehring
-! typo corrected
-! +wall_salinityflux
-! +tunnel_height, tunnel_lenght, tunnel_width_x, tunnel_width_y, 
-!  tunnel_wall_depth
-! 
-! 2118 2017-01-17 16:38:49Z raasch
-! -background_communication from inipar
-! 
-! 2050 2016-11-08 15:00:55Z gronemeier
-! Implement turbulent outflow condition
-! 
-! 2037 2016-10-26 11:15:40Z knoop
-! Anelastic approximation implemented
-! 
-! 2035 2016-10-24 15:06:17Z suehring
-! Remove check for npex and npey in nesting case
-! 
-! 2011 2016-09-19 17:29:57Z kanani
-! Added flag lsf_exception to allow explicit enabling of large scale forcing 
-! together with buildings on flat terrain.
-! 
-! 2007 2016-08-24 15:47:17Z kanani
-! Added call to urban surface model for reading of &urban_surface_par
-! 
-! 2004 2016-08-24 10:25:59Z suehring
-! Humidity and passive scalar treated separately in nesting mode
-! 
-! 2000 2016-08-20 18:09:15Z knoop
-! Forced header and separation lines into 80 columns
-! 
-! 1992 2016-08-12 15:14:59Z suehring
-! +top_scalarflux
-! 
-! 1960 2016-07-12 16:34:24Z suehring
-! Allocation of s_init
-! 
-! 1957 2016-07-07 10:43:48Z suehring
-! flight module added
-! 
-! 1955 2016-07-01 12:38:59Z hellstea
-! The parameter intializating_actions is set to 'set_constant_profiles for 
-! all nest domains in order to make sure that diagnostic variables are properly 
-! initialized for nest domains. Prognostic variables are later initialized by 
-! interpolation from the parent domain. 
-!
-! 1917 2016-05-27 14:28:12Z witha
-! Initial version of purely vertical nesting introduced.
-! 
-! 1914 2016-05-26 14:44:07Z witha
-! Added call to wind turbine model for reading of &wind_turbine_par
-!
-! 1849 2016-04-08 11:33:18Z hoffmann
-! Adapted for modularization of microphysics
-!
-! 1833 2016-04-07 14:23:03Z raasch
-! call of spectra_parin
-! 
-! 1831 2016-04-07 13:15:51Z hoffmann
-! turbulence renamed collision_turbulence, drizzle renamed
-! cloud_water_sedimentation
-! curvature_solution_effects removed
-!
-! 1826 2016-04-07 12:01:39Z maronga
-! Added call to radiation model for reading of &radiation_par.
-! Added call to plant canopy model for reading of &canopy_par.
-! 
-! 1817 2016-04-06 15:44:20Z maronga
-! Added call to land surface model for reading of &lsm_par
-! 
-! 1804 2016-04-05 16:30:18Z maronga
-! Removed code for parameter file check (__check)
-!
-! 1783 2016-03-06 18:36:17Z raasch
-! +netcdf_deflate in d3par, netcdf module and variable names changed
-!
-! 1764 2016-02-28 12:45:19Z raasch
-! cpp-statements for nesting removed, explicit settings of boundary conditions
-! in nest domains,
-! bugfix: npex/npey message moved from inipar to d3par
-! bugfix: check of lateral boundary conditions from check_parameters to here,
-! because they will be already used in init_pegrid and init_grid
-!
-! 1762 2016-02-25 12:31:13Z hellstea
-! Introduction of nested domain feature
-!
-! 1691 2015-10-26 16:17:44Z maronga
-! Added parameter most_method. Renamed prandtl_layer to constant_flux_layer.
-! 
-! 1682 2015-10-07 23:56:08Z knoop
-! Code annotations made doxygen readable 
-! 
-! 1560 2015-03-06 10:48:54Z keck
-! +recycling_yshift
-! 
-! 1496 2014-12-02 17:25:50Z maronga
-! Renamed: "radiation -> "cloud_top_radiation"
-! 
-! 1484 2014-10-21 10:53:05Z kanani
-! Changes due to new module structure of the plant canopy model:
-!   canopy-model related parameters moved to new package canopy_par in 
-!   subroutine package_parin
-! 
-! 1429 2014-07-15 12:53:45Z knoop
-! +ensemble_member_nr to prepare the random_generator for ensemble runs
-! 
-! 1402 2014-05-09 14:25:13Z raasch
-! location messages modified, progress_bar_disabled included in envpar-NAMELIST
-! 
-! 1384 2014-05-02 14:31:06Z raasch
-! location messages added
-! 
-! 1365 2014-04-22 15:03:56Z boeske
-! Usage of large scale forcing enabled:
-! +use_subsidence_tendencies
-! 
-! 1361 2014-04-16 15:17:48Z hoffmann
-! +call_microphysics_at_all_substeps
-! 
-! 1359 2014-04-11 17:15:14Z hoffmann
-! REAL constants provided with KIND-attribute 
-! 
-! 1353 2014-04-08 15:21:23Z heinze
-! REAL constants provided with KIND-attribute 
-! 
-! 1327 2014-03-21 11:00:16Z raasch
-! -data_output_format, do3d_compress, do3d_comp_prec
-!
-! 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
-! +cpu_log_barrierwait in d3par
-!
-! 1301 2014-03-06 13:29:46Z heinze
-! +large_scale_subsidence
-!
-! 1241 2013-10-30 11:36:58Z heinze
-! +nudging
-! +large_scale_forcing
-!
-! 1216 2013-08-26 09:31:42Z raasch
-! +transpose_compute_overlap in inipar
-!
-! 1195 2013-07-01 12:27:57Z heinze
-! Bugfix: allocate ref_state
-!
-! 1179 2013-06-14 05:57:58Z raasch
-! +reference_state in inipar
-!
-! 1159 2013-05-21 11:58:22Z fricke
-! +use_cmax
-!
-! 1128 2013-04-12 06:19:32Z raasch
-! +background_communication in inipar
-!
-! 1115 2013-03-26 18:16:16Z hoffmann
-! unused variables removed
-!
-! 1092 2013-02-02 11:24:22Z raasch
-! unused variables removed
-!
-! 1065 2012-11-22 17:42:36Z hoffmann
-! +nc, c_sedimentation, limiter_sedimentation, turbulence
-! -mu_constant, mu_constant_value
-!
-! 1053 2012-11-13 17:11:03Z hoffmann
-! necessary expansions according to the two new prognostic equations (nr, qr) 
-! of the two-moment cloud physics scheme and steering parameters:
-! +*_init, *_surface, *_surface_initial_change, *_vertical_gradient, 
-! +*_vertical_gradient_level, surface_waterflux_*, 
-! +cloud_scheme, drizzle, mu_constant, mu_constant_value, ventilation_effect
-!
-! 1036 2012-10-22 13:43:42Z raasch
-! code put under GPL (PALM 3.9)
-!
-! 1015 2012-09-27 09:23:24Z raasch
-! -adjust_mixing_length
-!
-! 1003 2012-09-14 14:35:53Z raasch
-! -grid_matching
-!
-! 1001 2012-09-13 14:08:46Z raasch
-! -cut_spline_overshoot, long_filter_factor, overshoot_limit_*, ups_limit_*
-!
-! 996 2012-09-07 10:41:47Z raasch
-! -use_prior_plot1d_parameters
-!
-! 978 2012-08-09 08:28:32Z fricke
-! -km_damp_max, outflow_damping_width
-! +pt_damping_factor, pt_damping_width
-! +z0h_factor
-!
-! 964 2012-07-26 09:14:24Z raasch
-! -cross_normalized_x, cross_normalized_y, cross_xtext, z_max_do1d,
-! z_max_do1d_normalized
-!
-! 940 2012-07-09 14:31:00Z raasch
-! +neutral in inipar
-!
-! 927 2012-06-06 19:15:04Z raasch
-! +masking_method in inipar
-!
-! 824 2012-02-17 09:09:57Z raasch
-! +curvature_solution_effects in inipar
-!
-! 809 2012-01-30 13:32:58Z maronga
-! Bugfix: replaced .AND. and .NOT. with && and ! in the preprocessor directives
-!
-! 807 2012-01-25 11:53:51Z maronga
-! New cpp directive "__check" implemented which is used by check_namelist_files
-!
-! Revision 1.1  1997/07/24 11:22:50  raasch
-! Initial revision
-!
 !
 ! Description:
Index: /palm/trunk/SOURCE/plant_canopy_model_mod.f90
===================================================================
--- /palm/trunk/SOURCE/plant_canopy_model_mod.f90	(revision 4179)
+++ /palm/trunk/SOURCE/plant_canopy_model_mod.f90	(revision 4180)
@@ -52,201 +52,4 @@
 ! unused variables removed
 ! 
-! 3589 2018-11-30 15:09:51Z suehring
-! Formatting adjustments
-! 
-! 3582 2018-11-29 19:16:36Z suehring
-! working precision added to make code Fortran 2008 conform
-! 
-! 3498 2018-11-07 10:53:03Z gronemeier
-! corrected revisions section
-! 
-! 3497 2018-11-06 17:15:18Z suehring
-! Remove write statement. 
-!
-! 3467 2018-10-30 19:05:21Z suehring
-! Add calculation of transpiration for resolved plant canopy (trees, shrubs)
-! (V. Fuka, MFF UK Prague, J.Resler, ICS AS, Prague)
-!
-! Fix reading plant canopy over buildings
-! 
-! 3337 2018-10-12 15:17:09Z kanani
-! Fix reading plant canopy over buildings
-! 
-! 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
-! 
-! 3248 2018-09-14 09:42:06Z sward
-! Minor formating changes
-! 
-! 3246 2018-09-13 15:14:50Z sward
-! Added error handling for input namelist via parin_fail_message
-! 
-! 3241 2018-09-12 15:02:00Z raasch
-! unused variables removed
-! 
-! 3065 2018-06-12 07:03:02Z Giersch
-! dz was replaced by the help of zw to allow for vertical stretching
-! 
-! 3049 2018-05-29 13:52:36Z Giersch
-! Error messages revised
-! 
-! 3045 2018-05-28 07:55:41Z Giersch
-! Error message revised
-! 
-! 3022 2018-05-18 11:12:35Z suehring
-! Bugfix in allocation of transpiration rate
-! 
-! 3014 2018-05-09 08:42:38Z maronga
-! Bugfix: nzb_do and nzt_do were not used for 3d data output
-! Added pc_transpiration_rate
-! 
-! 2977 2018-04-17 10:27:57Z kanani
-! Implement changes from branch radiation (r2948-2971) with minor modifications,
-! plus some formatting.
-! (moh.hefny):
-! Add plant canopy type to account for changes in LAD (based on the changes
-! done by Resler & Pavel) and correct the error message to PALM Standard.
-! 
-! 2932 2018-03-26 09:39:22Z maronga
-! renamed canopy_par to plant_canopy_parameters
-! 
-! 2920 2018-03-22 11:22:01Z kanani
-! Move usm_lad_rma and prototype_lad to radiation_model (moh.hefny)
-! 
-! 2892 2018-03-14 15:06:29Z suehring
-! Bugfix, read separate ASCII LAD files for parent and child model. 
-! 
-! 2770 2018-01-25 15:10:09Z kanani
-! Correction of parameter check
-! 
-! 2768 2018-01-24 15:38:29Z kanani
-! Added check for output quantity pcm_heatrate, some formatting
-! 
-! 2766 2018-01-22 17:17:47Z kanani
-! Increased LEN of canopy mode to 30
-! 
-! 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
-! Change in file header (GPL part)
-! Bugfix for vertical loop index pch_index in case of Netcdf input
-! Introduce 2D index array incorporate canopy top index
-! Check if canopy on top of topography do not exceed vertical dimension 
-! Add check for canopy_mode in case of Netcdf input.
-! Enable _FillValue output for 3d quantities
-! Bugfix in reading of PIDS leaf area density (MS)
-! 
-! 2669 2017-12-06 16:03:27Z raasch
-! coupling_char removed
-! 
-! 2512 2017-10-04 08:26:59Z raasch
-! upper bounds of 3d output changed from nx+1,ny+1 to nx,ny
-! no output of ghost layer data
-! 
-! 2318 2017-07-20 17:27:44Z suehring
-! Get topography top index via Function call 
-! 
-! 2317 2017-07-20 17:27:19Z suehring
-! Changed error messages
-! 
-! 2233 2017-05-30 18:08:54Z suehring
-!
-! 2232 2017-05-30 17:47:52Z suehring
-! Adjustments to new topography concept
-! 
-! 2213 2017-04-24 15:10:35Z kanani
-! Bugfix: exchange of ghost points in array pc_heating_rate needed for output 
-! of pcm_heatrate, onetime ghost point exchange of lad_s after initialization.
-! Formatting and clean-up of subroutine pcm_read_plant_canopy_3d,
-! minor re-organization of canopy-heating initialization.
-! 
-! 2209 2017-04-19 09:34:46Z kanani
-! Added 3d output of leaf area density (pcm_lad) and canopy 
-! heat rate (pcm_heatrate)
-! 
-! 2024 2016-10-12 16:42:37Z kanani
-! Added missing lad_s initialization
-! 
-! 2011 2016-09-19 17:29:57Z kanani
-! Renamed canopy_heat_flux to pc_heating_rate, since the original meaning/
-! calculation of the quantity has changed, related to the urban surface model
-! and similar future applications. 
-! 
-! 2007 2016-08-24 15:47:17Z kanani
-! Added SUBROUTINE pcm_read_plant_canopy_3d for reading 3d plant canopy data
-! from file (new case canopy_mode=read_from_file_3d) in the course of
-! introduction of urban surface model,
-! introduced variable ext_coef,
-! resorted SUBROUTINEs to alphabetical order
-! 
-! 2000 2016-08-20 18:09:15Z knoop
-! Forced header and separation lines into 80 columns
-! 
-! 1960 2016-07-12 16:34:24Z suehring
-! Separate humidity and passive scalar
-! 
-! 1953 2016-06-21 09:28:42Z suehring
-! Bugfix, lad_s and lad must be public
-! 
-! 1826 2016-04-07 12:01:39Z maronga
-! Further modularization
-!
-! 1721 2015-11-16 12:56:48Z raasch
-! bugfixes: shf is reduced in areas covered with canopy only,
-!           canopy is set on top of topography
-!
-! 1682 2015-10-07 23:56:08Z knoop
-! Code annotations made doxygen readable 
-! 
-! 1484 2014-10-21 10:53:05Z kanani
-! Changes due to new module structure of the plant canopy model:
-!   module plant_canopy_model_mod now contains a subroutine for the 
-!   initialization of the canopy model (pcm_init),
-!   limitation of the canopy drag (previously accounted for by calculation of 
-!   a limiting canopy timestep for the determination of the maximum LES timestep
-!   in subroutine timestep) is now realized by the calculation of pre-tendencies
-!   and preliminary velocities in subroutine pcm_tendency,
-!   some redundant MPI communication removed in subroutine pcm_init
-!   (was previously in init_3d_model),
-!   unnecessary 3d-arrays lad_u, lad_v, lad_w removed - lad information on the
-!   respective grid is now provided only by lad_s (e.g. in the calculation of 
-!   the tendency terms or of cum_lai_hf),
-!   drag_coefficient, lai, leaf_surface_concentration, 
-!   scalar_exchange_coefficient, sec and sls renamed to canopy_drag_coeff, 
-!   cum_lai_hf, leaf_surface_conc, leaf_scalar_exch_coeff, lsec and lsc,
-!   respectively,
-!   unnecessary 3d-arrays cdc, lsc and lsec now defined as single-value constants,
-!   USE-statements and ONLY-lists modified accordingly
-! 
-! 1340 2014-03-25 19:45:13Z 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
-!
-! 1036 2012-10-22 13:43:42Z raasch
-! code put under GPL (PALM 3.9)
-!
-! 138 2007-11-28 10:03:58Z letzel
-! Initial revision
 !
 ! Description:
Index: /palm/trunk/SOURCE/pmc_child_mod.f90
===================================================================
--- /palm/trunk/SOURCE/pmc_child_mod.f90	(revision 4179)
+++ /palm/trunk/SOURCE/pmc_child_mod.f90	(revision 4180)
@@ -42,70 +42,4 @@
 ! explicit kind settings
 ! 
-! 3241 2018-09-12 15:02:00Z raasch
-! unused variables removed
-! 
-! 2841 2018-02-27 15:02:57Z knoop
-! Bugfix: wrong placement of include 'mpif.h' corrected
-! 
-! 2809 2018-02-15 09:55:58Z schwenkel
-! Bugfix for gfortran: Replace the function C_SIZEOF with STORAGE_SIZE
-! 
-! 2801 2018-02-14 16:01:55Z thiele
-! Introduce particle transfer in nested models.
-! 
-! 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)
-!
-! 2599 2017-11-01 13:18:45Z hellstea
-! Some cleanup and commenting improvements only.
-! 
-! 2101 2017-01-05 16:42:31Z suehring
-!
-! 2000 2016-08-20 18:09:15Z knoop
-! Forced header and separation lines into 80 columns
-! 
-! 1897 2016-05-03 08:10:23Z raasch
-! Module renamed. Code clean up. The words server/client changed to parent/child.
-!
-! 1896 2016-05-03 08:06:41Z raasch
-! re-formatted to match PALM style
-!
-! 1850 2016-04-08 13:29:27Z maronga
-! Module renamed
-! 
-! 
-! 1833 2016-04-07 14:23:03Z raasch
-! gfortran requires pointer attributes for some array declarations,
-! long line wrapped
-!
-! 1808 2016-04-05 19:44:00Z raasch
-! MPI module used by default on all machines
-!
-! 1797 2016-03-21 16:50:28Z raasch
-! introduction of different datatransfer modes
-!
-! 1791 2016-03-11 10:41:25Z raasch
-! Debug write-statement commented out
-!
-! 1786 2016-03-08 05:49:27Z raasch
-! change in child-parent data transfer: parent now gets data from child
-! instead of that child puts it to the parent
-!
-! 1783 2016-03-06 18:36:17Z raasch
-! Bugfix: wrong data-type in MPI_WIN_CREATE replaced
-!
-! 1779 2016-03-03 08:01:28Z raasch
-! kind=dp replaced by wp, dim_order removed
-! array management changed from linked list to sequential loop
-!
-! 1764 2016-02-28 12:45:19Z raasch
-! cpp-statement added (nesting can only be used in parallel mode),
-! all kinds given in PALM style
-!
-! 1762 2016-02-25 12:31:13Z hellstea
-! Initial revision by K. Ketelsen
 !
 ! Description:
Index: /palm/trunk/SOURCE/pmc_general_mod.f90
===================================================================
--- /palm/trunk/SOURCE/pmc_general_mod.f90	(revision 4179)
+++ /palm/trunk/SOURCE/pmc_general_mod.f90	(revision 4180)
@@ -33,53 +33,4 @@
 ! Determine number of coupled arrays dynamically.
 ! 
-! 3241 2018-09-12 15:02:00Z raasch
-! unused variable removed
-! 
-! 2841 2018-02-27 15:02:57Z knoop
-! Bugfix: wrong placement of include 'mpif.h' corrected
-! 
-! 2801 2018-02-14 16:01:55Z thiele
-! Introduce particle transfer in nested models.
-! 
-! 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)
-!
-! 2599 2017-11-01 13:18:45Z hellstea
-! Some cleanup and commenting improvements only.
-! 
-! 2101 2017-01-05 16:42:31Z suehring
-!
-! 2000 2016-08-20 18:09:15Z knoop
-! Forced header and separation lines into 80 columns
-! 
-! 1901 2016-05-04 15:39:38Z raasch
-! Code clean up. The words server/client changed to parent/child.
-!
-! 1900 2016-05-04 15:27:53Z raasch
-! re-formatted to match PALM style, file renamed again
-!
-! 1808 2016-04-05 19:44:00Z raasch
-! MPI module used by default on all machines
-!
-! 1786 2016-03-08 05:49:27Z raasch
-! change in child-parent data transfer: parent now gets data from child
-! instead of that child puts it to the parent
-!
-! 1779 2016-03-03 08:01:28Z raasch
-! PMC_MPI_REAL removed, dim_order removed from type arraydef,
-! array management changed from linked list to sequential loop
-!
-! 1766 2016-02-29 08:37:15Z raasch
-! +po_data in type arraydef
-!
-! 1764 2016-02-28 12:45:19Z raasch
-! cpp-statement added (nesting can only be used in parallel mode),
-! all kinds given in PALM style
-!
-! 1762 2016-02-25 12:31:13Z hellstea
-! Initial revision by K. Ketelsen
 !
 ! Description:
Index: /palm/trunk/SOURCE/pmc_handle_communicator_mod.f90
===================================================================
--- /palm/trunk/SOURCE/pmc_handle_communicator_mod.f90	(revision 4179)
+++ /palm/trunk/SOURCE/pmc_handle_communicator_mod.f90	(revision 4180)
@@ -38,86 +38,4 @@
 ! nestpar renamed to nesting_parameters
 ! 
-! 2841 2018-02-27 15:02:57Z knoop
-! Bugfix: wrong placement of include 'mpif.h' corrected
-! 
-! 2801 2018-02-14 16:01:55Z thiele
-! Introduce particle transfer in nested models.
-! 
-! 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, give Intent(inout) attributes in routine reading nestpar-namelist (MS)
-! 
-! 2599 2017-11-01 13:18:45Z hellstea
-! Separate peer communicator peer_comm introduced for MPI_INTERCOMM_CREATE.
-! Some cleanup and commenting improvements. 
-! 
-! 2516 2017-10-04 11:03:04Z suehring
-! Remove tabs
-! 
-! 2514 2017-10-04 09:52:37Z suehring
-! Bugfix, set filepointer to the beginning of the file after namelist read, 
-! in order to assure that further namelists are also found.
-! 
-! 2279 2017-06-12 15:23:44Z suehring
-! Error message text changed
-! 
-! 2101 2017-01-05 16:42:31Z suehring
-!
-! 2013 2016-09-21 13:07:56Z suehring
-! Bugfix in format descriptor
-! 
-! 2000 2016-08-20 18:09:15Z knoop
-! Forced header and separation lines into 80 columns
-! 
-! 1938 2016-06-13 15:26:05Z hellstea
-! Minor clean-up.
-! 
-! 1901 2016-05-04 15:39:38Z raasch
-! Initial version of purely vertical nesting introduced.
-! Code clean up. The words server/client changed to parent/child.
-!
-! 1900 2016-05-04 15:27:53Z raasch
-! re-formatting to match PALM style
-!
-! 1882 2016-04-20 15:24:46Z hellstea
-! MPI_BCAST-calls to broadcast nesting_mode and nesting_datatransfer_mode 
-! are moved out from the DO i = 1, m_ncpl loop.
-! 
-! 1850 2016-04-08 13:29:27Z maronga
-! Module renamed
-!
-! 1808 2016-04-05 19:44:00Z raasch
-! MPI module used by default on all machines
-!
-! 1797 2016-03-21 16:50:28Z raasch
-! introduction of different datatransfer modes,
-! export of comm_world_nesting
-!
-! 1791 2016-03-11 10:41:25Z raasch
-! m_nrofcpl renamed m_ncpl,
-! pmc_get_local_model_info renamed pmc_get_model_info, some keywords also
-! renamed and some added,
-! debug write-statements commented out
-!
-! 1786 2016-03-08 05:49:27Z raasch
-! Bugfix: nesting_mode is broadcast now
-!
-! 1779 2016-03-03 08:01:28Z raasch
-! only the total number of PEs is given in the nestpar-NAMELIST,
-! additional comments included
-!
-! 1764 2016-02-28 12:45:19Z raasch
-! pmc_layout type: comm_cpl and comm_parent removed, character "name" moved at
-! the beginning of the variable list,
-! domain layout is read with new NAMELIST nestpar from standard file PARIN,
-! MPI-datatype REAL8 replaced by REAL, kind=8 replaced by wp,
-! variable domain_layouts instead of m_couplers introduced for this NAMELIST,
-! general format changed to PALM style
-!
-! 1762 2016-02-25 12:31:13Z hellstea
-! Initial revision by K. Ketelsen
 !
 ! Description:
Index: /palm/trunk/SOURCE/pmc_interface_mod.f90
===================================================================
--- /palm/trunk/SOURCE/pmc_interface_mod.f90	(revision 4179)
+++ /palm/trunk/SOURCE/pmc_interface_mod.f90	(revision 4180)
@@ -142,296 +142,4 @@
 ! Remove unused variable simulated_time
 ! 
-! 3636 2018-12-19 13:48:34Z raasch
-! nopointer option removed
-! 
-! 3592 2018-12-03 12:38:40Z suehring
-! Number of coupled arrays is determined dynamically (instead of a fixed value
-! of 32)
-! 
-! 3524 2018-11-14 13:36:44Z raasch
-! declaration statements rearranged to avoid compile time errors
-! 
-! 3484 2018-11-02 14:41:25Z hellstea
-! Introduction of reversibility correction to the interpolation routines in order to 
-! guarantee mass and scalar conservation through the nest boundaries. Several errors 
-! are corrected and pmci_ensure_nest_mass_conservation is permanently removed. 
-! 
-! 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
-! 
-! 3217 2018-08-29 12:53:59Z suehring
-! Revise calculation of index bounds for array index_list, prevent compiler 
-! (cray) to delete the loop at high optimization level.  
-! 
-! 3215 2018-08-29 09:58:59Z suehring
-! Apply an additional switch controlling the nesting of chemical species
-! 
-! 3209 2018-08-27 16:58:37Z suehring
-! Variable names for nest_bound_x replaced by bc_dirichlet_x.
-! Remove commented prints into debug files.
-! 
-! 3182 2018-07-27 13:36:03Z suehring
-! dz was replaced by dz(1)
-! 
-! 3049 2018-05-29 13:52:36Z Giersch
-! Error messages revised
-! 
-! 3045 2018-05-28 07:55:41Z Giersch
-! Error messages revised
-! 
-! 3022 2018-05-18 11:12:35Z suehring
-! Minor fix - working precision added to real number
-! 
-! 3021 2018-05-16 08:14:20Z maronga
-! Bugfix: variable lcr was defined as INTENT(OUT) instead of INTENT(INOUT)
-! 
-! 3020 2018-05-14 10:45:48Z hellstea
-! Bugfix in pmci_define_loglaw_correction_parameters
-! 
-! 3001 2018-04-20 12:27:13Z suehring
-! Bugfix, replace MERGE function by an if-condition in the anterpolation (in 
-! order to avoid floating-point exceptions).
-! 
-! 2997 2018-04-19 13:35:17Z suehring
-! Mask topography grid points in anterpolation
-! 
-! 2984 2018-04-18 11:51:30Z hellstea
-! Bugfix in the log-law correction initialization. Pivot node cannot any more be 
-! selected from outside the subdomain in order to prevent array under/overflows.
-! 
-! 2967 2018-04-13 11:22:08Z raasch
-! bugfix: missing parallel cpp-directives added
-! 
-! 2951 2018-04-06 09:05:08Z kanani
-! Add log_point_s for pmci_model_configuration
-! 
-! 2938 2018-03-27 15:52:42Z suehring
-! - Nesting for RANS mode implemented
-!    - Interpolation of TKE onto child domain only if both parent and child are 
-!      either in LES mode or in RANS mode
-!    - Interpolation of dissipation if both parent and child are in RANS mode
-!      and TKE-epsilon closure is applied
-!    - Enable anterpolation of TKE and dissipation rate in case parent and 
-!      child operate in RANS mode
-!
-! - Some unused variables removed from ONLY list
-! - Some formatting adjustments for particle nesting
-! 
-! 2936 2018-03-27 14:49:27Z suehring
-! Control logics improved to allow nesting also in cases with
-! constant_flux_layer = .F. or constant_diffusion = .T.
-! 
-! 2895 2018-03-15 10:26:12Z hellstea
-! Change in the nest initialization (pmci_interp_tril_all). Bottom wall BC is no
-! longer overwritten.
-! 
-! 2868 2018-03-09 13:25:09Z hellstea
-! Local conditional Neumann conditions for one-way coupling removed.  
-! 
-! 2853 2018-03-05 14:44:20Z suehring
-! Bugfix in init log-law correction.
-! 
-! 2841 2018-02-27 15:02:57Z knoop
-! Bugfix: wrong placement of include 'mpif.h' corrected
-! 
-! 2812 2018-02-16 13:40:25Z hellstea
-! Bugfixes in computation of the interpolation loglaw-correction parameters
-! 
-! 2809 2018-02-15 09:55:58Z schwenkel
-! Bugfix for gfortran: Replace the function C_SIZEOF with STORAGE_SIZE
-! 
-! 2806 2018-02-14 17:10:37Z thiele
-! Bugfixing Write statements
-! 
-! 2804 2018-02-14 16:57:03Z thiele
-! preprocessor directive for c_sizeof in case of __gfortran added
-! 
-! 2803 2018-02-14 16:56:32Z thiele
-! Introduce particle transfer in nested models.
-! 
-! 2795 2018-02-07 14:48:48Z hellstea
-! Bugfix in computation of the anterpolation under-relaxation functions. 
-! 
-! 2773 2018-01-30 14:12:54Z suehring
-! - Nesting for chemical species
-! - Bugfix in setting boundary condition at downward-facing walls for passive
-!   scalar
-! - Some formatting adjustments
-! 
-! 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
-! Change in file header (GPL part)
-! - Bugfix in init_tke_factor (MS)
-! 
-! 2669 2017-12-06 16:03:27Z raasch
-! file extension for nested domains changed to "_N##",
-! created flag file in order to enable combine_plot_fields to process nest data
-! 
-! 2663 2017-12-04 17:40:50Z suehring
-! Bugfix, wrong coarse-grid index in init_tkefactor used.
-! 
-! 2602 2017-11-03 11:06:41Z hellstea
-! Index-limit related bug (occurred with nesting_mode='vertical') fixed in
-! pmci_interp_tril_t. Check for too high nest domain added in pmci_setup_parent.   
-! Some cleaning up made. 
-! 
-! 2582 2017-10-26 13:19:46Z hellstea
-! Resetting of e within buildings / topography in pmci_parent_datatrans removed
-! as unnecessary since e is not anterpolated, and as incorrect since it overran
-! the default Neumann condition (bc_e_b). 
-! 
-! 2359 2017-08-21 07:50:30Z hellstea
-! A minor indexing error in pmci_init_loglaw_correction is corrected. 
-! 
-! 2351 2017-08-15 12:03:06Z kanani
-! Removed check (PA0420) for nopointer version
-! 
-! 2350 2017-08-15 11:48:26Z kanani
-! Bugfix and error message for nopointer version.
-! 
-! 2318 2017-07-20 17:27:44Z suehring
-! Get topography top index via Function call 
-! 
-! 2317 2017-07-20 17:27:19Z suehring
-! Set bottom boundary condition after anterpolation.
-! Some variable description added.
-! 
-! 2293 2017-06-22 12:59:12Z suehring
-! In anterpolation, exclude grid points which are used for interpolation. 
-! This avoids the accumulation of numerical errors leading to increased 
-! variances for shallow child domains.  
-! 
-! 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). 
-! 
-! 2285 2017-06-15 13:15:41Z suehring
-! Consider multiple pure-vertical nest domains in overlap check
-! 
-! 2283 2017-06-14 10:17:34Z suehring
-! Bugfixes in inititalization of log-law correction concerning 
-! new topography concept
-! 
-! 2281 2017-06-13 11:34:50Z suehring
-! Bugfix, add pre-preprocessor directives to enable non-parrallel mode
-! 
-! 2241 2017-06-01 13:46:13Z hellstea
-! A minor indexing error in pmci_init_loglaw_correction is corrected.
-! 
-! 2240 2017-06-01 13:45:34Z hellstea
-!
-! 2232 2017-05-30 17:47:52Z suehring
-! Adjustments to new topography concept
-! 
-! 2229 2017-05-30 14:52:52Z hellstea
-! A minor indexing error in pmci_init_anterp_tophat is corrected.
-! 
-! 2174 2017-03-13 08:18:57Z maronga
-! Added support for cloud physics quantities, syntax layout improvements. Data
-! transfer of qc and nc is prepared but currently deactivated until both
-! quantities become prognostic variables.
-! Some bugfixes.
-! 
-! 2019 2016-09-30 13:40:09Z hellstea
-! Bugfixes mainly in determining the anterpolation index bounds. These errors 
-! were detected when first time tested using 3:1 grid-spacing.
-! 
-! 2003 2016-08-24 10:22:32Z suehring
-! Humidity and passive scalar also separated in nesting mode 
-! 
-! 2000 2016-08-20 18:09:15Z knoop
-! Forced header and separation lines into 80 columns
-! 
-! 1938 2016-06-13 15:26:05Z hellstea
-! Minor clean-up.
-! 
-! 1901 2016-05-04 15:39:38Z raasch
-! Initial version of purely vertical nesting introduced.
-! Code clean up. The words server/client changed to parent/child.
-!
-! 1900 2016-05-04 15:27:53Z raasch
-! unused variables removed
-!
-! 1894 2016-04-27 09:01:48Z raasch
-! bugfix: pt interpolations are omitted in case that the temperature equation is
-! switched off
-!
-! 1892 2016-04-26 13:49:47Z raasch
-! bugfix: pt is not set as a data array in case that the temperature equation is
-! switched off with neutral = .TRUE.
-!
-! 1882 2016-04-20 15:24:46Z hellstea
-! The factor ijfc for nfc used in anterpolation is redefined as 2-D array 
-! and precomputed in pmci_init_anterp_tophat. 
-! 
-! 1878 2016-04-19 12:30:36Z hellstea
-! Synchronization rewritten, logc-array index order changed for cache
-! optimization
-!
-! 1850 2016-04-08 13:29:27Z maronga
-! Module renamed
-!
-!
-! 1808 2016-04-05 19:44:00Z raasch
-! MPI module used by default on all machines
-!
-! 1801 2016-04-05 13:12:47Z raasch
-! bugfix for r1797: zero setting of temperature within topography does not work
-! and has been disabled
-!
-! 1797 2016-03-21 16:50:28Z raasch
-! introduction of different datatransfer modes,
-! further formatting cleanup, parameter checks added (including mismatches
-! between root and nest model settings),
-! +routine pmci_check_setting_mismatches
-! comm_world_nesting introduced
-!
-! 1791 2016-03-11 10:41:25Z raasch
-! routine pmci_update_new removed,
-! pmc_get_local_model_info renamed pmc_get_model_info, some keywords also
-! renamed,
-! filling up redundant ghost points introduced,
-! some index bound variables renamed,
-! further formatting cleanup
-!
-! 1783 2016-03-06 18:36:17Z raasch
-! calculation of nest top area simplified,
-! interpolation and anterpolation moved to seperate wrapper subroutines
-!
-! 1781 2016-03-03 15:12:23Z raasch
-! _p arrays are set zero within buildings too, t.._m arrays and respective
-! settings within buildings completely removed
-!
-! 1779 2016-03-03 08:01:28Z raasch
-! only the total number of PEs is given for the domains, npe_x and npe_y
-! replaced by npe_total, two unused elements removed from array
-! parent_grid_info_real,
-! array management changed from linked list to sequential loop
-!
-! 1766 2016-02-29 08:37:15Z raasch
-! modifications to allow for using PALM's pointer version,
-! +new routine pmci_set_swaplevel
-!
-! 1764 2016-02-28 12:45:19Z raasch
-! +cpl_parent_id,
-! cpp-statements for nesting replaced by __parallel statements,
-! errors output with message-subroutine,
-! index bugfixes in pmci_interp_tril_all,
-! some adjustments to PALM style
-!
-! 1762 2016-02-25 12:31:13Z hellstea
-! Initial revision by A. Hellsten
 !
 ! Description:
Index: /palm/trunk/SOURCE/pmc_mpi_wrapper_mod.f90
===================================================================
--- /palm/trunk/SOURCE/pmc_mpi_wrapper_mod.f90	(revision 4179)
+++ /palm/trunk/SOURCE/pmc_mpi_wrapper_mod.f90	(revision 4180)
@@ -28,46 +28,4 @@
 ! Extent interface by logical buffer 
 ! 
-! 2936 2018-03-27 14:49:27Z suehring
-! Bugfix: wrong placement of include 'mpif.h' corrected
-! 
-! 2809 2018-02-15 09:55:58Z schwenkel
-! Bugfix for gfortran: Replace the function C_SIZEOF with STORAGE_SIZE
-! 
-! 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)
-!
-! 2599 2017-11-01 13:18:45Z hellstea
-! Some cleanup and commenting improvements only.
-! 
-! 2101 2017-01-05 16:42:31Z suehring
-!
-! 2000 2016-08-20 18:09:15Z knoop
-! Forced header and separation lines into 80 columns
-! 
-! 1901 2016-05-04 15:39:38Z raasch
-! Code clean up. The words server/client changed to parent/child. 
-!
-! 1900 2016-05-04 15:27:53Z raasch
-! re-formatted to match PALM style
-!
-! 1850 2016-04-08 13:29:27Z maronga
-! Module renamed
-!
-!
-! 1808 2016-04-05 19:44:00Z raasch
-! MPI module used by default on all machines
-!
-! 1779 2016-03-03 08:01:28Z raasch
-! kind=dp replaced by wp
-!
-! 1764 2016-02-28 12:45:19Z raasch
-! cpp-statement added (nesting can only be used in parallel mode),
-! kind-parameters adjusted to PALM-kinds
-!
-! 1762 2016-02-25 12:31:13Z hellstea
-! Initial revision by K. Ketelsen
 !
 ! Description:
Index: /palm/trunk/SOURCE/pmc_parent_mod.f90
===================================================================
--- /palm/trunk/SOURCE/pmc_parent_mod.f90	(revision 4179)
+++ /palm/trunk/SOURCE/pmc_parent_mod.f90	(revision 4180)
@@ -31,77 +31,4 @@
 ! explicit kind settings
 ! 
-! 3241 2018-09-12 15:02:00Z raasch
-! unused variables removed
-! 
-! 3182 2018-07-27 13:36:03Z suehring
-! Comment extended
-! 
-! 2841 2018-02-27 15:02:57Z Giersch
-! Bugfix: wrong placement of include 'mpif.h' corrected
-! 
-! 2809 2018-02-15 09:55:58Z schwenkel
-! Bugfix for gfortran: Replace the function C_SIZEOF with STORAGE_SIZE
-! 
-! 2801 2018-02-14 16:01:55Z thiele
-! Introduce particle transfer in nested models.
-! 
-! 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)
-!
-! 2599 2017-11-01 13:18:45Z hellstea
-! Some cleanup and commenting improvements only.
-! 
-! 2101 2017-01-05 16:42:31Z suehring
-!
-! 2000 2016-08-20 18:09:15Z knoop
-! Forced header and separation lines into 80 columns
-! 
-! 1938 2016-06-13 15:26:05Z hellstea
-! Minor clean up.
-! 
-! 1901 2016-05-04 15:39:38Z raasch
-! Module renamed. Code clean up. The words server/client changed to parent/child. 
-!
-! 1900 2016-05-04 15:27:53Z raasch
-! re-formatted to match PALM style
-!
-! 1850 2016-04-08 13:29:27Z maronga
-! Module renamed
-! 
-! 
-! 1833 2016-04-07 14:23:03Z raasch
-! gfortran requires pointer attributes for some array declarations,
-! long line wrapped
-!
-! 1808 2016-04-05 19:44:00Z raasch
-! MPI module used by default on all machines
-!
-! 1797 2016-03-21 16:50:28Z raasch
-! introduction of different datatransfer modes
-!
-! 1791 2016-03-11 10:41:25Z raasch
-! Debug write-statements commented out
-!
-! 1786 2016-03-08 05:49:27Z raasch
-! change in child-parent data transfer: parent now gets data from child
-! instead that child put's it to the parent
-!
-! 1779 2016-03-03 08:01:28Z raasch
-! kind=dp replaced by wp,
-! error messages removed or changed to PALM style, dim_order removed
-! array management changed from linked list to sequential loop
-!
-! 1766 2016-02-29 08:37:15Z raasch
-! modifications to allow for using PALM's pointer version
-! +new routine pmc_s_set_active_data_array
-!
-! 1764 2016-02-28 12:45:19Z raasch
-! cpp-statement added (nesting can only be used in parallel mode)
-!
-! 1762 2016-02-25 12:31:13Z hellstea
-! Initial revision by K. Ketelsen
 !
 ! Description:
Index: /palm/trunk/SOURCE/pmc_particle_interface.f90
===================================================================
--- /palm/trunk/SOURCE/pmc_particle_interface.f90	(revision 4179)
+++ /palm/trunk/SOURCE/pmc_particle_interface.f90	(revision 4180)
@@ -38,25 +38,4 @@
 ! unused variables removed
 ! 
-! 3123 2018-07-12 16:21:53Z suehring
-! Correct working precision for REAL numbers
-! 
-! 3049 2018-05-29 13:52:36Z Giersch
-! Error messages revised
-! 
-! 2967 2018-04-13 11:22:08Z Giersch
-! bugfix: missing parallel cpp-directives added
-! 
-! 2884 2018-03-14 08:33:20Z scharf
-! B: corrected KIND of variable "parsize" for some MPI calls
-! 
-! 2841 2018-02-27 15:02:57Z knoop
-! Bugfix: wrong placement of include 'mpif.h' corrected
-! 
-! 2809 2018-02-15 09:55:58Z schwenkel
-! Bugfix for gfortran: Replace the function C_SIZEOF with STORAGE_SIZE.
-!  
-!
-! Initial Version (by Klaus Ketelsen)
-!
 ! 
 ! Description:
Index: /palm/trunk/SOURCE/poisfft_mod.f90
===================================================================
--- /palm/trunk/SOURCE/poisfft_mod.f90	(revision 4179)
+++ /palm/trunk/SOURCE/poisfft_mod.f90	(revision 4180)
@@ -27,122 +27,4 @@
 ! OpenACC port for SPEC
 ! 
-! 3241 2018-09-12 15:02:00Z raasch
-! unused variables removed,
-! declarations of omp_get_thread_num now as omp-directive
-! 
-! 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)
-!
-! 2300 2017-06-29 13:31:14Z raasch
-! settings depending on host variable removed or replaced by loop_optimization
-! 
-! 2119 2017-01-17 16:51:50Z raasch
-!
-! 2118 2017-01-17 16:38:49Z raasch
-! OpenACC directives and related code removed
-! 
-! 2000 2016-08-20 18:09:15Z knoop
-! Forced header and separation lines into 80 columns
-! 
-! 1850 2016-04-08 13:29:27Z maronga
-! Module renamed
-! 
-! 
-! 1804 2016-04-05 16:30:18Z maronga
-! Removed code for parameter file check (__check)
-! 
-! 1682 2015-10-07 23:56:08Z knoop
-! Code annotations made doxygen readable 
-!
-! 1482 2014-10-18 12:34:45Z raasch
-! use 2d-decomposition, if accelerator boards are used
-!
-! 1406 2014-05-16 13:47:01Z raasch
-! bugfix for pgi 14.4: declare create moved after array declaration
-!
-! 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
-! openmp sections removed from the overlap branch,
-! second argument removed from parameter list
-!
-! 1216 2013-08-26 09:31:42Z raasch
-! resorting of arrays moved to separate routines resort_for_...,
-! one argument, used as temporary work array, removed from all transpose
-! routines
-! overlapping fft / transposition implemented
-!
-! 1212 2013-08-15 08:46:27Z raasch
-! tridia routines moved to seperate module tridia_solver
-!
-! 1208 2013-08-13 06:41:49Z raasch
-! acc-update clauses added for "ar" so that ffts other than cufft can also be
-! used (although they are not ported and will give a poor performance)
-!
-! 1111 2013-03-08 23:54:10Z raasch
-! further openACC porting of non-parallel (MPI) branch:
-! tridiagonal routines split into extermal subroutines (instead using CONTAINS),
-! no distinction between parallel/non-parallel in poisfft and tridia any more,
-! tridia routines moved to end of file because of probable bug in PGI compiler 12.5
-! (otherwise "invalid device function" is indicated during runtime),
-! optimization of tridia routines: constant elements and coefficients of tri are
-! stored in seperate arrays ddzuw and tric, last dimension of tri reduced from 5
-! to 2,
-! poisfft_init is now called internally from poisfft, maketri is called from
-! poisfft_init,
-! ibc_p_b = 2 removed
-!
-! 1106 2013-03-04 05:31:38Z raasch
-! routines fftx, ffty, fftxp, fftyp removed, calls replaced by fft_x, fft_y,
-! in the 1D-decomposition routines fft_x, ffty are replaced by fft_x_1d,
-! fft_y_1d
-!
-! 1103 2013-02-20 02:15:53Z raasch
-! tri, ar, and ar1 arguments in tridia-routines (2d) are removed because they
-! sometimes cause segmentation faults with intel 12.1 compiler
-!
-! 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)
-!
-! 2012-09-21 07:03:55Z raasch
-! FLOAT type conversion replaced by REAL
-!
-! 1003 2012-09-14 14:35:53Z raasch
-! indices nxa, nya, etc. replaced by nx, ny, etc.
-!
-! 940 2012-07-09 14:31:00Z raasch
-! special handling of tri-array as an argument in tridia_1dd routines switched
-! off because it caused segmentation faults with intel 12.1 compiler
-!
-! 877 2012-04-03 11:21:44Z suehring
-! Bugfix: Avoid divisions by zero in case of using a 'neumann' bc for the
-! pressure at the top of the model domain.
-!
-! 809 2012-01-30 13:32:58Z maronga
-! Bugfix: replaced .AND. and .NOT. with && and ! in the preprocessor directives
-!
-! 807 2012-01-25 11:53:51Z maronga
-! New cpp directive "__check" implemented which is used by check_namelist_files
-! (most of the code is unneeded by check_namelist_files).
-!
-! Revision 1.1  1997/07/24 11:24:14  raasch
-! Initial revision
-!
 !
 ! Description:
Index: /palm/trunk/SOURCE/poismg_mod.f90
===================================================================
--- /palm/trunk/SOURCE/poismg_mod.f90	(revision 4179)
+++ /palm/trunk/SOURCE/poismg_mod.f90	(revision 4180)
@@ -30,78 +30,4 @@
 ! unnecessary check eliminated
 ! 
-! 3524 2018-11-14 13:36:44Z raasch
-! mpi_abort arguments replaced to avoid compile errors
-! 
-! 3241 2018-09-12 15:02:00Z raasch
-! 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
-!
-! 2937 2018-03-27 14:58:33Z suehring
-! Corrected "Former revisions" section
-! 
-! 2696 2017-12-14 17:12:51Z kanani
-! Change in file header (GPL part)
-! Large-scale forcing implemented (MS)
-! 
-! 2298 2017-06-29 09:28:18Z raasch
-! sendrecv_in_background related parts removed
-! 
-! 2232 2017-05-30 17:47:52Z suehring
-!
-! 2073 2016-11-30 14:34:05Z raasch
-! change of openmp directives in restrict
-! 
-! 2037 2016-10-26 11:15:40Z knoop
-! Anelastic approximation implemented (stll error in optimized multigrid)
-! 
-! 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 default version
-! 
-! 1904 2016-05-11 13:06:12Z suehring
-! Bugfix: enable special_exchange_horiz only for finer grid levels.
-! Some formatting adjustments and variable descriptions.
-!
-! 1898 2016-05-03 11:27:17Z suehring
-! Bugfix: bottom and top boundary condition in resid_fast
-! Bugfix: restriction at nzb+1
-! formatting adjustments, variable descriptions added in some declaration blocks
-!
-! 1850 2016-04-08 13:29:27Z maronga
-! Module renamed
-!
-! 
-! 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 
-! 
-! 1609 2015-07-03 15:37:58Z maronga
-! Bugfix: allow compilation without __parallel.
-!
-! 1575 2015-03-27 09:56:27Z raasch
-! Initial revision.
-! Routine re-written and optimised based on poismg.
-!
-! Following optimisations have been made:
-! - vectorisation (for Intel-CPUs) of the red-black algorithm by resorting
-!   array elements with even and odd indices
-! - explicit boundary conditions for building walls removed (solver is
-!   running through the buildings
-! - reduced data transfer in case of ghost point exchange, because only
-!   "red" or "black" data points need to be exchanged. This is not applied
-!   for coarser grid levels, since for then the transfer time is latency bound
-!
 !
 ! Description:
Index: /palm/trunk/SOURCE/poismg_noopt_mod.f90
===================================================================
--- /palm/trunk/SOURCE/poismg_noopt_mod.f90	(revision 4179)
+++ /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:
Index: /palm/trunk/SOURCE/posix_calls_from_fortran.f90
===================================================================
--- /palm/trunk/SOURCE/posix_calls_from_fortran.f90	(revision 4179)
+++ /palm/trunk/SOURCE/posix_calls_from_fortran.f90	(revision 4180)
@@ -27,15 +27,4 @@
 ! add variable description
 ! 
-! 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)
-!
-! 1986 2016-08-10 14:07:17Z gronemeier
-! Forced header and separation lines into 80 columns
-! 
-! 1986 2016-08-10 14:07:17Z gronemeier
-! Initial revision
 ! 
 ! Description:
Index: /palm/trunk/SOURCE/pres.f90
===================================================================
--- /palm/trunk/SOURCE/pres.f90	(revision 4179)
+++ /palm/trunk/SOURCE/pres.f90	(revision 4180)
@@ -30,133 +30,4 @@
 ! 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:
Index: /palm/trunk/SOURCE/print_1d.f90
===================================================================
--- /palm/trunk/SOURCE/print_1d.f90	(revision 4179)
+++ /palm/trunk/SOURCE/print_1d.f90	(revision 4180)
@@ -27,46 +27,4 @@
 ! Renamed output variables
 ! 
-! 3241 2018-09-12 15:02:00Z raasch
-! unused format statement removed
-! 
-! 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)
-!
-! 2101 2017-01-05 16:42:31Z suehring
-!
-! 2000 2016-08-20 18:09:15Z knoop
-! Forced header and separation lines into 80 columns
-!
-! 1697 2015-10-28 17:14:10Z raasch
-! small E- and F-FORMAT changes to avoid informative compiler messages about
-! insufficient field width
-!
-! 1682 2015-10-07 23:56:08Z knoop
-! Code annotations made doxygen readable
-!
-! 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
-! barrier argument removed from cpu_log,
-! module interfaces removed
-!
-! 1036 2012-10-22 13:43:42Z raasch
-! code put under GPL (PALM 3.9)
-!
-! RCS Log replace by Id keyword, revision history cleaned up
-!
-! Revision 1.1  1997/09/19 07:45:22  raasch
-! Initial revision
-!
 !
 ! Description:
Index: /palm/trunk/SOURCE/prognostic_equations.f90
===================================================================
--- /palm/trunk/SOURCE/prognostic_equations.f90	(revision 4179)
+++ /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:
Index: /palm/trunk/SOURCE/progress_bar_mod.f90
===================================================================
--- /palm/trunk/SOURCE/progress_bar_mod.f90	(revision 4179)
+++ /palm/trunk/SOURCE/progress_bar_mod.f90	(revision 4180)
@@ -28,34 +28,4 @@
 ! bugfix for restarts
 ! 
-! 3225 2018-08-30 16:33:14Z kanani
-! Increase printed length of run identifier,
-! bugfix for restarts
-! 
-! 2726 2018-01-08 17:40:52Z kanani
-! Exclude spinup time from progress bar 
-! 
-! 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)
-!
-! 2101 2017-01-05 16:42:31Z suehring
-!
-! 2000 2016-08-20 18:09:15Z knoop
-! Forced header and separation lines into 80 columns
-! 
-! 1850 2016-04-08 13:29:27Z maronga
-! Module renamed
-! 
-!
-! 1808 2016-04-05 19:44:00Z raasch
-! routine local_flush replaced by FORTRAN statement
-!
-! 1682 2015-10-07 23:56:08Z knoop
-! Code annotations made doxygen readable 
-! 
-! 1468 2014-09-24 14:06:57Z maronga
-! Added support for progress file PROGRESS which is used in case of batch jobs
 !
 ! Description:
Index: /palm/trunk/SOURCE/radiation_model_mod.f90
===================================================================
--- /palm/trunk/SOURCE/radiation_model_mod.f90	(revision 4179)
+++ /palm/trunk/SOURCE/radiation_model_mod.f90	(revision 4180)
@@ -143,501 +143,4 @@
 ! 3655 2019-01-07 16:51:22Z knoop
 ! nopointer option removed
-! 
-! 3633 2018-12-17 16:17:57Z schwenkel
-! Include check for rrtmg files
-! 
-! 3630 2018-12-17 11:04:17Z knoop
-! - fix initialization of date and time after calling zenith
-! - fix a bug in radiation_solar_pos
-!
-! 3616 2018-12-10 09:44:36Z Salim
-! fix manipulation of time variables in radiation_presimulate_solar_pos
-!
-! 3608 2018-12-07 12:59:57Z suehring $
-! Bugfix radiation output
-! 
-! 3607 2018-12-07 11:56:58Z suehring
-! Output of radiation-related quantities migrated to radiation_model_mod.
-! 
-! 3589 2018-11-30 15:09:51Z suehring
-! Remove erroneous UTF encoding
-! 
-! 3572 2018-11-28 11:40:28Z suehring
-! Add filling the short- and longwave radiation flux arrays (e.g. diffuse, 
-! direct, reflected, resedual) for all surfaces. This is required to surface
-! outputs in suface_output_mod. (M. Salim)
-! 
-! 3571 2018-11-28 09:24:03Z moh.hefny
-! Add an epsilon value to compare values in if statement to fix possible 
-! precsion related errors in raytrace routines.
-! 
-! 3524 2018-11-14 13:36:44Z raasch
-! missing cpp-directives added
-! 
-! 3495 2018-11-06 15:22:17Z kanani
-! Resort control_parameters ONLY list,
-! From branch radiation@3491 moh.hefny:
-! bugfix in calculating the apparent solar positions by updating 
-! the simulated time so that the actual time is correct.
-! 
-! 3464 2018-10-30 18:08:55Z kanani
-! From branch resler@3462, pavelkrc:
-! add MRT shaping function for human
-! 
-! 3449 2018-10-29 19:36:56Z suehring
-! New RTM version 3.0: (Pavel Krc, Jaroslav Resler, ICS, Prague)
-!   - Interaction of plant canopy with LW radiation
-!   - Transpiration from resolved plant canopy dependent on radiation
-!     called from RTM
-! 
-! 
-! 3435 2018-10-26 18:25:44Z gronemeier
-! - workaround: return unit=illegal in check_data_output for certain variables
-!   when check called from init_masks
-! - Use pointer in masked output to reduce code redundancies
-! - Add terrain-following masked output
-! 
-! 3424 2018-10-25 07:29:10Z gronemeier
-! bugfix: add rad_lw_in, rad_lw_out, rad_sw_out to radiation_check_data_output
-! 
-! 3378 2018-10-19 12:34:59Z kanani
-! merge from radiation branch (r3362) into trunk
-! (moh.hefny):
-! - removed read/write_svf_on_init and read_dist_max_svf (not used anymore)
-! - bugfix nzut > nzpt in calculating maxboxes
-! 
-! 3372 2018-10-18 14:03:19Z raasch
-! bugfix: kind type of 2nd argument of mpi_win_allocate changed, misplaced
-!         __parallel directive
-! 
-! 3351 2018-10-15 18:40:42Z suehring
-! Do not overwrite values of spectral and broadband albedo during initialization
-! if they are already initialized in the urban-surface model via ASCII input.
-! 
-! 3337 2018-10-12 15:17:09Z kanani
-! - New RTM version 2.9: (Pavel Krc, Jaroslav Resler, ICS, Prague)
-!   added calculation of the MRT inside the RTM module
-!   MRT fluxes are consequently used in the new biometeorology module
-!   for calculation of biological indices (MRT, PET)
-!   Fixes of v. 2.5 and SVN trunk:
-!    - proper initialization of rad_net_l
-!    - make arrays nsurfs and surfstart TARGET to prevent some MPI problems
-!    - initialization of arrays used in MPI one-sided operation as 1-D arrays
-!      to prevent problems with some MPI/compiler combinations
-!    - fix indexing of target displacement in subroutine request_itarget to 
-!      consider nzub
-!    - fix LAD dimmension range in PCB calculation
-!    - check ierr in all MPI calls
-!    - use proper per-gridbox sky and diffuse irradiance
-!    - fix shading for reflected irradiance
-!    - clear away the residuals of "atmospheric surfaces" implementation
-!    - fix rounding bug in raytrace_2d introduced in SVN trunk
-! - New RTM version 2.5: (Pavel Krc, Jaroslav Resler, ICS, Prague)
-!   can use angular discretization for all SVF
-!   (i.e. reflected and emitted radiation in addition to direct and diffuse),
-!   allowing for much better scaling wih high resoltion and/or complex terrain
-! - Unite array grow factors
-! - Fix slightly shifted terrain height in raytrace_2d
-! - Use more efficient MPI_Win_allocate for reverse gridsurf index
-! - Fix random MPI RMA bugs on Intel compilers
-! - Fix approx. double plant canopy sink values for reflected radiation
-! - Fix mostly missing plant canopy sinks for direct radiation
-! - Fix discretization errors for plant canopy sink in diffuse radiation
-! - Fix rounding errors in raytrace_2d
-!
-! 3274 2018-09-24 15:42:55Z knoop
-! Modularization of all bulk cloud physics code components
-! 
-! 3272 2018-09-24 10:16:32Z suehring
-! - split direct and diffusion shortwave radiation using RRTMG rather than using
-!   calc_diffusion_radiation, in case of RRTMG
-! - removed the namelist variable split_diffusion_radiation. Now splitting depends
-!   on the choise of radiation radiation scheme
-! - removed calculating the rdiation flux for surfaces at the radiation scheme
-!   in case of using RTM since it will be calculated anyway in the radiation 
-!   interaction routine.
-! - set SW radiation flux for surfaces to zero at night in case of no RTM is used
-! - precalculate the unit vector yxdir of ray direction to avoid the temporarly 
-!   array allocation during the subroutine call
-! - fixed a bug in calculating the max number of boxes ray can cross in the domain
-! 
-! 3264 2018-09-20 13:54:11Z moh.hefny
-! Bugfix in raytrace_2d calls
-! 
-! 3248 2018-09-14 09:42:06Z sward
-! Minor formating changes
-! 
-! 3246 2018-09-13 15:14:50Z sward
-! Added error handling for input namelist via parin_fail_message
-! 
-! 3241 2018-09-12 15:02:00Z raasch
-! unused variables removed or commented
-! 
-! 3233 2018-09-07 13:21:24Z schwenkel
-! Adapted for the use of cloud_droplets 
-! 
-! 3230 2018-09-05 09:29:05Z schwenkel
-! Bugfix in radiation_constant_surf: changed (10.0 - emissivity_urb) to 
-! (1.0 - emissivity_urb)
-! 
-! 3226 2018-08-31 12:27:09Z suehring
-! Bugfixes in calculation of sky-view factors and canopy-sink factors.
-! 
-! 3186 2018-07-30 17:07:14Z suehring
-! Remove print statement
-! 
-! 3180 2018-07-27 11:00:56Z suehring
-! Revise concept for calculation of effective radiative temperature and mapping
-! of radiative heating
-! 
-! 3175 2018-07-26 14:07:38Z suehring
-! Bugfix for commit 3172
-! 
-! 3173 2018-07-26 12:55:23Z suehring
-! Revise output of surface radiation quantities in case of overhanging 
-! structures
-! 
-! 3172 2018-07-26 12:06:06Z suehring
-! Bugfixes:
-!  - temporal work-around for calculation of effective radiative surface 
-!    temperature
-!  - prevent positive solar radiation during nighttime
-! 
-! 3170 2018-07-25 15:19:37Z suehring
-! Bugfix, map signle-column radiation forcing profiles on top of any topography
-! 
-! 3156 2018-07-19 16:30:54Z knoop
-! Bugfix: replaced usage of the pt array with the surf%pt_surface array
-!
-! 3137 2018-07-17 06:44:21Z maronga
-! String length for trace_names fixed
-! 
-! 3127 2018-07-15 08:01:25Z maronga
-! A few pavement parameters updated.
-! 
-! 3123 2018-07-12 16:21:53Z suehring
-! Correct working precision for INTEGER number
-! 
-! 3122 2018-07-11 21:46:41Z maronga
-! Bugfix: maximum distance for raytracing was set to  -999 m by default,
-! effectively switching off all surface reflections when max_raytracing_dist
-! was not explicitly set in namelist
-! 
-! 3117 2018-07-11 09:59:11Z maronga
-! Bugfix: water vapor was not transfered to RRTMG when bulk_cloud_model = .F.
-! Bugfix: changed the calculation of RRTMG boundary conditions (Mohamed Salim)
-! Bugfix: dry residual atmosphere is replaced by standard RRTMG atmosphere
-! 
-! 3116 2018-07-10 14:31:58Z suehring
-! Output of long/shortwave radiation at surface
-! 
-! 3107 2018-07-06 15:55:51Z suehring
-! Bugfix, missing index for dz
-! 
-! 3066 2018-06-12 08:55:55Z Giersch
-! Error message revised 
-! 
-! 3065 2018-06-12 07:03:02Z Giersch
-! dz was replaced by dz(1), error message concerning vertical stretching was 
-! added  
-! 
-! 3049 2018-05-29 13:52:36Z Giersch
-! Error messages revised
-! 
-! 3045 2018-05-28 07:55:41Z Giersch
-! Error message revised
-! 
-! 3026 2018-05-22 10:30:53Z schwenkel
-! Changed the name specific humidity to mixing ratio, since we are computing
-! mixing ratios.
-! 
-! 3016 2018-05-09 10:53:37Z Giersch
-! Revised structure of reading svf data according to PALM coding standard: 
-! svf_code_field/len and fsvf removed, error messages PA0493 and PA0494 added,
-! allocation status of output arrays checked. 
-! 
-! 3014 2018-05-09 08:42:38Z maronga
-! Introduced plant canopy height similar to urban canopy height to limit
-! the memory requirement to allocate lad.
-! Deactivated automatic setting of minimum raytracing distance.
-! 
-! 3004 2018-04-27 12:33:25Z Giersch
-! Further allocation checks implemented (averaged data will be assigned to fill
-! values if no allocation happened so far) 
-! 
-! 2995 2018-04-19 12:13:16Z Giersch
-! IF-statement in radiation_init removed so that the calculation of radiative 
-! fluxes at model start is done in any case, bugfix in 
-! radiation_presimulate_solar_pos (end_time is the sum of end_time and the 
-! spinup_time specified in the p3d_file ), list of variables/fields that have
-! to be written out or read in case of restarts has been extended
-! 
-! 2977 2018-04-17 10:27:57Z kanani
-! Implement changes from branch radiation (r2948-2971) with minor modifications,
-! plus some formatting.
-! (moh.hefny):
-! - replaced plant_canopy by npcbl to check tree existence to avoid weird 
-!   allocation of related arrays (after domain decomposition some domains 
-!   contains no trees although plant_canopy (global parameter) is still TRUE).
-! - added a namelist parameter to force RTM settings
-! - enabled the option to switch radiation reflections off
-! - renamed surf_reflections to surface_reflections 
-! - removed average_radiation flag from the namelist (now it is implicitly set 
-!   in init_3d_model according to RTM)
-! - edited read and write sky view factors and CSF routines to account for
-!   the sub-domains which may not contain any of them
-! 
-! 2967 2018-04-13 11:22:08Z raasch
-! bugfix: missing parallel cpp-directives added
-! 
-! 2964 2018-04-12 16:04:03Z Giersch
-! Error message PA0491 has been introduced which could be previously found in 
-! check_open. The variable numprocs_previous_run is only known in case of 
-! initializing_actions == read_restart_data
-! 
-! 2963 2018-04-12 14:47:44Z suehring
-! - Introduce index for vegetation/wall, pavement/green-wall and water/window 
-!   surfaces, for clearer access of surface fraction, albedo, emissivity, etc. .
-! - Minor bugfix in initialization of albedo for window surfaces
-! 
-! 2944 2018-04-03 16:20:18Z suehring
-! Fixed bad commit
-! 
-! 2943 2018-04-03 16:17:10Z suehring
-! No read of nsurfl from SVF file since it is calculated in
-! radiation_interaction_init,
-! allocation of arrays in radiation_read_svf only if not yet allocated,
-! update of 2920 revision comment.
-! 
-! 2932 2018-03-26 09:39:22Z maronga
-! renamed radiation_par to radiation_parameters
-! 
-! 2930 2018-03-23 16:30:46Z suehring
-! Remove default surfaces from radiation model, does not make much sense to 
-! apply radiation model without energy-balance solvers; Further, add check for 
-! this. 
-! 
-! 2920 2018-03-22 11:22:01Z kanani
-! - Bugfix: Initialize pcbl array (=-1)
-! RTM version 2.0 (Jaroslav Resler, Pavel Krc, Mohamed Salim):
-! - new major version of radiation interactions
-! - substantially enhanced performance and scalability
-! - processing of direct and diffuse solar radiation separated from reflected 
-!   radiation, removed virtual surfaces
-! - new type of sky discretization by azimuth and elevation angles
-! - diffuse radiation processed cumulatively using sky view factor
-! - used precalculated apparent solar positions for direct irradiance
-! - added new 2D raytracing process for processing whole vertical column at once
-!   to increase memory efficiency and decrease number of MPI RMA operations
-! - enabled limiting the number of view factors between surfaces by the distance
-!   and value
-! - fixing issues induced by transferring radiation interactions from 
-!   urban_surface_mod to radiation_mod
-! - bugfixes and other minor enhancements
-! 
-! 2906 2018-03-19 08:56:40Z Giersch
-! NAMELIST paramter read/write_svf_on_init have been removed, functions 
-! check_open and close_file are used now for opening/closing files related to
-! svf data, adjusted unit number and error numbers 
-! 
-! 2894 2018-03-15 09:17:58Z Giersch
-! Calculations of the index range of the subdomain on file which overlaps with
-! the current subdomain are already done in read_restart_data_mod
-! radiation_read_restart_data was renamed to radiation_rrd_local and 
-! radiation_last_actions was renamed to radiation_wrd_local, variable named 
-! found has been introduced for checking if restart data was found, reading 
-! of restart strings has been moved completely to read_restart_data_mod, 
-! radiation_rrd_local is already inside the overlap loop programmed in 
-! read_restart_data_mod, the marker *** end rad *** is not necessary anymore,
-! strings and their respective lengths are written out and read now in case of 
-! restart runs to get rid of prescribed character lengths (Giersch)
-!
-! 2809 2018-02-15 09:55:58Z suehring
-! Bugfix for gfortran: Replace the function C_SIZEOF with STORAGE_SIZE
-! 
-! 2753 2018-01-16 14:16:49Z suehring
-! Tile approach for spectral albedo implemented. 
-! 
-! 2746 2018-01-15 12:06:04Z suehring
-! Move flag plant canopy to modules
-! 
-! 2724 2018-01-05 12:12:38Z maronga
-! Set default of average_radiation to .FALSE.
-! 
-! 2723 2018-01-05 09:27:03Z maronga
-! Bugfix in calculation of rad_lw_out (clear-sky). First grid level was used
-! instead of the surface value
-! 
-! 2718 2018-01-02 08:49:38Z maronga
-! Corrected "Former revisions" section
-! 
-! 2707 2017-12-18 18:34:46Z suehring
-! Changes from last commit documented
-! 
-! 2706 2017-12-18 18:33:49Z suehring
-! Bugfix, in average radiation case calculate exner function before using it.
-!
-! 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
-! - Change in file header (GPL part)
-! - Improved reading/writing of SVF from/to file (BM)
-! - Bugfixes concerning RRTMG as well as average_radiation options (M. Salim)
-! - Revised initialization of surface albedo and some minor bugfixes (MS)
-! - Update net radiation after running radiation interaction routine (MS)
-! - Revisions from M Salim included
-! - Adjustment to topography and surface structure (MS)
-! - Initialization of albedo and surface emissivity via input file (MS)
-! - albedo_pars extended (MS)
-! 
-! 2604 2017-11-06 13:29:00Z schwenkel
-! bugfix for calculation of effective radius using morrison microphysics
-! 
-! 2601 2017-11-02 16:22:46Z scharf
-! added emissivity to namelist
-! 
-! 2575 2017-10-24 09:57:58Z maronga
-! Bugfix: calculation of shortwave and longwave albedos for RRTMG swapped
-! 
-! 2547 2017-10-16 12:41:56Z schwenkel
-! extended by cloud_droplets option, minor bugfix and correct calculation of
-! cloud droplet number concentration
-! 
-! 2544 2017-10-13 18:09:32Z maronga
-! Moved date and time quantitis to separate module date_and_time_mod
-! 
-! 2512 2017-10-04 08:26:59Z raasch
-! upper bounds of cross section and 3d output changed from nx+1,ny+1 to nx,ny
-! no output of ghost layer data
-! 
-! 2504 2017-09-27 10:36:13Z maronga
-! Updates pavement types and albedo parameters
-! 
-! 2328 2017-08-03 12:34:22Z maronga
-! Emissivity can now be set individually for each pixel.
-! Albedo type can be inferred from land surface model.
-! Added default albedo type for bare soil
-! 
-! 2318 2017-07-20 17:27:44Z suehring
-! Get topography top index via Function call 
-! 
-! 2317 2017-07-20 17:27:19Z suehring
-! Improved syntax layout
-! 
-! 2298 2017-06-29 09:28:18Z raasch
-! type of write_binary changed from CHARACTER to LOGICAL
-! 
-! 2296 2017-06-28 07:53:56Z maronga
-! Added output of rad_sw_out for radiation_scheme = 'constant'
-! 
-! 2270 2017-06-09 12:18:47Z maronga
-! Numbering changed (2 timeseries removed)
-! 
-! 2249 2017-06-06 13:58:01Z sward
-! Allow for RRTMG runs without humidity/cloud physics
-! 
-! 2248 2017-06-06 13:52:54Z sward
-! Error no changed
-! 
-! 2233 2017-05-30 18:08:54Z suehring
-! 
-! 2232 2017-05-30 17:47:52Z suehring
-! Adjustments to new topography concept
-! Bugfix in read restart
-! 
-! 2200 2017-04-11 11:37:51Z suehring
-! Bugfix in call of exchange_horiz_2d and read restart data
-! 
-! 2163 2017-03-01 13:23:15Z schwenkel
-! Bugfix in radiation_check_data_output
-! 
-! 2157 2017-02-22 15:10:35Z suehring
-! Bugfix in read_restart data
-! 
-! 2011 2016-09-19 17:29:57Z kanani
-! Removed CALL of auxiliary SUBROUTINE get_usm_info,
-! flag urban_surface is now defined in module control_parameters.
-! 
-! 2007 2016-08-24 15:47:17Z kanani
-! Added calculation of solar directional vector for new urban surface 
-! model,
-! accounted for urban_surface model in radiation_check_parameters,
-! correction of comments for zenith angle.
-! 
-! 2000 2016-08-20 18:09:15Z knoop
-! Forced header and separation lines into 80 columns
-! 
-! 1976 2016-07-27 13:28:04Z maronga
-! Output of 2D/3D/masked data is now directly done within this module. The
-! radiation schemes have been simplified for better usability so that
-! rad_lw_in, rad_lw_out, rad_sw_in, and rad_sw_out are available independent of
-! the radiation code used.
-! 
-! 1856 2016-04-13 12:56:17Z maronga
-! Bugfix: allocation of rad_lw_out for radiation_scheme = 'clear-sky'
-! 
-! 1853 2016-04-11 09:00:35Z maronga
-! Added routine for radiation_scheme = constant.
-!  
-! 1849 2016-04-08 11:33:18Z hoffmann 
-! Adapted for modularization of microphysics
-!
-! 1826 2016-04-07 12:01:39Z maronga
-! Further modularization.
-! 
-! 1788 2016-03-10 11:01:04Z maronga
-! Added new albedo class for pavements / roads.
-!
-! 1783 2016-03-06 18:36:17Z raasch
-! palm-netcdf-module removed in order to avoid a circular module dependency,
-! netcdf-variables moved to netcdf-module, new routine netcdf_handle_error_rad
-! added
-!
-! 1757 2016-02-22 15:49:32Z maronga
-! Added parameter unscheduled_radiation_calls. Bugfix: interpolation of sounding
-! profiles for pressure and temperature above the LES domain.
-! 
-! 1709 2015-11-04 14:47:01Z maronga
-! Bugfix: set initial value for rrtm_lwuflx_dt to zero, small formatting
-! corrections
-! 
-! 1701 2015-11-02 07:43:04Z maronga
-! Bugfixes: wrong index for output of timeseries, setting of nz_snd_end
-! 
-! 1691 2015-10-26 16:17:44Z maronga
-! Added option for spin-up runs without radiation (skip_time_do_radiation). Bugfix
-! in calculation of pressure profiles. Bugfix in calculation of trace gas profiles.
-! Added output of radiative heating rates.
-! 
-! 1682 2015-10-07 23:56:08Z knoop
-! Code annotations made doxygen readable 
-! 
-! 1606 2015-06-29 10:43:37Z maronga
-! Added preprocessor directive __netcdf to allow for compiling without netCDF.
-! Note, however, that RRTMG cannot be used without netCDF.
-! 
-! 1590 2015-05-08 13:56:27Z maronga
-! Bugfix: definition of character strings requires same length for all elements
-! 
-! 1587 2015-05-04 14:19:01Z maronga
-! Added albedo class for snow
-! 
-! 1585 2015-04-30 07:05:52Z maronga
-! Added support for RRTMG
-! 
-! 1571 2015-03-12 16:12:49Z maronga
-! Added missing KIND attribute. Removed upper-case variable names
-! 
-! 1551 2015-03-03 14:18:16Z maronga
-! Added support for data output. Various variables have been renamed. Added
-! interface for different radiation schemes (currently: clear-sky, constant, and
-! RRTM (not yet implemented).
-! 
-! 1496 2014-12-02 17:25:50Z maronga
-! Initial revision
 ! 
 !
Index: /palm/trunk/SOURCE/random_function_mod.f90
===================================================================
--- /palm/trunk/SOURCE/random_function_mod.f90	(revision 4179)
+++ /palm/trunk/SOURCE/random_function_mod.f90	(revision 4180)
@@ -34,42 +34,4 @@
 ! Corrected "Former revisions" section
 ! 
-! 2696 2017-12-14 17:12:51Z kanani
-! Change in file header (GPL part)
-!
-! 2101 2017-01-05 16:42:31Z suehring
-!
-! 2000 2016-08-20 18:09:15Z knoop
-! Forced header and separation lines into 80 columns
-! 
-! 1850 2016-04-08 13:29:27Z maronga
-! Module renamed
-! 
-! 
-! 1682 2015-10-07 23:56:08Z knoop
-! Code annotations made doxygen readable 
-! 
-! 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
-!
-! 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)
-!
-! RCS Log replace by Id keyword, revision history cleaned up
-!
-! Revision 1.1  1998/02/04 16:09:45  raasch
-! Initial revision
-!
 !
 ! Description:
Index: /palm/trunk/SOURCE/random_gauss.f90
===================================================================
--- /palm/trunk/SOURCE/random_gauss.f90	(revision 4179)
+++ /palm/trunk/SOURCE/random_gauss.f90	(revision 4180)
@@ -27,35 +27,4 @@
 ! Corrected "Former revisions" section
 ! 
-! 2696 2017-12-14 17:12:51Z kanani
-! Change in file header (GPL part)
-!
-! 2101 2017-01-05 16:42:31Z suehring
-!
-! 2000 2016-08-20 18:09:15Z knoop
-! Forced header and separation lines into 80 columns
-! 
-! 1682 2015-10-07 23:56:08Z knoop
-! Code annotations made doxygen readable 
-! 
-! 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
-!
-! 1036 2012-10-22 13:43:42Z raasch
-! code put under GPL (PALM 3.9)
-!
-! RCS Log replace by Id keyword, revision history cleaned up
-!
-! Revision 1.1  1998/03/25 20:09:47  raasch
-! Initial revision
-!
 !
 ! Description:
Index: /palm/trunk/SOURCE/random_generator_parallel_mod.f90
===================================================================
--- /palm/trunk/SOURCE/random_generator_parallel_mod.f90	(revision 4179)
+++ /palm/trunk/SOURCE/random_generator_parallel_mod.f90	(revision 4180)
@@ -26,35 +26,4 @@
 ! $Id$
 ! unused variable removed
-! 
-! 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)
-! Formatting (MS)
-! 
-! 2255 2017-06-07 11:58:09Z knoop
-! Implemented PALM specific error message handling
-! 
-! 2173 2017-03-08 15:56:54Z knoop
-!
-! 2172 2017-03-08 15:55:25Z knoop
-! Bugfix: added global initialization routine and removed global array
-! 
-! 2144 2017-02-07 15:32:45Z knoop
-! Bugfix: compile time parameter replacement prevented
-! 
-! 2000 2016-08-20 18:09:15Z knoop
-! Forced header and separation lines into 80 columns
-! 
-! 1850 2016-04-08 13:29:27Z maronga
-! Module renamed
-! 
-! 
-! 1682 2015-10-07 23:56:08Z knoop
-! Code annotations made doxygen readable 
-! 
-! 1400 2014-05-09 14:03:54Z knoop
-! Initial revision
 ! 
 !
Index: /palm/trunk/SOURCE/read_restart_data_mod.f90
===================================================================
--- /palm/trunk/SOURCE/read_restart_data_mod.f90	(revision 4179)
+++ /palm/trunk/SOURCE/read_restart_data_mod.f90	(revision 4180)
@@ -59,58 +59,4 @@
 ! 3655 2019-01-07 16:51:22Z knoop
 ! Implementation of the PALM module interface
-! 
-! 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
-! Added chemistry profiles for restart run (basit)
-! 
-! 3294 2018-10-01 02:37:10Z raasch
-! changes concerning modularization of ocean option
-! 
-! 3289 2018-09-28 10:23:58Z suehring
-! Introduce module parameter for number of inflow profiles
-! 
-! 3288 2018-09-28 10:23:08Z suehring
-! Modularization of all bulk cloud physics code components
-! 
-! 3241 2018-09-12 15:02:00Z raasch
-! unused variables removed
-! 
-! 3183 2018-07-27 14:25:55Z suehring
-! Rename variables for boundary flags
-! 
-! 3182 2018-07-27 13:36:03Z suehring
-! New parameters concerning vertical grid stretching have been added
-! 
-! 3056 2018-06-04 07:49:35Z Giersch
-! found variable has to be set to false inside overlap loop
-! 
-! 3049 2018-05-29 13:52:36Z Giersch
-! Error messages revised
-! 
-! 3045 2018-05-28 07:55:41Z Giersch
-! Error messages revised
-! 
-! 3004 2018-04-27 12:33:25Z Giersch
-! precipitation_rate_av removed
-! 
-! 3003 2018-04-23 10:22:58Z Giersch
-! z_i is also read to use the last known inversion height from the 
-! initial run as the first inversion height which is written into the
-! run control file 
-! 
-! 2956 2018-04-10 11:01:03Z Giersch
-! spectrum_x and spectrum_y have been moved to global data
-! 
-! 2921 2018-03-22 15:05:23Z Giersch
-! spinup_time, day_of_year_init and time_utc_init are also read now
-! 
-! 2912 2018-03-20 13:00:05Z knoop
-! Added gust module interface calls
-! 
-! 2894 2018-03-15 09:17:58Z Giersch
-! Initial revision
 ! 
 !
Index: /palm/trunk/SOURCE/run_control.f90
===================================================================
--- /palm/trunk/SOURCE/run_control.f90	(revision 4179)
+++ /palm/trunk/SOURCE/run_control.f90	(revision 4180)
@@ -27,49 +27,4 @@
 ! Corrected "Former revisions" section
 ! 
-! 2696 2017-12-14 17:12:51Z kanani
-! Change in file header (GPL part)
-!
-! 2101 2017-01-05 16:42:31Z suehring
-!
-! 2000 2016-08-20 18:09:15Z knoop
-! Forced header and separation lines into 80 columns
-!
-! 1808 2016-04-05 19:44:00Z raasch
-! routine local_flush replaced by FORTRAN statement
-!
-! 1697 2015-10-28 17:14:10Z raasch
-! small E- and F-FORMAT changes to avoid informative compiler messages about
-! insufficient field width
-!
-! 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
-!
-! 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
-! output format for theta* changed to avoid output of *****
-!
-! 1036 2012-10-22 13:43:42Z raasch
-! code put under GPL (PALM 3.9)
-!
-! 1001 2012-09-13 14:08:46Z raasch
-! all actions concerning leapfrog scheme removed
-!
-! Revision 1.1  1997/08/11 06:25:38  raasch
-! Initial revision
-!
 !
 ! Description:
Index: /palm/trunk/SOURCE/salsa_mod.f90
===================================================================
--- /palm/trunk/SOURCE/salsa_mod.f90	(revision 4179)
+++ /palm/trunk/SOURCE/salsa_mod.f90	(revision 4180)
@@ -161,36 +161,4 @@
 ! Implementation of the PALM module interface
 ! 
-! 3636 2018-12-19 13:48:34Z raasch
-! nopointer option removed
-! 
-! 3630 2018-12-17 11:04:17Z knoop
-! - Moved the control parameter "salsa" from salsa_mod.f90 to control_parameters
-! - Updated salsa_rrd_local and salsa_wrd_local
-! - Add target attribute
-! - Revise initialization in case of restarts
-! - Revise masked data output
-!
-! 3582 2018-11-29 19:16:36Z suehring
-! missing comma separator inserted
-! 
-! 3483 2018-11-02 14:19:26Z raasch
-! bugfix: directives added to allow compilation without netCDF
-! 
-! 3481 2018-11-02 09:14:13Z raasch
-! temporary variable cc introduced to circumvent a possible Intel18 compiler bug
-! related to contiguous/non-contguous pointer/target attributes
-! 
-! 3473 2018-10-30 20:50:15Z suehring
-! NetCDF input routine renamed
-! 
-! 3467 2018-10-30 19:05:21Z suehring
-! Initial revision
-! 
-! 3412 2018-10-24 07:25:57Z monakurppa
-!
-! Authors:
-! --------
-! @author Mona Kurppa (University of Helsinki)
-!
 !
 ! Description:
Index: /palm/trunk/SOURCE/singleton_mod.f90
===================================================================
--- /palm/trunk/SOURCE/singleton_mod.f90	(revision 4179)
+++ /palm/trunk/SOURCE/singleton_mod.f90	(revision 4180)
@@ -10,24 +10,4 @@
 ! statement added to prevent compiler warning about unused variables
 ! 
-! 2001 2016-08-20 18:41:22Z knoop
-!
-! 2000 2016-08-20 18:09:15Z knoop
-! Forced header and separation lines into 80 columns
-! 
-! 1850 2016-04-08 13:29:27Z maronga
-! Module renamed
-! 
-! 
-! 1682 2015-10-07 23:56:08Z knoop
-! Code annotations made doxygen readable
-!
-! 1320 2014-03-20 08:40:49Z raasch
-! kind-parameters added to all INTEGER and REAL declaration statements,
-! kinds are defined in new module kinds,
-! revision history before 2012 removed,
-!
-! Revision 1.1  2002/05/02 18:56:59  raasch
-! Initial revision
-!
 !
 ! Description:
Index: /palm/trunk/SOURCE/sor.f90
===================================================================
--- /palm/trunk/SOURCE/sor.f90	(revision 4179)
+++ /palm/trunk/SOURCE/sor.f90	(revision 4180)
@@ -27,46 +27,4 @@
 ! Rename variables in mesoscale-offline nesting mode
 ! 
-! 3182 2018-07-27 13:36:03Z suehring
-! Corrected "Former revisions" section
-! 
-! 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)
-! - Large-scale forcing implemented (MS)
-! 
-! 2101 2017-01-05 16:42:31Z suehring
-!
-! 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
-! 
-! 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
-!
-! 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
-!
-! 1036 2012-10-22 13:43:42Z raasch
-! code put under GPL (PALM 3.9)
-!
-! Revision 1.1  1997/08/11 06:25:56  raasch
-! Initial revision
-!
 !
 ! Description:
Index: /palm/trunk/SOURCE/spectra_mod.f90
===================================================================
--- /palm/trunk/SOURCE/spectra_mod.f90	(revision 4179)
+++ /palm/trunk/SOURCE/spectra_mod.f90	(revision 4180)
@@ -30,110 +30,4 @@
 ! Renamed output variables
 ! 
-! 3248 2018-09-14 09:42:06Z sward
-! Minor formating changes
-! 
-! 3246 2018-09-13 15:14:50Z sward
-! Added error handling for input namelist via parin_fail_message
-! 
-! 3241 2018-09-12 15:02:00Z raasch
-! unused variables removed
-! 
-! 3049 2018-05-29 13:52:36Z Giersch
-! Error messages revised
-! 
-! 3045 2018-05-28 07:55:41Z Giersch
-! Error message revised
-! 
-! 2956 2018-04-10 11:01:03Z Giersch
-! spectrum_x and spectrum_y will only be allocated if they are not allocated 
-! before (e.g. in case of restart runs) 
-! 
-! 2932 2018-03-26 09:39:22Z maronga
-! renamed spectra_par to spectra_parameters
-! 
-! 2841 2018-02-27 15:02:57Z knoop
-! Bugfix: wrong placement of include 'mpif.h' corrected
-! 
-! 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)
-!
-! 2216 2017-04-28 12:54:20Z suehring
-!
-! 2193 2017-03-22 04:21:28Z raasch
-! Normalization of spectra output adjusted
-!
-! 2192 2017-03-22 04:14:10Z raasch
-! bugfix for index bounds of arrays spectrum_x and spectrum_y
-!
-! 2000 2016-08-20 18:09:15Z knoop
-! Forced header and separation lines into 80 columns
-! 
-! 1960 2016-07-12 16:34:24Z suehring
-! Additional default spectra for passive scalar
-! 
-! 1833 2016-04-07 14:23:03Z raasch
-! file renamed, reading the spectra_par NAMELIST moved from package_parin to
-! here
-!
-! 1815 2016-04-06 13:49:59Z raasch
-! bugfix: preprocessor directives included for the non-parallel case
-!
-! 1808 2016-04-05 19:44:00Z raasch
-! MPI module used by default on all machines
-!
-! 1786 2016-03-08 05:49:27Z raasch
-! routine is modularized, filename renamed from calc_spectra to spectrum,
-! privious data module spectrum moved from modules.f90 to here,
-! cpp-direktives for spectra removed, immediate return if no spectra levels are
-! given
-!
-! 1682 2015-10-07 23:56:08Z knoop
-! Code annotations made doxygen readable 
-!
-! 1575 2015-03-27 09:56:27Z raasch
-! adjustments for psolver-queries
-!
-! 1511 2014-12-16 15:54:16Z suehring
-! Bugfix concerning spectra normalization
-!
-! 1431 2014-07-15 14:47:17Z suehring
-! Wavenumber-integrated spectra coincide with respective variance. 
-! 
-! 1342 2014-03-26 17:04:47Z kanani
-! REAL constants defined as wp-kinds
-!
-! 1324 2014-03-21 09:13:16Z suehring
-! Bugfix: nzb_x, nzb_yd, nyn_x, nyn_x, nzt_x, nzt_yd belong to transpose_indices 
-!
-! 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
-!
-! 1318 2014-03-17 13:35:16Z raasch
-! module interfaces removed
-!
-! 1216 2013-08-26 09:31:42Z raasch
-! resorting of array moved to separate routine resort_for_zx,
-! one argument removed from the transpose_..d routines
-!
-! 1120 2013-04-05 15:11:35Z raasch
-! bugfix: calls of fft_x|y replaced by fft_x|y_1d
-!
-! 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  2001/01/05 15:08:07  raasch
-! Initial revision
-!
 !
 ! Description:
Index: /palm/trunk/SOURCE/subsidence_mod.f90
===================================================================
--- /palm/trunk/SOURCE/subsidence_mod.f90	(revision 4179)
+++ /palm/trunk/SOURCE/subsidence_mod.f90	(revision 4180)
@@ -27,74 +27,4 @@
 ! add subroutine and variable description
 ! 
-! 3302 2018-10-03 02:39:40Z raasch
-! small message change
-! 
-! 3294 2018-10-01 02:37:10Z raasch
-! ocean renamed ocean_mode
-! 
-! 3045 2018-05-28 07:55:41Z Giersch
-! Error message revised
-! 
-! 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)
-!
-! 2233 2017-05-30 18:08:54Z suehring
-!
-! 2232 2017-05-30 17:47:52Z suehring
-! Adjustments to new topography and surface concept
-! 
-! 2000 2016-08-20 18:09:15Z knoop
-! Forced header and separation lines into 80 columns
-! 
-! 1862 2016-04-14 09:07:42Z hoffmann
-! Bugfix: In case of vector machine optimized model runs, sums_ls_l should not 
-! be addressed if large_scale_forcing is false because sums_ls_l is not 
-! allocated. 
-!
-! 1850 2016-04-08 13:29:27Z maronga
-! Module renamed
-! 
-! 1729 2015-11-20 11:01:48Z gronemeier
-! Bugfix: shifting of initial profiles only once each time step
-! 
-! 1682 2015-10-07 23:56:08Z knoop
-! Code annotations made doxygen readable 
-!
-! 1489 2014-10-30 08:09:12Z raasch
-! bugfix: sums_ls_l can only be used if large_scale_forcing is switched on
-!
-! 1382 2014-04-30 12:15:41Z boeske
-! Changed the weighting factor that is used in the summation of subsidence 
-! tendencies for profile data output from weight_pres to weight_substep
-! added Neumann boundary conditions for profile data output of subsidence terms
-! at nzt+1
-! 
-! 1380 2014-04-28 12:40:45Z heinze
-! Shifting only necessary in case of scalar Rayleigh damping
-! 
-! 1365 2014-04-22 15:03:56Z boeske
-! Summation of subsidence tendencies for data output added 
-! +ls_index, sums_ls_l, tmp_tend
-! 
-! 1353 2014-04-08 15:21:23Z heinze
-! REAL constants provided with KIND-attribute
-! 
-! 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 
-!
-! 1036 2012-10-22 13:43:42Z raasch
-! code put under GPL (PALM 3.9)
-!
-! Revision 3.7 2009-12-11 14:15:58Z heinze
-! Initial revision 
 !
 ! Description:
Index: /palm/trunk/SOURCE/sum_up_3d_data.f90
===================================================================
--- /palm/trunk/SOURCE/sum_up_3d_data.f90	(revision 4179)
+++ /palm/trunk/SOURCE/sum_up_3d_data.f90	(revision 4180)
@@ -48,216 +48,4 @@
 ! Implementation of the PALM module interface
 ! 
-! 3597 2018-12-04 08:40:18Z maronga
-! Added output of theta_2m
-! 
-! 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
-! dom_dwd_user, Schrempf:
-! Remove CALLs to uv exposure model, this is now part of biometeorology_mod
-! 
-! 3553 2018-11-22 10:30:48Z suehring
-! variables documented
-! 
-! 3552 2018-11-22 10:28:35Z suehring
-! Changes related to clean-up of biometeorology (dom_dwd_user)
-! 
-! 3467 2018-10-30 19:05:21Z suehring
-! Implementation of a new aerosol module salsa.
-! 
-! 3448 2018-10-29 18:14:31Z kanani
-! Adjustment of biometeorology calls
-! 
-! 3421 2018-10-24 18:39:32Z gronemeier
-! Renamed output variables
-! 
-! 3337 2018-10-12 15:17:09Z kanani
-! (from branch resler)
-! Add biometeorology,
-! fix chemistry output call,
-! move usm calls
-! 
-! 3294 2018-10-01 02:37:10Z raasch
-! changes concerning modularization of ocean option
-! 
-! 3291 2018-09-28 11:33:03Z scharf
-! corrected previous commit for 3D topography
-! 
-! 3285 2018-09-27 17:16:52Z scharf
-! bugfix for shf_av and qsws_av
-! 
-! 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
-! 
-! 3176 2018-07-26 17:12:48Z suehring
-! Remove output of latent heat flux at urban-surfaces and set fill values 
-! instead 
-! 
-! 3173 2018-07-26 12:55:23Z suehring
-! Bugfix for last commit
-! 
-! 3170 2018-07-25 15:19:37Z suehring
-! Revise output of surface quantities in case of overhanging structures
-! 
-! 3151 2018-07-19 08:45:38Z raasch
-! Remaining preprocessor directive __chem removed
-! 
-! 3004 2018-04-27 12:33:25Z Giersch
-! prr field added to ONLY-list, prr* case/pr* case/precipitation_rate_av 
-! removed, further allocation checks implemented
-! 
-! 2963 2018-04-12 14:47:44Z suehring
-! Introduce index for vegetation/wall, pavement/green-wall and water/window 
-! surfaces, for clearer access of surface fraction, albedo, emissivity, etc. .
-! 
-! 2894 2018-03-15 09:17:58Z Giersch
-! Changed comment
-! 
-! 2817 2018-02-19 16:32:21Z suehring
-! Preliminary gust module interface implemented
-! 
-! 2798 2018-02-09 17:16:39Z suehring
-! Consider also default-type surfaces for surface temperature output. 
-! 
-! 2797 2018-02-08 13:24:35Z suehring
-! Enable output of ground-heat flux also at urban surfaces.
-! 
-! 2790 2018-02-06 11:57:19Z suehring
-! Bugfix in summation of surface sensible and latent heat flux
-! 
-! 2766 2018-01-22 17:17:47Z kanani
-! Removed preprocessor directive __chem
-! 
-! 2743 2018-01-12 16:03:39Z suehring
-! In case of natural- and urban-type surfaces output surfaces fluxes in W/m2.
-! 
-! 2742 2018-01-12 14:59:47Z suehring
-! Enable output of surface temperature
-! 
-! 2735 2018-01-11 12:01:27Z suehring
-! output of r_a moved from land-surface to consider also urban-type surfaces
-! 
-! 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)
-! - Implementation of uv exposure model (FK)
-! - output of diss_av, kh_av, km_av (turbulence_closure_mod) (TG)
-! - Implementation of chemistry module (FK)
-! - Workaround for sum-up usm arrays in case of restart runs, to avoid program 
-!   crash (MS)
-!
-! 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). 
-! 
-! 2233 2017-05-30 18:08:54Z suehring
-!
-! 2232 2017-05-30 17:47:52Z suehring
-! Adjustments to new surface concept
-! 
-! 2031 2016-10-21 15:11:58Z knoop
-! renamed variable rho to rho_ocean and rho_av to rho_ocean_av
-! 
-! 2024 2016-10-12 16:42:37Z kanani
-! Added missing CASE for ssws*
-! 
-! 2011 2016-09-19 17:29:57Z kanani
-! Flag urban_surface is now defined in module control_parameters,
-! changed prefix for urban surface model output to "usm_",
-! introduced control parameter varnamelength for LEN of trimvar.
-! 
-! 2007 2016-08-24 15:47:17Z kanani
-! Added support for new urban surface model (temporary modifications of 
-! SELECT CASE ( ) necessary, see variable trimvar),
-! added comments in variable declaration section
-! 
-! 2000 2016-08-20 18:09:15Z knoop
-! Forced header and separation lines into 80 columns
-! 
-! 1992 2016-08-12 15:14:59Z suehring
-! Bugfix in summation of passive scalar
-! 
-! 1976 2016-07-27 13:28:04Z maronga
-! Radiation actions are now done directly in the respective module
-! 
-! 1972 2016-07-26 07:52:02Z maronga
-! Land surface actions are now done directly in the respective module
-! 
-! 1960 2016-07-12 16:34:24Z suehring
-! Scalar surface flux added
-! 
-! 1949 2016-06-17 07:19:16Z maronga
-! Bugfix: calculation of lai_av, c_veg_av and c_liq_av.
-! 
-! 1849 2016-04-08 11:33:18Z hoffmann
-! precipitation_rate moved to arrays_3d
-!
-! 1788 2016-03-10 11:01:04Z maronga
-! Added z0q and z0q_av
-! 
-! 1693 2015-10-27 08:35:45Z maronga
-! Last revision text corrected
-! 
-! 1691 2015-10-26 16:17:44Z maronga
-! Added output of Obukhov length and radiative heating rates for RRTMG. 
-! Corrected output of liquid water path.
-! 
-! 1682 2015-10-07 23:56:08Z knoop
-! Code annotations made doxygen readable 
-! 
-! 1585 2015-04-30 07:05:52Z maronga
-! Adapted for RRTMG
-! 
-! 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 support for land surface model and radiation model data.
-! 
-! 1359 2014-04-11 17:15:14Z hoffmann
-! New particle structure integrated. 
-!
-! 1353 2014-04-08 15:21:23Z heinze
-! REAL constants provided with KIND-attribute
-! 
-! 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
-! barrier argument removed from cpu_log,
-! module interfaces removed
-!
-! 1115 2013-03-26 18:16:16Z hoffmann
-! ql is calculated by calc_liquid_water_content
-!
-! 1053 2012-11-13 17:11:03Z hoffmann
-! +nr, prr, qr
-!
-! 1036 2012-10-22 13:43:42Z raasch
-! code put under GPL (PALM 3.9)
-!
-! 1007 2012-09-19 14:30:36Z franke
-! Bugfix in calculation of ql_vp
-!
-! 978 2012-08-09 08:28:32Z fricke
-! +z0h*
-!
-! Revision 1.1  2006/02/23 12:55:23  raasch
-! Initial revision
-!
 !
 ! Description:
Index: /palm/trunk/SOURCE/surface_coupler.f90
===================================================================
--- /palm/trunk/SOURCE/surface_coupler.f90	(revision 4179)
+++ /palm/trunk/SOURCE/surface_coupler.f90	(revision 4180)
@@ -27,70 +27,4 @@
 ! Modularization of all bulk cloud physics code components
 ! 
-! 3049 2018-05-29 13:52:36Z Giersch
-! Error messages revised
-! 
-! 3045 2018-05-28 07:55:41Z Giersch
-! Error message revised
-! 
-! 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)
-!
-! 2233 2017-05-30 18:08:54Z suehring
-!
-! 2232 2017-05-30 17:47:52Z suehring
-! Adjust to new surface structure. Transfer 1D surface fluxes onto 2D grid 
-! (and back). 
-! 
-! 2031 2016-10-21 15:11:58Z knoop
-! renamed variable rho to rho_ocean
-! 
-! 2000 2016-08-20 18:09:15Z knoop
-! Forced header and separation lines into 80 columns
-! 
-! 1682 2015-10-07 23:56:08Z knoop
-! Code annotations made doxygen readable 
-! 
-! 1427 2014-07-07 14:04:59Z maronga
-! Bugfix: value of l_v corrected.
-! 
-! 1418 2014-06-06 13:05:08Z fricke
-! Bugfix: For caluclation of the salinity flux at the sea surface, 
-!          the given value for salinity must be in percent and not in psu
-!
-! 1353 2014-04-08 15:21:23Z heinze
-! REAL constants provided with KIND-attribute
-! 
-! 1324 2014-03-21 09:13:16Z suehring
-! Bugfix: ONLY statement for module pegrid removed 
-!
-! 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
-!
-! 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)
-!
-! 880 2012-04-13 06:28:59Z raasch
-! Bugfix: preprocessor statements for parallel execution added
-!
-! 109 2007-08-28 15:26:47Z letzel
-! Initial revision
 !
 ! Description:
Index: /palm/trunk/SOURCE/surface_data_output_mod.f90
===================================================================
--- /palm/trunk/SOURCE/surface_data_output_mod.f90	(revision 4179)
+++ /palm/trunk/SOURCE/surface_data_output_mod.f90	(revision 4180)
@@ -69,35 +69,4 @@
 ! Rename module and subroutines
 !
-! 3646 2018-12-28 17:58:49Z kanani
-! Bugfix: use time_since_reference_point instead of simulated_time (relevant
-! when using wall/soil spinup)
-!
-! 3614 2018-12-10 07:05:46Z raasch
-! unused variables removed
-!
-! 3572 2018-11-28 11:40:28Z suehring
-! Added short- and longwave radiation flux arrays (e.g. diffuse, direct,
-! reflected, resedual) for all surfaces (M. Salim)
-!
-! 3494 2018-11-06 14:51:27Z suehring
-! Bugfix in gathering surface data from different types and orientation.
-! Output of total number of surfaces and vertices added.
-! String length is output, for more convinient post-processing.
-! Last actions added.
-!
-! 3483 2018-11-02 14:19:26Z raasch
-! bugfix: missed directives for MPI added
-!
-! 3421 2018-10-24 18:39:32Z gronemeier
-! Add output variables
-! Write data into binary file
-!
-! 3420 2018-10-24 17:30:08Z gronemeier
-! Initial implementation from Klaus Ketelsen and Matthias Suehring
-!
-!
-! Authors:
-! --------
-! @author Klaus Ketelsen, Matthias Suehring, Tobias Gronemeier
 !
 ! Description:
Index: /palm/trunk/SOURCE/surface_layer_fluxes_mod.f90
===================================================================
--- /palm/trunk/SOURCE/surface_layer_fluxes_mod.f90	(revision 4179)
+++ /palm/trunk/SOURCE/surface_layer_fluxes_mod.f90	(revision 4180)
@@ -54,200 +54,4 @@
 ! OpenACC port for SPEC
 ! 
-! 3597 2018-12-04 08:40:18Z maronga
-! Added routine for calculating near surface air potential temperature (moved
-! from urban_surface_mod)
-! 
-! 3547 2018-11-21 13:21:24Z suehring
-! variables documented
-! 
-! 3361 2018-10-16 20:39:37Z knoop
-! Modularization of all bulk cloud physics code components
-! 
-! 3271 2018-09-24 08:20:34Z suehring
-! Comment revised
-! 
-! 3157 2018-07-19 21:08:49Z maronga
-! Added local free convection velocity scale w_lfc in calculation of uvw_abs.
-! This can be switche on/off by the user via the flag namelist parameter 
-! use_free_convection_scaling
-! 
-! 3152 2018-07-19 13:26:52Z suehring
-! q_surface is now part of surface structure
-! 
-! 3149 2018-07-19 05:48:09Z maronga
-! Correct accidental last commit
-! 
-! 3148 2018-07-19 05:45:25Z maronga
-! Major bugfix in calculation of Obukhov length
-! 
-! 3146 2018-07-18 22:36:19Z maronga
-! move phi_m from turbulence_closure_mod
-! 
-! 3045 2018-05-28 07:55:41Z Giersch
-! Error message revised
-! 
-! 2766 2018-01-22 17:17:47Z kanani
-! Removed preprocessor directive __chem
-! 
-! 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)
-! - Implementation of chemistry module (FK)
-! - Added calculation of pt1 and qv1 for all surface types. Added calculation of
-!   pt_surface for default-type surfaces (BM)
-! - Add flag to disable computation of qsws in case of urban surface (MS)
-! 
-! 2547 2017-10-16 12:41:56Z schwenkel
-! extended by cloud_droplets option
-! 
-! 2321 2017-07-24 15:57:07Z schwenkel
-! Bugfix: Correct index in lookup table for Obukhov length 
-! 
-! 2299 2017-06-29 10:14:38Z suehring
-! Adjusted for allow separate spinups of LSM and atmosphere code
-! 
-! 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). 
-! 
-! 2281 2017-06-13 11:34:50Z suehring
-! Clean-up unnecessary index access to surface type
-! 
-! 2233 2017-05-30 18:08:54Z suehring
-!
-! 2232 2017-05-30 17:47:52Z suehring
-! Adjustments to new surface concept
-! OpenMP bugfix
-! 
-! 2118 2017-01-17 16:38:49Z raasch
-! OpenACC directives and related code removed
-! 
-! 2091 2016-12-21 16:38:18Z suehring
-! Bugfix in calculation of vsws ( incorrect linear interpolation of us ) 
-! 
-! 2076 2016-12-02 13:54:20Z raasch
-! further openmp bugfix for lookup method
-! 
-! 2073 2016-11-30 14:34:05Z raasch
-! openmp bugfix for lookup method
-! 
-! 2037 2016-10-26 11:15:40Z knoop
-! Anelastic approximation implemented
-! 
-! 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
-! Account for urban surface model in computation of vertical kinematic heatflux
-! 
-! 2000 2016-08-20 18:09:15Z knoop
-! Forced header and separation lines into 80 columns
-! 
-! 1992 2016-08-12 15:14:59Z suehring
-! Minor bug, declaration of look-up index as INTEGER
-! 
-! 1960 2016-07-12 16:34:24Z suehring
-! Treat humidity and passive scalar separately
-! 
-! 1929 2016-06-09 16:25:25Z suehring
-! Bugfix: avoid segmentation fault in case one grid point is horizontally 
-! completely surrounded by topography
-! 
-! 1920 2016-05-30 10:50:15Z suehring
-! Avoid segmentation fault (see change in 1915) by different initialization of 
-! us instead of adding a very small number in the denominator
-!
-! 1915 2016-05-27 11:05:02Z suehring
-! Bugfix: avoid segmentation fault in case of most_method = 'circular' at first
-! timestep
-!
-! 1850 2016-04-08 13:29:27Z maronga
-! Module renamed
-!
-! 
-! 1822 2016-04-07 07:49:42Z hoffmann
-! icloud_scheme replaced by microphysics_*
-!
-! 1788 2016-03-10 11:01:04Z maronga
-! Added parameter z0q which replaces z0h in the similarity functions for
-! humidity.
-! Syntax layout improved.
-! 
-! 1757 2016-02-22 15:49:32Z maronga
-! Minor fixes.
-!
-! 1749 2016-02-09 12:19:56Z raasch
-! further OpenACC adjustments
-!
-! 1747 2016-02-08 12:25:53Z raasch
-! adjustments for OpenACC usage
-!
-! 1709 2015-11-04 14:47:01Z maronga
-! Bugfix: division by zero could occur when calculating rib at low wind speeds
-! Bugfix: calculation of uv_total for neutral = .T., initial value for ol for
-! neutral = .T.
-! 
-! 1705 2015-11-02 14:28:56Z maronga
-! Typo removed
-!
-! 1697 2015-10-28 17:14:10Z raasch
-! FORTRAN and OpenMP errors removed
-!
-! 1696 2015-10-27 10:03:34Z maronga
-! Modularized and completely re-written version of prandtl_fluxes.f90. In the
-! course of the re-writing two additional methods have been implemented. See
-! updated description.
-!
-! 1551 2015-03-03 14:18:16Z maronga
-! Removed land surface model part. The surface fluxes are now always calculated
-! within prandtl_fluxes, based on the given surface temperature/humidity (which 
-! is either provided by the land surface model, by large scale forcing data, or
-! directly prescribed by the user.
-! 
-! 1496 2014-12-02 17:25:50Z maronga
-! Adapted for land surface model
-! 
-! 1494 2014-11-21 17:14:03Z maronga
-! Bugfixes: qs is now calculated before calculation of Rif. calculation of
-! buoyancy flux in Rif corrected (added missing humidity term), allow use of 
-! topography for coupled runs (not tested)
-! 
-! 1361 2014-04-16 15:17:48Z hoffmann
-! Bugfix: calculation of turbulent fluxes of rain water content (qrsws) and rain 
-! drop concentration (nrsws) added
-! 
-! 1340 2014-03-25 19:45:13Z 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
-!
-! 1276 2014-01-15 13:40:41Z heinze
-! Use LSF_DATA also in case of Dirichlet bottom boundary condition for scalars
-!
-! 1257 2013-11-08 15:18:40Z raasch
-! openACC "kernels do" replaced by "kernels loop", "loop independent" added
-!
-! 1036 2012-10-22 13:43:42Z raasch
-! code put under GPL (PALM 3.9)
-!
-! 1015 2012-09-27 09:23:24Z raasch
-! OpenACC statements added
-!
-! 978 2012-08-09 08:28:32Z fricke
-! roughness length for scalar quantities z0h added
-!
-! Revision 1.1  1998/01/23 10:06:06  raasch
-! Initial revision
-!
 !
 ! Description:
Index: /palm/trunk/SOURCE/surface_mod.f90
===================================================================
--- /palm/trunk/SOURCE/surface_mod.f90	(revision 4179)
+++ /palm/trunk/SOURCE/surface_mod.f90	(revision 4180)
@@ -72,212 +72,4 @@
 ! OpenACC port for SPEC
 ! 
-! 3597 2018-12-04 08:40:18Z maronga
-! Added pt_2m and renamed t_surf_10cm to pt_10cm. Removed some _eb variables as
-! they are no longer used.
-! 
-! 3593 2018-12-03 13:51:13Z kanani
-! Replace degree symbol by 'degrees'
-! 
-! 3572 2018-11-28 11:40:28Z suehring
-! Define short- and longwave radiation flux arrays (e.g. diffuse, direct,
-! reflected, resedual) for all surfaces. This is required to surface outputs
-! in suface_output_mod. (M. Salim)
-! 
-! 3560 2018-11-23 09:20:21Z raasch
-! Surface restoring in restarts commented. Some formatting. 
-! 
-! 3556 2018-11-22 14:11:57Z suehring
-! variables documented
-! 
-! 3467 2018-10-30 19:05:21Z suehring
-! Bugfix in surface_wrd_local for cloud and rain water flux
-! 
-! 3418 2018-10-24 16:07:39Z kanani
-! -Parameters for latent heat flux in usm, usm averages (rvtils)
-! 
-! 3351 2018-10-15 18:40:42Z suehring
-! New flag indication that albedo at urban surfaces is initialized via ASCII
-! file
-! 
-! 3298 2018-10-02 12:21:11Z kanani
-! - Minor formatting/clean-up (kanani)
-! - Removed initialization of cssws with surface_csflux values. Only the value 0 
-!   is now passed to all the chemical species of the selected mechanism. 
-!   The real inizialization is conducted in init_3d_model_mod.f90 (Russo)
-! - Added calls and variables for inizialization of chemistry emission 
-!   fluxes (Russo)
-! - Setting of cssws to zero moved (forkel)
-! - Set cssws to zero before setting values (forkel)
-! - Distinguish flux conversion factors for gases and PM (forkel)
-! - Some questions/todo's on conversion factors (forkel)
-!
-! 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
-! 
-! 3254 2018-09-17 10:53:57Z suehring
-! Remove redundant subroutine argument
-! 
-! 3253 2018-09-17 08:39:12Z suehring
-! Bugfix, missing deallocation of q_surface
-! 
-! 3241 2018-09-12 15:02:00Z raasch
-! unused variables removed
-! 
-! 3222 2018-08-30 13:35:35Z suehring
-! +building_type, pavement_type, vegetation_type, water_type
-! +building_type_name, pavement_type_name, vegetation_type_name, water_type_name 
-! 
-! 3176 2018-07-26 17:12:48Z suehring
-! Bugfix in restarts for surface elements.
-! 
-! 3152 2018-07-19 13:26:52Z suehring
-! q_surface added
-! 
-! 3147 2018-07-18 22:38:11Z maronga
-! Added vpt_surface and vpt1
-! 
-! 3146 2018-07-18 22:36:19Z maronga
-! Initialize Obukhov length, friction velocity and momentum fluxes also 
-! in case of restarts and cyclic fill
-! 
-! 3026 2018-05-22 10:30:53Z schwenkel
-! Changed the name specific humidity to mixing ratio, since we are computing
-! mixing ratios.
-! 
-! 2977 2018-04-17 10:27:57Z kanani
-! Implement changes from branch radiation (r2948-2971) with minor modifications,
-! plus some formatting.
-! (moh.hefny)
-! Added flag to check the existence of vertical urban/land surfaces, required
-! to activate RTM
-! 
-! 2970 2018-04-13 15:09:23Z suehring
-! Remove un-necessary initialization of surface elements in old large-scale 
-! forcing mode
-! 
-! 2963 2018-04-12 14:47:44Z suehring
-! Introduce index for vegetation/wall, pavement/green-wall and water/window 
-! surfaces, for clearer access of surface fraction, albedo, emissivity, etc. .
-! 
-! 2942 2018-04-03 13:51:09Z suehring
-! Bugfix in assigning surface element data after restart
-! 
-! 2940 2018-04-03 11:22:42Z suehring
-! Bugfix in reading restart data of vertical surface elements
-! 
-! 2920 2018-03-22 11:22:01Z kanani
-! Correct comment for surface directions
-! 
-! 2894 2018-03-15 09:17:58Z Giersch
-! Calculations of the index range of the subdomain on file which overlaps with
-! the current subdomain are already done in read_restart_data_mod,
-! surface_read/write_restart_data was renamed to surface_r/wrd_local, variable 
-! named found has been introduced for checking if restart data was found, 
-! reading of restart strings has been moved completely to 
-! read_restart_data_mod, surface_rrd_local is already inside the overlap loop 
-! programmed in read_restart_data_mod, SAVE attribute added where necessary, 
-! deallocation and allocation of some arrays have been changed to take care of 
-! different restart files that can be opened (index i), the marker *** end 
-! surf *** is not necessary anymore, strings and their respective lengths are 
-! written out and read now in case of restart runs to get rid of prescribed 
-! character lengths (Giersch)
-! 
-! 2813 2018-02-16 16:28:14Z suehring
-! Some more bugfixes concerning restart runs 
-! 
-! 2812 2018-02-16 13:40:25Z hellstea
-! Entries 'u_out', 'v_out' and 'w_out' removed from the functions
-! get_topography_top_index and get_topography_top_index_ji  
-! 
-! 2805 2018-02-14 17:00:09Z suehring
-! Bugfix in re-mapping surface elements in case of restart runs 
-! 
-! 2766 2018-01-22 17:17:47Z kanani
-! Removed preprocessor directive __chem
-! 
-! 2759 2018-01-17 16:24:59Z suehring
-! Bugfix, consider density in vertical fluxes of passive scalar as well as 
-! chemical species.
-! 
-! 2753 2018-01-16 14:16:49Z suehring
-! +r_a_green, r_a_window
-! 
-! 2718 2018-01-02 08:49:38Z maronga
-! Changes from last commit documented
-! 
-! 2706 2017-12-18 18:33:49Z suehring
-! In case of restarts read and write pt_surface
-!
-! 2698 2017-12-14 18:46:24Z suehring
-!
-! 2696 2017-12-14 17:12:51Z kanani
-! - Change in file header (GPL part)
-! - Missing code for css added to surf_*, handling of surface_csflux updated (FK)
-! - Bugfixes in reading/writing restart data in case several surface types are 
-!   present at the same time (MS)
-! - Implementation of chemistry module (FK)
-! - Allocation of pt1 and qv1 now done for all surface types (MS)
-! - Revised classification of surface types
-! - Introduce offset values to simplify index determination of surface elements
-! - Dimensions of function get_topo_top_index (MS)
-! - added variables for USM 
-! - adapted to changes in USM (RvT)
-! 
-! 2688 2017-12-12 17:27:04Z Giersch
-! Allocation and initialization of the latent heat flux (qsws) at the top of 
-! the ocean domain in case of coupled runs. In addtion, a double if-query has 
-! been removed.  
-! 
-! 2638 2017-11-23 12:44:23Z raasch
-! bugfix for constant top momentumflux
-! 
-! 2575 2017-10-24 09:57:58Z maronga
-! Pavement parameterization revised
-! 
-! 2547 2017-10-16 12:41:56Z schwenkel
-! extended by cloud_droplets option
-!
-! 2526 2017-10-10 11:29:14Z monakurppa
-! Implementation of a new aerosol module salsa: new surface fluxes for aerosols 
-! and gases.
-! 
-! 2508 2017-10-02 08:57:09Z suehring
-! Minor formatting adjustment
-! 
-! 2478 2017-09-18 13:37:24Z suehring
-! Bugfixes in initializing model top
-!
-! 2378 2017-08-31 13:57:27Z suehring
-! Bugfix in write restart data
-! 
-! 2339 2017-08-07 13:55:26Z gronemeier
-! corrected timestamp in header
-! 
-! 2338 2017-08-07 12:15:38Z gronemeier
-! Modularize 1D model
-! 
-! 2318 2017-07-20 17:27:44Z suehring
-! New function to obtain topography top index. 
-! 
-! 2317 2017-07-20 17:27:19Z suehring
-! 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
-! Parameters removed/added due to changes in the LSM
-! 
-! 2269 2017-06-09 11:57:32Z suehring
-! Formatting and description adjustments
-! 
-! 2256 2017-06-07 13:58:08Z suehring
-! Enable heating at downward-facing surfaces
-! 
-! 2233 2017-05-30 18:08:54Z suehring
-! Initial revision
-!
 !
 ! Description:
Index: /palm/trunk/SOURCE/synthetic_turbulence_generator_mod.f90
===================================================================
--- /palm/trunk/SOURCE/synthetic_turbulence_generator_mod.f90	(revision 4179)
+++ /palm/trunk/SOURCE/synthetic_turbulence_generator_mod.f90	(revision 4180)
@@ -80,127 +80,4 @@
 ! the subroutines in time_integration for better overview.
 ! 
-! 3646 2018-12-28 17:58:49Z kanani
-! Bugfix: use time_since_reference_point instead of simulated_time (relevant
-! when using wall/soil spinup)
-! 
-! 3579 2018-11-29 15:32:39Z suehring
-! - Bugfix in calculation of turbulence scaling parameters for turbulence 
-!   generator in case of topography
-! - Additional checks implemented - no STG in RANS-RANS nesting or LES-LES
-!   nesting
-! 
-! 3376 2018-10-19 10:15:32Z suehring
-! Error messages and numbers reivsed. 
-! 
-! 3349 2018-10-15 16:39:41Z suehring
-! Fix for format descriptor
-! 
-! 3348 2018-10-15 14:30:51Z suehring
-! - Revise structure of init routine
-! - introduce new parameters to skip STG for some timesteps
-! - introduce time-dependent parametrization of Reynolds-stress tensor
-! - Bugfix in allocation of mean_inflow_profiles
-! 
-! 3341 2018-10-15 10:31:27Z suehring
-! Introduce module parameter for number of inflow profiles
-! 
-! 3288 2018-09-28 10:23:08Z suehring
-! Modularization of all bulk cloud physics code components
-! 
-! 3248 2018-09-14 09:42:06Z sward
-! Minor formating changes
-! 
-! 3246 2018-09-13 15:14:50Z sward
-! Added error handling for input namelist via parin_fail_message
-! 
-! 3241 2018-09-12 15:02:00Z raasch
-! unused variables removed
-! 
-! 3186 2018-07-30 17:07:14Z suehring
-! Mask topography while imposing inflow perturbations at the boundaries; do not
-! impose perturbations at top boundary as well as ghost points
-! 
-! 3183 2018-07-27 14:25:55Z suehring
-! Rename variables and extend error message
-! Enable geneartor also for stretched grids
-! 
-! 3182 2018-07-27 13:36:03Z suehring
-! Error message related to vertical stretching has been added, dz was replaced
-! by dz(1)
-! 
-! 3051 2018-05-30 17:43:55Z suehring
-! Bugfix in calculation of initial Reynolds-stress tensor.
-! 
-! 3045 2018-05-28 07:55:41Z Giersch
-! Error messages revised
-! 
-! 3044 2018-05-25 10:59:41Z gronemeier
-! Add missing variable descriptions
-!
-! 3038 2018-05-24 10:54:00Z gronemeier
-! updated variable descriptions
-!
-! 2967 2018-04-13 11:22:08Z raasch
-! bugfix: missing parallel cpp-directives added
-!
-! 2946 2018-04-04 17:01:23Z suehring
-! Remove unused module load
-!
-! 2945 2018-04-04 16:27:14Z suehring
-! - Bugfix in parallelization of synthetic turbulence generator in case the
-!   z-dimension is not an integral divisor of the number of processors along
-!   the x- and y-dimension
-! - Revision in control mimic in case of RAN-LES nesting
-!
-! 2938 2018-03-27 15:52:42Z suehring
-! Apply turbulence generator at all non-cyclic lateral boundaries in case of
-! realistic Inifor large-scale forcing or RANS-LES nesting
-!
-! 2936 2018-03-27 14:49:27Z suehring
-! variable named found has been introduced for checking if restart data was found,
-! reading of restart strings has been moved completely to read_restart_data_mod,
-! redundant skipping function has been removed, stg_read/write_restart_data
-! have been renamed to stg_r/wrd_global, stg_rrd_global is called in
-! read_restart_data_mod now, flag syn_turb_gen_prerun and marker *** end stg
-! *** have been removed (Giersch), strings and their respective lengths are
-! written out and read now in case of restart runs to get rid of prescribed
-! character lengths (Giersch), CASE DEFAULT was added if restart data is read
-!
-! 2841 2018-02-27 15:02:57Z suehring
-! Bugfix: wrong placement of include 'mpif.h' corrected
-!
-! 2836 2018-02-26 13:40:05Z Giersch
-! The variables synthetic_turbulence_generator and
-! use_synthetic_turbulence_generator have been abbreviated + syn_turb_gen_prerun
-! flag is used to define if module related parameters were outputted as restart
-! data
-!
-! 2716 2017-12-29 16:35:59Z kanani
-! Corrected "Former revisions" section
-!
-! 2696 2017-12-14 17:12:51Z kanani
-! Change in file header (GPL part)
-!
-! 2669 2017-12-06 16:03:27Z raasch
-! unit number for file containing turbulence generator data changed to 90
-! bugfix: preprocessor directives added for MPI specific code
-!
-! 2576 2017-10-24 13:49:46Z Giersch
-! Definition of a new function called stg_skip_global to skip module
-! parameters during reading restart data
-!
-! 2563 2017-10-19 15:36:10Z Giersch
-! stg_read_restart_data is called in stg_parin in the case of a restart run
-!
-! 2259 2017-06-08 09:09:11Z gronemeier
-! Initial revision
-!
-!
-!
-! Authors:
-! --------
-! @author Tobias Gronemeier, Matthias Suehring, Atsushi Inagaki, Micha Gryschka, Christoph Knigge
-! 
-!
 !
 ! Description:
Index: /palm/trunk/SOURCE/temperton_fft_mod.f90
===================================================================
--- /palm/trunk/SOURCE/temperton_fft_mod.f90	(revision 4179)
+++ /palm/trunk/SOURCE/temperton_fft_mod.f90	(revision 4180)
@@ -11,42 +11,4 @@
 ! GOTO statements replaced, file re-formatted corresponding to coding standards
 ! 
-! 3241 2018-09-12 15:02:00Z raasch
-! unused variables removed
-! 
-! 3049 2018-05-29 13:52:36Z Giersch
-! Error messages revised
-! 
-! 3045 2018-05-28 07:55:41Z Giersch
-! Error message revised
-! 
-! 2300 2017-06-29 13:31:14Z raasch
-! NEC related CPP directives removed
-! 
-! 1851 2016-04-08 13:32:50Z maronga
-!
-! 1850 2016-04-08 13:29:27Z maronga
-! Module renamed
-! 
-! 1682 2015-10-07 23:56:08Z knoop
-! Code annotations made doxygen readable 
-! 
-! 1342 2014-03-26 17:04:47Z kanani
-! REAL constants defined as wp-kind
-!
-! 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 
-!
-! Revision 1.1  2003/03/12 16:41:59  raasch
-! Initial revision
-!
 !
 ! Description:
Index: /palm/trunk/SOURCE/time_integration.f90
===================================================================
--- /palm/trunk/SOURCE/time_integration.f90	(revision 4179)
+++ /palm/trunk/SOURCE/time_integration.f90	(revision 4180)
@@ -145,395 +145,4 @@
 ! Clean up indoor_model and biometeorology model call.
 ! 
-! 3646 2018-12-28 17:58:49Z kanani
-! Bugfix: use time_since_reference_point instead of simulated_time where
-! required (relevant when using wall/soil spinup)
-! 
-! 3634 2018-12-18 12:31:28Z knoop
-! OpenACC port for SPEC
-! 
-! 3597 2018-12-04 08:40:18Z maronga
-! Removed call to calculation of near air (10 cm) potential temperature (now in
-! surface layer fluxes)
-! 
-! 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
-! dom_dwd_user, Schrempf:
-! Changes due to merge of uv exposure model into biometeorology_mod.
-!
-! 3525 2018-11-14 16:06:14Z kanani
-! Changes related to clean-up of biometeorology (dom_dwd_user)
-! 
-! 3524 2018-11-14 13:36:44Z raasch
-! unused variables removed
-! 
-! 3484 2018-11-02 14:41:25Z hellstea
-! pmci_ensure_nest_mass_conservation is premanently removed
-! 
-! 3473 2018-10-30 20:50:15Z suehring
-! new module for virtual measurements introduced
-! 
-! 3472 2018-10-30 20:43:50Z suehring
-! Add indoor model (kanani, srissman, tlang)
-! 
-! 3467 2018-10-30 19:05:21Z suehring
-! Implementation of a new aerosol module salsa.
-! 
-! 3448 2018-10-29 18:14:31Z kanani
-! Add biometeorology
-! 
-! 3421 2018-10-24 18:39:32Z gronemeier
-! Surface data output
-! 
-! 3418 2018-10-24 16:07:39Z kanani
-! call to material_heat_model now with check if spinup runs (rvtils)
-! 
-! 3378 2018-10-19 12:34:59Z kanani
-! merge from radiation branch (r3362) into trunk
-! (moh.hefny):
-! Bugfix in the if statement to call radiation_interaction
-! 
-! 3347 2018-10-15 14:21:08Z suehring
-! - offline nesting separated from large-scale forcing module
-! - changes for synthetic turbulence generator
-! 
-! 3343 2018-10-15 10:38:52Z suehring
-! - Formatting, clean-up, comments (kanani)
-! - Added CALL to chem_emissions_setup (Russo)
-! - 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
-! unused variables removed
-! 
-! 3198 2018-08-15 09:23:10Z sward
-! Added multi_agent_system_end; defined start time for MAS relative to
-! time_since_reference_point
-! 
-! 3183 2018-07-27 14:25:55Z suehring
-! Replace simulated_time by time_since_reference_point in COSMO nesting mode. 
-! Rename subroutines and variables in COSMO nesting mode
-! 
-! 3182 2018-07-27 13:36:03Z suehring
-! Added multi agent system
-! 
-! 3042 2018-05-25 10:44:37Z schwenkel
-! Changed the name specific humidity to mixing ratio
-! 
-! 3040 2018-05-25 10:22:08Z schwenkel
-! Fixed bug in IF statement
-! Ensure that the time when calling the radiation to be the time step of the
-! pre-calculated time when first calculate the positions of the sun
-! 
-! 3004 2018-04-27 12:33:25Z Giersch
-! First call of flow_statistics has been removed. It is already called in 
-! run_control itself
-! 
-! 2984 2018-04-18 11:51:30Z hellstea
-! CALL pmci_ensure_nest_mass_conservation is removed (so far only commented out)
-! as seemingly unnecessary.
-! 
-! 2941 2018-04-03 11:54:58Z kanani
-! Deduct spinup_time from RUN_CONTROL output of main 3d run 
-! (use time_since_reference_point instead of simulated_time)
-! 
-! 2938 2018-03-27 15:52:42Z suehring
-! Nesting of dissipation rate in case of RANS mode and TKE-e closure is applied
-! 
-! 2936 2018-03-27 14:49:27Z suehring
-! Little formatting adjustment.
-! 
-! 2817 2018-02-19 16:32:21Z knoop
-! Preliminary gust module interface implemented
-! 
-! 2801 2018-02-14 16:01:55Z thiele
-! Changed lpm from subroutine to module.
-! Introduce particle transfer in nested models.
-! 
-! 2776 2018-01-31 10:44:42Z Giersch
-! Variable use_synthetic_turbulence_generator has been abbreviated
-! 
-! 2773 2018-01-30 14:12:54Z suehring
-! - Nesting for chemical species
-! 
-! 2766 2018-01-22 17:17:47Z kanani
-! Removed preprocessor directive __chem
-! 
-! 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)
-! - Implementation of uv exposure model (FK)
-! - Moved vnest_boundary_conds_khkm from tcm_diffusivities to here (TG)
-! - renamed diffusivities to tcm_diffusivities (TG)
-! - implement prognostic equation for diss (TG)
-! - Moved/commented CALL to chem_emissions (FK)
-! - Added CALL to chem_emissions (FK)
-! - Implementation of chemistry module (FK)
-! - Calls for setting boundary conditions in USM and LSM (MS)
-! - Large-scale forcing with larger-scale models implemented (MS)
-! - Rename usm_radiation into radiation_interactions; merge with branch 
-!   radiation (MS)
-! - added call for usm_green_heat_model for green building surfaces (RvT)
-! - added call for usm_temperature_near_surface for use in indoor model (RvT)
-! 
-! 2617 2017-11-16 12:47:24Z suehring
-! Bugfix, assure that the reference state does not become zero.
-! 
-! 2563 2017-10-19 15:36:10Z Giersch
-! Variable wind_turbine moved to module control_parameters
-! 
-! 2365 2017-08-21 14:59:59Z kanani
-! Vertical grid nesting implemented (SadiqHuq)
-! 
-! 2320 2017-07-21 12:47:43Z suehring
-! Set bottom boundary conditions after nesting interpolation and anterpolation
-! 
-! 2299 2017-06-29 10:14:38Z maronga
-! Call of soil model adjusted
-! 
-! 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). 
-! 
-! 2271 2017-06-09 12:34:55Z sward
-! Start timestep message changed
-! 
-! 2259 2017-06-08 09:09:11Z gronemeier
-! Implemented synthetic turbulence generator
-!
-! 2233 2017-05-30 18:08:54Z suehring
-!
-! 2232 2017-05-30 17:47:52Z suehring
-! Adjustments to new topography and surface concept
-! Modify passed parameters for disturb_field
-! 
-! 2178 2017-03-17 11:07:39Z hellstea
-! Setting perturbations at all times near inflow boundary is removed
-! in case of nested boundaries
-!
-! 2174 2017-03-13 08:18:57Z maronga
-! Added support for nesting with cloud microphysics
-! 
-! 2118 2017-01-17 16:38:49Z raasch
-! OpenACC directives and related code removed
-! 
-! 2050 2016-11-08 15:00:55Z gronemeier
-! Implement turbulent outflow condition
-! 
-! 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,
-! removed commented CALLs of global_min_max.
-! 
-! 2007 2016-08-24 15:47:17Z kanani
-! Added CALLs for 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
-! Simplified calls to radiation model
-! 
-! 1960 2016-07-12 16:34:24Z suehring
-! Separate humidity and passive scalar
-! 
-! 1957 2016-07-07 10:43:48Z suehring
-! flight module added
-! 
-! 1919 2016-05-27 14:51:23Z raasch
-! Initial version of purely vertical nesting introduced. 
-!
-! 1918 2016-05-27 14:35:57Z raasch
-! determination of time step moved to the end of the time step loop,
-! the first time step is now always calculated before the time step loop (i.e.
-! also in case of restart runs)
-!
-! 1914 2016-05-26 14:44:07Z witha
-! Added call for wind turbine model
-!
-! 1878 2016-04-19 12:30:36Z hellstea
-! Synchronization for nested runs rewritten
-! 
-! 1853 2016-04-11 09:00:35Z maronga
-! Adjusted for use with radiation_scheme = constant
-!
-! 1849 2016-04-08 11:33:18Z hoffmann
-! Adapted for modularization of microphysics
-!
-! 1833 2016-04-07 14:23:03Z raasch
-! spectrum renamed spectra_mod, spectra related variables moved to spectra_mod
-!
-! 1831 2016-04-07 13:15:51Z hoffmann
-! turbulence renamed collision_turbulence
-!
-! 1822 2016-04-07 07:49:42Z hoffmann
-! icloud_scheme replaced by microphysics_*
-!
-! 1808 2016-04-05 19:44:00Z raasch
-! output message in case unscheduled radiation calls removed
-!
-! 1797 2016-03-21 16:50:28Z raasch
-! introduction of different datatransfer modes
-!
-! 1791 2016-03-11 10:41:25Z raasch
-! call of pmci_update_new removed
-!
-! 1786 2016-03-08 05:49:27Z raasch
-! +module spectrum
-!
-! 1783 2016-03-06 18:36:17Z raasch
-! switch back of netcdf data format for mask output moved to the mask output
-! routine
-!
-! 1781 2016-03-03 15:12:23Z raasch
-! some pmc calls removed at the beginning (before timeloop),
-! pmc initialization moved to the main program
-!
-! 1764 2016-02-28 12:45:19Z raasch
-! PMC_ACTIVE flags removed,
-! bugfix: nest synchronization after first call of timestep
-!
-! 1762 2016-02-25 12:31:13Z hellstea
-! Introduction of nested domain feature
-!
-! 1736 2015-12-04 08:56:33Z raasch
-! no perturbations added to total domain if energy limit has been set zero
-!
-! 1691 2015-10-26 16:17:44Z maronga
-! Added option for spin-ups without land surface and radiation models. Moved calls
-! for radiation and lan surface schemes.
-! 
-! 1682 2015-10-07 23:56:08Z knoop
-! Code annotations made doxygen readable 
-! 
-! 1671 2015-09-25 03:29:37Z raasch
-! bugfix: ghostpoint exchange for array diss in case that sgs velocities are used
-! for particles
-!
-! 1585 2015-04-30 07:05:52Z maronga
-! Moved call of radiation scheme. Added support for RRTM
-! 
-! 1551 2015-03-03 14:18:16Z maronga
-! Added interface for different radiation schemes.
-! 
-! 1496 2014-12-02 17:25:50Z maronga
-! Added calls for the land surface model and radiation scheme
-! 
-! 1402 2014-05-09 14:25:13Z raasch
-! location messages modified
-! 
-! 1384 2014-05-02 14:31:06Z raasch
-! location messages added
-! 
-! 1380 2014-04-28 12:40:45Z heinze
-! CALL of nudge_ref added 
-! bc_pt_t_val and bc_q_t_val are updated in case nudging is used
-! 
-! 1365 2014-04-22 15:03:56Z boeske
-! Reset sums_ls_l to zero at each timestep
-! +sums_ls_l
-! Calculation of reference state (previously in subroutine calc_mean_profile)
-
-! 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
-!
-! 1308 2014-03-13 14:58:42Z fricke
-! +netcdf_data_format_save
-! For masked data, parallel netcdf output is not tested so far, hence 
-! netcdf_data_format is switched back to non-paralell output.
-!
-! 1276 2014-01-15 13:40:41Z heinze
-! Use LSF_DATA also in case of Dirichlet bottom boundary condition for scalars
-!
-! 1257 2013-11-08 15:18:40Z raasch
-! acc-update-host directive for timestep removed
-!
-! 1241 2013-10-30 11:36:58Z heinze
-! Generalize calc_mean_profile for wider use
-! Determine shf and qsws in dependence on data from LSF_DATA
-! Determine ug and vg in dependence on data from LSF_DATA
-! 1221 2013-09-10 08:59:13Z raasch
-! host update of arrays before timestep is called
-!
-! 1179 2013-06-14 05:57:58Z raasch
-! mean profiles for reference state are only calculated if required,
-! small bugfix for background communication
-!
-! 1171 2013-05-30 11:27:45Z raasch
-! split of prognostic_equations deactivated (comment lines), for the time being
-!
-! 1128 2013-04-12 06:19:32Z raasch
-! asynchronous transfer of ghost point data realized for acc-optimized version:
-! prognostic_equations are first called two times for those points required for
-! the left-right and north-south exchange, respectively, and then for the
-! remaining points,
-! those parts requiring global communication moved from prognostic_equations to
-! here
-!
-! 1115 2013-03-26 18:16:16Z hoffmann
-! calculation of qr and nr is restricted to precipitation
-!
-! 1113 2013-03-10 02:48:14Z raasch
-! GPU-porting of boundary conditions,
-! openACC directives updated
-! formal parameter removed from routine boundary_conds
-!
-! 1111 2013-03-08 23:54:10Z raasch
-! +internal timestep counter for cpu statistics added,
-! openACC directives updated
-!
-! 1092 2013-02-02 11:24:22Z raasch
-! unused variables removed
-!
-! 1065 2012-11-22 17:42:36Z hoffmann
-! exchange of diss (dissipation rate) in case of turbulence = .TRUE. added
-!
-! 1053 2012-11-13 17:11:03Z hoffmann
-! exchange of ghost points for nr, qr added
-!
-! 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
-! +call of prognostic_equations_acc
-!
-! 1001 2012-09-13 14:08:46Z raasch
-! all actions concerning leapfrog- and upstream-spline-scheme removed
-!
-! 849 2012-03-15 10:35:09Z raasch
-! advec_particles renamed lpm, first_call_advec_particles renamed first_call_lpm
-!
-! 825 2012-02-19 03:03:44Z raasch
-! wang_collision_kernel renamed wang_kernel
-!
-! Revision 1.1  1997/08/11 06:19:04  raasch
-! Initial revision
-!
 !
 ! Description:
Index: /palm/trunk/SOURCE/time_integration_spinup.f90
===================================================================
--- /palm/trunk/SOURCE/time_integration_spinup.f90	(revision 4179)
+++ /palm/trunk/SOURCE/time_integration_spinup.f90	(revision 4180)
@@ -46,73 +46,4 @@
 ! surface layer fluxes)
 ! 
-! 3467 2018-10-30 19:05:21Z suehring
-! call to material_heat_model now with check if spinup runs (rvtils)
-! 
-! 3337 2018-10-12 15:17:09Z kanani
-! (from branch resler)
-! Add pt1 initialization
-! 
-! 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
-! 
-! 2983 2018-04-18 10:43:40Z suehring
-! Revise limitation of wall-adjacent velocity.
-! 
-! 2934 2018-03-26 19:13:22Z suehring
-! Synchronize parent and child models after spinup.
-! 
-! 2881 2018-03-13 16:24:40Z maronga
-! Added flag for switching on/off calculation of soil moisture
-! 
-! 2818 2018-02-19 16:42:36Z maronga
-! Velocity components near walls/ground are now set to the profiles stored in
-! u_init and v_init. Activated soil moisture calculation during spinup.
-! 
-! 2782 2018-02-02 11:51:10Z maronga
-! Bugfix and re-activation of homogeneous setting of velocity components 
-! during spinup
-! 
-! 2758 2018-01-17 12:55:21Z suehring
-! Comment out homogeneous setting of wind velocity as this will lead to zero
-! friction velocity and cause problems in MOST relationships.
-! 
-! 2728 2018-01-09 07:03:53Z maronga
-! Set velocity componenets to homogeneous values during spinup
-! 
-! 2724 2018-01-05 12:12:38Z maronga
-! Use dt_spinup for all active components during spinup
-! 
-! 2723 2018-01-05 09:27:03Z maronga
-! Bugfix: array rad_sw_in no longer exists and is thus removed from RUN_CONTROL
-! output.
-! Added output of XY and 3D data during spinup.
-! Bugfix: time step in LSM and USM was set to dt_3d instead of dt_spinup
-! 
-! 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)
-! Added radiation interactions (moved from USM) (MS)
-! 
-! 2544 2017-10-13 18:09:32Z maronga
-! Date and time quantities are now read from date_and_time_mod 
-! 
-! 2299 2017-06-29 10:14:38Z maronga
-! Call of soil model adjusted to avoid prognostic equation for soil moisture
-! during spinup.
-! Better representation of diurnal cycle of near-surface temperature.
-! Excluded prognostic equation for soil moisture during spinup.
-! Added output of run control data for spinup.
-! 
-! 2297 2017-06-28 14:35:57Z scharf
-! bugfixes
-! 
-! 2296 2017-06-28 07:53:56Z maronga
-! Initial revision
-!
 !
 ! Description:
Index: /palm/trunk/SOURCE/time_to_string.f90
===================================================================
--- /palm/trunk/SOURCE/time_to_string.f90	(revision 4179)
+++ /palm/trunk/SOURCE/time_to_string.f90	(revision 4180)
@@ -27,32 +27,4 @@
 ! Corrected "Former revisions" section
 ! 
-! 2696 2017-12-14 17:12:51Z kanani
-! Change in file header (GPL part)
-!
-! 2101 2017-01-05 16:42:31Z suehring
-!
-! 2000 2016-08-20 18:09:15Z knoop
-! Forced header and separation lines into 80 columns
-! 
-! 1682 2015-10-07 23:56:08Z knoop
-! Code annotations made doxygen readable 
-! 
-! 1342 2014-03-26 17:04:47Z kanani
-! REAL constants defined as wp-kind
-! 
-! 1320 2014-03-20 08:40:49Z raasch
-! 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 
-! 
-! 1036 2012-10-22 13:43:42Z raasch
-! code put under GPL (PALM 3.9)
-!
-! Revision 1.1  1997/08/11 06:26:08  raasch
-! Initial revision
-!
 !
 ! Description:
Index: /palm/trunk/SOURCE/timestep.f90
===================================================================
--- /palm/trunk/SOURCE/timestep.f90	(revision 4179)
+++ /palm/trunk/SOURCE/timestep.f90	(revision 4180)
@@ -34,110 +34,4 @@
 ! OpenACC port for SPEC
 ! 
-! 3311 2018-10-05 12:34:56Z raasch
-! Stokes drift is regarded in timestep calculation
-! 
-! 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
-! 
-! 3120 2018-07-11 18:30:57Z gronemeier
-! Put ABS( km ) in computation of time step according to the diffusion criterion
-! 
-! 3084 2018-06-19 15:30:55Z gronemeier
-! limit increase of dt_3d only in case of RANS mode
-! 
-! 3083 2018-06-19 14:03:12Z gronemeier
-! limit dt_3d to be at maximum 2*old_dt; define old_dt at beginning of routine
-! Add km/kh_max
-! 
-! 3049 2018-05-29 13:52:36Z Giersch
-! Error messages revised
-! 
-! 3045 2018-05-28 07:55:41Z Giersch
-! Error message revised
-! 
-! 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)
-!
-! 2365 2017-08-21 14:59:59Z kanani
-! Vertical grid nesting: Sync fine and coarse grid timestep (SadiqHuq)
-! 
-! 2258 2017-06-08 07:55:13Z suehring
-! Bugfix, add pre-preprocessor directives to enable non-parrallel mode
-!
-! 2168 2017-03-06 13:08:38Z suehring
-!
-! 2130 2017-01-24 16:25:39Z raasch
-! bugfix: in case of nested runs the stop condition in case of too small
-! timesteps is communicated to all parent/child processes,
-! some formatting done
-!
-! 2118 2017-01-17 16:38:49Z raasch
-! OpenACC directives and related part of code removed
-! 
-! 2000 2016-08-20 18:09:15Z knoop
-! Forced header and separation lines into 80 columns
-! 
-! 1849 2016-04-08 11:33:18Z hoffmann
-! Adapted for modularization of microphysics
-!
-! 1682 2015-10-07 23:56:08Z knoop
-! Code annotations made doxygen readable 
-! 
-! 1484 2014-10-21 10:53:05Z kanani
-! Changes due to new module structure of the plant canopy model:
-!   calculations and parameters related to the plant canopy model removed
-!   (the limitation of the canopy drag, i.e. that the canopy drag itself should
-!   not change the sign of the velocity components, is now assured for in the
-!   calculation of the canopy tendency terms in subroutine plant_canopy_model) 
-! 
-! 1342 2014-03-26 17:04:47Z kanani
-! REAL constants defined as wp-kind
-!
-! 1322 2014-03-20 16:38:49Z raasch
-! REAL functions provided with KIND-attribute
-!
-! 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 
-! 
-! 1257 2013-11-08 15:18:40Z raasch
-! openacc porting
-! bugfix for calculation of advective timestep in case of vertically stretched
-! grids
-!
-! 1092 2013-02-02 11:24:22Z raasch
-! unused variables removed
-!
-! 1053 2012-11-13 17:11:03Z hoffmann
-! timestep is reduced in two-moment cloud scheme according to the maximum 
-! terminal velocity of rain drops
-!
-! 1036 2012-10-22 13:43:42Z raasch
-! code put under GPL (PALM 3.9)
-!
-! 1001 2012-09-13 14:08:46Z raasch
-! all actions concerning leapfrog scheme removed
-!
-! 978 2012-08-09 08:28:32Z fricke
-! restriction of the outflow damping layer in the diffusion criterion removed
-!
-! 866 2012-03-28 06:44:41Z raasch
-! bugfix for timestep calculation in case of Galilei transformation,
-! special treatment in case of mirror velocity boundary condition removed
-!
-! Revision 1.1  1997/08/11 06:26:19  raasch
-! Initial revision
-!
 !
 ! Description:
Index: /palm/trunk/SOURCE/timestep_scheme_steering.f90
===================================================================
--- /palm/trunk/SOURCE/timestep_scheme_steering.f90	(revision 4179)
+++ /palm/trunk/SOURCE/timestep_scheme_steering.f90	(revision 4180)
@@ -27,33 +27,4 @@
 ! OpenACC port for SPEC
 ! 
-! 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)
-!
-! 2101 2017-01-05 16:42:31Z suehring
-!
-! 2000 2016-08-20 18:09:15Z knoop
-! Forced header and separation lines into 80 columns
-! 
-! 1682 2015-10-07 23:56:08Z knoop
-! Code annotations made doxygen readable 
-!
-! 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
-!
-! 1036 2012-10-22 13:43:42Z raasch
-! code put under GPL (PALM 3.9)
-!
-! 1001 2012-09-13 14:08:46Z raasch
-! all actions concerning leapfrog scheme removed
-!
-! Revision 1.1  2004/01/28 15:34:47  raasch
-! Initial revision
-!
 !
 ! Description:
Index: /palm/trunk/SOURCE/transpose.f90
===================================================================
--- /palm/trunk/SOURCE/transpose.f90	(revision 4179)
+++ /palm/trunk/SOURCE/transpose.f90	(revision 4180)
@@ -33,71 +33,4 @@
 ! OpenACC port for SPEC
 !
-! 3241 2018-09-12 15:02:00Z raasch
-! unused variables removed
-!
-! 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)
-!
-! 2119 2017-01-17 16:51:50Z raasch
-!
-! 2118 2017-01-17 16:38:49Z raasch
-! OpenACC directives removed
-!
-! 2000 2016-08-20 18:09:15Z knoop
-! Forced header and separation lines into 80 columns
-!
-! 1682 2015-10-07 23:56:08Z knoop
-! Code annotations made doxygen readable
-!
-! 1324 2014-03-21 09:13:16Z suehring
-! Bugfix: ONLY statement for module pegrid removed
-!
-! 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
-! cpu_log_nowait parameter added to cpu measurements of the transpositions
-! required for solving the Poisson equation (poisfft),
-! module interfaces removed
-!
-! 1257 2013-11-08 15:18:40Z raasch
-! openacc loop and loop vector clauses removed
-!
-! 1216 2013-08-26 09:31:42Z raasch
-! re-sorting of the transposed / to be transposed arrays moved to separate
-! routines resort_for_...
-!
-! 1111 2013-03-08 23:54:10Z raasch
-! openACC directives added,
-! resorting data from/to work changed, work got 4 dimensions instead of 1
-!
-! 1106 2013-03-04 05:31:38Z raasch
-! preprocessor lines rearranged so that routines can also be used in serial
-! (non-parallel) mode
-!
-! 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
-! indices nxa, nya, etc. replaced by nx, ny, etc.
-!
-! Revision 1.1  1997/07/24 11:25:18  raasch
-! Initial revision
-!
-
-#define __acc_fft_device ( defined( _OPENACC ) && ( defined ( __cuda_fft ) ) )
-
 !------------------------------------------------------------------------------!
 ! Description:
Index: /palm/trunk/SOURCE/tridia_solver_mod.f90
===================================================================
--- /palm/trunk/SOURCE/tridia_solver_mod.f90	(revision 4179)
+++ /palm/trunk/SOURCE/tridia_solver_mod.f90	(revision 4180)
@@ -30,81 +30,4 @@
 ! OpenACC port for SPEC
 ! 
-! 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
-! 
-! 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)
-!
-! 2119 2017-01-17 16:51:50Z raasch
-!
-! 2118 2017-01-17 16:38:49Z raasch
-! OpenACC directives removed
-! 
-! 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
-! 
-! 1850 2016-04-08 13:29:27Z maronga
-! Module renamed
-!
-!
-! 1815 2016-04-06 13:49:59Z raasch
-! cpp-switch intel11 removed
-!
-! 1808 2016-04-05 19:44:00Z raasch
-! test output removed
-!
-! 1804 2016-04-05 16:30:18Z maronga
-! Removed code for parameter file check (__check)
-! 
-! 1682 2015-10-07 23:56:08Z knoop
-! Code annotations made doxygen readable 
-! 
-! 1406 2014-05-16 13:47:01Z raasch
-! bugfix for pgi 14.4: declare create moved after array declaration
-! 
-! 1342 2014-03-26 17:04:47Z kanani
-! REAL constants defined as wp-kind
-!
-! 1322 2014-03-20 16:38:49Z raasch
-! REAL functions provided with KIND-attribute
-!
-! 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 
-!
-! 1257 2013-11-08 15:18:40Z raasch
-! openacc loop and loop vector clauses removed, declare create moved after
-! the FORTRAN declaration statement
-!
-! 1221 2013-09-10 08:59:13Z raasch
-! dummy argument tri in 1d-routines replaced by tri_for_1d because of name
-! conflict with arry tri in module arrays_3d
-!
-! 1216 2013-08-26 09:31:42Z raasch
-! +tridia_substi_overlap for handling overlapping fft / transposition
-!
-! 1212 2013-08-15 08:46:27Z raasch
-! Initial revision.
-! Routines have been moved to seperate module from former file poisfft to here.
-! The tridiagonal matrix coefficients of array tri are calculated only once at
-! the beginning, i.e. routine split is called within tridia_init.
-!
-
-#define __acc_fft_device ( defined( _OPENACC ) && ( defined ( __cuda_fft ) ) )
-
 !
 ! Description:
Index: /palm/trunk/SOURCE/turbulence_closure_mod.f90
===================================================================
--- /palm/trunk/SOURCE/turbulence_closure_mod.f90	(revision 4179)
+++ /palm/trunk/SOURCE/turbulence_closure_mod.f90	(revision 4180)
@@ -66,146 +66,4 @@
 ! 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:
Index: /palm/trunk/SOURCE/urban_surface_mod.f90
===================================================================
--- /palm/trunk/SOURCE/urban_surface_mod.f90	(revision 4179)
+++ /palm/trunk/SOURCE/urban_surface_mod.f90	(revision 4180)
@@ -140,325 +140,4 @@
 ! Implementation of the PALM module interface
 ! 
-! 3636 2018-12-19 13:48:34Z raasch
-! nopointer option removed
-! 
-! 3614 2018-12-10 07:05:46Z raasch
-! unused variables removed
-! 
-! 3607 2018-12-07 11:56:58Z suehring
-! Output of radiation-related quantities migrated to radiation_model_mod.
-! 
-! 3597 2018-12-04 08:40:18Z maronga
-! Fixed calculation method of near surface air potential temperature at 10 cm
-! and moved to surface_layer_fluxes. Removed unnecessary _eb strings.
-! 
-! 3524 2018-11-14 13:36:44Z raasch
-! bugfix concerning allocation of t_surf_wall_v
-! 
-! 3502 2018-11-07 14:45:23Z suehring
-! Disable initialization of building roofs with ground-floor-level properties, 
-! since this causes strong oscillations of surface temperature during the 
-! spinup.
-! 
-! 3469 2018-10-30 20:05:07Z kanani
-! Add missing PUBLIC variables for new indoor model
-! 
-! 3449 2018-10-29 19:36:56Z suehring
-! Bugfix: Fix average arrays allocations in usm_3d_data_averaging (J.Resler)
-! Bugfix: Fix reading wall temperatures (J.Resler)
-! Bugfix: Fix treating of outputs for wall temperature and sky view factors (J.Resler)
-!
-! 
-! 3435 2018-10-26 18:25:44Z gronemeier
-! Bugfix: allocate gamma_w_green_sat until nzt_wall+1
-! 
-! 3418 2018-10-24 16:07:39Z kanani
-! (rvtils, srissman)
-! -Updated building databse, two green roof types (ind_green_type_roof)
-! -Latent heat flux for green walls and roofs, new output of latent heatflux
-!  and soil water content of green roof substrate
-! -t_surf changed to t_surf_wall
-! -Added namelist parameter usm_wall_mod for lower wall tendency
-!  of first two wall layers during spinup
-! -Window calculations deactivated during spinup
-! 
-! 3382 2018-10-19 13:10:32Z knoop
-! Bugix: made array declaration Fortran Standard conform
-! 
-! 3378 2018-10-19 12:34:59Z kanani
-! merge from radiation branch (r3362) into trunk
-! (moh.hefny):
-! - check the requested output variables if they are correct
-! - added unscheduled_radiation_calls switch to control force_radiation_call
-! - minor formate changes
-! 
-! 3371 2018-10-18 13:40:12Z knoop
-! Set flag indicating that albedo at urban surfaces is already initialized
-! 
-! 3347 2018-10-15 14:21:08Z suehring
-! Enable USM initialization with default building parameters in case no static
-! input file exist. 
-! 
-! 3343 2018-10-15 10:38:52Z suehring
-! Add output variables usm_rad_pc_inlw, usm_rad_pc_insw*
-! 
-! 3274 2018-09-24 15:42:55Z knoop
-! Modularization of all bulk cloud physics code components
-! 
-! 3248 2018-09-14 09:42:06Z sward
-! Minor formating changes
-! 
-! 3246 2018-09-13 15:14:50Z sward
-! Added error handling for input namelist via parin_fail_message
-! 
-! 3241 2018-09-12 15:02:00Z raasch
-! unused variables removed
-! 
-! 3223 2018-08-30 13:48:17Z suehring
-! Bugfix for commit 3222
-! 
-! 3222 2018-08-30 13:35:35Z suehring
-! Introduction of surface array for type and its name
-! 
-! 3203 2018-08-23 10:48:36Z suehring
-! Revise bulk parameter for emissivity at ground-floor level
-! 
-! 3196 2018-08-13 12:26:14Z maronga
-! Added maximum aerodynamic resistance of 300 for horiztonal surfaces.
-! 
-! 3176 2018-07-26 17:12:48Z suehring
-! Bugfix, update virtual potential surface temparture, else heat fluxes on 
-! roofs might become unphysical
-! 
-! 3152 2018-07-19 13:26:52Z suehring
-! Initialize q_surface, which might be used in surface_layer_fluxes
-! 
-! 3151 2018-07-19 08:45:38Z raasch
-! remaining preprocessor define strings __check removed
-! 
-! 3136 2018-07-16 14:48:21Z suehring
-! Limit also roughness length for heat and moisture where necessary
-! 
-! 3123 2018-07-12 16:21:53Z suehring
-! Correct working precision for INTEGER number
-! 
-! 3115 2018-07-10 12:49:26Z suehring
-! Additional building type to represent bridges 
-! 
-! 3091 2018-06-28 16:20:35Z suehring
-! - Limit aerodynamic resistance at vertical walls.
-! - Add check for local roughness length not exceeding surface-layer height and
-!   limit roughness length where necessary.
-! 
-! 3065 2018-06-12 07:03:02Z Giersch
-! Unused array dxdir was removed, dz was replaced by dzu to consider vertical
-! grid stretching
-! 
-! 3049 2018-05-29 13:52:36Z Giersch
-! Error messages revised
-! 
-! 3045 2018-05-28 07:55:41Z Giersch
-! Error message added
-! 
-! 3029 2018-05-23 12:19:17Z raasch
-! bugfix: close unit 151 instead of 90
-! 
-! 3014 2018-05-09 08:42:38Z maronga
-! Added pc_transpiration_rate
-! 
-! 2977 2018-04-17 10:27:57Z kanani
-! Implement changes from branch radiation (r2948-2971) with minor modifications.
-! (moh.hefny):
-! Extended exn for all model domain height to avoid the need to get nzut.
-! 
-! 2963 2018-04-12 14:47:44Z suehring
-! Introduce index for vegetation/wall, pavement/green-wall and water/window 
-! surfaces, for clearer access of surface fraction, albedo, emissivity, etc. .
-! 
-! 2943 2018-04-03 16:17:10Z suehring
-! Calculate exner function at all height levels and remove some un-used
-! variables.
-! 
-! 2932 2018-03-26 09:39:22Z maronga
-! renamed urban_surface_par to urban_surface_parameters
-! 
-! 2921 2018-03-22 15:05:23Z Giersch
-! The activation of spinup has been moved to parin
-! 
-! 2920 2018-03-22 11:22:01Z kanani
-! Remove unused pcbl, npcbl from ONLY list
-! moh.hefny:
-! Fixed bugs introduced by new structures and by moving radiation interaction
-! into radiation_model_mod.f90.
-! Bugfix: usm data output 3D didn't respect directions
-! 
-! 2906 2018-03-19 08:56:40Z Giersch
-! Local variable ids has to be initialized with a value of -1 in 
-! usm_3d_data_averaging
-! 
-! 2894 2018-03-15 09:17:58Z Giersch
-! Calculations of the index range of the subdomain on file which overlaps with
-! the current subdomain are already done in read_restart_data_mod,
-! usm_read/write_restart_data have been renamed to usm_r/wrd_local, variable 
-! named found has been introduced for checking if restart data was found, 
-! reading of restart strings has been moved completely to 
-! read_restart_data_mod, usm_rrd_local is already inside the overlap loop 
-! programmed in read_restart_data_mod, SAVE attribute added where necessary, 
-! deallocation and allocation of some arrays have been changed to take care of 
-! different restart files that can be opened (index i), the marker *** end usm 
-! *** is not necessary anymore, strings and their respective lengths are 
-! written out and read now in case of restart runs to get rid of prescribed 
-! character lengths
-! 
-! 2805 2018-02-14 17:00:09Z suehring
-! Initialization of resistances.
-! 
-! 2797 2018-02-08 13:24:35Z suehring
-! Comment concerning output of ground-heat flux added.
-! 
-! 2766 2018-01-22 17:17:47Z kanani
-! Removed redundant commas, added some blanks
-! 
-! 2765 2018-01-22 11:34:58Z maronga
-! Major bugfix in calculation of f_shf. Adjustment of roughness lengths in
-! building_pars
-! 
-! 2750 2018-01-15 16:26:51Z knoop
-! Move flag plant canopy to modules
-! 
-! 2737 2018-01-11 14:58:11Z kanani
-! Removed unused variables t_surf_whole...
-! 
-! 2735 2018-01-11 12:01:27Z suehring
-! resistances are saved in surface attributes
-! 
-! 2723 2018-01-05 09:27:03Z maronga
-! Bugfix for spinups (end_time was increased twice in case of LSM + USM runs)
-! 
-! 2720 2018-01-02 16:27:15Z kanani
-! Correction of comment
-! 
-! 2718 2018-01-02 08:49:38Z maronga
-! Corrected "Former revisions" section
-! 
-! 2705 2017-12-18 11:26:23Z maronga
-! Changes from last commit documented
-! 
-! 2703 2017-12-15 20:12:38Z maronga
-! Workaround for calculation of r_a
-!
-! 2696 2017-12-14 17:12:51Z kanani
-! - Change in file header (GPL part)
-! - Bugfix in calculation of pt_surface and related fluxes. (BM)
-! - Do not write surface temperatures onto pt array as this might cause 
-!   problems with nesting. (MS)
-! - Revised calculation of pt1 (now done in surface_layer_fluxes).
-!   Bugfix, f_shf_window and f_shf_green were not set at vertical surface 
-!   elements. (MS)
-! - merged with branch ebsolver
-!   green building surfaces do not evaporate yet
-!   properties of green wall layers and window layers are taken from wall layers
-!   this input data is missing. (RvT)
-! - Merged with branch radiation (developed by Mohamed Salim)
-! - Revised initialization. (MS)
-! - Rename emiss_surf into emissivity, roughness_wall into z0, albedo_surf into 
-!   albedo. (MS)
-! - Move first call of usm_radiatin from usm_init to init_3d_model
-! - fixed problem with near surface temperature
-! - added near surface temperature pt_10cm_h(m), pt_10cm_v(l)%t(m)
-! - does not work with temp profile including stability, ol
-!   pt_10cm = pt1 now
-! - merged with 2357 bugfix, error message for nopointer version
-! - added indoor model coupling with wall heat flux
-! - added green substrate/ dry vegetation layer for buildings
-! - merged with 2232 new surface-type structure
-! - added transmissivity of window tiles
-! - added MOSAIK tile approach for 3 different surfaces (RvT)
-! 
-! 2583 2017-10-26 13:58:38Z knoop
-! Bugfix: reverted MPI_Win_allocate_cptr introduction in last commit 
-!
-! 2582 2017-10-26 13:19:46Z hellstea
-! Workaround for gnufortran compiler added in usm_calc_svf. CALL MPI_Win_allocate is
-! replaced by CALL MPI_Win_allocate_cptr if defined ( __gnufortran ).
-!
-! 2544 2017-10-13 18:09:32Z maronga
-! Date and time quantities are now read from date_and_time_mod. Solar constant is
-! read from radiation_model_mod
-! 
-! 2516 2017-10-04 11:03:04Z suehring
-! Remove tabs
-! 
-! 2514 2017-10-04 09:52:37Z suehring
-! upper bounds of 3d output changed from nx+1,ny+1 to nx,ny
-! no output of ghost layer data
-! 
-! 2350 2017-08-15 11:48:26Z kanani
-! Bugfix and error message for nopointer version. 
-! Additional "! defined(__nopointer)" as workaround to enable compilation of 
-! nopointer version.
-! 
-! 2318 2017-07-20 17:27:44Z suehring
-! Get topography top index via Function call 
-! 
-! 2317 2017-07-20 17:27:19Z suehring
-! Bugfix: adjust output of shf. Added support for spinups
-! 
-! 2287 2017-06-15 16:46:30Z suehring
-! Bugfix in determination topography-top index
-! 
-! 2269 2017-06-09 11:57:32Z suehring
-! Enable restart runs with different number of PEs
-! Bugfixes nopointer branch
-! 
-! 2258 2017-06-08 07:55:13Z suehring
-! Bugfix, add pre-preprocessor directives to enable non-parrallel mode
-! 
-! 2233 2017-05-30 18:08:54Z suehring
-!
-! 2232 2017-05-30 17:47:52Z suehring
-! Adjustments according to new surface-type structure. Remove usm_wall_heat_flux; 
-! insteat, heat fluxes are directly applied in diffusion_s.
-! 
-! 2213 2017-04-24 15:10:35Z kanani
-! Removal of output quantities usm_lad and usm_canopy_hr
-! 
-! 2209 2017-04-19 09:34:46Z kanani
-! cpp switch __mpi3 removed,
-! minor formatting,
-! small bugfix for division by zero (Krc)
-! 
-! 2113 2017-01-12 13:40:46Z kanani
-! cpp switch __mpi3 added for MPI-3 standard code (Ketelsen)
-! 
-! 2071 2016-11-17 11:22:14Z maronga
-! Small bugfix (Resler)
-! 
-! 2031 2016-10-21 15:11:58Z knoop
-! renamed variable rho to rho_ocean
-! 
-! 2024 2016-10-12 16:42:37Z kanani
-! Bugfixes in deallocation of array plantt and reading of csf/csfsurf,
-! optimization of MPI-RMA operations,
-! declaration of pcbl as integer,
-! renamed usm_radnet -> usm_rad_net, usm_canopy_khf -> usm_canopy_hr,
-! splitted arrays svf -> svf & csf, svfsurf -> svfsurf & csfsurf,
-! use of new control parameter varnamelength,
-! added output variables usm_rad_ressw, usm_rad_reslw,
-! minor formatting changes,
-! minor optimizations.
-! 
-! 2011 2016-09-19 17:29:57Z kanani
-! Major reformatting according to PALM coding standard (comments, blanks,
-! alphabetical ordering, etc.),
-! removed debug_prints, 
-! removed auxiliary SUBROUTINE get_usm_info, instead, USM flag urban_surface is
-! defined in MODULE control_parameters (modules.f90) to avoid circular 
-! dependencies,
-! renamed canopy_heat_flux to pc_heating_rate, as meaning of quantity changed.
-! 
-! 2007 2016-08-24 15:47:17Z kanani
-! Initial revision
-!
 !
 ! Description:
Index: /palm/trunk/SOURCE/user_data_output_mask.f90
===================================================================
--- /palm/trunk/SOURCE/user_data_output_mask.f90	(revision 4179)
+++ /palm/trunk/SOURCE/user_data_output_mask.f90	(revision 4180)
@@ -38,27 +38,4 @@
 ! Add terrain-following output
 ! 
-! 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)
-!
-! 2101 2017-01-05 16:42:31Z suehring
-!
-! 2000 2016-08-20 18:09:15Z knoop
-! Forced header and separation lines into 80 columns
-! 
-! 1682 2015-10-07 23:56:08Z knoop
-! Code annotations made doxygen readable 
-!
-! 1320 2014-03-20 08:40:49Z raasch
-! kind-parameters added to all INTEGER and REAL declaration statements, 
-! kinds are defined in new module kinds, 
-! old module precision_kind is removed,
-! comment fields (!:) to be used for variable explanations added to
-! all variable declaration statements 
-!
-! 1036 2012-10-22 13:43:42Z raasch
-! code put under GPL (PALM 3.9)
 !
 ! Description:
Index: /palm/trunk/SOURCE/user_flight.f90
===================================================================
--- /palm/trunk/SOURCE/user_flight.f90	(revision 4179)
+++ /palm/trunk/SOURCE/user_flight.f90	(revision 4180)
@@ -30,14 +30,4 @@
 ! Corrected "Former revisions" section
 ! 
-! 2696 2017-12-14 17:12:51Z kanani
-! Change in file header (GPL part)
-!
-! 2101 2017-01-05 16:42:31Z suehring
-!
-! 2000 2016-08-20 18:09:15Z knoop
-! Forced header and separation lines into 80 columns
-! 
-! 1957 2016-07-07 10:43:48Z suehring
-! Initial revision
 !
 ! Description:
Index: /palm/trunk/SOURCE/user_init_3d_model.f90
===================================================================
--- /palm/trunk/SOURCE/user_init_3d_model.f90	(revision 4179)
+++ /palm/trunk/SOURCE/user_init_3d_model.f90	(revision 4180)
@@ -30,29 +30,4 @@
 ! Corrected "Former revisions" section
 ! 
-! 2696 2017-12-14 17:12:51Z kanani
-! Change in file header (GPL part)
-!
-! 2618 2017-11-16 15:37:30Z suehring
-! Provide example for user-defined initialization of surface-related quantities
-! 
-! 2233 2017-05-30 18:08:54Z suehring
-!
-! 2232 2017-05-30 17:47:52Z suehring
-! +surface_mod
-! 
-! 2000 2016-08-20 18:09:15Z knoop
-! Forced header and separation lines into 80 columns
-! 
-! 1682 2015-10-07 23:56:08Z knoop
-! Code annotations made doxygen readable 
-!
-! 1320 2014-03-20 08:40:49Z raasch
-! small changes in layout
-!
-! 1036 2012-10-22 13:43:42Z raasch
-! code put under GPL (PALM 3.9)
-!
-! 211 2008-11-11 04:46:24Z raasch
-! Former file user_interface.f90 split into one file per subroutine
 !
 ! Description:
Index: /palm/trunk/SOURCE/user_init_flight.f90
===================================================================
--- /palm/trunk/SOURCE/user_init_flight.f90	(revision 4179)
+++ /palm/trunk/SOURCE/user_init_flight.f90	(revision 4180)
@@ -30,14 +30,4 @@
 ! Corrected "Former revisions" section
 ! 
-! 2696 2017-12-14 17:12:51Z kanani
-! Change in file header (GPL part)
-!
-! 2101 2017-01-05 16:42:31Z suehring
-!
-! 2000 2016-08-20 18:09:15Z knoop
-! Forced header and separation lines into 80 columns
-! 
-! 1957 2016-07-07 10:43:48Z suehring
-! Initial revision
 !
 ! Description:
Index: /palm/trunk/SOURCE/user_init_grid.f90
===================================================================
--- /palm/trunk/SOURCE/user_init_grid.f90	(revision 4179)
+++ /palm/trunk/SOURCE/user_init_grid.f90	(revision 4180)
@@ -30,41 +30,4 @@
 ! dz was replaced by dz(1)
 ! 
-! 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)
-! Extended argument list (MS)
-! 
-! 2233 2017-05-30 18:08:54Z suehring
-!
-! 2232 2017-05-30 17:47:52Z suehring
-! +Generic tunnel added
-! +Example of setting user-defined topography
-! 
-! 2000 2016-08-20 18:09:15Z knoop
-! Forced header and separation lines into 80 columns
-! 
-! 1968 2016-07-18 12:01:49Z suehring
-! Change dimensions for nzb_local, which do not longer need to be set on 
-! multigrid ghost points. 
-! 
-! 1682 2015-10-07 23:56:08Z knoop
-! Code annotations made doxygen readable 
-!
-! 1320 2014-03-20 08:40:49Z raasch
-! 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 
-!
-! 1036 2012-10-22 13:43:42Z raasch
-! code put under GPL (PALM 3.9)
-!
-! 217 2008-12-09 18:00:48Z letzel
-! +topography_grid_convention
-! Former file user_interface.f90 split into one file per subroutine
 !
 ! Description:
Index: /palm/trunk/SOURCE/user_init_land_surface.f90
===================================================================
--- /palm/trunk/SOURCE/user_init_land_surface.f90	(revision 4179)
+++ /palm/trunk/SOURCE/user_init_land_surface.f90	(revision 4180)
@@ -30,27 +30,4 @@
 ! Corrected "Former revisions" section
 ! 
-! 2696 2017-12-14 17:12:51Z kanani
-! Change in file header (GPL part)
-!
-! 2233 2017-05-30 18:08:54Z suehring
-!
-! 2232 2017-05-30 17:47:52Z suehring
-! Load surface_mod
-! Add simple example how to access surface data type
-! 
-! 2000 2016-08-20 18:09:15Z knoop
-! Forced header and separation lines into 80 columns
-! 
-! 1972 2016-07-26 07:52:02Z maronga
-! Update of use statements
-! 
-! 1682 2015-10-07 23:56:08Z knoop
-! Code annotations made doxygen readable 
-! 
-! 1585 2015-04-30 07:05:52Z maronga
-! Changed description text
-! 
-! 1496 2014-12-02 17:25:50Z maronga
-! Initial revision
 ! 
 ! Description:
Index: /palm/trunk/SOURCE/user_init_plant_canopy.f90
===================================================================
--- /palm/trunk/SOURCE/user_init_plant_canopy.f90	(revision 4179)
+++ /palm/trunk/SOURCE/user_init_plant_canopy.f90	(revision 4180)
@@ -30,40 +30,4 @@
 ! Corrected "Former revisions" section
 ! 
-! 2696 2017-12-14 17:12:51Z kanani
-! Change in file header (GPL part)
-!
-! 2101 2017-01-05 16:42:31Z suehring
-!
-! 2000 2016-08-20 18:09:15Z knoop
-! Forced header and separation lines into 80 columns
-! 
-! 1951 2016-06-20 10:05:12Z suehring
-! Bugfix in example initialization
-!
-! 1682 2015-10-07 23:56:08Z knoop
-! Code annotations made doxygen readable 
-! 
-! 1484 2014-10-21 10:53:05Z kanani
-! Changes in the course of the canopy-model modularization:
-!   module plant_canopy_model_mod added,
-!   definition of array cdc (canopy drag coefficient) removed, since it is now
-!   defined purely as a single constant value (see module plant_canopy_model)
-! 
-! 1353 2014-04-08 15:21:23Z heinze
-! REAL constants provided with KIND-attribute 
-!
-! 1320 2014-03-20 08:40:49Z raasch
-! 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 
-!
-! 1036 2012-10-22 13:43:42Z raasch
-! code put under GPL (PALM 3.9)
-!
-! 211 2008-11-11 04:46:24Z raasch
-! Former file user_interface.f90 split into one file per subroutine
 !
 ! Description:
Index: /palm/trunk/SOURCE/user_init_radiation.f90
===================================================================
--- /palm/trunk/SOURCE/user_init_radiation.f90	(revision 4179)
+++ /palm/trunk/SOURCE/user_init_radiation.f90	(revision 4180)
@@ -30,17 +30,4 @@
 ! Corrected "Former revisions" section
 ! 
-! 2696 2017-12-14 17:12:51Z kanani
-! Change in file header (GPL part)
-!
-! 2101 2017-01-05 16:42:31Z suehring
-! 
-! 2000 2016-08-20 18:09:15Z knoop
-! Forced header and separation lines into 80 columns
-! 
-! 1682 2015-10-07 23:56:08Z knoop
-! Code annotations made doxygen readable 
-! 
-! 1585 2015-04-30 07:05:52Z maronga
-! Initial revision
 ! 
 ! Description:
Index: /palm/trunk/SOURCE/user_init_urban_surface.f90
===================================================================
--- /palm/trunk/SOURCE/user_init_urban_surface.f90	(revision 4179)
+++ /palm/trunk/SOURCE/user_init_urban_surface.f90	(revision 4180)
@@ -31,19 +31,4 @@
 ! Corrected "Former revisions" section
 ! 
-! 2696 2017-12-14 17:12:51Z kanani
-! Change in file header (GPL part)
-!
-! 2233 2017-05-30 18:08:54Z suehring
-!
-! 2232 2017-05-30 17:47:52Z suehring
-! Load surface_mod
-! Add simple example how to access surface data type
-! 
-! 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
-! Initial revision
-!
 !
 ! Description:
Index: /palm/trunk/SOURCE/user_lpm_advec.f90
===================================================================
--- /palm/trunk/SOURCE/user_lpm_advec.f90	(revision 4179)
+++ /palm/trunk/SOURCE/user_lpm_advec.f90	(revision 4180)
@@ -30,42 +30,4 @@
 ! Corrected "Former revisions" section
 ! 
-! 2696 2017-12-14 17:12:51Z kanani
-! Change in file header (GPL part)
-!
-! 2417 2017-09-06 15:22:27Z suehring
-! Particle loops adapted for sub-box structure, i.e. for each sub-box the 
-! particle loop runs from start_index up to end_index instead from 1 to 
-! number_of_particles.
-! 
-! 2101 2017-01-05 16:42:31Z suehring
-!
-! 2000 2016-08-20 18:09:15Z knoop
-! Forced header and separation lines into 80 columns
-! 
-! 1682 2015-10-07 23:56:08Z knoop
-! Code annotations made doxygen readable 
-! 
-! 1416 2014-06-04 16:04:03Z suehring
-! Provide template for new particle structure.
-! Moreover, user_lpm_advec is called for each gridpoint.
-! 
-! 1359 2014-04-11 17:15:14Z hoffmann
-! New particle structure integrated. 
-!
-! 1320 2014-03-20 08:40:49Z raasch
-! kind-parameters added to all INTEGER and REAL declaration statements, 
-! kinds are defined in new module kinds, 
-! old module precision_kind is removed,
-! comment fields (!:) to be used for variable explanations added to
-! all variable declaration statements 
-!
-! 1036 2012-10-22 13:43:42Z raasch
-! code put under GPL (PALM 3.9)
-!
-! 849 2012-03-15 10:35:09Z raasch
-! routine renamed user_lpm_advec
-!
-! 211 2008-11-11 04:46:24Z raasch
-! Former file user_interface.f90 split into one file per subroutine
 !
 ! Description:
Index: /palm/trunk/SOURCE/user_lpm_init.f90
===================================================================
--- /palm/trunk/SOURCE/user_lpm_init.f90	(revision 4179)
+++ /palm/trunk/SOURCE/user_lpm_init.f90	(revision 4180)
@@ -30,36 +30,4 @@
 ! Corrected "Former revisions" section
 ! 
-! 2696 2017-12-14 17:12:51Z kanani
-! Change in file header (GPL part)
-!
-! 2101 2017-01-05 16:42:31Z suehring
-!
-! 2000 2016-08-20 18:09:15Z knoop
-! Forced header and separation lines into 80 columns
-! 
-! 1682 2015-10-07 23:56:08Z knoop
-! Code annotations made doxygen readable 
-! 
-! 1416 2014-06-04 16:04:03Z suehring
-! load module indices
-! 
-! 1359 2014-04-11 17:15:14Z hoffmann
-! New particle structure integrated. 
-!
-! 1320 2014-03-20 08:40:49Z raasch
-! kind-parameters added to all INTEGER and REAL declaration statements, 
-! kinds are defined in new module kinds, 
-! old module precision_kind is removed,
-! comment fields (!:) to be used for variable explanations added to
-! all variable declaration statements 
-!
-! 1036 2012-10-22 13:43:42Z raasch
-! code put under GPL (PALM 3.9)
-!
-! 849 2012-03-15 10:35:09Z raasch
-! routine renamed: user_init_particles -> user_lpm_init
-!
-! 211 2008-11-11 04:46:24Z raasch
-! Former file user_interface.f90 split into one file per subroutine
 !
 ! Description:
Index: /palm/trunk/SOURCE/user_module.f90
===================================================================
--- /palm/trunk/SOURCE/user_module.f90	(revision 4179)
+++ /palm/trunk/SOURCE/user_module.f90	(revision 4180)
@@ -42,40 +42,4 @@
 ! An example for a user defined global variable has been added (Giersch)
 ! 
-! 2718 2018-01-02 08:49:38Z suehring
-! Corrected "Former revisions" section
-! 
-! 2696 2017-12-14 17:12:51Z kanani
-! Change in file header (GPL part)
-!
-! 2101 2017-01-05 16:42:31Z suehring
-!
-! 2000 2016-08-20 18:09:15Z knoop
-! Forced header and separation lines into 80 columns
-! 
-! 1873 2016-04-18 14:50:06Z maronga
-! Module renamed (removed _mod)
-! 
-! 
-! 1850 2016-04-08 13:29:27Z maronga
-! Module renamed
-! 
-! 
-! 1682 2015-10-07 23:56:08Z knoop
-! Code annotations made doxygen readable 
-!
-! 1320 2014-03-20 08:40:49Z raasch
-! 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 
-!
-! 1036 2012-10-22 13:43:42Z raasch
-! code put under GPL (PALM 3.9)
-!
-! Revision 1.1  1998/03/24 15:29:04  raasch
-! Initial revision
-!
 !
 ! Description:
Index: /palm/trunk/SOURCE/user_spectra.f90
===================================================================
--- /palm/trunk/SOURCE/user_spectra.f90	(revision 4179)
+++ /palm/trunk/SOURCE/user_spectra.f90	(revision 4180)
@@ -30,40 +30,4 @@
 ! Renamed output variables
 ! 
-! 3049 2018-05-29 13:52:36Z Giersch
-! Error messages revised
-! 
-! 3045 2018-05-28 07:55:41Z Giersch
-! Corrected "Former revisions" section
-! 
-! 2696 2017-12-14 17:12:51Z kanani
-! Change in file header (GPL part)
-!
-! 2101 2017-01-05 16:42:31Z suehring
-!
-! 2000 2016-08-20 18:09:15Z knoop
-! Forced header and separation lines into 80 columns
-! 
-! 1960 2016-07-12 16:34:24Z suehring
-! Consider additional spectra for passive scalar
-! 
-! 1833 2016-04-07 14:23:03Z raasch
-! spectrum renamed spectra_mod
-! 
-! 1682 2015-10-07 23:56:08Z knoop
-! Code annotations made doxygen readable  
-!
-! 1320 2014-03-20 08:40:49Z raasch
-! 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 
-!
-! 1036 2012-10-22 13:43:42Z raasch
-! code put under GPL (PALM 3.9)
-!
-! 211 2008-11-11 04:46:24Z raasch
-! Former file user_interface.f90 split into one file per subroutine
 !
 ! Description:
Index: /palm/trunk/SOURCE/vertical_nesting_mod.f90
===================================================================
--- /palm/trunk/SOURCE/vertical_nesting_mod.f90	(revision 4179)
+++ /palm/trunk/SOURCE/vertical_nesting_mod.f90	(revision 4180)
@@ -37,44 +37,4 @@
 ! 3655 2019-01-07 16:51:22Z knoop
 ! unused variables removed
-! 
-! 3232 2018-09-07 12:21:44Z raasch
-! references to mrun replaced by palmrun, and updated
-! 
-! 3083 2018-06-19 14:03:12Z gronemeier
-! Error messages revised
-! 
-! 3065 2018-06-12 07:03:02Z Giersch
-! dz was replaced by dz(1), error messages related to vertical grid stretching 
-! have been added
-! 
-! 3049 2018-05-29 13:52:36Z Giersch
-! Error messages revised
-! 
-! 3045 2018-05-28 07:55:41Z Giersch
-! Error message revised
-! 
-! 2718 2018-01-02 08:49:38Z maronga
-! Corrected "Former revisions" section
-! 
-! 2712 2017-12-20 17:32:50Z kanani
-! Formatting and clean-up (SadiqHuq)
-! 
-! 2696 2017-12-14 17:12:51Z kanani
-! Change in file header (GPL part)
-! Renamed diffusivities to tcm_diffusivities (TG)
-! 
-! 2516 2017-10-04 11:03:04Z suehring
-! Remove tabs
-! 
-! 2514 2017-10-04 09:52:37Z suehring
-! Remove tabs
-! 
-! 2514 2017-10-04 09:52:37Z suehring
-! Added todo list
-! 
-! 2365 2017-08-21 14:59:59Z kanani
-! Initial revision (SadiqHuq)
-! 
-! 
 ! 
 ! 
Index: /palm/trunk/SOURCE/virtual_flight_mod.f90
===================================================================
--- /palm/trunk/SOURCE/virtual_flight_mod.f90	(revision 4179)
+++ /palm/trunk/SOURCE/virtual_flight_mod.f90	(revision 4180)
@@ -34,72 +34,4 @@
 ! variables documented
 ! 
-! 3421 2018-10-24 18:39:32Z gronemeier
-! Renamed output variables
-! 
-! 3274 2018-09-24 15:42:55Z knoop
-! Modularization of all bulk cloud physics code components
-! 
-! 3248 2018-09-14 09:42:06Z sward
-! Minor formating changes
-! 
-! 3246 2018-09-13 15:14:50Z sward
-! Added error handling for input namelist via parin_fail_message
-! 
-! 3241 2018-09-12 15:02:00Z raasch
-! unused variables removed
-! 
-! 3182 2018-07-27 13:36:03Z suehring
-! IF statement revised to consider new vertical grid stretching
-! 
-! 3049 2018-05-29 13:52:36Z Giersch
-! Error messages revised
-! 
-! 2932 2018-03-26 09:39:22Z Giersch
-! renamed flight_par to virtual_flight_parameters
-! 
-! 2894 2018-03-15 09:17:58Z Giersch
-! variable named found has been introduced for checking if restart data was 
-! found, reading of restart strings has been moved completely to 
-! read_restart_data_mod, virtual_flight_prerun flag has been removed, redundant
-! skipping function has been removed, flight_read/write_restart_data 
-! have been renamed to flight_r/wrd_global, flight_rrd_global is called in 
-! read_restart_data_mod now, marker *** end flight *** was removed, strings and
-! their respective lengths are written out and read now in case of restart runs
-! to get rid of prescribed character lengths, CASE DEFAULT was added if restart
-! data is read
-! 
-! 2872 2018-03-12 10:05:47Z Giersch
-! virutal_flight_prerun flag is used to define if module 
-! related parameters were outputted as restart data
-! 
-! 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)
-!
-! 2576 2017-10-24 13:49:46Z Giersch
-! Definition of a new function called flight_skip_var_list to skip module 
-! parameters during reading restart data
-! 
-! 2563 2017-10-19 15:36:10Z Giersch
-! flight_read_restart_data is called in flight_parin in the case of a restart 
-! run. flight_skip_var_list is not necessary anymore due to marker changes in
-! restart files.
-! 
-! 2271 2017-06-09 12:34:55Z sward
-! Todo added
-! 
-! 2101 2017-01-05 16:42:31Z suehring
-!
-! 2000 2016-08-20 18:09:15Z knoop
-! Forced header and separation lines into 80 columns
-! 
-! 1960 2016-07-12 16:34:24Z suehring
-! Separate humidity and passive scalar.
-! Bugfix concerning labeling of timeseries.
-! 
-! 1957 2016-07-07 10:43:48Z suehring
-! Initial revision
 !
 ! Description:
Index: /palm/trunk/SOURCE/virtual_measurement_mod.f90
===================================================================
--- /palm/trunk/SOURCE/virtual_measurement_mod.f90	(revision 4179)
+++ /palm/trunk/SOURCE/virtual_measurement_mod.f90	(revision 4180)
@@ -66,13 +66,4 @@
 ! Sampling of variables
 ! 
-! 3494 2018-11-06 14:51:27Z suehring
-! Bugfixing
-! 
-! 3473 2018-10-30 20:50:15Z suehring
-! Initial revision
-!
-! Authors:
-! --------
-! @author Matthias Suehring
 !
 ! Description:
Index: /palm/trunk/SOURCE/wind_turbine_model_mod.f90
===================================================================
--- /palm/trunk/SOURCE/wind_turbine_model_mod.f90	(revision 4179)
+++ /palm/trunk/SOURCE/wind_turbine_model_mod.f90	(revision 4180)
@@ -52,125 +52,4 @@
 ! Replace degree symbol by 'degrees'
 !
-! 3274 2018-09-24 15:42:55Z knoop
-! Modularization of all bulk cloud physics code components
-! 
-! 3248 2018-09-14 09:42:06Z sward
-! Minor formating changes
-! 
-! 3246 2018-09-13 15:14:50Z sward
-! Added error handling for input namelist via parin_fail_message
-! 
-! 3241 2018-09-12 15:02:00Z raasch
-! unused variables removed
-! 
-! 3182 2018-07-27 13:36:03Z suehring
-! Check for vertical stretching has been revised. 
-! 
-! 3139 2018-07-17 11:30:10Z Giersch
-! Bugfix in calculation of alpha_attack
-! 
-! 3069 2018-06-15 07:56:09Z witha
-! Initialization of some arrays added
-! 
-! 3066 2018-06-12 08:55:55Z Giersch
-! Error message revised
-!
-! 3065 2018-06-12 07:03:02Z Giersch
-! dz was replaced by dz(1), error message concerning grid stretching has been
-! introduced
-! 
-! 3049 2018-05-29 13:52:36Z Giersch
-! Error messages revised
-! 
-! 2932 2018-03-26 09:39:22Z Giersch
-! renamed wind_turbine_par to wind_turbine_parameters
-! 
-! 2894 2018-03-15 09:17:58Z Giersch
-! variable named found has been introduced for checking if restart data was 
-! found, reading of restart strings has been moved completely to 
-! read_restart_data_mod, wind_turbine_prerun flag has been removed, redundant 
-! skipping function has been removed, wtm_read/write_restart_data have been
-! renamed to wtm_r/wrd_global, wtm_rrd_global is called in 
-! read_restart_data_mod now, marker *** end wtm *** was removed, strings and 
-! their respective lengths are written out and read now in case of restart 
-! runs to get rid of prescribed character lengths, CASE DEFAULT was added if 
-! restart data is read 
-! 
-! 2885 2018-03-14 11:02:46Z Giersch
-! Bugfix in interpolation of lift and drag coefficients on fine grid of radius 
-! segments and angles of attack, speed-up of the initialization of the wind 
-! turbine model 
-! 
-! 2792 2018-02-07 06:45:29Z Giersch
-! omega_rot_l has to be calculated after determining the indices for the hub in
-! case of restart runs
-! 
-! 2776 2018-01-31 10:44:42Z Giersch
-! wind_turbine_prerun flag is used to define if module 
-! related parameters were outputted as restart data
-! 
-! 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)
-!
-! 2669 2017-12-06 16:03:27Z raasch
-! filename of turbine output changed to WTM_OUTPUT_DATA. File extension now
-! includes the nest domain number. Turbine extension changed to "_T##"
-!
-! 2576 2017-10-24 13:49:46Z Giersch
-! Definition of a new function called wtm_skip_global to skip module 
-! parameters during reading restart data
-! 
-! 2563 2017-10-19 15:36:10Z Giersch
-! Restart runs with wind turbine model are possible now. For this purpose, two 
-! new subroutines wtm_write_restart_data and wtm_read_restart_data had to be 
-! defined
-! 
-! 2553 2017-10-18 08:03:45Z Giersch
-! Bugfix of vertical loop in wtm_tendencies to account for different turbine 
-! heights, bugfix of the interpolation of the u-component concerning the 
-! vertical index and further small adjustments of the programming style 
-! 
-! 2410 2017-09-06 08:16:30Z Giersch
-! Revise error message PA0462
-! 
-! 2349 2017-08-10 15:44:04Z Giersch
-! Add parameter pitch_rate to namelist and revise/add error messages 
-! 
-! 2343 2017-08-08 11:28:43Z Giersch
-! Unit correction in Doxygen comments
-! 
-! 2323 2017-07-26 12:57:38Z Giersch
-! Change unit number of file WTM_DATA from 201 to 90
-!  
-! 2322 2017-07-26 08:30:28Z Giersch
-! Bugfix of error message and assign error numbers
-! 
-! 2257 2017-06-07 14:07:05Z witha
-! Bugfix: turb_cl_tab and turb_cd_tab were set to zero before being allocated
-! 
-! 2233 2017-05-30 18:08:54Z suehring
-! 
-! 2232 2017-05-30 17:47:52Z suehring
-! Adjustments to new topography concept
-! 
-! 2152 2017-02-17 13:27:24Z lvollmer
-! Bugfix in subroutine wtm_read_blade_tables
-! Addition of a tip loss model
-! 
-! 2015 2016-09-28 08:45:18Z lvollmer
-! Bugfix of pitch control
-! 
-! 2000 2016-08-20 18:09:15Z knoop
-! Forced header and separation lines into 80 columns
-! 
-! 1929 2016-06-09 16:25:25Z suehring
-! Bugfix: added preprocessor directives for parallel and serial mode
-! 
-! 1914 2016-05-26 14:44:07Z witha
-! Initial revision
-! 
 !
 ! Description:
Index: /palm/trunk/SOURCE/write_restart_data_mod.f90
===================================================================
--- /palm/trunk/SOURCE/write_restart_data_mod.f90	(revision 4179)
+++ /palm/trunk/SOURCE/write_restart_data_mod.f90	(revision 4180)
@@ -42,41 +42,4 @@
 ! Implementation of the PALM module interface
 ! 
-! 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.
-! 
-! 3355 2018-10-16 14:03:34Z knoop
-! changes concerning modularization of ocean option
-! 
-! 3274 2018-09-24 15:42:55Z knoop
-! Modularization of all bulk cloud physics code components
-! 
-! 3065 2018-06-12 07:03:02Z Giersch
-! New parameters concerning vertical grid stretching have been added
-! 
-! 3004 2018-04-27 12:33:25Z Giersch
-! precipitation_rate_av removed
-! 
-! 3003 2018-04-23 10:22:58Z Giersch
-! z_i is also written out to use the last known inversion height from the 
-! initial run as the first inversion height which is written into the
-! run control file 
-! 
-! 2956 2018-04-10 11:01:03Z Giersch
-! spectrum_x and spectrum_y have been moved to global data
-! 
-! 2921 2018-03-22 15:05:23Z Giersch
-! spinup_time, day_of_year_init and time_utc_init are also written out now
-! 
-! 2912 2018-03-20 13:00:05Z knoop
-! Added gust module interface calls
-! 
-! 2894 2018-03-15 09:17:58Z Giersch
-! Initial revision 
-!
 !
 ! Description:
