fix a minor syntax error

ESCOMP · Oct 19, 2024 · 8960b91 · 8960b91
1 parent e28d3a1
commit 8960b91
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/schemes/musica/tuvx/musica_ccpp_tuvx.F90 b/schemes/musica/tuvx/musica_ccpp_tuvx.F90
@@ -23,7 +23,7 @@ subroutine tuvx_init(vertical_layer_dimension, &
     use musica_tuvx, only: grid_map_t, profile_map_t, radiator_map_t
     use musica_util, only: error_t
     use musica_ccpp_tuvx_height_grid, only: create_height_grid, &
-                                            height_grid_label, height_grid_units
+                                            height_grid_label, height_grid_unit
 
     integer,            intent(in)  :: vertical_layer_dimension     ! (count)
     integer,            intent(in)  :: vertical_interface_dimension ! (count)
@@ -86,7 +86,7 @@ subroutine tuvx_init(vertical_layer_dimension, &
       return
     end if
 
-    height_grid => grids%get( height_grid_label, height_grid_units, error )
+    height_grid => grids%get( height_grid_label, height_grid_unit, error )
     if (has_error_occurred( error, errmsg, errcode )) then
       deallocate( tuvx )
       tuvx => null()