diff --git a/io/post_gfs.F90 b/io/post_gfs.F90 index 3ea19c555..9f3a0a80f 100644 --- 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)