diff --git a/src/module_sf_noahmp_glacier.F b/src/module_sf_noahmp_glacier.F
index 8142dd83..89810135 100644
--- a/src/module_sf_noahmp_glacier.F
+++ b/src/module_sf_noahmp_glacier.F
@@ -1196,9 +1196,9 @@ SUBROUTINE SFCDIF1_GLACIER(ITER   ,ZLVL   ,ZPD    ,Z0H    ,Z0M    , & !in
     REAL,              INTENT(INOUT) :: FH     !sen heat stability correction, weighted by prior iters
     REAL,              INTENT(INOUT) :: FM2    !sen heat stability correction, weighted by prior iters
     REAL,              INTENT(INOUT) :: FH2    !sen heat stability correction, weighted by prior iters
+    REAL,              INTENT(INOUT) :: FV     !friction velocity (m/s)
 
 ! outputs
-    REAL,                INTENT(OUT) :: FV     !friction velocity (m/s)
     REAL,                INTENT(OUT) :: CM     !drag coefficient for momentum
     REAL,                INTENT(OUT) :: CH     !drag coefficient for heat
     REAL,                INTENT(OUT) :: CH2    !drag coefficient for heat
diff --git a/src/module_sf_noahmplsm.F b/src/module_sf_noahmplsm.F
index e9fad26b..aa9fb0d3 100644
--- a/src/module_sf_noahmplsm.F
+++ b/src/module_sf_noahmplsm.F
@@ -4618,12 +4618,12 @@ SUBROUTINE SFCDIF1(parameters,ITER   ,SFCTMP ,RHOAIR ,H      ,QAIR   , & !in
     REAL,              INTENT(INOUT) :: FH     !sen heat stability correction, weighted by prior iters
     REAL,              INTENT(INOUT) :: FM2    !sen heat stability correction, weighted by prior iters
     REAL,              INTENT(INOUT) :: FH2    !sen heat stability correction, weighted by prior iters
+    REAL,              INTENT(INOUT) :: FV     !friction velocity (m/s)
 
 ! outputs
 
     REAL,                INTENT(OUT) :: CM     !drag coefficient for momentum
     REAL,                INTENT(OUT) :: CH     !drag coefficient for heat
-    REAL,                INTENT(OUT) :: FV     !friction velocity (m/s)
     REAL,                INTENT(OUT) :: CH2    !drag coefficient for heat
 
 ! locals
@@ -4769,7 +4769,7 @@ SUBROUTINE SFCDIF2(parameters,ITER   ,Z0     ,THZ0   ,THLM   ,SFCSPD , & !in
     REAL, intent(INOUT) :: AKHS
     REAL, intent(INOUT) :: RLMO
     REAL, intent(INOUT) :: WSTAR2
-    REAL,   intent(OUT) :: USTAR
+    REAL, intent(INOUT) :: USTAR
 
     REAL     ZZ, PSLMU, PSLMS, PSLHU, PSLHS
     REAL     XX, PSPMU, YY, PSPMS, PSPHU, PSPHS