Ignore:
Timestamp:
Dec 10, 2018 7:21:03 AM (3 years ago)
Author:
raasch
Message:

bugfix for last commit: abort replaced by inifor_abort

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/UTIL/inifor/src/inifor_io.f90

    r3557 r3615  
    2626! -----------------
    2727! $Id$
     28! bugfix: abort replaced by inifor_abort
     29!
     30! 3557 2018-11-22 16:01:22Z eckhard
    2831! Updated documentation, removed unused subroutine write_netcdf_variable_2d()
    2932!
     
    147150          message = "Failed to read '" // TRIM(in_var % name) // &
    148151             "' from file '" // TRIM(in_file) // "'."
    149           CALL abort('get_netcdf_variable', message)
     152          CALL inifor_abort('get_netcdf_variable', message)
    150153
    151154       END IF
     
    191194          message = "Failed to read '" // TRIM(in_var % name) // &
    192195             "' from file '" // TRIM(in_file) // "'."
    193           CALL abort('get_netcdf_variable', message)
     196          CALL inifor_abort('get_netcdf_variable', message)
    194197
    195198       END IF
     
    229232          message = "Failed to read '" // TRIM(coordname) // &
    230233             "' from file '" // TRIM(filename) // "'."
    231           CALL abort('get_netcdf_dim_vector', message)
     234          CALL inifor_abort('get_netcdf_dim_vector', message)
    232235
    233236       END IF
     
    288291             " dimensions because only two- and and three-dimensional" //      &
    289292             " variables are supported."
    290           CALL abort('get_netcdf_start_and_count', message)
     293          CALL inifor_abort('get_netcdf_start_and_count', message)
    291294
    292295       END IF
     
    429432
    430433             CASE( '-clon', '-clat' )
    431                 CALL abort('parse_command_line_arguments', message)         
     434                CALL inifor_abort('parse_command_line_arguments', message)
    432435
    433436             CASE( '-path', '-p', '--path' )
     
    504507             CASE DEFAULT
    505508                message = "unknown option '" // TRIM(option) // "'."
    506                 CALL abort('parse_command_line_arguments', message)
     509                CALL inifor_abort('parse_command_line_arguments', message)
    507510
    508511             END SELECT
     
    560563      IF (.NOT. all_files_present)  THEN
    561564         message = "INIFOR configuration invalid; some input files are missing."
    562          CALL abort( 'validate_config', message )
     565         CALL inifor_abort( 'validate_config', message )
    563566      END IF
    564567     
     
    572575                   "or omit the -i/--init-mode/-mode option entirely, which corresponds "//&
    573576                   "to the latter."
    574          CALL abort( 'validate_config', message )
     577         CALL inifor_abort( 'validate_config', message )
    575578      END SELECT
    576579
     
    584587                   "or omit the -f/--forcing-mode option entirely, which corresponds "//&
    585588                   "to the latter."
    586          CALL abort( 'validate_config', message )
     589         CALL inifor_abort( 'validate_config', message )
    587590      END SELECT
    588591
     
    595598                   "or omit the --averaging-mode option entirely, which corresponds "//&
    596599                   "to the latter."
    597          CALL abort( 'validate_config', message )
     600         CALL inifor_abort( 'validate_config', message )
    598601      END SELECT
    599602
     
    601604         message = "You specified only one component of the geostrophic " // &
    602605                   "wind. Please specify either both or none."
    603          CALL abort( 'validate_config', message )
     606         CALL inifor_abort( 'validate_config', message )
    604607      END IF
    605608
     
    921924                       "' contains " //                                        &
    922925                       TRIM( str(SIZE(group % in_var_list)) ) // "."
    923              CALL abort('read_input_variables | accumulation', message)
     926             CALL inifor_abort('read_input_variables | accumulation', message)
    924927          END IF
    925928
     
    10071010       CASE DEFAULT
    10081011           message = "Invalid step '" // TRIM(str(step))
    1009            CALL abort('select_buffer', message)
     1012           CALL inifor_abort('select_buffer', message)
    10101013       END SELECT
    10111014    END FUNCTION select_buffer
     
    10361039          message = "Failed to read '" // TRIM(var) // &
    10371040                    "' from file '" // TRIM(input_file) // "'."
    1038           CALL abort('get_pressure_var', message)
     1041          CALL inifor_abort('get_pressure_var', message)
    10391042
    10401043       END IF
     
    10661069          message = "Failed to read '" // TRIM(attribute) // &
    10671070                    "' from file '" // TRIM(filename) // "'."
    1068           CALL abort('get_netcdf_attribute', message)
     1071          CALL inifor_abort('get_netcdf_attribute', message)
    10691072
    10701073       END IF
     
    11931196           message = "Variable kind '" // TRIM(var % kind) //                  &
    11941197                    "' not recognized."
    1195            CALL abort('update_output', message)
     1198           CALL inifor_abort('update_output', message)
    11961199
    11971200       END SELECT
     
    12141217          message = "NetCDF API call failed with error: " //                     &
    12151218                    TRIM( nf90_strerror(status) )
    1216           CALL abort('io.check', message)
     1219          CALL inifor_abort('io.check', message)
    12171220       END IF
    12181221
Note: See TracChangeset for help on using the changeset viewer.