Merge branch 'main' into ufs-dev-PR181

grantfirl · Mar 29, 2024 · 212f3ff · 212f3ff
2 parents 3f4d3cf + b2a7338
commit 212f3ff
Showing 1 changed file with 5 additions and 5 deletions.
diff --git a/physics/Interstitials/UFS_SCM_NEPTUNE/scm_sfc_flux_spec.F90 b/physics/Interstitials/UFS_SCM_NEPTUNE/scm_sfc_flux_spec.F90
@@ -58,9 +58,9 @@ subroutine scm_sfc_flux_spec_run (im, u1, v1, z1, t1, q1, p1, roughness_length,
     use machine,             only: kind_phys
 
     integer, intent(in)    :: im, lkm
-    integer, intent(inout) :: islmsk(:)
+    integer, intent(inout) :: islmsk(:), use_lake_model(:)
     logical, intent(in)    :: cplflx, cplice
-    logical, intent(inout) :: dry(:), icy(:), flag_cice(:), wet(:), use_lake_model(:)
+    logical, intent(inout) :: dry(:), icy(:), flag_cice(:), wet(:)
     real(kind=kind_phys), intent(in)    :: cp, grav, hvap, rd, fvirt, vonKarman, min_seaice, tgice, min_lakeice
     real(kind=kind_phys), intent(in)    :: u1(:), v1(:), z1(:), t1(:), q1(:), p1(:), roughness_length(:), &
       spec_sh_flux(:), spec_lh_flux(:), exner_inverse(:), T_surf(:), oceanfrac(:), lakefrac(:), lakedepth(:)
@@ -212,12 +212,12 @@ subroutine scm_sfc_flux_spec_run (im, u1, v1, z1, t1, q1, p1, roughness_length,
   do i = 1, im
     if ((wet(i) .or. icy(i)) .and. lakefrac(i) > 0.0_kind_phys) then
       if (lkm == 1 .and. lakefrac(i) >= 0.15 .and. lakedepth(i) > 1.0_kind_phys) then
-        use_lake_model(i) = .true.
+        use_lake_model(i) = 1
       else
-        use_lake_model(i) = .false.
+        use_lake_model(i) = 0
       endif
     else
-      use_lake_model(i) = .false.
+      use_lake_model(i) = 0
     endif
   enddo
 !