Ignore:
Timestamp:
May 22, 2019 11:32:37 AM (2 years ago)
Author:
kanani
Message:

enable steering of output interval for virtual measurements

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/virtual_measurement_mod.f90

    r3913 r3988  
    2525! -----------------
    2626! $Id$
     27! Add variables to enable steering of output interval for virtual measurements
     28!
     29! 3913 2019-04-17 15:12:28Z gronemeier
    2730! Bugfix: rotate positions of measurements before writing them into file
    2831!
     
    284287    LOGICAL ::  init = .TRUE.                     !< flag indicating initialization of data output
    285288    LOGICAL ::  use_virtual_measurement = .FALSE. !< Namelist parameter
    286    
    287     REAL(wp) ::  vm_time_start = 0.0              !< time after virtual measurements should start
     289
     290    REAL(wp) ::  dt_virtual_measurement = 0.0_wp    !< namelist parameter
     291    REAL(wp) ::  time_virtual_measurement = 0.0_wp  !< time since last 3d output
     292    REAL(wp) ::  vm_time_start = 0.0                !< time after virtual measurements should start
    288293
    289294    TYPE( virt_general )                        ::  vmea_general !< data structure which encompass general variables
     
    325330!
    326331!-- Public variables
    327     PUBLIC  vmea, vmea_general, vm_time_start
     332    PUBLIC  dt_virtual_measurement, time_virtual_measurement, vmea, vmea_general, vm_time_start
    328333
    329334 CONTAINS
     
    374379    CHARACTER (LEN=80) ::  line   !< dummy string that contains the current line of the parameter file
    375380 
    376     NAMELIST /virtual_measurement_parameters/  use_virtual_measurement,        &
     381    NAMELIST /virtual_measurement_parameters/  dt_virtual_measurement,                             &
     382                                               use_virtual_measurement,                            &
    377383                                               vm_time_start
    378384
Note: See TracChangeset for help on using the changeset viewer.