Fixed the floating issue in debug mode

zhanglikate · Feb 29, 2024 · 532cb53 · 532cb53
1 parent 945cb2c
commit 532cb53
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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