From 0fe60bb97cbeca8da20d84b89a85272ea795bf4d Mon Sep 17 00:00:00 2001 From: Andrew Collard Date: Thu, 10 Oct 2024 15:55:04 -0500 Subject: [PATCH] Fix virtual temperature --- src/gsi/setupt.f90 | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/src/gsi/setupt.f90 b/src/gsi/setupt.f90 index 1085311303..0fd4691386 100644 --- a/src/gsi/setupt.f90 +++ b/src/gsi/setupt.f90 @@ -610,6 +610,8 @@ subroutine setupt(obsLL,odiagLL,lunin,mype,bwork,awork,nele,nobs,is,conv_diagsav prsltmp2 = exp(prsltmp) call tintrp2a1(ges_prsi,prsitmp,dlat,dlon,dtime,hrdifsig,& nsig+1,mype,nfldsig) + call tintrp2a1(ges_tv,tvtmp,dlat,dlon,dtime,hrdifsig,& + nsig,mype,nfldsig) call tintrp2a1(ges_tsen,ttmp,dlat,dlon,dtime,hrdifsig,& nsig,mype,nfldsig) call tintrp2a1(ges_q,qtmp,dlat,dlon,dtime,hrdifsig,& @@ -741,6 +743,8 @@ subroutine setupt(obsLL,odiagLL,lunin,mype,bwork,awork,nele,nobs,is,conv_diagsav nsig+1,mype,nfldsig) call tintrp2a1(ges_tsen,ttmp,dlat,dlon,dtime,hrdifsig,& nsig,mype,nfldsig) + call tintrp2a1(ges_tv,tvtmp,dlat,dlon,dtime,hrdifsig,& + nsig,mype,nfldsig) call tintrp2a1(ges_q,qtmp,dlat,dlon,dtime,hrdifsig,& nsig,mype,nfldsig) call tintrp2a1(ges_u,utmp,dlat,dlon,dtime,hrdifsig,&