Changeset 4559 for palm/trunk/SOURCE/data_log.f90
 Timestamp:
 Jun 11, 2020 8:51:48 AM (11 months ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

palm/trunk/SOURCE/data_log.f90
r4360 r4559 1 1 !> @file data_log.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 19972020 Leibniz Universitaet Hannover 18 ! !17 !! 19 18 ! 20 19 ! Current revisions: … … 25 24 !  26 25 ! $Id$ 26 ! file reformatted to follow the PALM coding standard 27 ! 28 ! 4360 20200107 11:25:50Z suehring 27 29 ! Corrected "Former revisions" section 28 ! 30 ! 29 31 ! 3725 20190207 10:11:02Z raasch 30 32 ! preprocessor directives removed to avoid compiler warnings 31 ! 33 ! 32 34 ! 3655 20190107 16:51:22Z knoop 33 35 ! Corrected "Former revisions" section … … 40 42 !  41 43 !> Complete logging of data 42 ! !44 !! 43 45 SUBROUTINE data_log( array, i1, i2, j1, j2, k1, k2 ) 44 45 USE control_parameters, &46 47 USE control_parameters, & 46 48 ONLY: log_message, simulated_time 47 49 48 50 USE kinds 49 51 50 52 USE pegrid 51 53 52 54 IMPLICIT NONE 53 55 54 INTEGER(iwp) :: i1 !< 55 INTEGER(iwp) :: i2 !< 56 INTEGER(iwp) :: j1 !< 57 INTEGER(iwp) :: j2 !< 58 INTEGER(iwp) :: k1 !< 59 INTEGER(iwp) :: k2 !< 56 INTEGER(iwp) :: i1 !< 57 INTEGER(iwp) :: i2 !< 58 INTEGER(iwp) :: j1 !< 59 INTEGER(iwp) :: j2 !< 60 INTEGER(iwp) :: k1 !< 61 INTEGER(iwp) :: k2 !< 60 62 61 REAL(wp), DIMENSION(i1:i2,j1:j2,k1:k2) :: array !< 63 REAL(wp), DIMENSION(i1:i2,j1:j2,k1:k2) :: array !< 62 64 63 65 … … 82 84 83 85 84 ! !86 !! 85 87 ! Description: 86 88 !  87 89 !> Complete logging of data for 2d arrays 88 ! !89 90 !! 91 90 92 SUBROUTINE data_log_2d( array, i1, i2, j1, j2) 91 93 92 USE control_parameters, &94 USE control_parameters, & 93 95 ONLY: log_message, simulated_time 94 96 95 97 USE kinds 96 98 97 99 USE pegrid 98 100 99 101 IMPLICIT NONE 100 102 101 INTEGER(iwp) :: i1 !< 102 INTEGER(iwp) :: i2 !< 103 INTEGER(iwp) :: j1 !< 104 INTEGER(iwp) :: j2 !< 103 INTEGER(iwp) :: i1 !< 104 INTEGER(iwp) :: i2 !< 105 INTEGER(iwp) :: j1 !< 106 INTEGER(iwp) :: j2 !< 105 107 106 REAL(wp), DIMENSION(i1:i2,j1:j2) :: array !< 108 REAL(wp), DIMENSION(i1:i2,j1:j2) :: array !< 107 109 108 110 … … 127 129 128 130 129 ! !131 !! 130 132 ! Description: 131 133 !  132 134 !> Complete logging of data for 2d integer arrays 133 ! !134 135 !! 136 135 137 SUBROUTINE data_log_2d_int( array, i1, i2, j1, j2) 136 138 137 USE control_parameters, &139 USE control_parameters, & 138 140 ONLY: log_message, simulated_time 139 141 140 142 USE kinds 141 143 142 144 USE pegrid 143 145 144 146 IMPLICIT NONE 145 147 146 INTEGER(iwp) :: i1 !< 147 INTEGER(iwp) :: i2 !< 148 INTEGER(iwp) :: j1 !< 149 INTEGER(iwp) :: j2 !< 148 INTEGER(iwp) :: i1 !< 149 INTEGER(iwp) :: i2 !< 150 INTEGER(iwp) :: j1 !< 151 INTEGER(iwp) :: j2 !< 150 152 151 INTEGER(iwp), DIMENSION(i1:i2,j1:j2) :: array !< 153 INTEGER(iwp), DIMENSION(i1:i2,j1:j2) :: array !< 152 154 153 155
Note: See TracChangeset
for help on using the changeset viewer.