diff --git a/cam_diagnostics/tropopause_diagnostics.F90 b/cam_diagnostics/tropopause_diagnostics.F90 new file mode 100644 index 00000000..529ad0a0 --- /dev/null +++ b/cam_diagnostics/tropopause_diagnostics.F90 @@ -0,0 +1,218 @@ +module tropopause_diagnostics + ! ... output tropopause diagnostics within CAM-SIMA + use ccpp_kinds, only: kind_phys + + implicit none + private + + ! CCPP-compliant subroutines + public :: tropopause_diagnostics_init + public :: tropopause_diagnostics_run + + integer, parameter :: NOTFOUND = -1 + +contains + ! Initialize the output history fields. +!> \section arg_table_tropopause_diagnostics_init Argument Table +!! \htmlinclude tropopause_diagnostics_init.html + subroutine tropopause_diagnostics_init(errmsg, errflg) + + use cam_history, only: history_add_field + use cam_history_support, only: horiz_only + + character(len=512), intent(out) :: errmsg + integer, intent(out) :: errflg + + errmsg = ' ' + errflg = 0 + + ! Define the output fields. + + ! Primary (Lapse rate) + backup (climatology) method - will always find a tropopause + call history_add_field('TROP_P', 'tropopause_air_pressure', horiz_only, 'avg', 'Pa') + call history_add_field('TROP_T', 'tropopause_air_temperature', horiz_only, 'avg', 'K' ) + call history_add_field('TROP_Z', 'tropopause_geopotential_height_wrt_surface', horiz_only, 'avg', 'm' ) + call history_add_field('TROP_DZ', 'geopotential_height_difference_between_atmosphere_layer_and_tropopause', 'lev', 'avg', 'm') + call history_add_field('TROP_PD', 'probability_distribution_of_tropopause_vertical_layer_index', 'lev', 'avg', 'probability') + call history_add_field('TROP_FD', 'tropopause_found', horiz_only, 'avg', 'probability') + + ! Primary (Lapse rate) only + call history_add_field('TROPP_P', 'tropopause_air_pressure_from_lapse_rate_method', horiz_only, 'avg', 'Pa') + call history_add_field('TROPP_T', 'tropopause_air_temperature_from_lapse_rate_method', horiz_only, 'avg', 'K' ) + call history_add_field('TROPP_Z', 'tropopause_geopotential_height_wrt_surface_from_lapse_rate_method', horiz_only, 'avg', 'm' ) + call history_add_field('TROPP_DZ', 'geopotential_height_difference_between_atmosphere_layer_and_tropopause_from_lapse_rate_method', 'lev', 'avg', 'm') + call history_add_field('TROPP_PD', 'probability_distribution_of_tropopause_vertical_layer_index_from_lapse_rate_method', 'lev', 'avg', 'probability') + call history_add_field('TROPP_FD', 'tropopause_found_from_lapse_rate_method', horiz_only, 'avg', 'probability') + + ! Cold point (CPP) only + call history_add_field('TROPF_P', 'tropopause_air_pressure_from_cold_point_method', horiz_only, 'avg', 'Pa') + call history_add_field('TROPF_T', 'tropopause_air_temperature_from_cold_point_method', horiz_only, 'avg', 'K' ) + call history_add_field('TROPF_Z', 'tropopause_geopotential_height_wrt_surface_from_cold_point_method', horiz_only, 'avg', 'm' ) + call history_add_field('TROPF_DZ', 'geopotential_height_difference_between_atmosphere_layer_and_tropopause_from_cold_point_method', 'lev', 'avg', 'm') + call history_add_field('TROPF_PD', 'probability_distribution_of_tropopause_vertical_layer_index_from_cold_point_method', 'lev', 'avg', 'probability') + call history_add_field('TROPF_FD', 'tropopause_found_from_cold_point_method', horiz_only, 'avg', 'probability') + + ! Climatology only - will always find a tropopause + call history_add_field('TROPC_P', 'tropopause_air_pressure_from_climatological_method', horiz_only, 'avg', 'Pa') + call history_add_field('TROPC_T', 'tropopause_air_temperature_from_climatological_method', horiz_only, 'avg', 'K' ) + call history_add_field('TROPC_Z', 'tropopause_geopotential_height_wrt_surface_from_climatological_method', horiz_only, 'avg', 'm' ) + call history_add_field('TROPC_DZ', 'geopotential_height_difference_between_atmosphere_layer_and_tropopause_from_climatological_method', 'lev', 'avg', 'm') + call history_add_field('TROPC_PD', 'probability_distribution_of_tropopause_vertical_layer_index_from_climatological_method', 'lev', 'avg', 'probability') + call history_add_field('TROPC_FD', 'tropopause_found_from_climatological_method', horiz_only, 'avg', 'probability') + + ! Hybridstobie output fields + call history_add_field('hstobie_trop', 'vertical_layer_index_lower_bound_from_hybrid_stobie_linoz_with_climatological_backup_method_for_stratospheric_chemistry', 'lev', 'inst', 'fraction of model time') + call history_add_field('hstobie_linoz', 'vertical_layer_index_lower_bound_from_hybrid_stobie_linoz_with_climatological_backup_method_for_linearized_ozone_chemistry', 'lev', 'inst', 'fraction of model time') + call history_add_field('hstobie_tropop', 'tropopause_vertical_layer_index_from_hybrid_stobie_linoz_with_climatological_backup_method_for_chemistry', 'lev', 'inst', 'fraction of model time') + + end subroutine tropopause_diagnostics_init + + ! Output the tropopause pressure and temperature to the history files. Two sets + ! of output will be generated, one for the default algorithm and another one + ! using the default routine, but backed by a climatology when the default + ! algorithm fails. +!> \section arg_table_tropopause_diagnostics_run Argument Table +!! \htmlinclude tropopause_diagnostics_run.html + subroutine tropopause_diagnostics_run(ncol, pver, & + zm, & + tropLev, tropP, tropT, tropZ, & ! Default primary+backup (twmo+climate) + tropLev_twmo, tropP_twmo, tropT_twmo, tropZ_twmo, & ! Primary only (twmo) + tropLev_clim, tropP_clim, tropT_clim, tropZ_clim, & ! Climate-only + tropLev_hybstob, tropP_hybstob, tropT_hybstob, tropZ_hybstob, & ! Hybridstobie + climate backup + tropLev_cpp, tropP_cpp, tropT_cpp, tropZ_cpp, & ! Cold point only + hstobie_trop, hstobie_linoz, hstobie_tropop, & ! Hybridstobie only for chemistry diagnostics + errmsg, errflg) + use cam_history, only: history_out_field + use cam_history_support, only: fillvalue + + integer, intent(in) :: ncol ! Number of atmospheric columns + integer, intent(in) :: pver ! Number of vertical levels + + real(kind_phys), intent(in) :: zm(:,:) ! Geopotential height above surface at midpoints (m), pver + + integer, intent(in) :: tropLev(:) ! tropopause level index + real(kind_phys), intent(in) :: tropP(:) ! tropopause pressure (Pa) + real(kind_phys), intent(in) :: tropT(:) ! tropopause temperature (K) + real(kind_phys), intent(in) :: tropZ(:) ! tropopause height (m) + + integer, intent(in) :: tropLev_twmo(:) ! lapse-rate tropopause level index + real(kind_phys), intent(in) :: tropP_twmo(:) ! lapse-rate tropopause pressure (Pa) + real(kind_phys), intent(in) :: tropT_twmo(:) ! lapse-rate tropopause temperature (K) + real(kind_phys), intent(in) :: tropZ_twmo(:) ! lapse-rate tropopause height (m) + + integer, intent(in) :: tropLev_clim(:) ! climatology-backed tropopause level index + real(kind_phys), intent(in) :: tropP_clim(:) ! climatology-backed tropopause pressure (Pa) + real(kind_phys), intent(in) :: tropT_clim(:) ! climatology-backed tropopause temperature (K) + real(kind_phys), intent(in) :: tropZ_clim(:) ! climatology-backed tropopause height (m) + + integer, intent(in) :: tropLev_hybstob(:) ! hybridstobie climatology-backed tropopause level index + real(kind_phys), intent(in) :: tropP_hybstob(:) ! hybridstobie climatology-backed tropopause pressure (Pa) + real(kind_phys), intent(in) :: tropT_hybstob(:) ! hybridstobie climatology-backed tropopause temperature (K) + real(kind_phys), intent(in) :: tropZ_hybstob(:) ! hybridstobie climatology-backed tropopause height (m) + + integer, intent(in) :: tropLev_cpp(:) ! cold point tropopause level index + real(kind_phys), intent(in) :: tropP_cpp(:) ! cold point tropopause pressure (Pa) + real(kind_phys), intent(in) :: tropT_cpp(:) ! cold point tropopause temperature (K) + real(kind_phys), intent(in) :: tropZ_cpp(:) ! cold point tropopause height (m) + + ! Optional output arguments for hybridstobie with chemistry + real(kind_phys), intent(in) :: hstobie_trop(:,:) ! Lowest level with strat. chem + real(kind_phys), intent(in) :: hstobie_linoz(:,:) ! Lowest possible Linoz level + real(kind_phys), intent(in) :: hstobie_tropop(:,:) ! Troposphere boundary calculated in chem. + + character(len=512), intent(out) :: errmsg + integer, intent(out) :: errflg + + ! Local Variables + integer :: i + integer :: alg + real(kind_phys) :: tropFound(ncol) ! tropopause found + real(kind_phys) :: tropDZ(ncol, pver) ! relative tropopause height (m) + real(kind_phys) :: tropPdf(ncol, pver) ! tropopause probability distribution + + errmsg = ' ' + errflg = 0 + + ! Default algorithm output + tropPdf(:,:) = 0._kind_phys + tropFound(:) = 0._kind_phys + tropDZ(:,:) = fillvalue + do i = 1, ncol + if (tropLev(i) /= NOTFOUND) then + tropPdf(i, tropLev(i)) = 1._kind_phys + tropFound(i) = 1._kind_phys + tropDZ(i,:) = zm(i,:) - tropZ(i) + end if + end do + + call history_out_field('TROP_P', tropP) + call history_out_field('TROP_T', tropT) + call history_out_field('TROP_Z', tropZ) + call history_out_field('TROP_DZ', tropDZ) + call history_out_field('TROP_PD', tropPdf) + call history_out_field('TROP_FD', tropFound) + + ! Primary-only (currently TWMO) algorithm output + tropPdf(:,:) = 0._kind_phys + tropFound(:) = 0._kind_phys + tropDZ(:,:) = fillvalue + do i = 1, ncol + if (tropLev_twmo(i) /= NOTFOUND) then + tropPdf(i, tropLev_twmo(i)) = 1._kind_phys + tropFound(i) = 1._kind_phys + tropDZ(i,:) = zm(i,:) - tropZ(i) + end if + end do + + call history_out_field('TROPP_P', tropP_twmo) + call history_out_field('TROPP_T', tropT_twmo) + call history_out_field('TROPP_Z', tropZ_twmo) + call history_out_field('TROPP_DZ', tropDZ) + call history_out_field('TROPP_PD', tropPdf) + call history_out_field('TROPP_FD', tropFound) + + ! Cold point output + tropPdf(:,:) = 0._kind_phys + tropFound(:) = 0._kind_phys + tropDZ(:,:) = fillvalue + do i = 1, ncol + if (tropLev_cpp(i) /= NOTFOUND) then + tropPdf(i, tropLev_cpp(i)) = 1._kind_phys + tropFound(i) = 1._kind_phys + tropDZ(i,:) = zm(i,:) - tropZ_cpp(i) + end if + end do + + call history_out_field('TROPF_P', tropP_cpp) + call history_out_field('TROPF_T', tropT_cpp) + call history_out_field('TROPF_Z', tropZ_cpp) + call history_out_field('TROPF_DZ', tropDZ) + call history_out_field('TROPF_PD', tropPdf) + call history_out_field('TROPF_FD', tropFound) + + ! Climatology output + tropPdf(:,:) = 0._kind_phys + tropFound(:) = 0._kind_phys + tropDZ(:,:) = fillvalue + do i = 1, ncol + if (tropLev_clim(i) /= NOTFOUND) then + tropPdf(i, tropLev_clim(i)) = 1._kind_phys + tropFound(i) = 1._kind_phys + tropDZ(i,:) = zm(i,:) - tropZ_clim(i) + end if + end do + + call history_out_field('TROPC_P', tropP_clim) + call history_out_field('TROPC_T', tropT_clim) + call history_out_field('TROPC_Z', tropZ_clim) + call history_out_field('TROPC_DZ', tropDZ) + call history_out_field('TROPC_PD', tropPdf) + call history_out_field('TROPC_FD', tropFound) + + ! Hybridstobie outputs for chemistry + call history_out_field('hstobie_trop', hstobie_trop) + call history_out_field('hstobie_linoz', hstobie_linoz) + call history_out_field('hstobie_tropop', hstobie_tropop) + + end subroutine tropopause_diagnostics_run +end module tropopause_diagnostics diff --git a/cam_diagnostics/tropopause_diagnostics.meta b/cam_diagnostics/tropopause_diagnostics.meta new file mode 100644 index 00000000..1472bcca --- /dev/null +++ b/cam_diagnostics/tropopause_diagnostics.meta @@ -0,0 +1,191 @@ +[ccpp-table-properties] + name = tropopause_diagnostics + type = scheme + +[ccpp-arg-table] + name = tropopause_diagnostics_init + type = scheme +[ errmsg ] + standard_name = ccpp_error_message + units = none + type = character | kind = len=512 + dimensions = () + intent = out +[ errflg ] + standard_name = ccpp_error_code + units = 1 + type = integer + dimensions = () + intent = out + +[ccpp-arg-table] + name = tropopause_diagnostics_run + type = scheme +[ ncol ] + standard_name = horizontal_loop_extent + units = count + type = integer + dimensions = () + intent = in +[ pver ] + standard_name = vertical_layer_dimension + units = count + type = integer + dimensions = () + intent = in +[ zm ] + standard_name = geopotential_height_wrt_surface + units = m + type = real | kind = kind_phys + dimensions = (horizontal_loop_extent, vertical_layer_dimension) + intent = in +[ tropLev ] + standard_name = tropopause_vertical_layer_index + units = index + type = integer + dimensions = (horizontal_loop_extent) + intent = in +[ tropP ] + standard_name = tropopause_air_pressure + units = Pa + type = real | kind = kind_phys + dimensions = (horizontal_loop_extent) + intent = in +[ tropT ] + standard_name = tropopause_air_temperature + units = K + type = real | kind = kind_phys + dimensions = (horizontal_loop_extent) + intent = in +[ tropZ ] + standard_name = tropopause_geopotential_height_wrt_surface + units = m + type = real | kind = kind_phys + dimensions = (horizontal_loop_extent) + intent = in +[ tropLev_twmo ] + standard_name = tropopause_vertical_layer_index_from_lapse_rate_method + units = index + type = integer + dimensions = (horizontal_loop_extent) + intent = in +[ tropP_twmo ] + standard_name = tropopause_air_pressure_from_lapse_rate_method + units = Pa + type = real | kind = kind_phys + dimensions = (horizontal_loop_extent) + intent = in +[ tropT_twmo ] + standard_name = tropopause_air_temperature_from_lapse_rate_method + units = K + type = real | kind = kind_phys + dimensions = (horizontal_loop_extent) + intent = in +[ tropZ_twmo ] + standard_name = tropopause_geopotential_height_wrt_surface_from_lapse_rate_method + units = m + type = real | kind = kind_phys + dimensions = (horizontal_loop_extent) + intent = in +[ tropLev_clim ] + standard_name = tropopause_vertical_layer_index_from_climatological_method + units = index + type = integer + dimensions = (horizontal_loop_extent) + intent = in +[ tropP_clim ] + standard_name = tropopause_air_pressure_from_climatological_method + units = Pa + type = real | kind = kind_phys + dimensions = (horizontal_loop_extent) + intent = in +[ tropT_clim ] + standard_name = tropopause_air_temperature_from_climatological_method + units = K + type = real | kind = kind_phys + dimensions = (horizontal_loop_extent) + intent = in +[ tropZ_clim ] + standard_name = tropopause_geopotential_height_wrt_surface_from_climatological_method + units = m + type = real | kind = kind_phys + dimensions = (horizontal_loop_extent) + intent = in +[ tropLev_hybstob ] + standard_name = tropopause_vertical_layer_index_from_hybrid_stobie_linoz_with_climatological_backup_method + units = index + type = integer + dimensions = (horizontal_loop_extent) + intent = in +[ tropP_hybstob ] + standard_name = tropopause_air_pressure_from_hybrid_stobie_linoz_with_climatological_backup_method + units = Pa + type = real | kind = kind_phys + dimensions = (horizontal_loop_extent) + intent = in +[ tropT_hybstob ] + standard_name = tropopause_air_temperature_from_hybrid_stobie_linoz_with_climatological_backup_method + units = K + type = real | kind = kind_phys + dimensions = (horizontal_loop_extent) + intent = in +[ tropZ_hybstob ] + standard_name = tropopause_geopotential_height_wrt_surface_from_hybrid_stobie_linoz_with_climatological_backup_method + units = m + type = real | kind = kind_phys + dimensions = (horizontal_loop_extent) + intent = in +[ tropLev_cpp ] + standard_name = tropopause_vertical_layer_index_from_cold_point_method + units = index + type = integer + dimensions = (horizontal_loop_extent) + intent = in +[ tropP_cpp ] + standard_name = tropopause_air_pressure_from_cold_point_method + units = Pa + type = real | kind = kind_phys + dimensions = (horizontal_loop_extent) + intent = in +[ tropT_cpp ] + standard_name = tropopause_air_temperature_from_cold_point_method + units = K + type = real | kind = kind_phys + dimensions = (horizontal_loop_extent) + intent = in +[ tropZ_cpp ] + standard_name = tropopause_geopotential_height_wrt_surface_from_cold_point_method + units = m + type = real | kind = kind_phys + dimensions = (horizontal_loop_extent) + intent = in +[ hstobie_trop ] + standard_name = vertical_layer_index_lower_bound_from_hybrid_stobie_linoz_with_climatological_backup_method_for_stratospheric_chemistry + units = index + type = real | kind = kind_phys + dimensions = (horizontal_loop_extent, vertical_layer_dimension) + intent = in +[ hstobie_linoz ] + standard_name = vertical_layer_index_lower_bound_from_hybrid_stobie_linoz_with_climatological_backup_method_for_linearized_ozone_chemistry + units = index + type = real | kind = kind_phys + dimensions = (horizontal_loop_extent, vertical_layer_dimension) + intent = in +[ hstobie_tropop ] + standard_name = tropopause_vertical_layer_index_from_hybrid_stobie_linoz_with_climatological_backup_method_for_chemistry + units = index + type = real | kind = kind_phys + dimensions = (horizontal_loop_extent, vertical_layer_dimension) + intent = in +[ errmsg ] + standard_name = ccpp_error_message + units = none + type = character | kind = len=512 + dimensions = () + intent = out +[ errflg ] + standard_name = ccpp_error_code + units = 1 + type = integer + dimensions = () + intent = out diff --git a/doc/ChangeLog b/doc/ChangeLog index 47d4b3ef..c44469bf 100644 --- a/doc/ChangeLog +++ b/doc/ChangeLog @@ -1,3 +1,43 @@ +=============================================================== + +Tag name: +Originator(s): jimmielin +Date: August 22, 2024 +One-line Summary: tropopause_find CCPP-ization +Github PR URL: https://github.com/ESCOMP/atmospheric_physics/pull/112 + +This PR fixes the following NCAR/atmospheric_physics Github issues: + - Creates the CCPP interface for the tropopause_find routine + + Several (extensive) changes were made to tropopause_find.F90 for CCPP-compatibility: + - tropopause_read_file, which provides tropp_p_loc and tropp_days climatological data used as the default fall-back method, has been moved to a utility module in CAM-SIMA to read, regrid, and provide this climatology to the CCPP-ized physics; it also removes lchnk indexing since they're no longer used in CAM-SIMA. + - tropopause_find used to accept (optional) arguments for returning tropT, tropZ, tropP (tropopause temperature, height, and pressure) which are no longer optional; + - tropopause_find accepted "primary" and "backup" methods for finding the tropopause. All the methods known to be used in CAM are now calculated at the same time in the tropopause_find_run main driver routine; it calls the underlying logic as appropriate with and populates the appropriate standard name physics fields. Because the same physical quantities for tropopause level, height, pressure, temperature, etc. using different methods are used throughout the CAM physics and simultaneously output in the diagnostics, the same standard names with a suffix are used to differentiate between these quantities computed by different methods. + - Standard CCPP-ization procedures, metadata, explicit use of fields instead of physics state, only passing active :ncol fields, ... + + CAM interface code that will completely replicate existing behavior, bit-for-bit in current CAM, will be included in current CAM as tropopause.F90. + +Code reviewed by: + +List all existing files that have been added (A), modified (M), or deleted (D), +and describe the changes: +- Implementation of tropopause_find using CCPP and test SDF: +A test/test_sdfs/suite_tropopause_find.xml +A tropopause_find/tropopause_find.F90 +A tropopause_find/tropopause_find.meta + +- Implementation of diagnostics (history) output within CAM-SIMA: +A cam_diagnostics/tropopause_diagnostics.F90 +A cam_diagnostics/tropopause_diagnostics.meta + +- Metadata for changes made in this PR: +M doc/ChangeLog +M doc/NamesNotInDictionary.txt + + +List and Describe any test failures: N/A + +Summarize any changes to answers: none =============================================================== diff --git a/doc/NamesNotInDictionary.txt b/doc/NamesNotInDictionary.txt index bcb6f51d..496c6413 100644 --- a/doc/NamesNotInDictionary.txt +++ b/doc/NamesNotInDictionary.txt @@ -1,43 +1,59 @@ ####################### Date/time of when script was run: -2024-07-12 11:08:18.467654 +2024-09-18 19:06:50.047235 ####################### Non-dictionary standard names found in the following metadata files: -------------------------- -atmospheric_physics.jt.062024/utilities/geopotential_temp.meta +atmospheric_physics/tj2016/tj2016_precip.meta + + - gas_constant_of_water_vapor + - lwe_large_scale_precipitation_rate_at_surface + - ratio_of_water_vapor_to_dry_air_molecular_weights + - sum_of_sigma_pressure_hybrid_coordinate_a_coefficient_and_sigma_pressure_hybrid_coordinate_b_coefficient + +-------------------------- + +atmospheric_physics/tj2016/tj2016_sfc_pbl_hs.meta - air_pressure_at_interface + - eddy_heat_diffusivity + - eddy_momentum_diffusivity + - gas_constant_of_water_vapor - ln_air_pressure_at_interface + - pi_constant + - ratio_of_water_vapor_to_dry_air_molecular_weights + - sum_of_sigma_pressure_hybrid_coordinate_a_coefficient_and_sigma_pressure_hybrid_coordinate_b_coefficient + - surface_eastward_wind_stress + - surface_evaporation_rate + - surface_northward_wind_stress + - surface_upward_sensible_heat_flux + - tendency_of_air_temperature_due_to_diabatic_heating + - tendency_of_air_temperature_due_to_vertical_diffusion + - tendency_of_water_vapor_mixing_ratio_wrt_moist_air_and_condensed_water_due_to_vertical_diffusion -------------------------- -atmospheric_physics.jt.062024/zhang_mcfarlane/zm_conv_convtran.meta +atmospheric_physics/dry_adiabatic_adjust/dadadj.meta - - atmosphere_detrainment_convective_mass_flux_for_deep_convection_for_convective_columns - - atmosphere_downdraft_convective_mass_flux_for_deep_convection_for_convective_columns - - atmosphere_downdraft_entrainment_convective_mass_flux_for_deep_convection_for_convective_columns - - atmosphere_updraft_convective_mass_flux_for_deep_convection_for_convective_columns - - atmosphere_updraft_entrainment_convective_mass_flux_for_deep_convection_for_convective_columns - - current_timestep_number - - flag_for_zhang_mcfarlane_deep_convective_transport? - - fraction_of_water_insoluble_convectively_transported_species - - horizontal_index_of_convective_columns_for_deep_convection_for_convective_columns - - maximum_number_of_grid_cells_with_deep_convection? - - minimum_number_of_grid_cells_with_deep_convection? - - pressure_thickness_for_deep_convection_for_convective_columns - - pressure_thickness_for_subcloud_layer_for_deep_convection_for_convective_columns - - pressure_thickness_of_dry_air_for_deep_convection_for_convective_columns? - - tendency_of_ccpp_constituents? - - vertical_index_at_top_of_deep_convection_for_convective_columns - - vertical_index_of_deep_conveciton_launch_level_for_convective_columns + - air_pressure_at_interface + - binary_indicator_for_dry_adiabatic_adjusted_grid_cell + - number_of_iterations_for_dry_adiabatic_adjustment_algorithm_convergence + - number_of_vertical_levels_from_model_top_where_dry_adiabatic_adjustment_occurs + - tendency_of_water_vapor_mixing_ratio_wrt_moist_air_and_condensed_water + +-------------------------- + +atmospheric_physics/dry_adiabatic_adjust/dadadj_apply_qv_tendency.meta + + - tendency_of_water_vapor_mixing_ratio_wrt_moist_air_and_condensed_water -------------------------- -atmospheric_physics.jt.062024/zhang_mcfarlane/zm_conv_momtran.meta +atmospheric_physics/zhang_mcfarlane/zm_conv_momtran.meta - atmosphere_detrainment_convective_mass_flux_for_deep_convection_for_convective_columns - atmosphere_downdraft_convective_mass_flux_for_deep_convection_for_convective_columns @@ -64,7 +80,7 @@ atmospheric_physics.jt.062024/zhang_mcfarlane/zm_conv_momtran.meta -------------------------- -atmospheric_physics.jt.062024/zhang_mcfarlane/zm_conv_evap.meta +atmospheric_physics/zhang_mcfarlane/zm_conv_evap.meta - - cloud_area_fraction @@ -90,7 +106,7 @@ atmospheric_physics.jt.062024/zhang_mcfarlane/zm_conv_evap.meta -------------------------- -atmospheric_physics.jt.062024/zhang_mcfarlane/zm_convr.meta +atmospheric_physics/zhang_mcfarlane/zm_convr.meta - air_pressure_at_interface - atmosphere_convective_mass_flux_due_to all_convection? @@ -146,47 +162,98 @@ atmospheric_physics.jt.062024/zhang_mcfarlane/zm_convr.meta -------------------------- -atmospheric_physics.jt.062024/dry_adiabatic_adjust/dadadj.meta +atmospheric_physics/zhang_mcfarlane/zm_conv_convtran.meta - - air_pressure_at_interface - - binary_indicator_for_dry_adiabatic_adjusted_grid_cell - - number_of_iterations_for_dry_adiabatic_adjustment_algorithm_convergence - - number_of_vertical_levels_from_model_top_where_dry_adiabatic_adjustment_occurs - - tendency_of_water_vapor_mixing_ratio_wrt_moist_air_and_condensed_water + - atmosphere_detrainment_convective_mass_flux_for_deep_convection_for_convective_columns + - atmosphere_downdraft_convective_mass_flux_for_deep_convection_for_convective_columns + - atmosphere_downdraft_entrainment_convective_mass_flux_for_deep_convection_for_convective_columns + - atmosphere_updraft_convective_mass_flux_for_deep_convection_for_convective_columns + - atmosphere_updraft_entrainment_convective_mass_flux_for_deep_convection_for_convective_columns + - current_timestep_number + - flag_for_zhang_mcfarlane_deep_convective_transport? + - fraction_of_water_insoluble_convectively_transported_species + - horizontal_index_of_convective_columns_for_deep_convection_for_convective_columns + - maximum_number_of_grid_cells_with_deep_convection? + - minimum_number_of_grid_cells_with_deep_convection? + - pressure_thickness_for_deep_convection_for_convective_columns + - pressure_thickness_for_subcloud_layer_for_deep_convection_for_convective_columns + - pressure_thickness_of_dry_air_for_deep_convection_for_convective_columns? + - tendency_of_ccpp_constituents? + - vertical_index_at_top_of_deep_convection_for_convective_columns + - vertical_index_of_deep_conveciton_launch_level_for_convective_columns -------------------------- -atmospheric_physics.jt.062024/dry_adiabatic_adjust/dadadj_apply_qv_tendency.meta +atmospheric_physics/utilities/geopotential_temp.meta - - tendency_of_water_vapor_mixing_ratio_wrt_moist_air_and_condensed_water + - air_pressure_at_interface + - ln_air_pressure_at_interface -------------------------- -atmospheric_physics.jt.062024/tj2016/tj2016_precip.meta +atmospheric_physics/cam_diagnostics/tropopause_diagnostics.meta - - gas_constant_of_water_vapor - - lwe_large_scale_precipitation_rate_at_surface - - ratio_of_water_vapor_to_dry_air_molecular_weights - - sum_of_sigma_pressure_hybrid_coordinate_a_coefficient_and_sigma_pressure_hybrid_coordinate_b_coefficient + - tropopause_air_pressure + - tropopause_air_pressure_from_climatological_method + - tropopause_air_pressure_from_cold_point_method + - tropopause_air_pressure_from_hybrid_stobie_linoz_with_climatological_backup_method + - tropopause_air_pressure_from_lapse_rate_method + - tropopause_air_temperature + - tropopause_air_temperature_from_climatological_method + - tropopause_air_temperature_from_cold_point_method + - tropopause_air_temperature_from_hybrid_stobie_linoz_with_climatological_backup_method + - tropopause_air_temperature_from_lapse_rate_method + - tropopause_geopotential_height_wrt_surface + - tropopause_geopotential_height_wrt_surface_from_climatological_method + - tropopause_geopotential_height_wrt_surface_from_cold_point_method + - tropopause_geopotential_height_wrt_surface_from_hybrid_stobie_linoz_with_climatological_backup_method + - tropopause_geopotential_height_wrt_surface_from_lapse_rate_method + - tropopause_vertical_layer_index + - tropopause_vertical_layer_index_from_climatological_method + - tropopause_vertical_layer_index_from_cold_point_method + - tropopause_vertical_layer_index_from_hybrid_stobie_linoz_with_climatological_backup_method + - tropopause_vertical_layer_index_from_hybrid_stobie_linoz_with_climatological_backup_method_for_chemistry + - tropopause_vertical_layer_index_from_lapse_rate_method + - vertical_layer_index_lower_bound_from_hybrid_stobie_linoz_with_climatological_backup_method_for_linearized_ozone_chemistry + - vertical_layer_index_lower_bound_from_hybrid_stobie_linoz_with_climatological_backup_method_for_stratospheric_chemistry -------------------------- -atmospheric_physics.jt.062024/tj2016/tj2016_sfc_pbl_hs.meta +atmospheric_physics/tropopause_find/tropopause_find.meta - air_pressure_at_interface - - eddy_heat_diffusivity - - eddy_momentum_diffusivity - - gas_constant_of_water_vapor - - ln_air_pressure_at_interface + - fill_value_for_diagnostic_output + - fractional_calendar_days_on_end_of_current_timestep - pi_constant - - ratio_of_water_vapor_to_dry_air_molecular_weights - - sum_of_sigma_pressure_hybrid_coordinate_a_coefficient_and_sigma_pressure_hybrid_coordinate_b_coefficient - - surface_eastward_wind_stress - - surface_evaporation_rate - - surface_northward_wind_stress - - surface_upward_sensible_heat_flux - - tendency_of_air_temperature_due_to_diabatic_heating - - tendency_of_air_temperature_due_to_vertical_diffusion - - tendency_of_water_vapor_mixing_ratio_wrt_moist_air_and_condensed_water_due_to_vertical_diffusion + - ratio_of_dry_air_gas_constant_to_specific_heat_of_dry_air_at_constant_pressure + - tropopause_air_pressure + - tropopause_air_pressure_from_chemical_method + - tropopause_air_pressure_from_climatological_method + - tropopause_air_pressure_from_climatology_dataset + - tropopause_air_pressure_from_cold_point_method + - tropopause_air_pressure_from_hybrid_stobie_linoz_with_climatological_backup_method + - tropopause_air_pressure_from_lapse_rate_method + - tropopause_air_temperature + - tropopause_air_temperature_from_chemical_method + - tropopause_air_temperature_from_climatological_method + - tropopause_air_temperature_from_cold_point_method + - tropopause_air_temperature_from_hybrid_stobie_linoz_with_climatological_backup_method + - tropopause_air_temperature_from_lapse_rate_method + - tropopause_calendar_days_from_climatology + - tropopause_geopotential_height_wrt_surface + - tropopause_geopotential_height_wrt_surface_from_chemical_method + - tropopause_geopotential_height_wrt_surface_from_climatological_method + - tropopause_geopotential_height_wrt_surface_from_cold_point_method + - tropopause_geopotential_height_wrt_surface_from_hybrid_stobie_linoz_with_climatological_backup_method + - tropopause_geopotential_height_wrt_surface_from_lapse_rate_method + - tropopause_vertical_layer_index + - tropopause_vertical_layer_index_from_chemical_method + - tropopause_vertical_layer_index_from_climatological_method + - tropopause_vertical_layer_index_from_cold_point_method + - tropopause_vertical_layer_index_from_hybrid_stobie_linoz_with_climatological_backup_method + - tropopause_vertical_layer_index_from_hybrid_stobie_linoz_with_climatological_backup_method_for_chemistry + - tropopause_vertical_layer_index_from_lapse_rate_method + - vertical_layer_index_lower_bound_from_hybrid_stobie_linoz_with_climatological_backup_method_for_linearized_ozone_chemistry + - vertical_layer_index_lower_bound_from_hybrid_stobie_linoz_with_climatological_backup_method_for_stratospheric_chemistry ####################### diff --git a/suite_cam7.xml b/suite_cam7.xml index 1cb64eb3..5fea991f 100644 --- a/suite_cam7.xml +++ b/suite_cam7.xml @@ -9,4 +9,11 @@ qneg geopotential_temp + + + + + tropopause_find + tropopause_diagnostics + diff --git a/test/test_sdfs/suite_tropopause_find.xml b/test/test_sdfs/suite_tropopause_find.xml new file mode 100644 index 00000000..98faf1d6 --- /dev/null +++ b/test/test_sdfs/suite_tropopause_find.xml @@ -0,0 +1,12 @@ + + + + + + + + tropopause_find + tropopause_diagnostics + qneg + + diff --git a/tropopause_find/tropopause_find.F90 b/tropopause_find/tropopause_find.F90 new file mode 100644 index 00000000..fd1683d7 --- /dev/null +++ b/tropopause_find/tropopause_find.F90 @@ -0,0 +1,1455 @@ +! This module is used to diagnose the location of the tropopause. Multiple +! algorithms are provided, some of which may not be able to identify a +! tropopause in all situations. To handle these cases, an analytic +! definition and a climatology are provided that can be used to fill in +! when the original algorithm fails. The tropopause temperature and +! pressure are determined and can be output to the history file. +! +! Author: Charles Bardeen +! Created: April, 2009 +! +! CCPP-ized: Haipeng Lin, August 2024 +module tropopause_find + !--------------------------------------------------------------- + ! ... variables for the tropopause module + !--------------------------------------------------------------- + + use ccpp_kinds, only : kind_phys + + implicit none + + private + + ! CCPP-compliant subroutines + public :: tropopause_find_init + public :: tropopause_find_run + + ! "Wrapped" routine for use in old CAM for backward compatibility. + ! Also called by tropopause_find_run driver routine. + public :: tropopause_findWithBackup + + ! Switches for tropopause method + public :: TROP_ALG_NONE, TROP_ALG_ANALYTIC, TROP_ALG_CLIMATE + public :: TROP_ALG_STOBIE, TROP_ALG_HYBSTOB, TROP_ALG_TWMO, TROP_ALG_WMO + public :: TROP_ALG_CPP + public :: NOTFOUND + + save + + ! These parameters define an enumeration to be used to define the primary + ! and backup algorithms to be used with the tropopause_find() method. The + ! backup algorithm is meant to provide a solution when the primary algorithm + ! fails. The algorithms that can't fail (i.e., always find a tropopause) are: + ! TROP_ALG_ANALYTIC, TROP_ALG_CLIMATE, and TROP_ALG_STOBIE. + integer, parameter :: TROP_ALG_NONE = 1 ! Don't evaluate + integer, parameter :: TROP_ALG_ANALYTIC = 2 ! Analytic Expression + integer, parameter :: TROP_ALG_CLIMATE = 3 ! Climatology + integer, parameter :: TROP_ALG_STOBIE = 4 ! Stobie Algorithm + integer, parameter :: TROP_ALG_TWMO = 5 ! WMO Definition, Reichler et al. [2003] + integer, parameter :: TROP_ALG_WMO = 6 ! WMO Definition + integer, parameter :: TROP_ALG_HYBSTOB = 7 ! Hybrid Stobie Algorithm + integer, parameter :: TROP_ALG_CPP = 8 ! Cold Point Parabolic + integer, parameter :: TROP_ALG_CHEMTROP = 9 ! Chemical tropopause + + integer, parameter :: default_primary = TROP_ALG_TWMO ! default primary algorithm + integer, parameter :: default_backup = TROP_ALG_CLIMATE ! default backup algorithm + + integer, parameter :: NOTFOUND = -1 + + real(kind_phys), parameter :: ALPHA = 0.03_kind_phys + + ! physical constants + ! These constants are set in module variables rather than as parameters + ! to support the aquaplanet mode in which the constants have values determined + ! by the experiment protocol + real(kind_phys) :: cnst_kap ! = cappa + real(kind_phys) :: cnst_faktor ! = -gravit/rair + real(kind_phys) :: cnst_rga ! = 1/gravit + real(kind_phys) :: cnst_ka1 ! = cnst_kap - 1._kind_phys + real(kind_phys) :: cnst_rad2deg ! = 180/pi + +!================================================================================================ +contains +!================================================================================================ + +!> \section arg_table_tropopause_find_init Argument Table +!! \htmlinclude tropopause_find_init.html + subroutine tropopause_find_init(cappa, rair, gravit, pi, errmsg, errflg) + + real(kind_phys), intent(in) :: cappa ! R/Cp + real(kind_phys), intent(in) :: rair ! Dry air gas constant (J K-1 kg-1) + real(kind_phys), intent(in) :: gravit ! Gravitational acceleration (m s-2) + real(kind_phys), intent(in) :: pi ! Pi + + character(len=512), intent(out) :: errmsg + integer, intent(out) :: errflg + + errmsg = ' ' + errflg = 0 + + ! define physical constants + cnst_kap = cappa + cnst_faktor = -gravit/rair + cnst_rga = 1._kind_phys/gravit ! Reciprocal of gravit (s2 m-1) + cnst_ka1 = cnst_kap - 1._kind_phys + cnst_rad2deg = 180._kind_phys/pi ! radians to degrees conversion factor + + end subroutine tropopause_find_init + + ! "Driver" routine for tropopause_find. Identifies the tropopause using several methods + ! and populates them into the model state. + ! Most methods use climatological tropopause as a backup, and as such is guaranteed to + ! find a tropopause in all columns. Others are explicitly single-method and used by + ! other parameterizations as-is with NOTFOUND values being intentional. +!> \section arg_table_tropopause_find_run Argument Table +!! \htmlinclude tropopause_find_run.html + subroutine tropopause_find_run(ncol, pver, fillvalue, lat, pint, pmid, t, zi, zm, phis, & + calday, tropp_p_loc, tropp_days, & + tropLev, tropP, tropT, tropZ, & ! Default primary+backup (twmo+climate) + tropLev_twmo, tropP_twmo, tropT_twmo, tropZ_twmo, & ! Primary only (twmo) + tropLev_clim, tropP_clim, tropT_clim, tropZ_clim, & ! Climate-only + tropLev_hybstob, tropP_hybstob, tropT_hybstob, tropZ_hybstob, & ! Hybridstobie + climate backup + tropLev_cpp, tropP_cpp, tropT_cpp, tropZ_cpp, & ! Cold point only + tropLev_chem, tropP_chem, tropT_chem, tropZ_chem, & ! Chemical tropopause only + hstobie_trop, hstobie_linoz, hstobie_tropop, & ! Hybridstobie only for chemistry diagnostics + scheme_name, errmsg, errflg) + + integer, intent(in) :: ncol ! Number of atmospheric columns + integer, intent(in) :: pver ! Number of vertical levels + real(kind_phys), intent(in) :: fillvalue ! Fill value for diagnostic outputs + real(kind_phys), intent(in) :: lat(:) ! Latitudes (radians) + real(kind_phys), intent(in) :: pint(:,:) ! Interface pressures (Pa) + real(kind_phys), intent(in) :: pmid(:,:) ! Midpoint pressures (Pa) + real(kind_phys), intent(in) :: t(:,:) ! Temperature (K) + real(kind_phys), intent(in) :: zi(:,:) ! Geopotential height above surface at interfaces (m) + real(kind_phys), intent(in) :: zm(:,:) ! Geopotential height above surface at midpoints (m) + real(kind_phys), intent(in) :: phis(:) ! Surface geopotential (m2 s-2) + + real(kind_phys), intent(in) :: calday ! Day of year including fraction of day + + ! Climatological tropopause pressures (Pa), (ncol,ntimes=12). + real(kind_phys), intent(in) :: tropp_p_loc(:,:) + real(kind_phys), intent(in) :: tropp_days(:) ! Day-of-year for climo data, 12 + + integer, intent(out) :: tropLev(:) ! tropopause level index + real(kind_phys), intent(out) :: tropP(:) ! tropopause pressure (Pa) + real(kind_phys), intent(out) :: tropT(:) ! tropopause temperature (K) + real(kind_phys), intent(out) :: tropZ(:) ! tropopause height (m) + + integer, intent(out) :: tropLev_twmo(:) ! lapse-rate tropopause level index + real(kind_phys), intent(out) :: tropP_twmo(:) ! lapse-rate tropopause pressure (Pa) + real(kind_phys), intent(out) :: tropT_twmo(:) ! lapse-rate tropopause temperature (K) + real(kind_phys), intent(out) :: tropZ_twmo(:) ! lapse-rate tropopause height (m) + + integer, intent(out) :: tropLev_clim(:) ! climatology-backed tropopause level index + real(kind_phys), intent(out) :: tropP_clim(:) ! climatology-backed tropopause pressure (Pa) + real(kind_phys), intent(out) :: tropT_clim(:) ! climatology-backed tropopause temperature (K) + real(kind_phys), intent(out) :: tropZ_clim(:) ! climatology-backed tropopause height (m) + + integer, intent(out) :: tropLev_hybstob(:) ! hybridstobie climatology-backed tropopause level index + real(kind_phys), intent(out) :: tropP_hybstob(:) ! hybridstobie climatology-backed tropopause pressure (Pa) + real(kind_phys), intent(out) :: tropT_hybstob(:) ! hybridstobie climatology-backed tropopause temperature (K) + real(kind_phys), intent(out) :: tropZ_hybstob(:) ! hybridstobie climatology-backed tropopause height (m) + + integer, intent(out) :: tropLev_cpp(:) ! cold point tropopause level index + real(kind_phys), intent(out) :: tropP_cpp(:) ! cold point tropopause pressure (Pa) + real(kind_phys), intent(out) :: tropT_cpp(:) ! cold point tropopause temperature (K) + real(kind_phys), intent(out) :: tropZ_cpp(:) ! cold point tropopause height (m) + + integer, intent(out) :: tropLev_chem(:) ! chemical tropopause level index + real(kind_phys), intent(out) :: tropP_chem(:) ! chemical tropopause pressure (Pa) + real(kind_phys), intent(out) :: tropT_chem(:) ! chemical tropopause temperature (K) + real(kind_phys), intent(out) :: tropZ_chem(:) ! chemical tropopause height (m) + + ! Optional output arguments for hybridstobie with chemistry + real(kind_phys), intent(out) :: hstobie_trop(:,:) ! Lowest level with strat. chem + real(kind_phys), intent(out) :: hstobie_linoz(:,:) ! Lowest possible Linoz level + real(kind_phys), intent(out) :: hstobie_tropop(:,:) ! Troposphere boundary calculated in chem. + + character(len=64), intent(out) :: scheme_name + character(len=512), intent(out) :: errmsg + integer, intent(out) :: errflg + + scheme_name = 'tropopause_find' + errmsg = ' ' + errflg = 0 + + ! Obtain the primary output, which is TWMO + climate + call tropopause_findWithBackup( & + ncol = ncol, & + pver = pver, & + fillvalue = fillvalue, & + lat = lat, & + pint = pint, & + pmid = pmid, & + t = t, & + zi = zi, & + zm = zm, & + phis = phis, & + calday = calday, & + tropp_p_loc = tropp_p_loc, & + tropp_days = tropp_days, & + tropLev = tropLev, & + tropP = tropP, & + tropT = tropT, & + tropZ = tropZ, & + primary = default_primary, & + backup = default_backup, & + errmsg = errmsg, & + errflg = errflg & + ) + + ! Any other intended outputs + ! Primary (TWMO) only + call tropopause_findWithBackup( & + ncol = ncol, & + pver = pver, & + fillvalue = fillvalue, & + lat = lat, & + pint = pint, & + pmid = pmid, & + t = t, & + zi = zi, & + zm = zm, & + phis = phis, & + calday = calday, & + tropp_p_loc = tropp_p_loc, & + tropp_days = tropp_days, & + tropLev = tropLev_twmo, & + tropP = tropP_twmo, & + tropT = tropT_twmo, & + tropZ = tropZ_twmo, & + primary = default_primary, & + backup = TROP_ALG_NONE, & + errmsg = errmsg, & + errflg = errflg & + ) + + ! Climatology only + call tropopause_findWithBackup( & + ncol = ncol, & + pver = pver, & + fillvalue = fillvalue, & + lat = lat, & + pint = pint, & + pmid = pmid, & + t = t, & + zi = zi, & + zm = zm, & + phis = phis, & + calday = calday, & + tropp_p_loc = tropp_p_loc, & + tropp_days = tropp_days, & + tropLev = tropLev_clim, & + tropP = tropP_clim, & + tropT = tropT_clim, & + tropZ = tropZ_clim, & + primary = TROP_ALG_CLIMATE, & + backup = TROP_ALG_NONE, & + errmsg = errmsg, & + errflg = errflg & + ) + + ! Cold point (CPP) only + call tropopause_findWithBackup( & + ncol = ncol, & + pver = pver, & + fillvalue = fillvalue, & + lat = lat, & + pint = pint, & + pmid = pmid, & + t = t, & + zi = zi, & + zm = zm, & + phis = phis, & + calday = calday, & + tropp_p_loc = tropp_p_loc, & + tropp_days = tropp_days, & + tropLev = tropLev_cpp, & + tropP = tropP_cpp, & + tropT = tropT_cpp, & + tropZ = tropZ_cpp, & + primary = TROP_ALG_CPP, & + backup = TROP_ALG_NONE, & + errmsg = errmsg, & + errflg = errflg & + ) + + ! Hybridstobie with climatology-backed + call tropopause_findWithBackup( & + ncol = ncol, & + pver = pver, & + fillvalue = fillvalue, & + lat = lat, & + pint = pint, & + pmid = pmid, & + t = t, & + zi = zi, & + zm = zm, & + phis = phis, & + calday = calday, & + tropp_p_loc = tropp_p_loc, & + tropp_days = tropp_days, & + tropLev = tropLev_hybstob, & + tropP = tropP_hybstob, & + tropT = tropT_hybstob, & + tropZ = tropZ_hybstob, & + primary = TROP_ALG_HYBSTOB, & + backup = TROP_ALG_CLIMATE, & + hstobie_trop = hstobie_trop, & ! Only used if TROP_ALG_HYBSTOB + hstobie_linoz = hstobie_linoz, & ! Only used if TROP_ALG_HYBSTOB + hstobie_tropop = hstobie_tropop, & ! Only used if TROP_ALG_HYBSTOB + errmsg = errmsg, & + errflg = errflg & + ) + + ! Chemical tropopause (used for chemistry) + call tropopause_findWithBackup( & + ncol = ncol, & + pver = pver, & + fillvalue = fillvalue, & + lat = lat, & + pint = pint, & + pmid = pmid, & + t = t, & + zi = zi, & + zm = zm, & + phis = phis, & + calday = calday, & + tropp_p_loc = tropp_p_loc, & + tropp_days = tropp_days, & + tropLev = tropLev_chem, & + tropP = tropP_chem, & + tropT = tropT_chem, & + tropZ = tropZ_chem, & + primary = TROP_ALG_CHEMTROP, & + backup = TROP_ALG_CLIMATE, & + errmsg = errmsg, & + errflg = errflg & + ) + + end subroutine tropopause_find_run + + ! Searches all the columns and attempts to identify the tropopause. + ! Two routines can be specifed, a primary routine which is tried first and a + ! backup routine which will be tried only if the first routine fails. If the + ! tropopause can not be identified by either routine, then a NOTFOUND is returned + ! for the tropopause level, temperature and pressure. + subroutine tropopause_findWithBackup(ncol, pver, fillvalue, lat, pint, pmid, t, zi, zm, phis, & + calday, tropp_p_loc, tropp_days, & + tropLev, tropP, tropT, tropZ, & + hstobie_trop, hstobie_linoz, hstobie_tropop, & + primary, backup, & + errmsg, errflg) + + integer, intent(in) :: ncol ! Number of atmospheric columns + integer, intent(in) :: pver ! Number of vertical levels + real(kind_phys), intent(in) :: fillvalue ! Fill value for diagnostic outputs + real(kind_phys), intent(in) :: lat(:) ! Latitudes (radians) + real(kind_phys), intent(in) :: pint(:,:) ! Interface pressures (Pa) + real(kind_phys), intent(in) :: pmid(:,:) ! Midpoint pressures (Pa) + real(kind_phys), intent(in) :: t(:,:) ! Temperature (K) + real(kind_phys), intent(in) :: zi(:,:) ! Geopotential height above surface at interfaces (m) + real(kind_phys), intent(in) :: zm(:,:) ! Geopotential height above surface at midpoints (m) + real(kind_phys), intent(in) :: phis(:) ! Surface geopotential (m2 s-2) + + real(kind_phys), intent(in) :: calday ! Day of year including fraction of day + + ! Climatological tropopause pressures (Pa), (ncol,ntimes=12). + real(kind_phys), intent(in) :: tropp_p_loc(:,:) + real(kind_phys), intent(in) :: tropp_days(:) ! Day-of-year for climo data, 12 + + integer, intent(out) :: tropLev(:) ! tropopause level index + real(kind_phys), optional, intent(out) :: tropP(:) ! tropopause pressure (Pa) + real(kind_phys), optional, intent(out) :: tropT(:) ! tropopause temperature (K) + real(kind_phys), optional, intent(out) :: tropZ(:) ! tropopause height (m) + + ! Optional output arguments for hybridstobie with chemistry + real(kind_phys), optional, intent(inout) :: hstobie_trop(:,:) ! Lowest level with strat. chem + real(kind_phys), optional, intent(inout) :: hstobie_linoz(:,:) ! Lowest possible Linoz level + real(kind_phys), optional, intent(inout) :: hstobie_tropop(:,:) ! Troposphere boundary calculated in chem. + + ! primary and backup are no longer optional arguments for CCPP-compliance. + ! specify defaults when calling (TWMO, CLIMO) + integer, intent(in) :: primary ! primary detection algorithm + integer, intent(in) :: backup ! backup detection algorithm + + character(len=512), intent(out) :: errmsg + integer, intent(out) :: errflg + + errmsg = ' ' + errflg = 0 + + ! Initialize the results to a missing value, so that the algorithms will + ! attempt to find the tropopause for all of them. + tropLev(:) = NOTFOUND + if(present(tropP)) tropP(:) = fillvalue + if(present(tropT)) tropT(:) = fillvalue + if(present(tropZ)) tropZ(:) = fillvalue + + ! Try to find the tropopause using the primary algorithm. + if (primary /= TROP_ALG_NONE) then + call tropopause_findUsing(ncol, pver, lat, pint, pmid, t, zi, zm, phis, & + calday, tropp_p_loc, tropp_days, & + primary, tropLev, tropP=tropP, tropT=tropT, tropZ=tropZ, & + hstobie_trop=hstobie_trop, hstobie_linoz=hstobie_linoz, hstobie_tropop=hstobie_tropop, & ! only for HYBSTOB + errmsg=errmsg, errflg=errflg) + end if + + if ((backup /= TROP_ALG_NONE) .and. any(tropLev(:) == NOTFOUND)) then + call tropopause_findUsing(ncol, pver, lat, pint, pmid, t, zi, zm, phis, & + calday, tropp_p_loc, tropp_days, & + backup, tropLev, tropP=tropP, tropT=tropT, tropZ=tropZ, & + errmsg=errmsg, errflg=errflg) + end if + + end subroutine tropopause_findWithBackup + + ! Call the appropriate tropopause detection routine based upon the algorithm + ! specifed. + ! + ! NOTE: It is assumed that the output fields have been initialized by the + ! caller, and only output values set to fillvalue will be detected. + subroutine tropopause_findUsing(ncol, pver, lat, pint, pmid, t, zi, zm, phis, & + calday, tropp_p_loc, tropp_days, & + algorithm, tropLev, tropP, tropT, tropZ, & + hstobie_trop, hstobie_linoz, hstobie_tropop, & + errmsg, errflg) + + integer, intent(in) :: ncol ! Number of atmospheric columns + integer, intent(in) :: pver ! Number of vertical levels + real(kind_phys), intent(in) :: lat(:) ! Latitudes (radians) + real(kind_phys), intent(in) :: pint(:,:) ! Interface pressures (Pa) + real(kind_phys), intent(in) :: pmid(:,:) ! Midpoint pressures (Pa) + real(kind_phys), intent(in) :: t(:,:) ! Temperature (K) + real(kind_phys), intent(in) :: zi(:,:) ! Geopotential height above surface at interfaces (m) + real(kind_phys), intent(in) :: zm(:,:) ! Geopotential height above surface at midpoints (m) + real(kind_phys), intent(in) :: phis(:) ! Surface geopotential (m2 s-2) + + real(kind_phys), intent(in) :: calday ! Day of year including fraction of day + + ! Climatological tropopause pressures (Pa), (ncol,ntimes=12). + real(kind_phys), intent(in) :: tropp_p_loc(:,:) + real(kind_phys), intent(in) :: tropp_days(:) ! Day-of-year for climo data, 12 + + integer, intent(in) :: algorithm ! detection algorithm + integer, intent(inout) :: tropLev(:) ! tropopause level index + real(kind_phys), optional, intent(inout) :: tropP(:) ! tropopause pressure (Pa) + real(kind_phys), optional, intent(inout) :: tropT(:) ! tropopause temperature (K) + real(kind_phys), optional, intent(inout) :: tropZ(:) ! tropopause height (m) + + ! Optional output arguments for hybridstobie with chemistry + real(kind_phys), optional, intent(inout) :: hstobie_trop(:,:) ! Lowest level with strat. chem + real(kind_phys), optional, intent(inout) :: hstobie_linoz(:,:) ! Lowest possible Linoz level + real(kind_phys), optional, intent(inout) :: hstobie_tropop(:,:) ! Troposphere boundary calculated in chem. + + character(len=512), intent(out) :: errmsg + integer, intent(out) :: errflg + + errmsg = ' ' + errflg = 0 + + ! Dispatch the request to the appropriate routine. + select case(algorithm) + case(TROP_ALG_ANALYTIC) + call tropopause_analytic(ncol, pver, lat, pint, pmid, t, zi, zm, phis, tropLev, tropP, tropT, tropZ) + + case(TROP_ALG_CLIMATE) + call tropopause_climate(ncol, pver, lat, pint, pmid, t, zi, zm, phis, & + calday, tropp_p_loc, tropp_days, & + tropLev, tropP, tropT, tropZ) + + case(TROP_ALG_STOBIE) + call tropopause_stobie(ncol, pver, lat, pint, pmid, t, zi, zm, phis, tropLev, tropP, tropT, tropZ) + + case(TROP_ALG_HYBSTOB) + if(present(hstobie_trop) .and. present(hstobie_linoz) .and. present(hstobie_tropop)) then + call tropopause_hybridstobie(ncol, pver, pmid, t, zm, & + tropLev, tropP, tropT, tropZ, & + hstobie_trop, hstobie_linoz, hstobie_tropop) + else + call tropopause_hybridstobie(ncol, pver, pmid, t, zm, & + tropLev, tropP, tropT, tropZ) + endif + + case(TROP_ALG_TWMO) + call tropopause_twmo(ncol, pver, lat, pint, pmid, t, zi, zm, phis, tropLev, tropP, tropT, tropZ) + + case(TROP_ALG_WMO) + call tropopause_wmo(ncol, pver, lat, pint, pmid, t, zi, zm, phis, tropLev, tropP, tropT, tropZ) + + case(TROP_ALG_CPP) + call tropopause_cpp(ncol, pver, lat, pint, pmid, t, zi, zm, phis, tropLev, tropP, tropT, tropZ) + + case(TROP_ALG_CHEMTROP) + ! hplin: needs climatological arguments as calling tropopause_climate from within findChemTrop + call tropopause_findChemTrop(ncol, pver, lat, pint, pmid, t, zi, zm, phis, & + calday, tropp_p_loc, tropp_days, & + tropLev, tropP, tropT, tropZ, & + errmsg, errflg) + + case default + errflg = 1 + write(errmsg,*) 'tropopause: Invalid detection algorithm (', algorithm, ') specified.' + end select + + end subroutine tropopause_findUsing + + ! This analytic expression closely matches the mean tropopause determined + ! by the NCEP reanalysis and has been used by the radiation code. + subroutine tropopause_analytic(ncol, pver, lat, pint, pmid, t, zi, zm, phis, & + tropLev, tropP, tropT, tropZ) + + integer, intent(in) :: ncol ! Number of atmospheric columns + integer, intent(in) :: pver ! Number of vertical levels + real(kind_phys), intent(in) :: lat(:) ! Latitudes (radians) + real(kind_phys), intent(in) :: pint(:,:) ! Interface pressures (Pa) + real(kind_phys), intent(in) :: pmid(:,:) ! Midpoint pressures (Pa) + real(kind_phys), intent(in) :: t(:,:) ! Temperature (K) + real(kind_phys), intent(in) :: zi(:,:) ! Geopotential height above surface at interfaces (m) + real(kind_phys), intent(in) :: zm(:,:) ! Geopotential height above surface at midpoints (m) + real(kind_phys), intent(in) :: phis(:) ! Surface geopotential (m2 s-2) + integer, intent(inout) :: tropLev(:) ! tropopause level index + real(kind_phys), optional, intent(inout) :: tropP(:) ! tropopause pressure (Pa) + real(kind_phys), optional, intent(inout) :: tropT(:) ! tropopause temperature (K) + real(kind_phys), optional, intent(inout) :: tropZ(:) ! tropopause height (m) + + ! Local Variables + integer :: i + integer :: k + real(kind_phys) :: tP ! tropopause pressure (Pa) + + ! Iterate over all of the columns. + do i = 1, ncol + + ! Skip column in which the tropopause has already been found. + if (tropLev(i) == NOTFOUND) then + + ! Calculate the pressure of the tropopause. + tP = (25000.0_kind_phys - 15000.0_kind_phys * (cos(lat(i)))**2) + + ! Find the level that contains the tropopause. + do k = pver, 2, -1 + if (tP >= pint(i, k)) then + tropLev(i) = k + exit + end if + end do + + ! Return the optional outputs + if (present(tropP)) tropP(i) = tP + + if (present(tropT)) then + tropT(i) = tropopause_interpolateT(pver, pmid, t, i, tropLev(i), tP) + end if + + if (present(tropZ)) then + tropZ(i) = tropopause_interpolateZ(pint, pmid, zi, zm, phis, i, tropLev(i), tP) + end if + end if + end do + + end subroutine tropopause_analytic + + ! Determine the tropopause pressure from a climatology, + ! interpolated to the current day of year and latitude. + subroutine tropopause_climate(ncol, pver, lat, pint, pmid, t, zi, zm, phis, & + calday, tropp_p_loc, tropp_days, tropLev, tropP, tropT, tropZ) + + integer, intent(in) :: ncol ! Number of atmospheric columns + integer, intent(in) :: pver ! Number of vertical levels + real(kind_phys), intent(in) :: lat(:) ! Latitudes (radians) + real(kind_phys), intent(in) :: pint(:,:) ! Interface pressures (Pa), pverp + real(kind_phys), intent(in) :: pmid(:,:) ! Midpoint pressures (Pa) + real(kind_phys), intent(in) :: t(:,:) ! Temperature (K) + real(kind_phys), intent(in) :: zi(:,:) ! Geopotential height above surface at interfaces (m) + real(kind_phys), intent(in) :: zm(:,:) ! Geopotential height above surface at midpoints (m) + real(kind_phys), intent(in) :: phis(:) ! Surface geopotential (m2 s-2) + + real(kind_phys), intent(in) :: calday ! Day of year including fraction of day + + ! Climatological tropopause pressures (Pa), (ncol,ntimes=12). + real(kind_phys), intent(in) :: tropp_p_loc(:,:) + real(kind_phys), intent(in) :: tropp_days(:) ! Day-of-year for climo data, 12 + + integer, intent(inout) :: tropLev(:) ! tropopause level index + real(kind_phys), optional, intent(inout) :: tropP(:) ! tropopause pressure (Pa) + real(kind_phys), optional, intent(inout) :: tropT(:) ! tropopause temperature (K) + real(kind_phys), optional, intent(inout) :: tropZ(:) ! tropopause height (m) + + ! Local Variables + integer :: i + integer :: k + integer :: m + real(kind_phys) :: tP ! tropopause pressure (Pa) + real(kind_phys) :: dels + integer :: last + integer :: next + + ! If any columns remain to be indentified, then get the current + ! day from the calendar. + + if (any(tropLev == NOTFOUND)) then + + !-------------------------------------------------------- + ! ... setup the time interpolation + !-------------------------------------------------------- + if( calday < tropp_days(1) ) then + next = 1 + last = 12 + dels = (365._kind_phys + calday - tropp_days(12)) / (365._kind_phys + tropp_days(1) - tropp_days(12)) + else if( calday >= tropp_days(12) ) then + next = 1 + last = 12 + dels = (calday - tropp_days(12)) / (365._kind_phys + tropp_days(1) - tropp_days(12)) + else + do m = 11,1,-1 + if( calday >= tropp_days(m) ) then + exit + end if + end do + last = m + next = m + 1 + dels = (calday - tropp_days(m)) / (tropp_days(m+1) - tropp_days(m)) + end if + + dels = max( min( 1._kind_phys,dels ),0._kind_phys ) + + + ! Iterate over all of the columns. + do i = 1, ncol + + ! Skip column in which the tropopause has already been found. + if (tropLev(i) == NOTFOUND) then + + !-------------------------------------------------------- + ! ... get tropopause level from climatology + !-------------------------------------------------------- + ! Interpolate the tropopause pressure. + tP = tropp_p_loc(i,last) & + + dels * (tropp_p_loc(i,next) - tropp_p_loc(i,last)) + + ! Find the associated level. + do k = pver, 2, -1 + if (tP >= pint(i, k)) then + tropLev(i) = k + exit + end if + end do + + ! Return the optional outputs + if (present(tropP)) tropP(i) = tP + + if (present(tropT)) then + tropT(i) = tropopause_interpolateT(pver, pmid, t, i, tropLev(i), tP) + end if + + if (present(tropZ)) then + tropZ(i) = tropopause_interpolateZ(pint, pmid, zi, zm, phis, i, tropLev(i), tP) + end if + end if + end do + end if + + end subroutine tropopause_climate + + !----------------------------------------------------------------------- + !----------------------------------------------------------------------- + subroutine tropopause_hybridstobie(ncol, pver, pmid, t, zm, & + tropLev, tropP, tropT, tropZ, & + hstobie_trop, hstobie_linoz, hstobie_tropop) + + !----------------------------------------------------------------------- + ! Originally written by Philip Cameron-Smith, LLNL + ! + ! Stobie-Linoz hybrid: the highest altitude of + ! a) Stobie algorithm, or + ! b) minimum Linoz pressure. + ! + ! NOTE: the ltrop(i) gridbox itself is assumed to be a STRATOSPHERIC gridbox. + !----------------------------------------------------------------------- + !----------------------------------------------------------------------- + ! ... Local variables + !----------------------------------------------------------------------- + integer, intent(in) :: ncol ! Number of atmospheric columns + integer, intent(in) :: pver ! Number of vertical levelserp + real(kind_phys), intent(in) :: pmid(:,:) ! Midpoint pressures (Pa) + real(kind_phys), intent(in) :: t(:,:) ! Temperature (K) + real(kind_phys), intent(in) :: zm(:,:) ! Geopotential height above surface at midpoints (m) + + integer, intent(inout) :: tropLev(:) ! tropopause level index + real(kind_phys), optional, intent(inout) :: tropP(:) ! tropopause pressure (Pa) + real(kind_phys), optional, intent(inout) :: tropT(:) ! tropopause temperature (K) + real(kind_phys), optional, intent(inout) :: tropZ(:) ! tropopause height (m) + + ! Optional output arguments for hybridstobie with chemistry + real(kind_phys), optional, intent(inout) :: hstobie_trop(:,:) ! Lowest level with strat. chem + real(kind_phys), optional, intent(inout) :: hstobie_linoz(:,:) ! Lowest possible Linoz level + real(kind_phys), optional, intent(inout) :: hstobie_tropop(:,:) ! Troposphere boundary calculated in chem. + + real(kind_phys),parameter :: min_Stobie_Pressure= 40.E2_kind_phys !For case 2 & 4. [Pa] + real(kind_phys),parameter :: max_Linoz_Pressure =208.E2_kind_phys !For case 4. [Pa] + + integer :: i, k + real(kind_phys) :: stobie_min, shybrid_temp !temporary variable for case 2 & 3. + integer :: ltrop_linoz(ncol) !Lowest possible Linoz vertical level + integer :: ltrop_trop(ncol) !Tropopause level for hybrid case. + logical :: ltrop_linoz_set !Flag that lowest linoz level already found. + real(kind_phys) :: trop_output(ncol,pver) !For output purposes only. + real(kind_phys) :: trop_linoz_output(ncol,pver) !For output purposes only. + real(kind_phys) :: trop_trop_output(ncol,pver) !For output purposes only. + + ltrop_linoz(:) = 1 ! Initialize to default value. + ltrop_trop(:) = 1 ! Initialize to default value. + + LOOP_COL4: do i=1,ncol + + ! Skip column in which the tropopause has already been found. + not_found: if (tropLev(i) == NOTFOUND) then + + stobie_min = 1.e10_kind_phys ! An impossibly large number + ltrop_linoz_set = .FALSE. + LOOP_LEV: do k=pver,1,-1 + IF (pmid(i,k) < min_stobie_pressure) cycle + shybrid_temp = ALPHA * t(i,k) - Log10(pmid(i,k)) + !PJC_NOTE: the units of pmid won't matter, because it is just an additive offset. + IF (shybrid_temp0) then + trop_output(i,tropLev(i))=1._kind_phys + trop_linoz_output(i,ltrop_linoz(i))=1._kind_phys + trop_trop_output(i,ltrop_trop(i))=1._kind_phys + endif + enddo + + if(present(hstobie_trop)) then + hstobie_trop(:,:) = trop_output(:,:) + endif + + if(present(hstobie_linoz)) then + hstobie_linoz(:,:) = trop_linoz_output(:,:) + endif + + if(present(hstobie_tropop)) then + hstobie_tropop(:,:) = trop_trop_output(:,:) + endif + + end subroutine tropopause_hybridstobie + + ! This routine originates with Stobie at NASA Goddard, but does not have a + ! known reference. It was supplied by Philip Cameron-Smith of LLNL. + ! + subroutine tropopause_stobie(ncol, pver, lat, pint, pmid, t, zi, zm, phis, & + tropLev, tropP, tropT, tropZ) + + integer, intent(in) :: ncol ! Number of atmospheric columns + integer, intent(in) :: pver ! Number of vertical levels + real(kind_phys), intent(in) :: lat(:) ! Latitudes (radians) + real(kind_phys), intent(in) :: pint(:,:) ! Interface pressures (Pa) + real(kind_phys), intent(in) :: pmid(:,:) ! Midpoint pressures (Pa) + real(kind_phys), intent(in) :: t(:,:) ! Temperature (K) + real(kind_phys), intent(in) :: zi(:,:) ! Geopotential height above surface at interfaces (m) + real(kind_phys), intent(in) :: zm(:,:) ! Geopotential height above surface at midpoints (m) + real(kind_phys), intent(in) :: phis(:) ! Surface geopotential (m2 s-2) + + integer, intent(inout) :: tropLev(:) ! tropopause level index + real(kind_phys), optional, intent(inout) :: tropP(:) ! tropopause pressure (Pa) + real(kind_phys), optional, intent(inout) :: tropT(:) ! tropopause temperature (K) + real(kind_phys), optional, intent(inout) :: tropZ(:) ! tropopause height (m) + + ! Local Variables + integer :: i + integer :: k + integer :: tLev ! tropopause level + real(kind_phys) :: tP ! tropopause pressure (Pa) + real(kind_phys) :: stobie(pver) ! stobie weighted temperature + real(kind_phys) :: sTrop ! stobie value at the tropopause + + ! Iterate over all of the columns. + do i = 1, ncol + + ! Skip column in which the tropopause has already been found. + if (tropLev(i) == NOTFOUND) then + + ! Caclulate a pressure weighted temperature. + stobie(:) = ALPHA * t(i,:) - log10(pmid(i, :)) + + ! Search from the bottom up, looking for the first minimum. + tLev = -1 + + do k = pver-1, 1, -1 + + if (pmid(i, k) <= 4000._kind_phys) then + exit + end if + + if (pmid(i, k) >= 55000._kind_phys) then + cycle + end if + + if ((tLev == -1) .or. (stobie(k) < sTrop)) then + tLev = k + tP = pmid(i, k) + sTrop = stobie(k) + end if + end do + + if (tLev /= -1) then + tropLev(i) = tLev + + ! Return the optional outputs + if (present(tropP)) tropP(i) = tP + + if (present(tropT)) then + tropT(i) = tropopause_interpolateT(pver, pmid, t, i, tropLev(i), tP) + end if + + if (present(tropZ)) then + tropZ(i) = tropopause_interpolateZ(pint, pmid, zi, zm, phis, i, tropLev(i), tP) + end if + end if + end if + end do + + end subroutine tropopause_stobie + + + ! This routine is an implementation of Reichler et al. [2003] done by + ! Reichler and downloaded from his web site. Minimal modifications were + ! made to have the routine work within the CAM framework (i.e. using + ! CAM constants and types). + ! + ! NOTE: I am not a big fan of the goto's and multiple returns in this + ! code, but for the moment I have left them to preserve as much of the + ! original and presumably well tested code as possible. + ! UPDATE: The most "obvious" substitutions have been made to replace + ! goto/return statements with cycle/exit. The structure is still + ! somewhat tangled. + ! UPDATE 2: "gamma" renamed to "gam" in order to avoid confusion + ! with the Fortran 2008 intrinsic. "level" argument removed because + ! a physics column is not contiguous, so using explicit dimensions + ! will cause the data to be needlessly copied. + ! + !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + ! + ! determination of tropopause height from gridded temperature data + ! + ! Reichler, T., M. Dameris, and R. Sausen (2003), + ! Determining the tropopause height from gridded data, + ! Geophys. Res. Lett., 30, 2042, doi:10.1029/2003GL018240, 20. + ! + !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + subroutine twmo(t, p, plimu, pliml, gam, trp) + + real(kind_phys), intent(in), dimension(:) :: t, p + real(kind_phys), intent(in) :: plimu, pliml, gam + real(kind_phys), intent(out) :: trp + + real(kind_phys), parameter :: deltaz = 2000.0_kind_phys + + real(kind_phys) :: pmk, pm, a, b, tm, dtdp, dtdz + real(kind_phys) :: ag, bg, ptph + real(kind_phys) :: pm0, pmk0, dtdz0 + real(kind_phys) :: p2km, asum, aquer + real(kind_phys) :: pmk2, pm2, a2, b2, tm2, dtdp2, dtdz2 + integer :: level + integer :: icount, jj + integer :: j + + + trp=-99.0_kind_phys ! negative means not valid + + ! initialize start level + ! dt/dz + level = size(t) + pmk= .5_kind_phys * (p(level-1)**cnst_kap+p(level)**cnst_kap) + pm = pmk**(1/cnst_kap) + a = (t(level-1)-t(level))/(p(level-1)**cnst_kap-p(level)**cnst_kap) + b = t(level)-(a*p(level)**cnst_kap) + tm = a * pmk + b + dtdp = a * cnst_kap * (pm**cnst_ka1) + dtdz = cnst_faktor*dtdp*pm/tm + + main_loop: do j=level-1,2,-1 + pm0 = pm + pmk0 = pmk + dtdz0 = dtdz + + ! dt/dz + pmk= .5_kind_phys * (p(j-1)**cnst_kap+p(j)**cnst_kap) + pm = pmk**(1/cnst_kap) + a = (t(j-1)-t(j))/(p(j-1)**cnst_kap-p(j)**cnst_kap) + b = t(j)-(a*p(j)**cnst_kap) + tm = a * pmk + b + dtdp = a * cnst_kap * (pm**cnst_ka1) + dtdz = cnst_faktor*dtdp*pm/tm + ! dt/dz valid? + if (dtdz.le.gam) cycle main_loop ! no, dt/dz < -2 K/km + if (pm.gt.plimu) cycle main_loop ! no, too low + + ! dtdz is valid, calculate tropopause pressure + if (dtdz0.lt.gam) then + ag = (dtdz-dtdz0) / (pmk-pmk0) + bg = dtdz0 - (ag * pmk0) + ptph = exp(log((gam-bg)/ag)/cnst_kap) + else + ptph = pm + endif + + if (ptph.lt.pliml) cycle main_loop + if (ptph.gt.plimu) cycle main_loop + + ! 2nd test: dtdz above 2 km must not exceed gam + p2km = ptph + deltaz*(pm/tm)*cnst_faktor ! p at ptph + 2km + asum = 0.0_kind_phys ! dtdz above + icount = 0 ! number of levels above + + ! test until apm < p2km + in_loop: do jj=j,2,-1 + + pmk2 = .5_kind_phys * (p(jj-1)**cnst_kap+p(jj)**cnst_kap) ! p mean ^kappa + pm2 = pmk2**(1/cnst_kap) ! p mean + if(pm2.gt.ptph) cycle in_loop ! doesn't happen + if(pm2.lt.p2km) exit in_loop ! ptropo is valid + + a2 = (t(jj-1)-t(jj)) ! a + a2 = a2/(p(jj-1)**cnst_kap-p(jj)**cnst_kap) + b2 = t(jj)-(a2*p(jj)**cnst_kap) ! b + tm2 = a2 * pmk2 + b2 ! T mean + dtdp2 = a2 * cnst_kap * (pm2**(cnst_kap-1)) ! dt/dp + dtdz2 = cnst_faktor*dtdp2*pm2/tm2 + asum = asum+dtdz2 + icount = icount+1 + aquer = asum/float(icount) ! dt/dz mean + + ! discard ptropo ? + if (aquer.le.gam) cycle main_loop ! dt/dz above < gam + + enddo in_loop ! test next level + + trp = ptph + exit main_loop + enddo main_loop + + end subroutine twmo + + + ! This routine uses an implementation of Reichler et al. [2003] done by + ! Reichler and downloaded from his web site. This is similar to the WMO + ! routines, but is designed for GCMs with a coarse vertical grid. + subroutine tropopause_twmo(ncol, pver, lat, pint, pmid, t, zi, zm, phis, & + tropLev, tropP, tropT, tropZ) + + integer, intent(in) :: ncol ! Number of atmospheric columns + integer, intent(in) :: pver ! Number of vertical levels + real(kind_phys), intent(in) :: lat(:) ! Latitudes (radians) + real(kind_phys), intent(in) :: pint(:,:) ! Interface pressures (Pa) + real(kind_phys), intent(in) :: pmid(:,:) ! Midpoint pressures (Pa) + real(kind_phys), intent(in) :: t(:,:) ! Temperature (K) + real(kind_phys), intent(in) :: zi(:,:) ! Geopotential height above surface at interfaces (m) + real(kind_phys), intent(in) :: zm(:,:) ! Geopotential height above surface at midpoints (m) + real(kind_phys), intent(in) :: phis(:) ! Surface geopotential (m2 s-2) + integer, intent(inout) :: tropLev(:) ! tropopause level index + real(kind_phys), optional, intent(inout) :: tropP(:) ! tropopause pressure (Pa) + real(kind_phys), optional, intent(inout) :: tropT(:) ! tropopause temperature (K) + real(kind_phys), optional, intent(inout) :: tropZ(:) ! tropopause height (m) + + ! Local Variables + real(kind_phys), parameter :: gam = -0.002_kind_phys ! K/m + real(kind_phys), parameter :: plimu = 45000._kind_phys ! Pa + real(kind_phys), parameter :: pliml = 7500._kind_phys ! Pa + + integer :: i + integer :: k + real(kind_phys) :: tP ! tropopause pressure (Pa) + + ! Iterate over all of the columns. + do i = 1, ncol + + ! Skip column in which the tropopause has already been found. + if (tropLev(i) == NOTFOUND) then + + ! Use the routine from Reichler. + call twmo(t(i, :), pmid(i, :), plimu, pliml, gam, tP) + + ! if successful, store of the results and find the level and temperature. + if (tP > 0) then + + ! Find the associated level. + do k = pver, 2, -1 + if (tP >= pint(i, k)) then + tropLev(i) = k + exit + end if + end do + + ! Return the optional outputs + if (present(tropP)) tropP(i) = tP + + if (present(tropT)) then + tropT(i) = tropopause_interpolateT(pver, pmid, t, i, tropLev(i), tP) + end if + + if (present(tropZ)) then + tropZ(i) = tropopause_interpolateZ(pint, pmid, zi, zm, phis, i, tropLev(i), tP) + end if + end if + end if + end do + + end subroutine tropopause_twmo + + ! This routine implements the WMO definition of the tropopause (WMO, 1957; Seidel and Randel, 2006). + ! Seidel, D. J., and W. J. Randel (2006), + ! Variability and trends in the global tropopause estimated from radiosonde data, + ! J. Geophys. Res., 111, D21101, doi:10.1029/2006JD007363. + ! + ! This requires that the lapse rate be less than 2 K/km for an altitude range + ! of 2 km. The search starts at the surface and stops the first time this + ! criteria is met. + subroutine tropopause_wmo(ncol, pver, lat, pint, pmid, t, zi, zm, phis, & + tropLev, tropP, tropT, tropZ) + + integer, intent(in) :: ncol ! Number of atmospheric columns + integer, intent(in) :: pver ! Number of vertical levels + real(kind_phys), intent(in) :: lat(:) ! Latitudes (radians) + real(kind_phys), intent(in) :: pint(:,:) ! Interface pressures (Pa) + real(kind_phys), intent(in) :: pmid(:,:) ! Midpoint pressures (Pa) + real(kind_phys), intent(in) :: t(:,:) ! Temperature (K) + real(kind_phys), intent(in) :: zi(:,:) ! Geopotential height above surface at interfaces (m) + real(kind_phys), intent(in) :: zm(:,:) ! Geopotential height above surface at midpoints (m) + real(kind_phys), intent(in) :: phis(:) ! Surface geopotential (m2 s-2) + + integer, intent(inout) :: tropLev(:) ! tropopause level index + real(kind_phys), optional, intent(inout) :: tropP(:) ! tropopause pressure (Pa) + real(kind_phys), optional, intent(inout) :: tropT(:) ! tropopause temperature (K) + real(kind_phys), optional, intent(inout) :: tropZ(:) ! tropopause height (m) + + ! Local Variables + real(kind_phys), parameter :: ztrop_low = 5000._kind_phys ! lowest tropopause level allowed (m) + real(kind_phys), parameter :: ztrop_high = 20000._kind_phys ! highest tropopause level allowed (m) + real(kind_phys), parameter :: max_dtdz = 0.002_kind_phys ! max dt/dz for tropopause level (K/m) + real(kind_phys), parameter :: min_trop_dz = 2000._kind_phys ! min tropopause thickness (m) + + integer :: i + integer :: k + integer :: k2 + real(kind_phys) :: tP ! tropopause pressure (Pa) + real(kind_phys) :: dt + + ! Iterate over all of the columns. + do i = 1, ncol + + ! Skip column in which the tropopause has already been found. + if (tropLev(i) == NOTFOUND) then + + kloop: do k = pver-1, 2, -1 + + ! Skip levels below the minimum and stop if nothing is found + ! before the maximum. + if (zm(i, k) < ztrop_low) then + cycle kloop + else if (zm(i, k) > ztrop_high) then + exit kloop + end if + + ! Compare the actual lapse rate to the threshold + dt = t(i, k) - t(i, k-1) + + if (dt <= (max_dtdz * (zm(i, k-1) - zm(i, k)))) then + + ! Make sure that the lapse rate stays below the threshold for the + ! specified range. + k2loop: do k2 = k-1, 2, -1 + if ((zm(i, k2) - zm(i, k)) >= min_trop_dz) then + tP = pmid(i, k) + tropLev(i) = k + exit k2loop + end if + + dt = t(i, k) - t(i, k2) + if (dt > (max_dtdz * (zm(i, k2) - zm(i, k)))) then + exit k2loop + end if + end do k2loop + + if (tropLev(i) == NOTFOUND) then + cycle kloop + else + + ! Return the optional outputs + if (present(tropP)) tropP(i) = tP + + if (present(tropT)) then + tropT(i) = tropopause_interpolateT(pver, pmid, t, i, tropLev(i), tP) + end if + + if (present(tropZ)) then + tropZ(i) = tropopause_interpolateZ(pint, pmid, zi, zm, phis, i, tropLev(i), tP) + end if + + exit kloop + end if + end if + end do kloop + end if + end do + + end subroutine tropopause_wmo + + + ! This routine searches for the cold point tropopause, and uses a parabolic + ! fit of the coldest point and two adjacent points to interpolate the cold point + ! between model levels. + subroutine tropopause_cpp(ncol, pver, lat, pint, pmid, t, zi, zm, phis, & + tropLev, tropP, tropT, tropZ) + + integer, intent(in) :: ncol ! Number of atmospheric columns + integer, intent(in) :: pver ! Number of vertical levels + real(kind_phys), intent(in) :: lat(:) ! Latitudes (radians) + real(kind_phys), intent(in) :: pint(:,:) ! Interface pressures (Pa) + real(kind_phys), intent(in) :: pmid(:,:) ! Midpoint pressures (Pa) + real(kind_phys), intent(in) :: t(:,:) ! Temperature (K) + real(kind_phys), intent(in) :: zi(:,:) ! Geopotential height above surface at interfaces (m) + real(kind_phys), intent(in) :: zm(:,:) ! Geopotential height above surface at midpoints (m) + real(kind_phys), intent(in) :: phis(:) ! Surface geopotential (m2 s-2) + integer, intent(inout) :: tropLev(:) ! tropopause level index + real(kind_phys), optional, intent(inout) :: tropP(:) ! tropopause pressure (Pa) + real(kind_phys), optional, intent(inout) :: tropT(:) ! tropopause temperature (K) + real(kind_phys), optional, intent(inout) :: tropZ(:) ! tropopause height (m) + + ! Local Variables + real(kind_phys), parameter :: ztrop_low = 5000._kind_phys ! lowest tropopause level allowed (m) + real(kind_phys), parameter :: ztrop_high = 25000._kind_phys ! highest tropopause level allowed (m) + + integer :: i + integer :: k, firstk, lastk + integer :: k2 + real(kind_phys) :: tZ ! tropopause height (m) + real(kind_phys) :: tmin + real(kind_phys) :: f0, f1, f2 + real(kind_phys) :: x0, x1, x2 + real(kind_phys) :: c0, c1, c2 + real(kind_phys) :: a, b, c + + ! Iterate over all of the columns. + do i = 1, ncol + + firstk = 0 + lastk = pver+1 + + ! Skip column in which the tropopause has already been found. + if (tropLev(i) == NOTFOUND) then + tmin = 1e6_kind_phys + + kloop: do k = pver-1, 2, -1 + + ! Skip levels below the minimum and stop if nothing is found + ! before the maximum. + if (zm(i, k) < ztrop_low) then + firstk = k + cycle kloop + else if (zm(i, k) > ztrop_high) then + lastk = k + exit kloop + end if + + ! Find the coldest point + if (t(i, k) < tmin) then + tropLev(i) = k + tmin = t(i,k) + end if + end do kloop + + + ! If the minimum is at the edge of the search range, then don't + ! consider this to be a minima + if ((tropLev(i) >= (firstk-1)) .or. (tropLev(i) <= (lastk+1))) then + tropLev(i) = NOTFOUND + else + + ! If returning P, Z, or T, then do a parabolic fit using the + ! cold point and it its 2 surrounding points to interpolate + ! between model levels. + if (present(tropP) .or. present(tropZ) .or. present(tropT)) then + f0 = t(i, tropLev(i)-1) + f1 = t(i, tropLev(i)) + f2 = t(i, tropLev(i)+1) + + x0 = zm(i, tropLev(i)-1) + x1 = zm(i, tropLev(i)) + x2 = zm(i, tropLev(i)+1) + + c0 = (x0-x1)*(x0-x2) + c1 = (x1-x0)*(x1-x2) + c2 = (x2-x0)*(x2-x1) + + ! Determine the quadratic coefficients of: + ! T = a * z^2 - b*z + c + a = (f0/c0 + f1/c1 + f2/c2) + b = (f0/c0*(x1+x2) + f1/c1*(x0+x2) + f2/c2*(x0+x1)) + c = f0/c0*x1*x2 + f1/c1*x0*x2 + f2/c2*x0*x1 + + ! Find the altitude of the minimum temperature + tZ = 0.5_kind_phys * b / a + + ! The fit should be between the upper and lower points, + ! so skip the point if the fit fails. + if ((tZ >= x0) .or. (tZ <= x2)) then + tropLev(i) = NOTFOUND + else + + ! Return the optional outputs + if (present(tropP)) then + tropP(i) = tropopause_interpolateP(pver, pmid, zm, i, tropLev(i), tZ) + end if + + if (present(tropT)) then + tropT(i) = a * tZ*tZ - b*tZ + c + end if + + if (present(tropZ)) then + tropZ(i) = tZ + end if + end if + end if + end if + end if + end do + + end subroutine tropopause_cpp + + ! Searches all the columns and attempts to identify the "chemical" + ! tropopause. This is the lapse rate tropopause, backed up by the climatology + ! if the lapse rate fails to find the tropopause at pressures higher than a certain + ! threshold. This pressure threshold depends on latitude. Between 50S and 50N, + ! the climatology is used if the lapse rate tropopause is not found at P > 75 hPa. + ! At high latitude (poleward of 50), the threshold is increased to 125 hPa to + ! eliminate false events that are sometimes detected in the cold polar stratosphere. + ! + ! NOTE: This routine was adapted from code in chemistry.F90 and mo_gasphase_chemdr.F90. + ! During the CCPP-ization, findChemTrop is now called from tropopause_find_run using method CHEMTROP + ! and now also returns the standard tropLev, tropP, tropT, tropZ outputs (optional). + ! The "backup" option is dropped as it is not used anywhere in current CAM. + subroutine tropopause_findChemTrop(ncol, pver, lat, pint, pmid, t, zi, zm, phis, & + calday, tropp_p_loc, tropp_days, & + tropLev, tropP, tropT, tropZ, errmsg, errflg) + + integer, intent(in) :: ncol ! Number of atmospheric columns + integer, intent(in) :: pver ! Number of vertical levels + real(kind_phys), intent(in) :: lat(:) ! Latitudes (radians) + real(kind_phys), intent(in) :: pint(:,:) ! Interface pressures (Pa) + real(kind_phys), intent(in) :: pmid(:,:) ! Midpoint pressures (Pa) + real(kind_phys), intent(in) :: t(:,:) ! Temperature (K) + real(kind_phys), intent(in) :: zi(:,:) ! Geopotential height above surface at interfaces (m) + real(kind_phys), intent(in) :: zm(:,:) ! Geopotential height above surface at midpoints (m) + real(kind_phys), intent(in) :: phis(:) ! Surface geopotential (m2 s-2) + + real(kind_phys), intent(in) :: calday ! Day of year including fraction of day + + ! Climatological tropopause pressures (Pa), (ncol,ntimes=12). + real(kind_phys), intent(in) :: tropp_p_loc(:,:) + real(kind_phys), intent(in) :: tropp_days(:) ! Day-of-year for climo data, 12 + + integer, intent(out) :: tropLev(:) ! tropopause level index + real(kind_phys), optional, intent(inout) :: tropP(:) ! tropopause pressure (Pa) + real(kind_phys), optional, intent(inout) :: tropT(:) ! tropopause temperature (K) + real(kind_phys), optional, intent(inout) :: tropZ(:) ! tropopause height (m) + + character(len=512), intent(out) :: errmsg + integer, intent(out) :: errflg + + ! Local Variable + real(kind_phys) :: dlats(ncol) + integer :: i + + errmsg = ' ' + errflg = 0 + + ! First use the lapse rate tropopause. + call tropopause_twmo(ncol, pver, lat, pint, pmid, t, zi, zm, phis, tropLev, tropP, tropT, tropZ) + + ! Now check high latitudes (poleward of 50) and set the level to the + ! climatology if the level was not found or is at P <= 125 hPa. + dlats(:ncol) = lat(:ncol) * cnst_rad2deg ! convert to degrees + + do i = 1, ncol + if (abs(dlats(i)) > 50._kind_phys) then + if (tropLev(i) .ne. NOTFOUND) then + if (pmid(i, tropLev(i)) <= 12500._kind_phys) then + tropLev(i) = NOTFOUND + end if + end if + end if + end do + + ! Now use the climatology backup + if (any(tropLev(:) == NOTFOUND)) then + call tropopause_climate(ncol, pver, lat, pint, pmid, t, zi, zm, phis, & + calday, tropp_p_loc, tropp_days, & + tropLev, tropP, tropT, tropZ) + end if + + end subroutine tropopause_findChemTrop + + ! This routine interpolates the pressures in the physics state to + ! find the pressure at the specified tropopause altitude. + function tropopause_interpolateP(pver, pmid, zm, icol, tropLev, tropZ) + + implicit none + + integer, intent(in) :: pver ! Number of vertical levels + real(kind_phys), intent(in) :: pmid(:,:) ! Midpoint pressures (Pa) + real(kind_phys), intent(in) :: zm(:,:) ! Geopotential height above surface at midpoints (m) + integer, intent(in) :: icol ! column being processed + integer, intent(in) :: tropLev ! tropopause level index + real(kind_phys), optional, intent(in) :: tropZ ! tropopause pressure (m) + real(kind_phys) :: tropopause_interpolateP + + ! Local Variables + real(kind_phys) :: tropP ! tropopause pressure (Pa) + real(kind_phys) :: dlogPdZ ! dlog(p)/dZ + + ! Interpolate the temperature linearly against log(P) + + ! Is the tropopause at the midpoint? + if (tropZ == zm(icol, tropLev)) then + tropP = pmid(icol, tropLev) + + else if (tropZ > zm(icol, tropLev)) then + + ! It is above the midpoint? Make sure we aren't at the top. + if (tropLev > 1) then + dlogPdZ = (log(pmid(icol, tropLev)) - log(pmid(icol, tropLev - 1))) / & + (zm(icol, tropLev) - zm(icol, tropLev - 1)) + tropP = pmid(icol, tropLev) + exp((tropZ - zm(icol, tropLev)) * dlogPdZ) + end if + else + + ! It is below the midpoint. Make sure we aren't at the bottom. + if (tropLev < pver) then + dlogPdZ = (log(pmid(icol, tropLev + 1)) - log(pmid(icol, tropLev))) / & + (zm(icol, tropLev + 1) - zm(icol, tropLev)) + tropP = pmid(icol, tropLev) + exp((tropZ - zm(icol, tropLev)) * dlogPdZ) + end if + end if + + tropopause_interpolateP = tropP + end function tropopause_interpolateP + + + ! This routine interpolates the temperatures in the physics state to + ! find the temperature at the specified tropopause pressure. + function tropopause_interpolateT(pver, pmid, t, icol, tropLev, tropP) + + implicit none + + integer, intent(in) :: pver ! Number of vertical levels + real(kind_phys), intent(in) :: pmid(:,:) ! Midpoint pressures (Pa) + real(kind_phys), intent(in) :: t(:,:) ! Temperature (K) + integer, intent(in) :: icol ! column being processed + integer, intent(in) :: tropLev ! tropopause level index + real(kind_phys), optional, intent(in) :: tropP ! tropopause pressure (Pa) + real(kind_phys) :: tropopause_interpolateT + + ! Local Variables + real(kind_phys) :: tropT ! tropopause temperature (K) + real(kind_phys) :: dTdlogP ! dT/dlog(P) + + ! Interpolate the temperature linearly against log(P) + + ! Is the tropopause at the midpoint? + if (tropP == pmid(icol, tropLev)) then + tropT = t(icol, tropLev) + + else if (tropP < pmid(icol, tropLev)) then + + ! It is above the midpoint? Make sure we aren't at the top. + if (tropLev > 1) then + dTdlogP = (t(icol, tropLev) - t(icol, tropLev - 1)) / & + (log(pmid(icol, tropLev)) - log(pmid(icol, tropLev - 1))) + tropT = t(icol, tropLev) + (log(tropP) - log(pmid(icol, tropLev))) * dTdlogP + end if + else + + ! It is below the midpoint. Make sure we aren't at the bottom. + if (tropLev < pver) then + dTdlogP = (t(icol, tropLev + 1) - t(icol, tropLev)) / & + (log(pmid(icol, tropLev + 1)) - log(pmid(icol, tropLev))) + tropT = t(icol, tropLev) + (log(tropP) - log(pmid(icol, tropLev))) * dTdlogP + end if + end if + + tropopause_interpolateT = tropT + end function tropopause_interpolateT + + + ! This routine interpolates the geopotential height in the physics state to + ! find the geopotential height at the specified tropopause pressure. + function tropopause_interpolateZ(pint, pmid, zi, zm, phis, icol, tropLev, tropP) + + real(kind_phys), intent(in) :: pint(:,:) ! Interface pressures (Pa) + real(kind_phys), intent(in) :: pmid(:,:) ! Midpoint pressures (Pa) + real(kind_phys), intent(in) :: zi(:,:) ! Geopotential height above surface at interfaces (m) + real(kind_phys), intent(in) :: zm(:,:) ! Geopotential height above surface at midpoints (m) + real(kind_phys), intent(in) :: phis(:) ! Surface geopotential (m2 s-2) + integer, intent(in) :: icol ! column being processed + integer, intent(in) :: tropLev ! tropopause level index + real(kind_phys), optional, intent(in) :: tropP ! tropopause pressure (Pa) + real(kind_phys) :: tropopause_interpolateZ + + ! Local Variables + real(kind_phys) :: tropZ ! tropopause geopotential height (m) + real(kind_phys) :: dZdlogP ! dZ/dlog(P) + + ! Interpolate the geopotential height linearly against log(P) + + ! Is the tropopause at the midpoint? + if (tropP == pmid(icol, tropLev)) then + tropZ = zm(icol, tropLev) + + else if (tropP < pmid(icol, tropLev)) then + + ! It is above the midpoint? Make sure we aren't at the top. + dZdlogP = (zm(icol, tropLev) - zi(icol, tropLev)) / & + (log(pmid(icol, tropLev)) - log(pint(icol, tropLev))) + tropZ = zm(icol, tropLev) + (log(tropP) - log(pmid(icol, tropLev))) * dZdlogP + else + + ! It is below the midpoint. Make sure we aren't at the bottom. + dZdlogP = (zm(icol, tropLev) - zi(icol, tropLev+1)) / & + (log(pmid(icol, tropLev)) - log(pint(icol, tropLev+1))) + tropZ = zm(icol, tropLev) + (log(tropP) - log(pmid(icol, tropLev))) * dZdlogP + end if + + tropopause_interpolateZ = tropZ + phis(icol)*cnst_rga + end function tropopause_interpolateZ +end module tropopause_find diff --git a/tropopause_find/tropopause_find.meta b/tropopause_find/tropopause_find.meta new file mode 100644 index 00000000..bc218575 --- /dev/null +++ b/tropopause_find/tropopause_find.meta @@ -0,0 +1,305 @@ +[ccpp-table-properties] + name = tropopause_find + type = scheme + +[ccpp-arg-table] + name = tropopause_find_init + type = scheme +[ cappa ] + standard_name = ratio_of_dry_air_gas_constant_to_specific_heat_of_dry_air_at_constant_pressure + units = 1 + type = real | kind = kind_phys + dimensions = () + intent = in +[ rair ] + standard_name = gas_constant_of_dry_air + units = J kg-1 K-1 + type = real | kind = kind_phys + dimensions = () + intent = in +[ gravit ] + standard_name = standard_gravitational_acceleration + units = m s-2 + type = real | kind = kind_phys + dimensions = () + intent = in +[ pi ] + standard_name = pi_constant + units = 1 + type = real | kind = kind_phys + dimensions = () + intent = in +[ errmsg ] + standard_name = ccpp_error_message + units = none + type = character | kind = len=512 + dimensions = () + intent = out +[ errflg ] + standard_name = ccpp_error_code + units = 1 + type = integer + dimensions = () + intent = out + +[ccpp-arg-table] + name = tropopause_find_run + type = scheme +[ ncol ] + standard_name = horizontal_loop_extent + units = count + type = integer + dimensions = () + intent = in +[ pver ] + standard_name = vertical_layer_dimension + units = count + type = integer + dimensions = () + intent = in +[ fillvalue ] + standard_name = fill_value_for_diagnostic_output + units = 1 + type = real | kind = kind_phys + dimensions = () + intent = in +[ lat ] + standard_name = latitude + units = radians + type = real | kind = kind_phys + dimensions = (horizontal_loop_extent) + intent = in +[ pint ] + standard_name = air_pressure_at_interface + units = Pa + type = real | kind = kind_phys + dimensions = (horizontal_loop_extent, vertical_interface_dimension) + intent = in +[ pmid ] + standard_name = air_pressure + units = Pa + type = real | kind = kind_phys + dimensions = (horizontal_loop_extent, vertical_layer_dimension) + intent = in +[ t ] + standard_name = air_temperature + units = K + type = real | kind = kind_phys + dimensions = (horizontal_loop_extent, vertical_layer_dimension) + intent = in +[ zi ] + standard_name = geopotential_height_wrt_surface_at_interface + units = m + type = real | kind = kind_phys + dimensions = (horizontal_loop_extent, vertical_interface_dimension) + intent = in +[ zm ] + standard_name = geopotential_height_wrt_surface + units = m + type = real | kind = kind_phys + dimensions = (horizontal_loop_extent, vertical_layer_dimension) + intent = in +[ phis ] + standard_name = surface_geopotential + units = m2 s-2 + type = real | kind = kind_phys + dimensions = (horizontal_loop_extent) + intent = in +[ calday ] + standard_name = fractional_calendar_days_on_end_of_current_timestep + units = 1 + type = real | kind = kind_phys + dimensions = () + intent = in +[ tropp_p_loc ] + standard_name = tropopause_air_pressure_from_climatology_dataset + units = Pa + type = real | kind = kind_phys + dimensions = (horizontal_dimension, number_of_months_in_year) + intent = in +[ tropp_days ] + standard_name = tropopause_calendar_days_from_climatology + units = 1 + type = real | kind = kind_phys + dimensions = (number_of_months_in_year) + intent = in +[ tropLev ] + standard_name = tropopause_vertical_layer_index + units = index + type = integer + dimensions = (horizontal_loop_extent) + intent = out +[ tropP ] + standard_name = tropopause_air_pressure + units = Pa + type = real | kind = kind_phys + dimensions = (horizontal_loop_extent) + intent = out +[ tropT ] + standard_name = tropopause_air_temperature + units = K + type = real | kind = kind_phys + dimensions = (horizontal_loop_extent) + intent = out +[ tropZ ] + standard_name = tropopause_geopotential_height_wrt_surface + units = m + type = real | kind = kind_phys + dimensions = (horizontal_loop_extent) + intent = out +[ tropLev_twmo ] + standard_name = tropopause_vertical_layer_index_from_lapse_rate_method + units = index + type = integer + dimensions = (horizontal_loop_extent) + intent = out +[ tropP_twmo ] + standard_name = tropopause_air_pressure_from_lapse_rate_method + units = Pa + type = real | kind = kind_phys + dimensions = (horizontal_loop_extent) + intent = out +[ tropT_twmo ] + standard_name = tropopause_air_temperature_from_lapse_rate_method + units = K + type = real | kind = kind_phys + dimensions = (horizontal_loop_extent) + intent = out +[ tropZ_twmo ] + standard_name = tropopause_geopotential_height_wrt_surface_from_lapse_rate_method + units = m + type = real | kind = kind_phys + dimensions = (horizontal_loop_extent) + intent = out +[ tropLev_clim ] + standard_name = tropopause_vertical_layer_index_from_climatological_method + units = index + type = integer + dimensions = (horizontal_loop_extent) + intent = out +[ tropP_clim ] + standard_name = tropopause_air_pressure_from_climatological_method + units = Pa + type = real | kind = kind_phys + dimensions = (horizontal_loop_extent) + intent = out +[ tropT_clim ] + standard_name = tropopause_air_temperature_from_climatological_method + units = K + type = real | kind = kind_phys + dimensions = (horizontal_loop_extent) + intent = out +[ tropZ_clim ] + standard_name = tropopause_geopotential_height_wrt_surface_from_climatological_method + units = m + type = real | kind = kind_phys + dimensions = (horizontal_loop_extent) + intent = out +[ tropLev_hybstob ] + standard_name = tropopause_vertical_layer_index_from_hybrid_stobie_linoz_with_climatological_backup_method + units = index + type = integer + dimensions = (horizontal_loop_extent) + intent = out +[ tropP_hybstob ] + standard_name = tropopause_air_pressure_from_hybrid_stobie_linoz_with_climatological_backup_method + units = Pa + type = real | kind = kind_phys + dimensions = (horizontal_loop_extent) + intent = out +[ tropT_hybstob ] + standard_name = tropopause_air_temperature_from_hybrid_stobie_linoz_with_climatological_backup_method + units = K + type = real | kind = kind_phys + dimensions = (horizontal_loop_extent) + intent = out +[ tropZ_hybstob ] + standard_name = tropopause_geopotential_height_wrt_surface_from_hybrid_stobie_linoz_with_climatological_backup_method + units = m + type = real | kind = kind_phys + dimensions = (horizontal_loop_extent) + intent = out +[ tropLev_cpp ] + standard_name = tropopause_vertical_layer_index_from_cold_point_method + units = index + type = integer + dimensions = (horizontal_loop_extent) + intent = out +[ tropP_cpp ] + standard_name = tropopause_air_pressure_from_cold_point_method + units = Pa + type = real | kind = kind_phys + dimensions = (horizontal_loop_extent) + intent = out +[ tropT_cpp ] + standard_name = tropopause_air_temperature_from_cold_point_method + units = K + type = real | kind = kind_phys + dimensions = (horizontal_loop_extent) + intent = out +[ tropZ_cpp ] + standard_name = tropopause_geopotential_height_wrt_surface_from_cold_point_method + units = m + type = real | kind = kind_phys + dimensions = (horizontal_loop_extent) + intent = out +[ tropLev_chem ] + standard_name = tropopause_vertical_layer_index_from_chemical_method + units = index + type = integer + dimensions = (horizontal_loop_extent) + intent = out +[ tropP_chem ] + standard_name = tropopause_air_pressure_from_chemical_method + units = Pa + type = real | kind = kind_phys + dimensions = (horizontal_loop_extent) + intent = out +[ tropT_chem ] + standard_name = tropopause_air_temperature_from_chemical_method + units = K + type = real | kind = kind_phys + dimensions = (horizontal_loop_extent) + intent = out +[ tropZ_chem ] + standard_name = tropopause_geopotential_height_wrt_surface_from_chemical_method + units = m + type = real | kind = kind_phys + dimensions = (horizontal_loop_extent) + intent = out +[ hstobie_trop ] + standard_name = vertical_layer_index_lower_bound_from_hybrid_stobie_linoz_with_climatological_backup_method_for_stratospheric_chemistry + units = index + type = real | kind = kind_phys + dimensions = (horizontal_loop_extent, vertical_layer_dimension) + intent = out +[ hstobie_linoz ] + standard_name = vertical_layer_index_lower_bound_from_hybrid_stobie_linoz_with_climatological_backup_method_for_linearized_ozone_chemistry + units = index + type = real | kind = kind_phys + dimensions = (horizontal_loop_extent, vertical_layer_dimension) + intent = out +[ hstobie_tropop ] + standard_name = tropopause_vertical_layer_index_from_hybrid_stobie_linoz_with_climatological_backup_method_for_chemistry + units = index + type = real | kind = kind_phys + dimensions = (horizontal_loop_extent, vertical_layer_dimension) + intent = out +[ scheme_name ] + standard_name = scheme_name + units = none + type = character | kind = len=64 + dimensions = () + intent = out +[ errmsg ] + standard_name = ccpp_error_message + units = none + type = character | kind = len=512 + dimensions = () + intent = out +[ errflg ] + standard_name = ccpp_error_code + units = 1 + type = integer + dimensions = () + intent = out