diff --git a/src/coupled/AM3/control/casa/shared/progs_cnp_vars_mod.F90 b/src/coupled/AM3/control/casa/shared/progs_cnp_vars_mod.F90
index 419990e3d..2575901fb 100644
--- a/src/coupled/AM3/control/casa/shared/progs_cnp_vars_mod.F90
+++ b/src/coupled/AM3/control/casa/shared/progs_cnp_vars_mod.F90
@@ -6,8 +6,15 @@ MODULE progs_cnp_vars_mod
 PUBLIC :: progs_cnp_vars_assoc
 PUBLIC :: progs_cnp_vars_data_type
 PUBLIC :: progs_cnp_vars_type
+PUBLIC :: nCpool_casa
+PUBLIC :: nNpool_casa
+PUBLIC :: nPPool_casa
 PRIVATE
 
+INTEGER, PARAMETER :: nCpool_casa = 10 
+INTEGER, PARAMETER :: nNpool_casa = 10 
+INTEGER, PARAMETER :: nPPool_casa = 12 
+
 CHARACTER(LEN=*), PARAMETER, PRIVATE :: ModuleName='PROGS_CNP_VARS_MOD'
 ! Prognostic Fields for CASA-CNP to be initialized from IO
 TYPE :: progs_cnp_vars_data_type
@@ -54,7 +61,6 @@ MODULE progs_cnp_vars_mod
 
 SUBROUTINE progs_cnp_vars_alloc(land_pts, nsurft, progs_cnp_vars_data )
                                 
-USE grid_constants_mod_cbl, ONLY : nCpool_casa, nNpool_casa, nPpool_casa
 USE casadimension,          ONLY: mwood
 
 IMPLICIT NONE
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
diff --git a/src/params/cable_other_constants_mod.F90 b/src/params/cable_other_constants_mod.F90
index 77d0efb15..b91797355 100644
--- a/src/params/cable_other_constants_mod.F90
+++ b/src/params/cable_other_constants_mod.F90
@@ -18,6 +18,10 @@ MODULE cable_other_constants_mod
 !-----------------------------------------------------------------------------
 !CABLE science not yet in JAC uses msn to describe number of snow layers
 USE grid_constants_mod_cbl, ONLY: nrb, nsl, nsCs, nvCs, msn => nsnl
+USE grid_constants_mod_cbl, ONLY: n_soiltypes => nsoil_max ! # of soil types [9]
+USE grid_constants_mod_cbl, ONLY: niter                    ! # iterations za/L
+USE grid_constants_mod_cbl, ONLY: mf                       !sunlit/shaded leaves
+USE grid_constants_mod_cbl, ONLY: swb  ! 2 shortwave bands (VIS,NIR)
 
 IMPLICIT NONE
 
@@ -28,17 +32,7 @@ MODULE cable_other_constants_mod
 REAL, PARAMETER :: rad_thresh = 0.001 ! min. zenithal angle for downward SW
 REAL, PARAMETER :: lai_thresh = 0.001 ! min. LAI to be considered as vegetated
 
-INTEGER, PARAMETER ::                                                          &
-  swb = 2,           & ! 2 shortwave bands (initial division - visible /
-                       ! near infrared)
-  n_sw_bands = 4,    & ! total number of shortwave radiation bands
-                       ! (above divided into direct / diffuse)
-  mf = 2,            & ! types of leaves (sunlit / shaded)
-  r_2  = SELECTED_REAL_KIND(12, 50), &!this will be removed
-                       ! double precision real dimension
-  niter = 4,         & ! number of iterations for za/L
-  n_assim_rates = 3, & ! Rubisco, RuBP and Sink-limited rates of photosynthesis
-  n_soiltypes = 9      ! number of soil types
+INTEGER, PARAMETER :: r_2  = KIND(1.d0) ! SELECTED_REAL_KIND(12, 50)
 
 REAL, PARAMETER ::                                                             &
   max_snow_depth = 50000.0,  & ! maximum depth of lying snow on tiles (kg/m2)
diff --git a/src/params/grid_constants_cbl.F90 b/src/params/grid_constants_cbl.F90
index 8d2ec313a..b1925aa63 100644
--- a/src/params/grid_constants_cbl.F90
+++ b/src/params/grid_constants_cbl.F90
@@ -1,3 +1,4 @@
+!#define UM_CBL YES
 !******************************************************************************
 ! This source code is part of the Community Atmosphere Biosphere Land Exchange
 ! (CABLE) model. This work is licensed under the CSIRO Open Source Software
@@ -45,12 +46,17 @@ MODULE grid_constants_mod_cbl
 INTEGER, PARAMETER :: nsCs      = 2  ! # soil carbon stores
 INTEGER, PARAMETER :: nvCs      = 3  ! # vegetation carbon stores
 INTEGER, PARAMETER :: ICE_SoilType = 9 ! SoilType Index (soilparm_cable.nml JAC)
-INTEGER, PARAMETER :: lakes_cable  = 16! SoilType Index (soilparm_cable.nml JAC)
-
-INTEGER, PARAMETER :: ICE_VegType = 17  ! permanent ice index for veg
-
-INTEGER, PARAMETER :: mf = 2          ! # leaves (sunlit, shaded)
-INTEGER, PARAMETER :: niter = 4       ! number of iterations for za/L
+#ifndef UM_CBL
+! UM_CBL gets from cable_surface_types namelist
+INTEGER, PARAMETER :: lakes_cable  = 16 ! cable_surface_type (nml) Index 
+INTEGER, PARAMETER :: ice_cable    = 17 ! cable_surface_type (nml) Index
+#endif
+INTEGER, PARAMETER :: mf          = 2  ! # leaves (sunlit, shaded)
+INTEGER, PARAMETER :: niter       = 4  ! number of iterations for za/L
+INTEGER, PARAMETER :: swb         = 2  ! # SW bands (VIS+NIR) - CM3 alloc TYPEs
+INTEGER, PARAMETER :: nCpool_casa = 10 
+INTEGER, PARAMETER :: nNpool_casa = 10 
+INTEGER, PARAMETER :: nPPool_casa = 12 
 
 ! Strictly NOT a constant. # of active tiles, length of CABLE working vectors
 INTEGER :: mp
diff --git a/src/util/cable_runtime_opts_mod.F90 b/src/util/cable_runtime_opts_mod.F90
index 628f97a48..0c3b01273 100644
--- a/src/util/cable_runtime_opts_mod.F90
+++ b/src/util/cable_runtime_opts_mod.F90
@@ -12,7 +12,7 @@ MODULE cable_runtime_opts_mod
   !jhan:make this logical
   CHARACTER(LEN=3) :: diag_soil_resp=''
 
-  CHARACTER(LEN=20) :: fwsoil_switch=''
+  CHARACTER(LEN=20) :: fwsoil_switch='standard'
 
   ! Ticket #56
   !jhan:options?