aliased constant

CABLE-LSM · Sep 17, 2024 · ce268a7 · ce268a7
1 parent 7357d0a
commit ce268a7
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/offline/cable_parameters.F90 b/src/offline/cable_parameters.F90
@@ -2474,7 +2474,7 @@ SUBROUTINE consistency_ice_veg_soil(soil, veg)
     ! Ensure that when an active patch has a veg type of ice then its soil type is also ice and vice versa
     ! Any change effected to enforce this consistency includes correcting the appropriate paramter values 
 
-    USE grid_constants_mod_cbl, ONLY : ICE_SoilType, ICE_VegType
+    USE grid_constants_mod_cbl, ONLY : ICE_SoilType, ICE_VegType => ice_cable
     USE cable_phys_constants_mod, ONLY : csice, density_ice
 
     TYPE (soil_parameter_type), INTENT(INOUT) :: soil  ! soil parameter data