From 3448f2b229070a886eef3c55acef6eae92765091 Mon Sep 17 00:00:00 2001 From: Jorn Bruggeman Date: Thu, 11 May 2017 11:49:58 +0100 Subject: [PATCH] light_cycle: centre dark period on midnight by default --- src/models/examples/light_cycle.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/models/examples/light_cycle.F90 b/src/models/examples/light_cycle.F90 index 3b7f96d2..fbe4837a 100644 --- a/src/models/examples/light_cycle.F90 +++ b/src/models/examples/light_cycle.F90 @@ -35,7 +35,7 @@ subroutine initialize(self,configunit) call self%register_diagnostic_variable(self%id_swr_sf, 'swr_sf', 'W m-2', 'surface downward shortwave radiation', standard_variable=standard_variables%surface_downwelling_shortwave_flux, source=source_do_surface, domain=domain_surface) call self%get_parameter(self%swr, 'swr', 'W m-2', 'surface downward shortwave radiation during light phase', minimum=0.0_rk) call self%get_parameter(self%light_period, 'light_period', 'h', 'duration of light phase', minimum=0.0_rk, maximum=24._rk, scale_factor=1._rk/24._rk) - call self%get_parameter(self%offset, 'offset', 'h', 'start of light period (relative to midnight)', minimum=-24.0_rk, maximum=24._rk, scale_factor=1._rk/24._rk, default=0.0_rk) + call self%get_parameter(self%offset, 'offset', 'h', 'start of light period (relative to midnight)', minimum=-24.0_rk, maximum=24._rk, scale_factor=1._rk/24._rk, default=self%light_period*12) end subroutine initialize subroutine do_surface(self,_ARGUMENTS_DO_SURFACE_)