replace the hardcoded precision constants with the appropriate precision

ufs-community · Nov 12, 2024 · f6f1892 · f6f1892
1 parent b325da7
commit f6f1892
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/physics/CONV/progsigma_calc.f90 b/physics/CONV/progsigma_calc.f90
@@ -115,7 +115,7 @@ subroutine progsigma_calc (im,km,flag_init,flag_restart,flag_shallow,&
             sigmab(i) = sigmain(i,k)
           else
             sigmab(i) = sigmab(i) / sumx(i)
-            sigmab(i) = min(sigmab(i), 1.0)
+            sigmab(i) = min(sigmab(i), 1._kind_phys)
             if(sigmab(i) < 1.E-5) sigmab(i)=0.
           endif
         endif
@@ -184,7 +184,7 @@ subroutine progsigma_calc (im,km,flag_init,flag_restart,flag_shallow,&
       !sigmab
       do i = 1,im
          if(cnvflg(i))then
-            DEN=MIN(termC(i)+termB(i),1.E8)
+            DEN=MIN(termC(i)+termB(i),1._kind_phys)
             cvg=termD(i)*delt
             ZZ=MAX(0.0,SIGN(1.0,termA(i)))            &
                  *MAX(0.0,SIGN(1.0,termB(i)))         &