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

enable steering of output interval for virtual measurements

File:
1 edited

Legend:

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

    r3968 r3988  
    2525! -----------------
    2626! $Id$
     27! Implement steerable output interval for virtual measurements
     28!
     29! 3968 2019-05-13 11:04:01Z suehring
    2730! replace nspec_out with n_matched_vars
    2831!
     
    657660
    658661    USE virtual_measurement_mod,                                                                   &
    659         ONLY:  vm_data_output, vm_sampling, vm_time_start
     662        ONLY:  dt_virtual_measurement,                                                             &
     663               time_virtual_measurement,                                                           &
     664               vm_data_output,                                                                     &
     665               vm_sampling,                                                                        &
     666               vm_time_start
    660667
    661668
     
    15381545       ENDIF
    15391546!
     1547!--    Increment time-counter for virtual measurements
     1548       IF ( virtual_measurement  .AND.  vm_time_start <= time_since_reference_point )  THEN
     1549          time_virtual_measurement = time_virtual_measurement + dt_3d
     1550       ENDIF
     1551!
    15401552!--    In case of synthetic turbulence generation and parametrized turbulence
    15411553!--    information, update the time counter and if required, adjust the
     
    16801692!
    16811693!--    Take virtual measurements
    1682        IF ( virtual_measurement  .AND.  vm_time_start <= time_since_reference_point )  THEN
     1694       IF ( virtual_measurement  .AND.  time_virtual_measurement >= dt_virtual_measurement         &
     1695                                 .AND.  vm_time_start <= time_since_reference_point )  THEN
    16831696          CALL vm_sampling
    16841697          CALL vm_data_output
    1685        ENDIF
    1686 
     1698          time_virtual_measurement = MOD(      time_virtual_measurement,                           &
     1699                                          MAX( dt_virtual_measurement, dt_3d ) )
     1700       ENDIF
    16871701!
    16881702!--    Profile output (ASCII) on file
Note: See TracChangeset for help on using the changeset viewer.