From 382c41aa9c9c31f7c3af7cb5f3b7d2e075596c62 Mon Sep 17 00:00:00 2001 From: Sean Bryan Date: Wed, 11 Mar 2026 19:09:56 +1100 Subject: [PATCH] src/offline/cable_driver_common.F90: Override cable_user%YearStart to syear for default MetType case --- src/offline/cable_driver_common.F90 | 12 ++++++++++++ 1 file changed, 12 insertions(+) diff --git a/src/offline/cable_driver_common.F90 b/src/offline/cable_driver_common.F90 index 69698fe9a..2380a72f5 100644 --- a/src/offline/cable_driver_common.F90 +++ b/src/offline/cable_driver_common.F90 @@ -260,6 +260,7 @@ SUBROUTINE cable_driver_init_site(site) END SUBROUTINE cable_driver_init_site SUBROUTINE cable_driver_init_default(dels, koffset, kend) + USE cable_io_vars_module, ONLY : syear !! Model initialisation routine (default met specific). REAL, INTENT(OUT) :: dels !! Time step size in seconds INTEGER, INTENT(OUT) :: koffset !! Timestep to start at @@ -274,6 +275,17 @@ SUBROUTINE cable_driver_init_default(dels, koffset, kend) STOP 991 END IF + if (cable_user%YearStart == 0) cable_user%YearStart = syear + + ! This is done as the total simulation period is captured in the inner time + ! step loop over ktau = kstart, kend for this configuration. If + ! cable_user%YearEnd was specified, its value is already reflected in the + ! value of kend from the above call to open_met_file. Here we overwrite + ! cable_user%YearEnd to cable_user%YearStart so that the outer time loop over + ! years is executed only once, and the inner time step loop captures the full + ! simulation period. + cable_user%YearEnd = cable_user%YearStart + END SUBROUTINE cable_driver_init_default SUBROUTINE cable_driver_init_plume(dels, koffset, PLUME)