jhan_JaC_Redux_JaCFeb2021_initialization

init() [init.F90]

.....
USE jules_model_environment_mod,  ONLY: lsm_id, cable, jules
.....
USE init_surface_types_mod,       ONLY: init_cable_surface_types
USE init_cable_mod,                      ONLY: init_cable

There is a bunch of initialisation in here that (lsm_id=)CABLE can possibly do without

....
! Initialise the surface types
CALL init_jules_surface_types(nml_dir)
....
....
IF ( lsm_id == cable ) THEN
  CALL init_cable_surface_types(nml_dir)

END IF

! Declare/allocate/initialize - params,progs,state vars for CABLE
IF ( lsm_id == cable ) THEN

CALL init_cable (ainfo_data%frac_surft)