Fixup W&D: remove ssh input

E3SM-Ocean-Discussion · Mar 31, 2023 · b33e90f · b33e90f
1 parent 23414c3
commit b33e90f
Showing 1 changed file with 2 additions and 4 deletions.
diff --git a/components/mpas-ocean/src/shared/mpas_ocn_wetting_drying.F b/components/mpas-ocean/src/shared/mpas_ocn_wetting_drying.F
@@ -267,7 +267,7 @@ subroutine ocn_prevent_drying_rk4(block, dt, rkSubstepWeight, config_zero_drying
      ! sure tendency doesn't dry cells
 
      call ocn_wetting_drying_wettingVelocity(layerThickEdgeFlux, layerThicknessCur, layerThicknessProvis, &
-                                             normalTransportVelocity, ssh, rkSubstepWeight, wettingVelocityFactor, err)
+                                             normalTransportVelocity, rkSubstepWeight, wettingVelocityFactor, err)
 
      ! prevent drying from happening with selective wettingVelocityFactor
      if (config_zero_drying_velocity) then
@@ -306,7 +306,7 @@ end subroutine ocn_prevent_drying_rk4 !}}}
 !-----------------------------------------------------------------------
    subroutine ocn_wetting_drying_wettingVelocity(layerThickEdgeFlux, layerThicknessCur, layerThicknessProvis, &
 
-       normalVelocity, ssh, dt, wettingVelocityFactor, err)!{{{
+       normalVelocity, dt, wettingVelocityFactor, err)!{{{
 
       !-----------------------------------------------------------------
       !
@@ -326,8 +326,6 @@ subroutine ocn_wetting_drying_wettingVelocity(layerThickEdgeFlux, layerThickness
       real (kind=RKIND), dimension(:,:), intent(in) :: &
          normalVelocity     !< Input: transport
 
-      real (kind=RKIND), dimension(:), intent(in) :: ssh
-
       real (kind=RKIND), intent(in) :: &
          dt     !< Input: time step