FDS Source: Fix argument type

mcgratta · Sep 7, 2023 · 627addb · 627addb
1 parent a0b93ef
commit 627addb
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/Source/wall.f90 b/Source/wall.f90
@@ -3177,7 +3177,7 @@ REAL(EB) FUNCTION HEAT_TRANSFER_COEFFICIENT(NMX,DELTA_N_TMP,H_FIXED,SURF_INDEX_I
                CALL FORCED_CONVECTION_MODEL(NUSSELT_FORCED,RE,PR_ONTH,SURF_GEOMETRY)
             ENDIF
             RA = GR*PR_AIR
-            CALL NATURAL_CONVECTION_MODEL(NUSSELT_FREE,RA,SURF_INDEX_IN,SFX%GEOMETRY,BCX%IOR,DELTA_TMP)
+            CALL NATURAL_CONVECTION_MODEL(NUSSELT_FREE,RA,SURF_INDEX_IN,SFX%GEOMETRY,BCX%IOR,DELTA_N_TMP)
             IF (PRESENT(PARTICLE_INDEX_IN)) THEN
                HEAT_TRANSFER_COEFFICIENT = MAX(NUSSELT_FORCED,NUSSELT_FREE)*K_G/CONV_LENGTH
             ELSE