Changeset 4331 for palm/trunk/SOURCE/time_integration_spinup.f90
- Timestamp:
- Dec 10, 2019 6:25:02 PM (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/time_integration_spinup.f90
r4227 r4331 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Enable output of diagnostic quantities, e.g. 2-m temperature 28 ! 29 ! 4227 2019-09-10 18:04:34Z gronemeier 27 30 ! implement new palm_date_time_mod 28 31 ! … … 81 84 USE cpulog, & 82 85 ONLY: cpu_log, log_point_s 86 87 USE diagnostic_output_quantities_mod, & 88 ONLY: doq_calculate 83 89 84 90 USE indices, & … … 468 474 !-- 2d-data output (cross-sections) 469 475 IF ( time_do2d_xy >= dt_do2d_xy ) THEN 476 CALL doq_calculate 470 477 CALL data_output_2d( 'xy', 0 ) 471 478 time_do2d_xy = MOD( time_do2d_xy, MAX( dt_do2d_xy, dt_3d ) ) … … 475 482 !-- 3d-data output (volume data) 476 483 IF ( time_do3d >= dt_do3d ) THEN 484 CALL doq_calculate 477 485 CALL data_output_3d( 0 ) 478 486 time_do3d = MOD( time_do3d, MAX( dt_do3d, dt_3d ) ) … … 560 568 561 569 USE basic_constants_and_equations_mod, & 562 ONLY: pi570 ONLY: pi 563 571 564 572 USE kinds
Note: See TracChangeset
for help on using the changeset viewer.