FDS Source: Move EXTERNAL_RAMP and _CTRL allocation. Issue #14011

Author: drjfloyd

Source/main.f90

@@ -171,10 +171,6 @@ PROGRAM FDS
 
 IF (READ_EXTERNAL) THEN
    T_EXTERNAL = T_BEGIN + DT_EXTERNAL
-   ALLOCATE(EXTERNAL_RAMP(N_RAMP))
-   EXTERNAL_RAMP = RAMPS%LAST
-   ALLOCATE(EXTERNAL_CTRL(N_CTRL))
-   EXTERNAL_CTRL = CONTROL%INITIAL_STATE
    LU_EXTERNAL  = GET_FILE_NUMBER()
    IF (DT_EXTERNAL_HEARTBEAT > 0._EB) LU_EXTERNAL_HEARTBEAT = GET_FILE_NUMBER()
 ENDIF

Source/read.f90

@@ -10031,6 +10031,7 @@ END SUBROUTINE READ_CLIP
 
 SUBROUTINE READ_RAMP
 
+USE CONTROL_VARIABLES, ONLY: N_CTRL,CONTROL
 REAL(EB) :: X,Z,T,F,TM,INITIAL_VALUE
 INTEGER  :: I,II,NN,N,NUMBER_INTERPOLATION_POINTS,N_RES_RAMP
 CHARACTER(LABEL_LENGTH) :: DEVC_ID,CTRL_ID,CTRL_ID_DEP,DEVC_ID_DEP
@@ -10234,6 +10235,15 @@ SUBROUTINE READ_RAMP
    CALL SHUTDOWN(MESSAGE) ; RETURN
 ENDIF
 
+! Allocate and initialized external RAMP and CTRL
+
+IF (READ_EXTERNAL) THEN
+   ALLOCATE(EXTERNAL_RAMP(N_RAMP))
+   EXTERNAL_RAMP = RAMPS%LAST
+   ALLOCATE(EXTERNAL_CTRL(N_CTRL))
+   EXTERNAL_CTRL = CONTROL%INITIAL_STATE
+ENDIF
+
 END SUBROUTINE READ_RAMP