SUBROUTINE run_control !------------------------------------------------------------------------------! ! Current revisions: ! ----------------- ! ! ! Former revisions: ! ----------------- ! $Id: run_control.f90 484 2010-02-05 07:36:54Z maronga $ ! ! 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) :: change_chr, 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 ! !-- Output the the beginning of the run receives no information about an !-- Euler-timestep IF ( dt_changed .AND. simulated_time /= 0.0 .AND. & timestep_scheme(1:5) /= 'runge' ) THEN IF ( timestep_scheme == 'leapfrog' ) THEN change_chr = 'L' ELSE change_chr = 'E' ENDIF ELSE change_chr = ' ' 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, change_chr, 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,A1,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