diff --git a/physics/scm_sfc_flux_spec.F90 b/physics/scm_sfc_flux_spec.F90
index 292e4a802..161ee300f 100644
--- a/physics/scm_sfc_flux_spec.F90
+++ b/physics/scm_sfc_flux_spec.F90
@@ -73,7 +73,7 @@ subroutine scm_sfc_flux_spec_run (im, u1, v1, z1, t1, q1, p1, roughness_length,
     integer,          intent(out) :: errflg
 
     integer :: i
-    integer, parameter :: true = 1, false = 0 ! to match type of use_lake_model
+    integer, parameter :: lake_model_on = 1, lake_model_off = 0 ! to match type of use_lake_model
 
     real(kind=kind_phys) :: rho, q1_non_neg, w_thv1, rho_cp_inverse, rho_hvap_inverse, Obukhov_length, thv1, tvs, &
       dtv, adtv, wind10m, u_fraction, roughness_length_m
@@ -213,12 +213,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) = lake_model_on
       else
-        use_lake_model(i) = false
+        use_lake_model(i) = lake_model_off
       endif
     else
-      use_lake_model(i) = false
+      use_lake_model(i) = lake_model_off
     endif
   enddo
 !
diff --git a/physics/w3emc_wrapper.F90 b/physics/w3emc_wrapper.F90
index aed091efa..e121cef6c 100644
--- a/physics/w3emc_wrapper.F90
+++ b/physics/w3emc_wrapper.F90
@@ -1,4 +1,4 @@
-!> \file scm_kinds.f90
+!> \file w3emc_wrapper.f90
 !! Wrapper with generic interfaces for w3emc library to reduce warnings
 !  Modules wrap w3emc routines:
 !    - w3difdat: https://www.nco.ncep.noaa.gov/pmb/docs/libs/w3lib/w3difdat.html