Changeset 3216 for palm/trunk/UTIL
 Timestamp:
 Aug 29, 2018 10:22:12 AM (5 years ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

palm/trunk/UTIL/agent_preprocessing/agent_preprocessing.f90
r3210 r3216 25 25 ! ! 26 26 ! $Id$ 27 ! Bubfix for gfortran: reordering of type definitions 28 ! 29 ! 3210 20180828 07:31:13Z sward 27 30 ! Bugfix: changed intrinsic SIZEOF to STORAGE_SIZE 28 31 ! … … 149 152 150 153 ! 154 ! Vertex of a polygon 155 TYPE vertex_type 156 LOGICAL :: delete !< Flag to mark vertex for deletion 157 REAL(wp) :: x !< xcoordinate 158 REAL(wp) :: y !< ycoordinate 159 END TYPE vertex_type 160 161 ! 151 162 ! Polygon containing a number of vertices 152 163 TYPE polygon_type … … 171 182 REAL(wp), DIMENSION(:,:,:), ALLOCATABLE :: var !< respective variable 172 183 END TYPE real_3d 173 !174 ! Vertex of a polygon175 TYPE vertex_type176 LOGICAL :: delete !< Flag to mark vertex for deletion177 REAL(wp) :: x !< xcoordinate178 REAL(wp) :: y !< ycoordinate179 END TYPE vertex_type180 184 181 185 TYPE(grid_point), DIMENSION(:,:), ALLOCATABLE :: grid !< 2d Topography grid … … 2508 2512 WRITE(*,'(6X,A,F10.1,A)') 'Time needed for calculation: ', & 2509 2513 t_endt_start,' seconds' 2510 WRITE(*,'(2(6X,A,X,F12.3,X,A,/))') 'Size of Mesh data on disk: ', & 2511 STORAGE_SIZE(mesh)/(8*1048576.),"MB", & 2512 'Size of Polygon data on disk:', & 2513 STORAGE_SIZE(polygons)/(8*1048576.),"MB" 2514 2514 2515 END SUBROUTINE create_nav_mesh 2515 2516
Note: See TracChangeset
for help on using the changeset viewer.