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_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
Note: See TracChangeset for help on using the changeset viewer.