switch modulo calls for time intervals to 0 from 1

tanyasmirnova · Jan 5, 2021 · ddace04 · ddace04
1 parent 176ea9a
commit ddace04
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/physics/GFS_phys_time_vary.scm.F90 b/physics/GFS_phys_time_vary.scm.F90
@@ -353,18 +353,18 @@ subroutine GFS_phys_time_vary_run (Grid, Statein, Model, Tbd, Sfcprop, Cldprop,
         !--- determine if diagnostics buckets need to be cleared
         sec_zero = nint(Model%fhzero*con_hr)
         if (sec_zero >= nint(max(Model%fhswr,Model%fhlwr))) then
-          if (mod(Model%kdt,Model%nszero) == 1) then
+          if (mod(Model%kdt,Model%nszero) == 0) then
               call Diag%rad_zero  (Model)
               call Diag%phys_zero (Model)
         !!!!  THIS IS THE POINT AT WHICH DIAG%ZHOUR NEEDS TO BE UPDATED
           endif
         else
-          if (mod(Model%kdt,Model%nszero) == 1) then
+          if (mod(Model%kdt,Model%nszero) == 0) then
               call Diag%phys_zero (Model)
         !!!!  THIS IS THE POINT AT WHICH DIAG%ZHOUR NEEDS TO BE UPDATED
           endif
           kdt_rad = nint(min(Model%fhswr,Model%fhlwr)/Model%dtp)
-          if (mod(Model%kdt, kdt_rad) == 1) then
+          if (mod(Model%kdt, kdt_rad) == 0) then
               call Diag%rad_zero  (Model)
         !!!!  THIS IS THE POINT AT WHICH DIAG%ZHOUR NEEDS TO BE UPDATED
           endif