From f7e581846fe57977b86ecac55aae25b639305f18 Mon Sep 17 00:00:00 2001 From: Wen Meng Date: Mon, 6 Jun 2022 13:49:00 +0000 Subject: [PATCH] Bug fix for hbot --- io/post_gfs.F90 | 1 + 1 file changed, 1 insertion(+) diff --git a/io/post_gfs.F90 b/io/post_gfs.F90 index e9358ec91..319441b18 100644 --- a/io/post_gfs.F90 +++ b/io/post_gfs.F90 @@ -2430,6 +2430,7 @@ subroutine set_postvars_gfs(wrt_int_state,mpicomp,setvar_atmfile, & ! hbot do j=jsta,jend do i=1,im + hbot(i,j) = spval if(pbot(i,j) < spval)then do l=lm,1,-1 if(pbot(i,j) >= pmid(i,j,l)) then