SUBROUTINE run_control !--------------------------------------------------------------------------------! ! This file is part of PALM. ! ! 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-2012 Leibniz University Hannover !--------------------------------------------------------------------------------! ! ! Current revisions: ! ----------------- ! ! ! Former revisions: ! ----------------- ! $Id: run_control.f90 1037 2012-10-22 14:10:22Z witha $ ! ! 1036 2012-10-22 13:43:42Z raasch ! code put under GPL (PALM 3.9) ! ! 1001 2012-09-13 14:08:46Z raasch ! all actions concerning leapfrog scheme removed ! ! 97 2007-06-21 08:23:15Z raasch ! Timestep and z_i format changed ! ! 87 2007-05-22 15:46:47Z raasch ! var_hom renamed pr_palm ! ! 82 2007-04-16 15:40:52Z raasch ! Preprocessor strings for different linux clusters changed to "lc", ! routine local_flush is used for buffer flushing ! ! RCS Log replace by Id keyword, revision history cleaned up ! ! Revision 1.20 2006/06/02 15:23:47 raasch ! cpp-directives extended for lctit ! ! Revision 1.1 1997/08/11 06:25:38 raasch ! Initial revision ! ! ! Description: ! ------------ ! Computation and output of run-control quantities !------------------------------------------------------------------------------! USE cpulog USE indices USE interfaces USE pegrid USE statistics USE control_parameters 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, & simulated_time-INT( simulated_time ), 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, & advected_distance_y/1000.0, mgcycles ! !-- Write buffer contents to disc immediately CALL local_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 DIV', & &'NEW UMAX(KJI) VMAX(KJI) WMAX(KJI) ADVECX ADVECY ', & &'MGCYC'/ & &'----------------------------------------------------------------', & &'----------------------------------------------------------------', & &'----------------------------------------------------------------', & &'-----') 101 FORMAT (I3,1X,I6,1X,A8,F3.2,1X,F8.4,A1,1X,F8.4,A1,F8.4,A1,F8.4,2X,F5.3,2X, & F4.2, & 2X,F6.3,2X,F6.0,1X,4(E10.3,1X),3(3(I4),1X),F8.3,1X,F8.3,5X,I3) END SUBROUTINE run_control