Changeset 4173

Timestamp:

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

Author:

gronemeier

Message:

add vdi_internal_controls

Location:

palm/trunk/SOURCE

Files:

• Makefile (modified) (4 diffs)
• module_interface.f90 (modified) (4 diffs)
• modules.f90 (modified) (4 diffs)
• parin.f90 (modified) (3 diffs)
• vdi_internal_controls.f90 (added)

palm/trunk/SOURCE/Makefile

@@ -25 +25 @@
 # -----------------
 # $Id$
+# add vdi_internal_controls
+# 
+# 4168 2019-08-16 13:50:17Z suehring
 # Remove some dependencies on surface_mod that are no longer required without
 # get_topography_top_index functions
@@ -731 +734 @@
         user_module.f90 \
         user_spectra.f90 \
+        vdi_internal_controls.f90 \
         vertical_nesting_mod.f90 \
         virtual_flight_mod.f90 \
@@ -1229 +1233 @@
         urban_surface_mod.o \
         user_module.o \
+        vdi_internal_controls.o \
         virtual_flight_mod.o \
         virtual_measurement_mod.o \
@@ -1703 +1708 @@
         spectra_mod.o \
         user_module.o
+vdi_internal_controls.o: \
+        mod_kinds.o \
+        modules.o 
 vertical_nesting_mod.o: \
         mod_kinds.o \

palm/trunk/SOURCE/module_interface.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! add vdi_internal_controls
+! 
+! 4157 2019-08-14 09:19:12Z suehring
 ! Call doq_init from module interface
 ! 
@@ -207 +210 @@
                syn_turb_gen,                                                   &
                urban_surface,                                                  &
+               vdi_checks,                                                     &
                virtual_flight,                                                 &
                virtual_measurement,                                            &
@@ -454 +458 @@
                usm_wrd_local
 
+    USE vdi_internal_controls,                                                 &
+        ONLY:  vdi_actions
+               
     USE virtual_measurement_mod,                                               &
         ONLY:  vm_check_parameters,                                            &
@@ -1125 +1132 @@
 
     IF ( user_module_enabled )  CALL user_actions( location )
+    IF ( vdi_checks          )  CALL vdi_actions( location )
 
 

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

palm/trunk/SOURCE/parin.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! add vdi_internal_controls
+! 
+! 4131 2019-08-02 11:06:18Z monakurppa
 ! Allocate hom and hom_sum to allow profile output for salsa variables.
 ! 
@@ -628 +631 @@
              ug_vertical_gradient_level, use_surface_fluxes, use_cmax,         &
              use_top_fluxes, use_ug_for_galilei_tr, use_upstream_for_tke,      &
-             uv_heights, u_bulk, u_profile, vg_surface, vg_vertical_gradient,  &
+             uv_heights, u_bulk, u_profile, vdi_checks, vg_surface,            &
+             vg_vertical_gradient,  &
              vg_vertical_gradient_level, v_bulk, v_profile,&
              wall_adjustment, wall_heatflux, wall_humidityflux,                &
@@ -698 +702 @@
              use_top_fluxes, use_ug_for_galilei_tr, use_upstream_for_tke,      &
              use_free_convection_scaling,                                      &
-             uv_heights, u_bulk, u_profile, vg_surface, vg_vertical_gradient,  &
+             uv_heights, u_bulk, u_profile, vdi_checks,                        &
+             vg_surface, vg_vertical_gradient,  &
              vg_vertical_gradient_level, v_bulk, v_profile,                    &
              wall_adjustment, wall_heatflux, wall_humidityflux,                &