Merge branch '95-update-tuvx-temp' into 96-update-surface-albedo

ESCOMP · Oct 18, 2024 · 41cccfd · 41cccfd
2 parents 9413340 + e28d3a1
commit 41cccfd
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 6 deletions.
diff --git 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
@@ -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