Changeset 4039 for palm/trunk/SOURCE/time_integration.f90
- Timestamp:
- Jun 18, 2019 10:32:41 AM (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/time_integration.f90
r4029 r4039 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Rename subroutines in module for diagnostic quantities 28 ! 29 ! 4029 2019-06-14 14:04:35Z raasch 27 30 ! exchange of ghost points and boundary conditions separated for chemical species and SALSA module, 28 31 ! bugfix: decycling of chemistry species after nesting data transfer … … 578 581 579 582 USE diagnostic_output_quantities_mod, & 580 ONLY: d iagnostic_output_quantities_calculate,&583 ONLY: doq_calculate, & 581 584 timestep_number_at_prev_calc 582 585 … … 1730 1733 IF ( time_do_sla >= dt_averaging_input ) THEN 1731 1734 IF ( current_timestep_number > timestep_number_at_prev_calc ) & 1732 CALL d iagnostic_output_quantities_calculate1735 CALL doq_calculate 1733 1736 1734 1737 CALL sum_up_3d_data … … 1811 1814 IF ( time_do2d_xy >= dt_do2d_xy .AND. time_since_reference_point >= skip_time_do2d_xy ) THEN 1812 1815 IF ( current_timestep_number > timestep_number_at_prev_calc ) & 1813 CALL d iagnostic_output_quantities_calculate1816 CALL doq_calculate 1814 1817 1815 1818 CALL data_output_2d( 'xy', 0 ) … … 1819 1822 IF ( current_timestep_number > timestep_number_at_prev_calc ) & 1820 1823 1821 CALL d iagnostic_output_quantities_calculate1824 CALL doq_calculate 1822 1825 CALL data_output_2d( 'xz', 0 ) 1823 1826 time_do2d_xz = MOD( time_do2d_xz, MAX( dt_do2d_xz, dt_3d ) ) … … 1825 1828 IF ( time_do2d_yz >= dt_do2d_yz .AND. time_since_reference_point >= skip_time_do2d_yz ) THEN 1826 1829 IF ( current_timestep_number > timestep_number_at_prev_calc ) & 1827 CALL d iagnostic_output_quantities_calculate1830 CALL doq_calculate 1828 1831 1829 1832 CALL data_output_2d( 'yz', 0 ) … … 1835 1838 IF ( time_do3d >= dt_do3d .AND. time_since_reference_point >= skip_time_do3d ) THEN 1836 1839 IF ( current_timestep_number > timestep_number_at_prev_calc ) & 1837 CALL d iagnostic_output_quantities_calculate1840 CALL doq_calculate 1838 1841 1839 1842 CALL data_output_3d( 0 ) … … 1847 1850 .AND. time_since_reference_point >= skip_time_domask(mid) ) THEN 1848 1851 IF ( current_timestep_number > timestep_number_at_prev_calc ) & 1849 CALL d iagnostic_output_quantities_calculate1852 CALL doq_calculate 1850 1853 1851 1854 CALL data_output_mask( 0 )
Note: See TracChangeset
for help on using the changeset viewer.