Ignore:
Timestamp:
Aug 29, 2018 10:22:12 AM (6 years ago)
Author:
sward
Message:

Bugfix for gfortran: reordering of type definitions

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/UTIL/agent_preprocessing/agent_preprocessing.f90

    r3210 r3216  
    2525! -----------------!
    2626! $Id$
     27! Bubfix for gfortran: reordering of type definitions
     28!
     29! 3210 2018-08-28 07:31:13Z sward
    2730! Bugfix: changed intrinsic SIZEOF to STORAGE_SIZE
    2831!
     
    149152
    150153!
     154!-- Vertex of a polygon
     155    TYPE  vertex_type
     156        LOGICAL               ::  delete  !< Flag to mark vertex for deletion
     157        REAL(wp)              ::  x       !< x-coordinate
     158        REAL(wp)              ::  y       !< y-coordinate
     159    END TYPE vertex_type
     160
     161!
    151162!-- Polygon containing a number of vertices
    152163    TYPE  polygon_type
     
    171182       REAL(wp), DIMENSION(:,:,:), ALLOCATABLE ::  var !< respective variable
    172183    END TYPE real_3d
    173 !
    174 !-- Vertex of a polygon
    175     TYPE  vertex_type
    176         LOGICAL               ::  delete  !< Flag to mark vertex for deletion
    177         REAL(wp)              ::  x       !< x-coordinate
    178         REAL(wp)              ::  y       !< y-coordinate
    179     END TYPE vertex_type
    180184
    181185    TYPE(grid_point), DIMENSION(:,:), ALLOCATABLE ::  grid  !< 2d Topography grid
     
    25082512       WRITE(*,'(6X,A,F10.1,A)') 'Time needed for calculation: ',              &
    25092513                                 t_end-t_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
    25142515    END SUBROUTINE create_nav_mesh
    25152516
Note: See TracChangeset for help on using the changeset viewer.