Changeset 3615 for palm/trunk/UTIL/inifor/src/inifor_grid.f90
- Timestamp:
- Dec 10, 2018 7:21:03 AM (6 years ago)
- File:
-
- 1 edited
-
palm/trunk/UTIL/inifor/src/inifor_grid.f90 (modified) (22 diffs)
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/UTIL/inifor/src/inifor_grid.f90
r3614 r3615 26 26 ! ----------------- 27 27 ! $Id$ 28 ! bugfix: abort replaced by inifor_abort 29 ! 30 ! 3614 2018-12-10 07:05:46Z raasch 28 31 ! unused variables removed 29 32 ! … … 412 415 message = "Averaging of large-scale forcing profiles " // & 413 416 "has not been implemented, yet." 414 CALL abort('setup_parameters', message)417 CALL inifor_abort('setup_parameters', message) 415 418 END IF 416 419 … … 1188 1191 1189 1192 message = "Interpolation quantity '" // kind // "' is not supported." 1190 CALL abort('setup_interpolation', message)1193 CALL inifor_abort('setup_interpolation', message) 1191 1194 1192 1195 END SELECT … … 1289 1292 IF (.NOT.PRESENT(z)) THEN 1290 1293 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) 1292 1295 END IF 1293 1296 … … 1346 1349 IF (.NOT.PRESENT(z)) THEN 1347 1350 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) 1349 1352 END IF 1350 1353 1351 1354 IF (.NOT.PRESENT(zw)) THEN 1352 1355 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) 1354 1357 END IF 1355 1358 … … 1472 1475 CASE DEFAULT 1473 1476 message = "Grid kind '" // TRIM(kind) // "' is not recognized." 1474 CALL abort('init_grid_definition', message)1477 CALL inifor_abort('init_grid_definition', message) 1475 1478 1476 1479 END SELECT … … 1559 1562 message = "Averaging grid kind '" // TRIM(avg_grid % kind) // & 1560 1563 "' 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) 1562 1565 1563 1566 END SELECT … … 1609 1612 message = "Averaging grid kind '" // TRIM(avg_grid % kind) // & 1610 1613 "' 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) 1612 1615 1613 1616 END SELECT … … 1682 1685 IF ( dz(1) == -1.0_dp ) THEN 1683 1686 message = 'missing dz' 1684 CALL abort( 'stretched_z', message)1687 CALL inifor_abort( 'stretched_z', message) 1685 1688 ELSEIF ( dz(1) <= 0.0_dp ) THEN 1686 1689 WRITE( message, * ) 'dz=', dz(1),' <= 0.0' 1687 CALL abort( 'stretched_z', message)1690 CALL inifor_abort( 'stretched_z', message) 1688 1691 ENDIF 1689 1692 … … 1718 1721 'dz_stretch_level_end + 1 = ', & 1719 1722 number_stretch_level_end+1 1720 CALL abort( 'stretched_z', message)1723 CALL inifor_abort( 'stretched_z', message) 1721 1724 ENDIF 1722 1725 … … 1731 1734 'dz_stretch_level_start = ', & 1732 1735 number_stretch_level_start 1733 CALL abort( 'stretched_z', message)1736 CALL inifor_abort( 'stretched_z', message) 1734 1737 ENDIF 1735 1738 … … 1744 1747 'values for dz_stretch_level_end = ', & 1745 1748 number_stretch_level_end 1746 CALL abort( 'stretched_z', message)1749 CALL inifor_abort( 'stretched_z', message) 1747 1750 ENDIF 1748 1751 … … 1782 1785 'dz_stretch_level_start + 4*MAX(dz(n),dz(n+1)) '//& 1783 1786 'to allow for smooth grid stretching' 1784 CALL abort('stretched_z', message)1787 CALL inifor_abort('stretched_z', message) 1785 1788 ENDIF 1786 1789 … … 1792 1795 WRITE( message, * ) 'Eeach dz_stretch_level_start has to be ',& 1793 1796 'larger than ', dz(1) * 1.5 1794 CALL abort( 'stretched_z', message)1797 CALL inifor_abort( 'stretched_z', message) 1795 1798 ENDIF 1796 1799 … … 2016 2019 ELSE 2017 2020 message = 'Two adjacent values of dz must be different' 2018 CALL abort( 'calculate_stretching_factor', message)2021 CALL inifor_abort( 'calculate_stretching_factor', message) 2019 2022 ENDIF 2020 2023 … … 2032 2035 ' &or lower limit = ', & 2033 2036 stretch_factor_lower_limit 2034 CALL abort( 'calculate_stretching_factor', message )2037 CALL inifor_abort( 'calculate_stretching_factor', message ) 2035 2038 2036 2039 ENDIF … … 2316 2319 IF (TRIM(cfg % start_date) == '') THEN 2317 2320 message = 'Simulation start date has not been set.' 2318 CALL abort('setup_variable_tables', message)2321 CALL inifor_abort('setup_variable_tables', message) 2319 2322 END IF 2320 2323 … … 3605 3608 CASE DEFAULT 3606 3609 message = "Variable kind '" // TRIM(kind) // "' not recognized." 3607 CALL abort ('init_nc_var', message)3610 CALL inifor_abort ('init_nc_var', message) 3608 3611 3609 3612 END SELECT … … 3738 3741 message = "Rotation method '" // TRIM(cfg % rotation_method) // & 3739 3742 "' not recognized." 3740 CALL abort('preprocess', message)3743 CALL inifor_abort('preprocess', message) 3741 3744 3742 3745 END SELECT … … 3926 3929 CASE DEFAULT 3927 3930 message = "Invalid averaging period '" // TRIM(str(dt)) // " hours" 3928 CALL abort('preprocess', message)3931 CALL inifor_abort('preprocess', message) 3929 3932 3930 3933 END SELECT … … 3971 3974 CASE DEFAULT 3972 3975 message = "Invalid averaging period '" // TRIM(str(dt)) // " hours" 3973 CALL abort('preprocess', message)3976 CALL inifor_abort('preprocess', message) 3974 3977 3975 3978 END SELECT … … 3978 3981 CASE DEFAULT 3979 3982 message = "IO group kind '" // TRIM(group % kind) // "' is not supported." 3980 CALL abort('prerpocess', message)3983 CALL inifor_abort('prerpocess', message) 3981 3984 3982 3985 END SELECT
Note: See TracChangeset
for help on using the changeset viewer.
