FDS Source update FREEZE_TIME logical comp to use _EB

Author: Hodges

Source/main.f90

@@ -532,7 +532,7 @@ PROGRAM FDS
 
 INITIALIZATION_PHASE = .FALSE.
 
-IF (UNFREEZE_TIME > 0) THEN 
+IF (UNFREEZE_TIME > 0._EB) THEN 
    FREEZE_VELOCITY=.TRUE. 
    SOLID_PHASE_ONLY=.TRUE.
 ENDIF
@@ -574,7 +574,7 @@ PROGRAM FDS
    LO10 = INT(LOG10(REAL(MAX(1,ABS(ICYC)),EB)))
    IF (MOD(ICYC,10**LO10)==0 .OR. MOD(ICYC,DIAGNOSTICS_INTERVAL)==0 .OR. (T+DT)>=T_END) DIAGNOSTICS = .TRUE.
 
-   IF ((UNFREEZE_TIME > 0).AND.(T>UNFREEZE_TIME)) THEN 
+   IF ((UNFREEZE_TIME > 0._EB).AND.(T>UNFREEZE_TIME)) THEN 
       FREEZE_VELOCITY=.FALSE.
       SOLID_PHASE_ONLY=.FALSE.
    ENDIF

Source/read.f90

@@ -1800,7 +1800,7 @@ SUBROUTINE READ_MISC
 MAX_LEAK_PATHS       = 200
 FLUX_LIMITER         = 'null'
 LES_FILTER_TYPE      = 'null'
-UNFREEZE_TIME        = -1
+UNFREEZE_TIME        = -1._EB
 
 ! Initial read of the MISC line