Update src/offline/cable_parameters.F90

CABLE-LSM · Jul 25, 2024 · 45251dd · 45251dd
1 parent 6fac982
commit 45251dd
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/offline/cable_parameters.F90 b/src/offline/cable_parameters.F90
@@ -1798,7 +1798,7 @@ SUBROUTINE derived_parameters(soil, sum_flux, bal, ssnow, veg, rough)
     REAL(r_2), DIMENSION(:,:), ALLOCATABLE :: ssat_bounded,rho_soil_bulk ! added by rk4417 - phase2
 
 ! line below inserted by rk4417 - phase2
-    where(veg%iveg .eq. 17) soil%isoilm = 9   ! MMY@13April it says where iveg = ice, isoilm = permanent ice
+
 
 !    soil_depth(1) = REAL(soil%zse(1),r_2)
 !    DO klev=2,ms