minor change on explicitly delcaring data type

ufs-community · Aug 23, 2023 · 96f6002 · 96f6002
1 parent 6ce3da1
commit 96f6002
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/physics/cu_gf_driver.F90 b/physics/cu_gf_driver.F90
@@ -324,7 +324,7 @@ subroutine cu_gf_driver_run(ntracer,garea,im,km,dt,flag_init,flag_restart,&
        rand_clos(:,:) = 0.
      else 
        do i=1,im
-         spp_wts_cu_deep_tmp=min(max(-1.0, spp_wts_cu_deep(i,1)),1.0)
+         spp_wts_cu_deep_tmp=min(max(-1.0_kind_phys, spp_wts_cu_deep(i,1)),1.0_kind_phys)
          rand_mom(i)    = spp_wts_cu_deep_tmp 
          rand_vmas(i)   = spp_wts_cu_deep_tmp 
          rand_clos(i,:) = spp_wts_cu_deep_tmp