Merge pull request #519 from rpeacoc/master

CFAST: Fixed calling error in vertical flow routine …
firemodels · Jul 12, 2016 · b82e334 · b82e334
2 parents 4f91045 + 1c36b38
commit b82e334
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/Source/CFAST/flowvertical.f90 b/Source/CFAST/flowvertical.f90
@@ -61,7 +61,7 @@ subroutine vertical_flow (tsec,flwvf,vflowflg)
         area = fraction * ventptr%area
         ventptr%current_area = area
         ishape = ventptr%shape
-        call ventcf (itop, ibot, area, ishape, epscut, vvent, xmvent, tmvent)
+        call ventcf (itop, ibot, area, ishape, epscut, xmvent, vvent, tmvent)
 
         ventptr%n_slabs = 2
         do iflow = 1, 2