change ifmin to zero at fh00 for inline POST (#14)

NCAR · Dec 4, 2019 · 26de321 · 26de321
1 parent ea91f65
commit 26de321
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/io/post_gfs.F90 b/io/post_gfs.F90
@@ -133,6 +133,7 @@ subroutine post_run_gfs(wrt_int_state,mypei,mpicomp,lead_write,      &
 !
       ifhr  = mynfhr
       ifmin = mynfmin
+      if (ifhr == 0 ) ifmin = 0
       if(mype==0) print *,'bf set_postvars,ifmin=',ifmin,'ifhr=',ifhr
       call set_postvars_gfs(wrt_int_state,mpicomp,setvar_atmfile,   &
            setvar_sfcfile)