Index: palm/trunk/UTIL/inifor/src/inifor_grid.f90
===================================================================
--- palm/trunk/UTIL/inifor/src/inifor_grid.f90	(revision 3614)
+++ palm/trunk/UTIL/inifor/src/inifor_grid.f90	(revision 3615)
@@ -26,4 +26,7 @@
 ! -----------------
 ! $Id$
+! bugfix: abort replaced by inifor_abort
+! 
+! 3614 2018-12-10 07:05:46Z raasch
 ! unused variables removed
 ! 
@@ -412,5 +415,5 @@
           message = "Averaging of large-scale forcing profiles " //            &
                     "has not been implemented, yet."
-          CALL abort('setup_parameters', message)
+          CALL inifor_abort('setup_parameters', message)
        END IF
 
@@ -1188,5 +1191,5 @@
 
           message = "Interpolation quantity '" // kind // "' is not supported."
-          CALL abort('setup_interpolation', message)
+          CALL inifor_abort('setup_interpolation', message)
 
        END SELECT
@@ -1289,5 +1292,5 @@
            IF (.NOT.PRESENT(z))  THEN
               message = "z has not been passed but is required for 'boundary' grids"
-              CALL abort('init_grid_definition', message)
+              CALL inifor_abort('init_grid_definition', message)
            END IF
 
@@ -1346,10 +1349,10 @@
            IF (.NOT.PRESENT(z))  THEN
               message = "z has not been passed but is required for 'palm' grids"
-              CALL abort('init_grid_definition', message)
+              CALL inifor_abort('init_grid_definition', message)
            END IF
 
            IF (.NOT.PRESENT(zw))  THEN
               message = "zw has not been passed but is required for 'palm' grids"
-              CALL abort('init_grid_definition', message)
+              CALL inifor_abort('init_grid_definition', message)
            END IF
 
@@ -1472,5 +1475,5 @@
         CASE DEFAULT
             message = "Grid kind '" // TRIM(kind) // "' is not recognized."
-            CALL abort('init_grid_definition', message)
+            CALL inifor_abort('init_grid_definition', message)
 
         END SELECT
@@ -1559,5 +1562,5 @@
           message = "Averaging grid kind '" // TRIM(avg_grid % kind) // &
                     "' is not supported. Use 'scalar', 'u', or 'v'."
-          CALL abort('get_cosmo_averaging_region', message)
+          CALL inifor_abort('get_cosmo_averaging_region', message)
 
        END SELECT
@@ -1609,5 +1612,5 @@
           message = "Averaging grid kind '" // TRIM(avg_grid % kind) // &
                     "' is not supported. Use 'scalar', 'u', or 'v'."
-          CALL abort('get_cosmo_averaging_region', message)
+          CALL inifor_abort('get_cosmo_averaging_region', message)
 
        END SELECT
@@ -1682,8 +1685,8 @@
        IF ( dz(1) == -1.0_dp )  THEN
           message = 'missing dz'
-          CALL abort( 'stretched_z', message)
+          CALL inifor_abort( 'stretched_z', message)
        ELSEIF ( dz(1) <= 0.0_dp )  THEN
           WRITE( message, * ) 'dz=', dz(1),' <= 0.0'
-          CALL abort( 'stretched_z', message)
+          CALL inifor_abort( 'stretched_z', message)
        ENDIF
 
@@ -1718,5 +1721,5 @@
                               'dz_stretch_level_end + 1 = ',                   &
                               number_stretch_level_end+1
-          CALL abort( 'stretched_z', message)
+          CALL inifor_abort( 'stretched_z', message)
        ENDIF
     
@@ -1731,5 +1734,5 @@
                               'dz_stretch_level_start = ',             &
                               number_stretch_level_start
-          CALL abort( 'stretched_z', message)
+          CALL inifor_abort( 'stretched_z', message)
        ENDIF
     
@@ -1744,5 +1747,5 @@
                               'values for dz_stretch_level_end = ',    &
                               number_stretch_level_end
-          CALL abort( 'stretched_z', message)
+          CALL inifor_abort( 'stretched_z', message)
        ENDIF
 
@@ -1782,5 +1785,5 @@
                        'dz_stretch_level_start + 4*MAX(dz(n),dz(n+1)) '//&
                        'to allow for smooth grid stretching'
-             CALL abort('stretched_z', message)
+             CALL inifor_abort('stretched_z', message)
        ENDIF
        
@@ -1792,5 +1795,5 @@
           WRITE( message, * ) 'Eeach dz_stretch_level_start has to be ',&
                               'larger than ', dz(1) * 1.5
-             CALL abort( 'stretched_z', message)
+             CALL inifor_abort( 'stretched_z', message)
        ENDIF
 
@@ -2016,5 +2019,5 @@
        ELSE
           message = 'Two adjacent values of dz must be different'
-          CALL abort( 'calculate_stretching_factor', message)
+          CALL inifor_abort( 'calculate_stretching_factor', message)
        ENDIF
 
@@ -2032,5 +2035,5 @@
                                      ' &or lower limit = ',                    &
                                      stretch_factor_lower_limit
-          CALL abort( 'calculate_stretching_factor', message )
+          CALL inifor_abort( 'calculate_stretching_factor', message )
             
        ENDIF
@@ -2316,5 +2319,5 @@
        IF (TRIM(cfg % start_date) == '')  THEN
           message = 'Simulation start date has not been set.'
-          CALL abort('setup_variable_tables', message)
+          CALL inifor_abort('setup_variable_tables', message)
        END IF
 
@@ -3605,5 +3608,5 @@
        CASE DEFAULT
            message = "Variable kind '" // TRIM(kind) // "' not recognized."
-           CALL abort ('init_nc_var', message)
+           CALL inifor_abort ('init_nc_var', message)
 
        END SELECT
@@ -3738,5 +3741,5 @@
              message = "Rotation method '" // TRIM(cfg % rotation_method) //   &
                 "' not recognized."
-             CALL abort('preprocess', message)
+             CALL inifor_abort('preprocess', message)
 
           END SELECT
@@ -3926,5 +3929,5 @@
           CASE DEFAULT
              message = "Invalid averaging period '" // TRIM(str(dt)) // " hours"
-             CALL abort('preprocess', message)
+             CALL inifor_abort('preprocess', message)
 
           END SELECT
@@ -3971,5 +3974,5 @@
           CASE DEFAULT
              message = "Invalid averaging period '" // TRIM(str(dt)) // " hours"
-             CALL abort('preprocess', message)
+             CALL inifor_abort('preprocess', message)
 
           END SELECT
@@ -3978,5 +3981,5 @@
        CASE DEFAULT
           message = "IO group kind '" // TRIM(group % kind) // "' is not supported."
-          CALL abort('prerpocess', message)
+          CALL inifor_abort('prerpocess', message)
 
        END SELECT
