Changeset 3216

Timestamp:

Aug 29, 2018 10:22:12 AM (6 years ago)

Author:

sward

Message:

Bugfix for gfortran: reordering of type definitions

File:

• palm/trunk/UTIL/agent_preprocessing/agent_preprocessing.f90 (modified) (4 diffs)

palm/trunk/UTIL/agent_preprocessing/agent_preprocessing.f90

@@ -25 +25 @@
 ! -----------------!
 ! $Id$
+! Bubfix for gfortran: reordering of type definitions
+! 
+! 3210 2018-08-28 07:31:13Z sward
 ! Bugfix: changed intrinsic SIZEOF to STORAGE_SIZE
 ! 
@@ -149 +152 @@
 
 !
+!-- Vertex of a polygon
+    TYPE  vertex_type
+        LOGICAL               ::  delete  !< Flag to mark vertex for deletion
+        REAL(wp)              ::  x       !< x-coordinate
+        REAL(wp)              ::  y       !< y-coordinate
+    END TYPE vertex_type
+
+!
 !-- Polygon containing a number of vertices
     TYPE  polygon_type
@@ -171 +182 @@
        REAL(wp), DIMENSION(:,:,:), ALLOCATABLE ::  var !< respective variable
     END TYPE real_3d
-!
-!-- Vertex of a polygon
-    TYPE  vertex_type
-        LOGICAL               ::  delete  !< Flag to mark vertex for deletion
-        REAL(wp)              ::  x       !< x-coordinate
-        REAL(wp)              ::  y       !< y-coordinate
-    END TYPE vertex_type
 
     TYPE(grid_point), DIMENSION(:,:), ALLOCATABLE ::  grid  !< 2d Topography grid
@@ -2508 +2512 @@
        WRITE(*,'(6X,A,F10.1,A)') 'Time needed for calculation: ',              &
                                  t_end-t_start,' seconds'
-       WRITE(*,'(2(6X,A,X,F12.3,X,A,/))') 'Size of Mesh data on disk:   ',     &
-                                        STORAGE_SIZE(mesh)/(8*1048576.),"MB",            &
-                                        'Size of Polygon data on disk:',       &
-                                        STORAGE_SIZE(polygons)/(8*1048576.),"MB"
+
     END SUBROUTINE create_nav_mesh