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..e835b77ff 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(:)