From 7d4131628790f0d133d4dadffa6cd4982592e219 Mon Sep 17 00:00:00 2001
From: Alexandra Bozec <abozec@fsu.edu>
Date: Fri, 3 May 2019 15:47:45 +0000
Subject: [PATCH] add yrflag=4 logic for diags in thermf.F90

---
 thermf.F90 | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/thermf.F90 b/thermf.F90
index bab3b04..50c32b6 100644
--- a/thermf.F90
+++ b/thermf.F90
@@ -998,8 +998,10 @@ subroutine thermf(m,n, dtime)
             secpyr=360.00d0*86400.0d0
           elseif (yrflag.lt.3) then
             secpyr=366.00d0*86400.0d0
-          elseif (yrflag.ge.3) then
+          elseif (yrflag.eq.3) then
             secpyr=365.25d0*86400.0d0
+          elseif (yrflag.eq.4) then
+            secpyr=365.00d0*86400.0d0
           endif
           if     (mnproc.eq.1) then
           write (lp,'(i9,a,2f10.3)')  &