From 532cb53e00269a79889e08c9c6403b64c01dd06f Mon Sep 17 00:00:00 2001 From: "Kate.Zhang" Date: Thu, 29 Feb 2024 23:45:26 +0000 Subject: [PATCH] Fixed the floating issue in debug mode --- sorc/ncep_post.fd/INITPOST_NETCDF.f | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/sorc/ncep_post.fd/INITPOST_NETCDF.f b/sorc/ncep_post.fd/INITPOST_NETCDF.f index b14cbc316..047de8973 100644 --- a/sorc/ncep_post.fd/INITPOST_NETCDF.f +++ b/sorc/ncep_post.fd/INITPOST_NETCDF.f @@ -1479,7 +1479,7 @@ SUBROUTINE INITPOST_NETCDF(ncid2d,ncid3d) do j=jsta,jend do i=ista,iend - TV = T(I,J,L) * (H1+D608*MAX(Q(I,J,L),QMIN)) + TV = MAX(T(I,J,L) * (H1+D608 * MAX(Q(I,J,L),1e-8)),1e-8) RHOMID(I,J,L) = PMID(I,J,L) / (RD*TV) do n = 1, NBIN_DU IF ( dust(i,j,l,n) < SPVAL) THEN