Index: palm/trunk/UTIL/inifor/src/inifor_io.f90
===================================================================
--- palm/trunk/UTIL/inifor/src/inifor_io.f90	(revision 3557)
+++ palm/trunk/UTIL/inifor/src/inifor_io.f90	(revision 3615)
@@ -26,4 +26,7 @@
 ! -----------------
 ! $Id$
+! bugfix: abort replaced by inifor_abort
+! 
+! 3557 2018-11-22 16:01:22Z eckhard
 ! Updated documentation, removed unused subroutine write_netcdf_variable_2d()
 ! 
@@ -147,5 +150,5 @@
           message = "Failed to read '" // TRIM(in_var % name) // &
              "' from file '" // TRIM(in_file) // "'."
-          CALL abort('get_netcdf_variable', message)
+          CALL inifor_abort('get_netcdf_variable', message)
 
        END IF
@@ -191,5 +194,5 @@
           message = "Failed to read '" // TRIM(in_var % name) // &
              "' from file '" // TRIM(in_file) // "'."
-          CALL abort('get_netcdf_variable', message)
+          CALL inifor_abort('get_netcdf_variable', message)
 
        END IF
@@ -229,5 +232,5 @@
           message = "Failed to read '" // TRIM(coordname) // &
              "' from file '" // TRIM(filename) // "'."
-          CALL abort('get_netcdf_dim_vector', message)
+          CALL inifor_abort('get_netcdf_dim_vector', message)
 
        END IF
@@ -288,5 +291,5 @@
              " dimensions because only two- and and three-dimensional" //      &
              " variables are supported."
-          CALL abort('get_netcdf_start_and_count', message)
+          CALL inifor_abort('get_netcdf_start_and_count', message)
 
        END IF
@@ -429,5 +432,5 @@
 
              CASE( '-clon', '-clat' )
-                CALL abort('parse_command_line_arguments', message)          
+                CALL inifor_abort('parse_command_line_arguments', message)
 
              CASE( '-path', '-p', '--path' )
@@ -504,5 +507,5 @@
              CASE DEFAULT
                 message = "unknown option '" // TRIM(option) // "'."
-                CALL abort('parse_command_line_arguments', message)
+                CALL inifor_abort('parse_command_line_arguments', message)
 
              END SELECT
@@ -560,5 +563,5 @@
       IF (.NOT. all_files_present)  THEN
          message = "INIFOR configuration invalid; some input files are missing."
-         CALL abort( 'validate_config', message ) 
+         CALL inifor_abort( 'validate_config', message )
       END IF
       
@@ -572,5 +575,5 @@
                    "or omit the -i/--init-mode/-mode option entirely, which corresponds "//&
                    "to the latter."
-         CALL abort( 'validate_config', message ) 
+         CALL inifor_abort( 'validate_config', message )
       END SELECT
 
@@ -584,5 +587,5 @@
                    "or omit the -f/--forcing-mode option entirely, which corresponds "//&
                    "to the latter."
-         CALL abort( 'validate_config', message ) 
+         CALL inifor_abort( 'validate_config', message )
       END SELECT
 
@@ -595,5 +598,5 @@
                    "or omit the --averaging-mode option entirely, which corresponds "//&
                    "to the latter."
-         CALL abort( 'validate_config', message ) 
+         CALL inifor_abort( 'validate_config', message )
       END SELECT
 
@@ -601,5 +604,5 @@
          message = "You specified only one component of the geostrophic " // &
                    "wind. Please specify either both or none."
-         CALL abort( 'validate_config', message )
+         CALL inifor_abort( 'validate_config', message )
       END IF
 
@@ -921,5 +924,5 @@
                        "' contains " //                                        &
                        TRIM( str(SIZE(group % in_var_list)) ) // "."
-             CALL abort('read_input_variables | accumulation', message)
+             CALL inifor_abort('read_input_variables | accumulation', message)
           END IF
 
@@ -1007,5 +1010,5 @@
        CASE DEFAULT
            message = "Invalid step '" // TRIM(str(step))
-           CALL abort('select_buffer', message)
+           CALL inifor_abort('select_buffer', message)
        END SELECT
     END FUNCTION select_buffer
@@ -1036,5 +1039,5 @@
           message = "Failed to read '" // TRIM(var) // &
                     "' from file '" // TRIM(input_file) // "'."
-          CALL abort('get_pressure_var', message)
+          CALL inifor_abort('get_pressure_var', message)
 
        END IF
@@ -1066,5 +1069,5 @@
           message = "Failed to read '" // TRIM(attribute) // &
                     "' from file '" // TRIM(filename) // "'."
-          CALL abort('get_netcdf_attribute', message)
+          CALL inifor_abort('get_netcdf_attribute', message)
 
        END IF
@@ -1193,5 +1196,5 @@
            message = "Variable kind '" // TRIM(var % kind) //                  &
                     "' not recognized."
-           CALL abort('update_output', message)
+           CALL inifor_abort('update_output', message)
 
        END SELECT
@@ -1214,5 +1217,5 @@
           message = "NetCDF API call failed with error: " //                     &
                     TRIM( nf90_strerror(status) )
-          CALL abort('io.check', message) 
+          CALL inifor_abort('io.check', message)
        END IF
 
