add kind_phys to parameter in mp_nssl

ufs-community · Jan 25, 2024 · 4bdf3fa · 4bdf3fa
1 parent c946020
commit 4bdf3fa
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/physics/MP/NSSL/mp_nssl.F90 b/physics/MP/NSSL/mp_nssl.F90
@@ -79,7 +79,7 @@ subroutine mp_nssl_init(ncol, nlev, errflg, errmsg, threads, restart, &
          integer               :: ims,ime, jms,jme, kms,kme, nx, nz, i,k
          real :: nssl_params(20)
          integer :: ihailv,ipc
-         real, parameter :: qmin = 1.e-12
+         real(kind_phys), parameter :: qmin = 1.e-12
          integer :: ierr
          logical :: missing_vars = .False.
 
@@ -347,7 +347,7 @@ subroutine mp_nssl_run(ncol, nlev, con_g, con_rd, mpirank, &
                             its,ite, jts,jte, kts,kte, i,j,k
          integer :: itimestep ! timestep counter
          integer :: ntmul, n
-         real, parameter    :: dtpmax = 60. ! allow up to dt=75 (1.25*60)
+         real(kind_phys), parameter    :: dtpmax = 60. ! allow up to dt=75 (1.25*60)
          real(kind_phys)    :: dtptmp
          integer, parameter :: ndebug = 0
          logical :: invertccn