Changeset 4591 for palm/trunk/SOURCE/run_control.f90
- Timestamp:
- Jul 6, 2020 3:56:08 PM (4 years ago)
- File:
-
- 1 edited
-
palm/trunk/SOURCE/run_control.f90 (modified) (7 diffs)
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/run_control.f90
r4360 r4591 1 1 !> @file run_control.f90 2 !------------------------------------------------------------------------------ !2 !--------------------------------------------------------------------------------------------------! 3 3 ! This file is part of the PALM model system. 4 4 ! 5 ! PALM is free software: you can redistribute it and/or modify it under the 6 ! terms of the GNU General Public License as published by the Free Software 7 ! Foundation, either version 3 of the License, or (at your option) any later 8 ! version. 5 ! PALM is free software: you can redistribute it and/or modify it under the terms of the GNU General 6 ! Public License as published by the Free Software Foundation, either version 3 of the License, or 7 ! (at your option) any later version. 9 8 ! 10 ! PALM is distributed in the hope that it will be useful, but WITHOUT ANY 11 ! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR12 ! A PARTICULAR PURPOSE. See the GNU GeneralPublic License for more details.9 ! PALM is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the 10 ! implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General 11 ! Public License for more details. 13 12 ! 14 ! You should have received a copy of the GNU General Public License along with 15 ! PALM. If not, see<http://www.gnu.org/licenses/>.13 ! You should have received a copy of the GNU General Public License along with PALM. If not, see 14 ! <http://www.gnu.org/licenses/>. 16 15 ! 17 16 ! Copyright 1997-2020 Leibniz Universitaet Hannover 18 !------------------------------------------------------------------------------! 17 !--------------------------------------------------------------------------------------------------! 18 ! 19 19 ! 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! 23 ! 22 ! 23 ! 24 24 ! Former revisions: 25 25 ! ----------------- 26 26 ! $Id$ 27 ! File re-formatted to follow the PALM coding standard 28 ! 29 ! 30 ! 4360 2020-01-07 11:25:50Z suehring 27 31 ! Corrected "Former revisions" section 28 ! 32 ! 29 33 ! 3655 2019-01-07 16:51:22Z knoop 30 34 ! Corrected "Former revisions" section … … 37 41 ! ------------ 38 42 !> Computation and output of run-control quantities 39 !------------------------------------------------------------------------------ !43 !--------------------------------------------------------------------------------------------------! 40 44 SUBROUTINE run_control 41 42 45 43 USE cpulog, &44 ONLY: cpu_log, log_point45 46 46 USE control_parameters, & 47 ONLY: advected_distance_x, advected_distance_y, & 48 current_timestep_number, disturbance_created, dt_3d, mgcycles, & 49 run_control_header, runnr, simulated_time, simulated_time_chr, & 47 USE cpulog, & 48 ONLY: cpu_log, & 49 log_point 50 51 USE control_parameters, & 52 ONLY: advected_distance_x, & 53 advected_distance_y, & 54 current_timestep_number, & 55 disturbance_created, & 56 dt_3d, & 57 mgcycles, & 58 run_control_header, & 59 runnr, & 60 simulated_time, & 61 simulated_time_chr, & 50 62 timestep_reason 51 63 52 USE indices, &64 USE indices, & 53 65 ONLY: nzb 54 66 … … 57 69 USE pegrid 58 70 59 USE statistics, & 60 ONLY: flow_statistics_called, hom, pr_palm, u_max, u_max_ijk, v_max, & 61 v_max_ijk, w_max, w_max_ijk 71 USE statistics, & 72 ONLY: flow_statistics_called, & 73 hom, & 74 pr_palm, & 75 u_max, & 76 u_max_ijk, & 77 v_max, & 78 v_max_ijk, & 79 w_max, & 80 w_max_ijk 62 81 63 82 IMPLICIT NONE 64 83 65 CHARACTER (LEN=1) :: disturb_chr 84 CHARACTER (LEN=1) :: disturb_chr !< 66 85 67 86 ! … … 78 97 79 98 ! 80 !-- Check, whether file unit is already open (may have been opened in header 81 !-- before) 99 !-- Check, whether file unit is already open (may have been opened in header before) 82 100 CALL check_open( 15 ) 83 101 … … 96 114 disturb_chr = ' ' 97 115 ENDIF 98 WRITE ( 15, 101 ) runnr, current_timestep_number, simulated_time_chr, & 99 INT( ( simulated_time-INT( simulated_time ) ) * 100),& 100 dt_3d, timestep_reason, u_max, disturb_chr, & 101 v_max, disturb_chr, w_max, hom(nzb,1,pr_palm,0), & 102 hom(nzb+8,1,pr_palm,0), hom(nzb+3,1,pr_palm,0), & 103 hom(nzb+6,1,pr_palm,0), hom(nzb+4,1,pr_palm,0), & 104 hom(nzb+5,1,pr_palm,0), hom(nzb+9,1,pr_palm,0), & 105 hom(nzb+10,1,pr_palm,0), u_max_ijk(1:3), & 106 v_max_ijk(1:3), w_max_ijk(1:3), & 107 advected_distance_x/1000.0_wp, & 116 WRITE ( 15, 101 ) runnr, current_timestep_number, simulated_time_chr, & 117 INT( ( simulated_time-INT( simulated_time ) ) * 100), & 118 dt_3d, timestep_reason, u_max, disturb_chr, v_max, disturb_chr, w_max, & 119 hom(nzb,1,pr_palm,0), hom(nzb+8,1,pr_palm,0), hom(nzb+3,1,pr_palm,0), & 120 hom(nzb+6,1,pr_palm,0), hom(nzb+4,1,pr_palm,0), hom(nzb+5,1,pr_palm,0), & 121 hom(nzb+9,1,pr_palm,0), hom(nzb+10,1,pr_palm,0), u_max_ijk(1:3), & 122 v_max_ijk(1:3), w_max_ijk(1:3), advected_distance_x/1000.0_wp, & 108 123 advected_distance_y/1000.0_wp, mgcycles 109 124 ! … … 113 128 ENDIF 114 129 ! 115 !-- If required, reset disturbance flag. This has to be done outside the above 130 !-- If required, reset disturbance flag. This has to be done outside the above 116 131 !-- IF-loop, because the flag would otherwise only be reset on PE0 117 132 IF ( disturbance_created ) disturbance_created = .FALSE. … … 131 146 &'----------------------------------------------------------------', & 132 147 &'---------') 133 101 FORMAT (I3,1X,I6,1X,A8,'.',I2.2,1X,F8.4,A1,1X,F8.4,A1,F8.4,A1,F8.4,1X, & 134 F6.3,1X,F5.2, & 148 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, & 135 149 2X,E10.3,2X,F6.0,1X,4(E10.3,1X),3(3(I4),1X),F8.3,1X,F8.3,5X,I3) 136 150
Note: See TracChangeset
for help on using the changeset viewer.
