Changeset 4173 for palm/trunk


Ignore:
Timestamp:
Aug 20, 2019 12:04:06 PM (5 years ago)
Author:
gronemeier
Message:

add vdi_internal_controls

Location:
palm/trunk/SOURCE
Files:
1 added
4 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/Makefile

    r4168 r4173  
    2525# -----------------
    2626# $Id$
     27# add vdi_internal_controls
     28#
     29# 4168 2019-08-16 13:50:17Z suehring
    2730# Remove some dependencies on surface_mod that are no longer required without
    2831# get_topography_top_index functions
     
    731734        user_module.f90 \
    732735        user_spectra.f90 \
     736        vdi_internal_controls.f90 \
    733737        vertical_nesting_mod.f90 \
    734738        virtual_flight_mod.f90 \
     
    12291233        urban_surface_mod.o \
    12301234        user_module.o \
     1235        vdi_internal_controls.o \
    12311236        virtual_flight_mod.o \
    12321237        virtual_measurement_mod.o \
     
    17031708        spectra_mod.o \
    17041709        user_module.o
     1710vdi_internal_controls.o: \
     1711        mod_kinds.o \
     1712        modules.o
    17051713vertical_nesting_mod.o: \
    17061714        mod_kinds.o \
  • palm/trunk/SOURCE/module_interface.f90

    r4157 r4173  
    2525! -----------------
    2626! $Id$
     27! add vdi_internal_controls
     28!
     29! 4157 2019-08-14 09:19:12Z suehring
    2730! Call doq_init from module interface
    2831!
     
    207210               syn_turb_gen,                                                   &
    208211               urban_surface,                                                  &
     212               vdi_checks,                                                     &
    209213               virtual_flight,                                                 &
    210214               virtual_measurement,                                            &
     
    454458               usm_wrd_local
    455459
     460    USE vdi_internal_controls,                                                 &
     461        ONLY:  vdi_actions
     462               
    456463    USE virtual_measurement_mod,                                               &
    457464        ONLY:  vm_check_parameters,                                            &
     
    11251132
    11261133    IF ( user_module_enabled )  CALL user_actions( location )
     1134    IF ( vdi_checks          )  CALL vdi_actions( location )
    11271135
    11281136
  • palm/trunk/SOURCE/modules.f90

    r4172 r4173  
    2525! -----------------
    2626! $Id$
     27! add vdi_internal_controls
     28!
     29! 4172 2019-08-20 11:55:33Z oliver.maas
    2730! added recycle_absolute_quantities and raq
    2831!
     
    12001203    CHARACTER (LEN=varnamelength), DIMENSION(0:1,500) ::  do2d = ' '  !< label array for 2d output quantities
    12011204    CHARACTER (LEN=varnamelength), DIMENSION(0:1,500) ::  do3d = ' '  !< label array for 3d output quantities
    1202      
     1205
    12031206    CHARACTER (LEN=varnamelength), DIMENSION(7) :: recycle_absolute_quantities = ' '    !< namelist parameter
    12041207   
     
    13181321
    13191322    INTEGER(iwp), DIMENSION(max_masks,mask_xyz_dimension) ::  mask_k_over_surface = -1  !< namelist parameter, k index of height over surface
    1320    
     1323
    13211324    LOGICAL ::  agent_time_unlimited = .FALSE.                   !< namelist parameter
    13221325    LOGICAL ::  air_chemistry = .FALSE.                          !< chemistry model switch
     
    14231426    LOGICAL ::  use_ug_for_galilei_tr = .TRUE.                   !< namelist parameter
    14241427    LOGICAL ::  use_upstream_for_tke = .FALSE.                   !< namelist parameter
     1428    LOGICAL ::  vdi_checks = .FALSE.                             !< do internal controls after VDI 3783 Part 9
    14251429    LOGICAL ::  virtual_flight = .FALSE.                         !< use virtual flight model
    14261430    LOGICAL ::  virtual_measurement = .FALSE.                    !< control parameter to switch-on virtual measurements
  • palm/trunk/SOURCE/parin.f90

    r4131 r4173  
    2525! -----------------
    2626! $Id$
     27! add vdi_internal_controls
     28!
     29! 4131 2019-08-02 11:06:18Z monakurppa
    2730! Allocate hom and hom_sum to allow profile output for salsa variables.
    2831!
     
    628631             ug_vertical_gradient_level, use_surface_fluxes, use_cmax,         &
    629632             use_top_fluxes, use_ug_for_galilei_tr, use_upstream_for_tke,      &
    630              uv_heights, u_bulk, u_profile, vg_surface, vg_vertical_gradient,  &
     633             uv_heights, u_bulk, u_profile, vdi_checks, vg_surface,            &
     634             vg_vertical_gradient,  &
    631635             vg_vertical_gradient_level, v_bulk, v_profile,&
    632636             wall_adjustment, wall_heatflux, wall_humidityflux,                &
     
    698702             use_top_fluxes, use_ug_for_galilei_tr, use_upstream_for_tke,      &
    699703             use_free_convection_scaling,                                      &
    700              uv_heights, u_bulk, u_profile, vg_surface, vg_vertical_gradient,  &
     704             uv_heights, u_bulk, u_profile, vdi_checks,                        &
     705             vg_surface, vg_vertical_gradient,  &
    701706             vg_vertical_gradient_level, v_bulk, v_profile,                    &
    702707             wall_adjustment, wall_heatflux, wall_humidityflux,                &
Note: See TracChangeset for help on using the changeset viewer.