Merge pull request #3 from NOAA-EMC/develop

DeniseWorthen · web-flow · commit c96eaeff48c3 · 2019-12-06T08:53:18.000-05:00
change ifmin to zero at fh00 for inline POST (NOAA-EMC#14)
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)

Original file line number	Diff line number	Diff line change
`@@ -133,6 +133,7 @@ subroutine post_run_gfs(wrt_int_state,mypei,mpicomp,lead_write, &`
`133`	`133`	`!`
`134`	`134`	`ifhr = mynfhr`
`135`	`135`	`ifmin = mynfmin`
	`136`	`+ if (ifhr == 0 ) ifmin = 0`
`136`	`137`	`if(mype==0) print *,'bf set_postvars,ifmin=',ifmin,'ifhr=',ifhr`
`137`	`138`	`call set_postvars_gfs(wrt_int_state,mpicomp,setvar_atmfile, &`
`138`	`139`	`setvar_sfcfile)`