!> @file run_control.f90 !--------------------------------------------------------------------------------------------------! ! This file is part of the PALM model system. ! ! PALM is free software: you can redistribute it and/or modify it under the terms of the GNU General ! Public License as published by the Free Software Foundation, either version 3 of the License, or ! (at your option) any later version. ! ! PALM is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the ! implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General ! Public License for more details. ! ! You should have received a copy of the GNU General Public License along with PALM. If not, see ! . ! ! Copyright 1997-2021 Leibniz Universitaet Hannover !--------------------------------------------------------------------------------------------------! ! ! ! Description: ! ------------ !> Computation and output of run-control quantities !--------------------------------------------------------------------------------------------------! SUBROUTINE run_control USE cpulog, & ONLY: cpu_log, & log_point USE control_parameters, & ONLY: advected_distance_x, & advected_distance_y, & current_timestep_number, & disturbance_created, & dt_3d, & mgcycles, & run_control_header, & runnr, & simulated_time, & simulated_time_chr, & timestep_reason USE indices, & ONLY: nzb USE kinds USE pegrid USE statistics, & ONLY: flow_statistics_called, & hom, & pr_palm, & u_max, & u_max_ijk, & v_max, & v_max_ijk, & w_max, & w_max_ijk IMPLICIT NONE CHARACTER (LEN=1) :: disturb_chr !< ! !-- If required, do statistics IF ( .NOT. flow_statistics_called ) CALL flow_statistics ! !-- Flow_statistics has its own cpu-time measurement CALL cpu_log( log_point(11), 'run_control', 'start' ) ! !-- Output IF ( myid == 0 ) THEN ! !-- Check, whether file unit is already open (may have been opened in header before) CALL check_open( 15 ) ! !-- If required, write header IF ( .NOT. run_control_header ) THEN WRITE ( 15, 100 ) run_control_header = .TRUE. ENDIF ! !-- If required, set disturbance flag IF ( disturbance_created ) THEN disturb_chr = 'D' ELSE disturb_chr = ' ' ENDIF WRITE ( 15, 101 ) runnr, current_timestep_number, simulated_time_chr, & INT( ( simulated_time-INT( simulated_time ) ) * 100), & dt_3d, timestep_reason, u_max, disturb_chr, v_max, disturb_chr, w_max, & hom(nzb,1,pr_palm,0), hom(nzb+8,1,pr_palm,0), hom(nzb+3,1,pr_palm,0), & hom(nzb+6,1,pr_palm,0), hom(nzb+4,1,pr_palm,0), hom(nzb+5,1,pr_palm,0), & hom(nzb+9,1,pr_palm,0), hom(nzb+10,1,pr_palm,0), u_max_ijk(1:3), & v_max_ijk(1:3), w_max_ijk(1:3), advected_distance_x/1000.0_wp, & advected_distance_y/1000.0_wp, mgcycles ! !-- Write buffer contents to disc immediately FLUSH( 15 ) ENDIF ! !-- If required, reset disturbance flag. This has to be done outside the above !-- IF-loop, because the flag would otherwise only be reset on PE0 IF ( disturbance_created ) disturbance_created = .FALSE. CALL cpu_log( log_point(11), 'run_control', 'stop' ) ! !-- Formats 100 FORMAT (///'Run-control output:'/ & &'------------------'// & &'RUN ITER. HH:MM:SS.SS DT(E) UMAX VMAX WMAX U', & &'* W* THETA* Z_I ENERG. DISTENERG DIVOLD ', & &' DIVNEW UMAX(KJI) VMAX(KJI) WMAX(KJI) ADVECX ADVEC', & &'Y MGCYC'/ & &'----------------------------------------------------------------', & &'----------------------------------------------------------------', & &'----------------------------------------------------------------', & &'---------') 101 FORMAT (I3,1X,I6,1X,A8,'.',I2.2,1X,F8.4,A1,1X,F8.4,A1,F8.4,A1,F8.4,1X, F6.3,1X,F5.2, & 2X,E10.3,2X,F6.0,1X,4(E10.3,1X),3(3(I4),1X),F8.3,1X,F8.3,5X,I3) END SUBROUTINE run_control