Fixed an error in MARSH module

schism-dev · May 24, 2024 · 7eb5dfe · 7eb5dfe
1 parent b3fcc71
commit 7eb5dfe
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Hydro/schism_step.F90 b/src/Hydro/schism_step.F90
@@ -8175,7 +8175,7 @@ subroutine schism_step(it)
 
       !Set Cd etc for marsh and also drowned marsh
 !$OMP workshare
-      veg_di=0.d0; veg_h=0.d0; veg_nv=0.d0; veg_alpha=0.d0
+      veg_di=0.d0; veg_h=0.d0; veg_nv=0.d0; veg_alpha0=0.d0
 !$OMP end workshare
 !$OMP do 
       do i=1,np