Changeset 4173 for palm/trunk/SOURCE/modules.f90

Timestamp:

Aug 20, 2019 12:04:06 PM (5 years ago)

Author:

gronemeier

Message:

add vdi_internal_controls

File:

• palm/trunk/SOURCE/modules.f90 (modified) (4 diffs)

palm/trunk/SOURCE/modules.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! add vdi_internal_controls
+! 
+! 4172 2019-08-20 11:55:33Z oliver.maas
 ! added recycle_absolute_quantities and raq
 ! 
@@ -1200 +1203 @@
     CHARACTER (LEN=varnamelength), DIMENSION(0:1,500) ::  do2d = ' '  !< label array for 2d output quantities
     CHARACTER (LEN=varnamelength), DIMENSION(0:1,500) ::  do3d = ' '  !< label array for 3d output quantities
-     
+
     CHARACTER (LEN=varnamelength), DIMENSION(7) :: recycle_absolute_quantities = ' '    !< namelist parameter
     
@@ -1318 +1321 @@
 
     INTEGER(iwp), DIMENSION(max_masks,mask_xyz_dimension) ::  mask_k_over_surface = -1  !< namelist parameter, k index of height over surface
-    
+
     LOGICAL ::  agent_time_unlimited = .FALSE.                   !< namelist parameter
     LOGICAL ::  air_chemistry = .FALSE.                          !< chemistry model switch
@@ -1423 +1426 @@
     LOGICAL ::  use_ug_for_galilei_tr = .TRUE.                   !< namelist parameter
     LOGICAL ::  use_upstream_for_tke = .FALSE.                   !< namelist parameter
+    LOGICAL ::  vdi_checks = .FALSE.                             !< do internal controls after VDI 3783 Part 9
     LOGICAL ::  virtual_flight = .FALSE.                         !< use virtual flight model
     LOGICAL ::  virtual_measurement = .FALSE.                    !< control parameter to switch-on virtual measurements