light_cycle: corrected light at start of the year

fabm-model · Oct 5, 2017 · af58a25 · af58a25
1 parent 0486733
commit af58a25
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/models/examples/light_cycle.F90 b/src/models/examples/light_cycle.F90
@@ -47,7 +47,7 @@ subroutine do_surface(self,_ARGUMENTS_DO_SURFACE_)
 
    _HORIZONTAL_LOOP_BEGIN_
       _GET_GLOBAL_(self%id_yearday,yearday)
-      if (mod(yearday-self%offset, 1.0_rk) < self%light_period) then
+      if (modulo(yearday-self%offset, 1.0_rk) < self%light_period) then
          _SET_HORIZONTAL_DIAGNOSTIC_(self%id_swr_sf, self%swr)
       else
          _SET_HORIZONTAL_DIAGNOSTIC_(self%id_swr_sf, 0.0_rk)