Changeset 3615 for palm/trunk/UTIL/inifor/src/inifor_io.f90

Timestamp:

Dec 10, 2018 7:21:03 AM (5 years ago)

Author:

raasch

Message:

bugfix for last commit: abort replaced by inifor_abort

File:

• palm/trunk/UTIL/inifor/src/inifor_io.f90 (modified) (18 diffs)

palm/trunk/UTIL/inifor/src/inifor_io.f90

@@ -26 +26 @@
 ! -----------------
 ! $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 +150 @@
           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 +194 @@
           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 +232 @@
           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 +291 @@
              " 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 +432 @@
 
              CASE( '-clon', '-clat' )
-                CALL abort('parse_command_line_arguments', message)          
+                CALL inifor_abort('parse_command_line_arguments', message)
 
              CASE( '-path', '-p', '--path' )
@@ -504 +507 @@
              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 +563 @@
       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 +575 @@
                    "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 +587 @@
                    "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 +598 @@
                    "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 +604 @@
          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 +924 @@
                        "' 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 +1010 @@
        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 +1039 @@
           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 +1069 @@
           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 +1196 @@
            message = "Variable kind '" // TRIM(var % kind) //                  &
                     "' not recognized."
-           CALL abort('update_output', message)
+           CALL inifor_abort('update_output', message)
 
        END SELECT
@@ -1214 +1217 @@
           message = "NetCDF API call failed with error: " //                     &
                     TRIM( nf90_strerror(status) )
-          CALL abort('io.check', message) 
+          CALL inifor_abort('io.check', message)
        END IF