Correct so will compile

ESCOMP · Oct 19, 2022 · 357fea5 · 357fea5
1 parent 0badb30
commit 357fea5
Showing 1 changed file with 1 addition and 3 deletions.
diff --git a/src/biogeophys/FrictionVelocityMod.F90 b/src/biogeophys/FrictionVelocityMod.F90
@@ -603,9 +603,7 @@ subroutine SetRoughnessLengthsAndForcHeightsNonLake(this, bounds, &
 
 
           else
-                z0mg(c) = this%zlnd
-
-             end if                   
+             z0mg(c) = this%zlnd
           end if
        end select