kind_phys for clm_lakedepth

SamuelTrahanNOAA · Sep 25, 2023 · f3c99db · f3c99db
1 parent 81002e8
commit f3c99db
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/physics/clm_lake.f90 b/physics/clm_lake.f90
@@ -5300,7 +5300,8 @@ end subroutine clm_lake_init
   subroutine calculate_constants(i, ISLTYP, clm_lakedepth, watsat, tkdry, tkmg, tksatu, csol, z_lake, dz_lake)
     implicit none
     integer, intent(in) :: i, ISLTYP(:)
-    real(kind_lake), intent(inout) :: clm_lakedepth(:), watsat, tkdry, tkmg, tksatu, csol
+    real(kind_phys), intent(inout) :: clm_lakedepth(:)
+    real(kind_lake), intent(inout) :: watsat, tkdry, tkmg, tksatu, csol
     real(kind_lake), intent(inout) :: z_lake(:), dz_lake(:)
     ! locals
     real(kind_lake) :: bd, tkm, depthratio