Skip to content

Commit 3d97969

Browse files
committed
FDS Source: edit to U_NORMAL fix
1 parent 4553fe6 commit 3d97969

File tree

1 file changed

+1
-1
lines changed

1 file changed

+1
-1
lines changed

Source/wall.f90

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1674,7 +1674,7 @@ SUBROUTINE CALC_DEPOSITION(DT,BC,B1,B2,WALL_INDEX,CFACE_INDEX)
16741674
ENDIF
16751675
ENDIF
16761676

1677-
B2%V_DEP = MAX(0._EB,U_THERM+U_TURB+U_GRAV+B1%U_NORMAL)
1677+
B2%V_DEP = MAX(0._EB,U_THERM+U_TURB+U_GRAV+U_NORMAL)
16781678
IF (B2%V_DEP <= TWO_EPSILON_EB) CYCLE SMIX_LOOP
16791679
ZZ_GET = ZZ_GET * B1%RHO_G
16801680
Y_AEROSOL = ZZ_GET(N)

0 commit comments

Comments
 (0)