From ce268a70e1dd0876f5af99a6a8426bbe1868655e Mon Sep 17 00:00:00 2001 From: "Srbinovsky, Jhan (O&A, Aspendale)" Date: Tue, 17 Sep 2024 17:28:06 +1000 Subject: [PATCH] aliased constant --- src/offline/cable_parameters.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/offline/cable_parameters.F90 b/src/offline/cable_parameters.F90 index b6133f64f..0a1451d3b 100644 --- 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