diff --git a/schemes/musica/tuvx/musica_ccpp_tuvx_height_grid.F90 b/schemes/musica/tuvx/musica_ccpp_tuvx_height_grid.F90 index dfb2a5fd..cb06524f 100644 --- a/schemes/musica/tuvx/musica_ccpp_tuvx_height_grid.F90 +++ b/schemes/musica/tuvx/musica_ccpp_tuvx_height_grid.F90 @@ -44,8 +44,8 @@ module musica_ccpp_tuvx_height_grid !> Label for height grid in TUV-x character(len=*), parameter, public :: height_grid_label = "height" - !> Units for height grid in TUV-x - character(len=*), parameter, public :: height_grid_units = "km" + !> Unit for height grid in TUV-x + character(len=*), parameter, public :: height_grid_unit = "km" contains @@ -77,7 +77,7 @@ function create_height_grid( vertical_layer_dimension, & errcode = 1 return end if - height_grid => grid_t( height_grid_label, height_grid_units, & + height_grid => grid_t( height_grid_label, height_grid_unit, & vertical_interface_dimension, error ) if ( has_error_occurred( error, errmsg, errcode ) ) return diff --git a/schemes/musica/tuvx/musica_ccpp_tuvx_temperature.F90 b/schemes/musica/tuvx/musica_ccpp_tuvx_temperature.F90 index af24d0e6..676c9007 100644 --- a/schemes/musica/tuvx/musica_ccpp_tuvx_temperature.F90 +++ b/schemes/musica/tuvx/musica_ccpp_tuvx_temperature.F90 @@ -6,8 +6,8 @@ module musica_ccpp_tuvx_temperature !> Label for temperature in TUV-x character(len=*), parameter :: temperature_label = "temperature" - !> Units for temperature in TUV-x - character(len=*), parameter :: temperature_units = "K" + !> Unit for temperature in TUV-x + character(len=*), parameter :: temperature_unit = "K" contains @@ -31,7 +31,7 @@ function create_temperature_profile( height_grid, errmsg, errcode ) & ! Local variables type(error_t) :: error - profile => profile_t( temperature_label, temperature_units, & + profile => profile_t( temperature_label, temperature_unit, & height_grid, error ) if ( has_error_occurred( error, errmsg, errcode ) ) return