From f6f18927fed34af525753c9635f95895f4577c49 Mon Sep 17 00:00:00 2001 From: rhaesung Date: Tue, 12 Nov 2024 15:00:28 +0000 Subject: [PATCH] replace the hardcoded precision constants with the appropriate precision --- physics/CONV/progsigma_calc.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/physics/CONV/progsigma_calc.f90 b/physics/CONV/progsigma_calc.f90 index b6f6428b1..49a925867 100644 --- 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))) &