Changeset 3615 for palm/trunk/UTIL


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

bugfix for last commit: abort replaced by inifor_abort

Location:
palm/trunk/UTIL/inifor/src
Files:
4 edited

Legend:

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

    r3613 r3615  
    2626! -----------------
    2727! $Id$
     28! bugfix: abort replaced by inifor_abort
     29!
     30! 3613 2018-12-07 18:20:37Z eckhard
    2831! Moved version output to setup_parameters()
    2932!
     
    177180                message = "Input buffers for group '" // TRIM(group % kind) // &
    178181                   "' could not be preprocessed sucessfully."
    179                 CALL abort('main loop', message)
     182                CALL inifor_abort('main loop', message)
    180183             END IF
    181184
     
    216219
    217220                          message = "'" // TRIM(output_var % kind) // "' is not a soil variable"
    218                           CALL abort("main loop", message)
     221                          CALL inifor_abort("main loop", message)
    219222
    220223                      END SELECT
     
    310313
    311314                      CASE DEFAULT
    312                          CALL abort('main loop', message)
     315                         CALL inifor_abort('main loop', message)
    313316
    314317                      END SELECT
     
    348351
    349352                      CASE DEFAULT
    350                          CALL abort('main loop', message)
     353                         CALL inifor_abort('main loop', message)
    351354
    352355                      END SELECT
     
    419422                             "' is not a valid '" // TRIM(output_var % kind) //&
    420423                             "' variable kind."
    421                           CALL abort('main loop', message)
     424                          CALL inifor_abort('main loop', message)
    422425                      END SELECT
    423426 CALL run_control('time', 'comp')
     
    426429                      message = "Averaging of large-scale forcing profiles " //&
    427430                                "has not been implemented, yet."
    428                       CALL abort('main loop', message)
     431                      CALL inifor_abort('main loop', message)
    429432
    430433                   CASE DEFAULT
    431434                      message = "Processing task '" // TRIM(output_var % task) //&
    432435                               "' not recognized."
    433                       CALL abort('', message)
     436                      CALL inifor_abort('', message)
    434437
    435438                   END SELECT
  • palm/trunk/UTIL/inifor/src/inifor_grid.f90

    r3614 r3615  
    2626! -----------------
    2727! $Id$
     28! bugfix: abort replaced by inifor_abort
     29!
     30! 3614 2018-12-10 07:05:46Z raasch
    2831! unused variables removed
    2932!
     
    412415          message = "Averaging of large-scale forcing profiles " //            &
    413416                    "has not been implemented, yet."
    414           CALL abort('setup_parameters', message)
     417          CALL inifor_abort('setup_parameters', message)
    415418       END IF
    416419
     
    11881191
    11891192          message = "Interpolation quantity '" // kind // "' is not supported."
    1190           CALL abort('setup_interpolation', message)
     1193          CALL inifor_abort('setup_interpolation', message)
    11911194
    11921195       END SELECT
     
    12891292           IF (.NOT.PRESENT(z))  THEN
    12901293              message = "z has not been passed but is required for 'boundary' grids"
    1291               CALL abort('init_grid_definition', message)
     1294              CALL inifor_abort('init_grid_definition', message)
    12921295           END IF
    12931296
     
    13461349           IF (.NOT.PRESENT(z))  THEN
    13471350              message = "z has not been passed but is required for 'palm' grids"
    1348               CALL abort('init_grid_definition', message)
     1351              CALL inifor_abort('init_grid_definition', message)
    13491352           END IF
    13501353
    13511354           IF (.NOT.PRESENT(zw))  THEN
    13521355              message = "zw has not been passed but is required for 'palm' grids"
    1353               CALL abort('init_grid_definition', message)
     1356              CALL inifor_abort('init_grid_definition', message)
    13541357           END IF
    13551358
     
    14721475        CASE DEFAULT
    14731476            message = "Grid kind '" // TRIM(kind) // "' is not recognized."
    1474             CALL abort('init_grid_definition', message)
     1477            CALL inifor_abort('init_grid_definition', message)
    14751478
    14761479        END SELECT
     
    15591562          message = "Averaging grid kind '" // TRIM(avg_grid % kind) // &
    15601563                    "' is not supported. Use 'scalar', 'u', or 'v'."
    1561           CALL abort('get_cosmo_averaging_region', message)
     1564          CALL inifor_abort('get_cosmo_averaging_region', message)
    15621565
    15631566       END SELECT
     
    16091612          message = "Averaging grid kind '" // TRIM(avg_grid % kind) // &
    16101613                    "' is not supported. Use 'scalar', 'u', or 'v'."
    1611           CALL abort('get_cosmo_averaging_region', message)
     1614          CALL inifor_abort('get_cosmo_averaging_region', message)
    16121615
    16131616       END SELECT
     
    16821685       IF ( dz(1) == -1.0_dp )  THEN
    16831686          message = 'missing dz'
    1684           CALL abort( 'stretched_z', message)
     1687          CALL inifor_abort( 'stretched_z', message)
    16851688       ELSEIF ( dz(1) <= 0.0_dp )  THEN
    16861689          WRITE( message, * ) 'dz=', dz(1),' <= 0.0'
    1687           CALL abort( 'stretched_z', message)
     1690          CALL inifor_abort( 'stretched_z', message)
    16881691       ENDIF
    16891692
     
    17181721                              'dz_stretch_level_end + 1 = ',                   &
    17191722                              number_stretch_level_end+1
    1720           CALL abort( 'stretched_z', message)
     1723          CALL inifor_abort( 'stretched_z', message)
    17211724       ENDIF
    17221725   
     
    17311734                              'dz_stretch_level_start = ',             &
    17321735                              number_stretch_level_start
    1733           CALL abort( 'stretched_z', message)
     1736          CALL inifor_abort( 'stretched_z', message)
    17341737       ENDIF
    17351738   
     
    17441747                              'values for dz_stretch_level_end = ',    &
    17451748                              number_stretch_level_end
    1746           CALL abort( 'stretched_z', message)
     1749          CALL inifor_abort( 'stretched_z', message)
    17471750       ENDIF
    17481751
     
    17821785                       'dz_stretch_level_start + 4*MAX(dz(n),dz(n+1)) '//&
    17831786                       'to allow for smooth grid stretching'
    1784              CALL abort('stretched_z', message)
     1787             CALL inifor_abort('stretched_z', message)
    17851788       ENDIF
    17861789       
     
    17921795          WRITE( message, * ) 'Eeach dz_stretch_level_start has to be ',&
    17931796                              'larger than ', dz(1) * 1.5
    1794              CALL abort( 'stretched_z', message)
     1797             CALL inifor_abort( 'stretched_z', message)
    17951798       ENDIF
    17961799
     
    20162019       ELSE
    20172020          message = 'Two adjacent values of dz must be different'
    2018           CALL abort( 'calculate_stretching_factor', message)
     2021          CALL inifor_abort( 'calculate_stretching_factor', message)
    20192022       ENDIF
    20202023
     
    20322035                                     ' &or lower limit = ',                    &
    20332036                                     stretch_factor_lower_limit
    2034           CALL abort( 'calculate_stretching_factor', message )
     2037          CALL inifor_abort( 'calculate_stretching_factor', message )
    20352038           
    20362039       ENDIF
     
    23162319       IF (TRIM(cfg % start_date) == '')  THEN
    23172320          message = 'Simulation start date has not been set.'
    2318           CALL abort('setup_variable_tables', message)
     2321          CALL inifor_abort('setup_variable_tables', message)
    23192322       END IF
    23202323
     
    36053608       CASE DEFAULT
    36063609           message = "Variable kind '" // TRIM(kind) // "' not recognized."
    3607            CALL abort ('init_nc_var', message)
     3610           CALL inifor_abort ('init_nc_var', message)
    36083611
    36093612       END SELECT
     
    37383741             message = "Rotation method '" // TRIM(cfg % rotation_method) //   &
    37393742                "' not recognized."
    3740              CALL abort('preprocess', message)
     3743             CALL inifor_abort('preprocess', message)
    37413744
    37423745          END SELECT
     
    39263929          CASE DEFAULT
    39273930             message = "Invalid averaging period '" // TRIM(str(dt)) // " hours"
    3928              CALL abort('preprocess', message)
     3931             CALL inifor_abort('preprocess', message)
    39293932
    39303933          END SELECT
     
    39713974          CASE DEFAULT
    39723975             message = "Invalid averaging period '" // TRIM(str(dt)) // " hours"
    3973              CALL abort('preprocess', message)
     3976             CALL inifor_abort('preprocess', message)
    39743977
    39753978          END SELECT
     
    39783981       CASE DEFAULT
    39793982          message = "IO group kind '" // TRIM(group % kind) // "' is not supported."
    3980           CALL abort('prerpocess', message)
     3983          CALL inifor_abort('prerpocess', message)
    39813984
    39823985       END SELECT
  • 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
  • palm/trunk/UTIL/inifor/src/inifor_transform.f90

    r3614 r3615  
    2626! -----------------
    2727! $Id$
     28! bugfix: abort replaced by inifor_abort
     29!
     30! 3614 2018-12-10 07:05:46Z raasch
    2831! unused variables removed
    2932!
     
    184187              TRIM(str(UBOUND(outvar, 3))) // ") than input variable ("//&
    185188              TRIM(str(UBOUND(invar, 3))) // ")."
    186            CALL abort('interpolate_2d', message)
     189           CALL inifor_abort('interpolate_2d', message)
    187190       END IF
    188191
     
    223226             NEW_LINE(' ') // "ii has " // str(SIZE(ii)) // " elements, " //   &
    224227             NEW_LINE(' ') // "jj has " // str(SIZE(jj)) // "."
    225           CALL abort('average_2d', message)
     228          CALL inifor_abort('average_2d', message)
    226229       END IF
    227230
     
    848851
    849852                message = "PALM-4U grid extends above COSMO-DE model top."
    850                 CALL abort('find_vertical_neighbours_and_weights', message)
     853                CALL inifor_abort('find_vertical_neighbours_and_weights', message)
    851854
    852855             ELSE IF (point_is_below_grid)  THEN
     
    873876                   message = "Index " // TRIM(str(k_intermediate)) //          &
    874877                             " is above intermediate grid range."
    875                    CALL abort('find_vertical_neighbours', message)
     878                   CALL inifor_abort('find_vertical_neighbours', message)
    876879                END IF
    877880   
     
    982985
    983986                message = "PALM-4U grid extends above COSMO-DE model top."
    984                 CALL abort('find_vertical_neighbours_and_weights_average', message)
     987                CALL inifor_abort('find_vertical_neighbours_and_weights_average', message)
    985988
    986989             ELSE IF (point_is_below_grid)  THEN
     
    10101013                   message = "Index " // TRIM(str(k_intermediate)) //          &
    10111014                             " is above intermediate grid range."
    1012                    CALL abort('find_vertical_neighbours', message)
     1015                   CALL inifor_abort('find_vertical_neighbours', message)
    10131016                END IF
    10141017   
     
    11081111              message = "Horizontal weight wl = " // TRIM(real_to_str(wl)) //   &
    11091112                        " is out bounds."
    1110               CALL abort('compute_horizontal_interp_weights', message)
     1113              CALL inifor_abort('compute_horizontal_interp_weights', message)
    11111114          END IF
    11121115          IF (wp > 1.0_dp .OR. wp < 0.0_dp)  THEN
    11131116              message = "Horizontal weight wp = " // TRIM(real_to_str(wp)) //   &
    11141117                        " is out bounds."
    1115               CALL abort('compute_horizontal_interp_weights', message)
     1118              CALL inifor_abort('compute_horizontal_interp_weights', message)
    11161119          END IF
    11171120
Note: See TracChangeset for help on using the changeset viewer.