From 5356ef23a826ad5235d5616ba616312e56e5303b Mon Sep 17 00:00:00 2001
From: Grant Firl <grant.firl@noaa.gov>
Date: Fri, 9 Feb 2024 20:44:51 -0500
Subject: [PATCH] fix use_lake_model type in scm_sfc_flux_spec.F90

---
 .../UFS_SCM_NEPTUNE/scm_sfc_flux_spec.F90              | 10 +++++-----
 1 file changed, 5 insertions(+), 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
index 835b468ff..a3cf2d740 100644
--- 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
 !