add yrflag=4 logic for diags in thermf.F90

HYCOM · May 3, 2019 · 7d41316 · 7d41316
1 parent 9f545fd
commit 7d41316
Showing 1 changed file with 3 additions and 1 deletion.
diff --git 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)')  &