Merge pull request #12438 from marcosvanella/master

FDS Source : Initialize MU_DNS in init.f90.
firemodels · Feb 6, 2024 · 2c8a710 · 2c8a710
2 parents bbe7bd4 + 499179e
commit 2c8a710
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/Source/init.f90 b/Source/init.f90
@@ -118,7 +118,7 @@ SUBROUTINE INITIALIZE_MESH_VARIABLES_1(DT,NM)
 ALLOCATE(M%MU(0:IBP1,0:JBP1,0:KBP1),STAT=IZERO)
 CALL ChkMemErr('INIT','MU',IZERO)
 ALLOCATE(M%MU_DNS(0:IBP1,0:JBP1,0:KBP1),STAT=IZERO)
-CALL ChkMemErr('INIT','MU_DNS',IZERO)
+CALL ChkMemErr('INIT','MU_DNS',IZERO); M%MU_DNS = 0._EB
 IF (CHECK_VN) THEN
    ALLOCATE(M%D_Z_MAX(0:IBP1,0:JBP1,0:KBP1),STAT=IZERO)
    CALL ChkMemErr('INIT','D_Z_MAX',IZERO)