Changeset 4110 for palm/trunk/SOURCE/advec_ws.f90

Timestamp:

Jul 22, 2019 5:05:21 PM (5 years ago)

Author:

suehring

Message:

last changes documented

File:

• palm/trunk/SOURCE/advec_ws.f90 (modified) (5 diffs)

palm/trunk/SOURCE/advec_ws.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
+! 
+! 
+! Former revisions:
+! -----------------
+! $Id$
 ! - Separate initialization of advection flags for momentum and scalars. In this
 !   context, resort the bits and do some minor formatting. 
@@ -38 +43 @@
 !   advection
 ! 
-! Former revisions:
-! -----------------
-! $Id$
+! 4109 2019-07-22 17:00:34Z suehring
 ! Implementation of a flux limiter according to Skamarock (2006) for the 
 ! vertical scalar advection. Please note, this is only implemented for the 
@@ -122 +125 @@
 ! Change in file header (GPL part)
 ! Implement advection for TKE-dissipation in case of RANS-TKE-e closure (TG)
-! Allocate advc_flags_m/2 within ws_init_flags instead of init_grid
+! Allocate advc_flags_1/2 within ws_init_flags instead of init_grid
 ! Change argument list for exchange_horiz_2d_int (MS)
 ! 
@@ -136 +139 @@
 ! 
 ! 2232 2017-05-30 17:47:52Z suehring
-! Rename wall_flags_0 and wall_flags_00 into advc_flags_m and advc_flags_m, 
+! Rename wall_flags_0 and wall_flags_00 into advc_flags_m and advc_flags_1, 
 ! respectively.
-! Set advc_flags_m/2 on basis of wall_flags_0/00 instead of nzb_s/u/v/w_inner.
-! Setting advc_flags_m/2 also for downward-facing walls
+! 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
@@ -262 +265 @@
 ! vector version.
 ! Degradation of the applied order of scheme is now steered by multiplying with
-! Integer advc_flags_m. 2nd order scheme, WS3 and WS5 are calculated on each
+! 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