Skip to content

Commit 771a14b

Browse files
authored
Merge pull request #14294 from drjfloyd/master
FDS Source: Keep existing CONV_LENGTH for CARTESIAN particles.
2 parents 7068d18 + 74d8b2c commit 771a14b

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
@@ -3536,7 +3536,7 @@ REAL(EB) FUNCTION HEAT_TRANSFER_COEFFICIENT(NMX,DELTA_N_TMP,H_FIXED,SFX,WALL_IND
35363536
BCX => BOUNDARY_COORD(LPX%BC_INDEX)
35373537
DN = SFX%CONV_LENGTH
35383538
R_DROP = LPX%RADIUS
3539-
IF (R_DROP>TWO_EPSILON_EB) CONV_LENGTH = 2._EB*R_DROP
3539+
IF (R_DROP>TWO_EPSILON_EB .AND. SFX%GEOMETRY/=SURF_CARTESIAN) CONV_LENGTH = 2._EB*R_DROP
35403540
TMP_G = P1X%TMP_G
35413541
RHO_G = P1X%RHO_G
35423542
ZZ_G(1:N_TRACKED_SPECIES) = P1X%ZZ_G(1:N_TRACKED_SPECIES)

0 commit comments

Comments
 (0)