Changeset 3988 for palm/trunk/SOURCE/time_integration.f90
- Timestamp:
- May 22, 2019 11:32:37 AM (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/time_integration.f90
r3968 r3988 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Implement steerable output interval for virtual measurements 28 ! 29 ! 3968 2019-05-13 11:04:01Z suehring 27 30 ! replace nspec_out with n_matched_vars 28 31 ! … … 657 660 658 661 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 660 667 661 668 … … 1538 1545 ENDIF 1539 1546 ! 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 ! 1540 1552 !-- In case of synthetic turbulence generation and parametrized turbulence 1541 1553 !-- information, update the time counter and if required, adjust the … … 1680 1692 ! 1681 1693 !-- 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 1683 1696 CALL vm_sampling 1684 1697 CALL vm_data_output 1685 ENDIF 1686 1698 time_virtual_measurement = MOD( time_virtual_measurement, & 1699 MAX( dt_virtual_measurement, dt_3d ) ) 1700 ENDIF 1687 1701 ! 1688 1702 !-- Profile output (ASCII) on file
Note: See TracChangeset
for help on using the changeset viewer.