diff --git a/src/Basement/3DBasementHT.f90 b/src/Basement/3DBasementHT.f90 index 01c6a55eb8b..b1dcd6b60f4 100644 --- a/src/Basement/3DBasementHT.f90 +++ b/src/Basement/3DBasementHT.f90 @@ -1008,7 +1008,7 @@ SUBROUTINE GetSimParams(RUNID) SimParams%F=.1d0 ENDIF SimParams%IYRS =NumArray(2) - + ! Override with environment variable for quicker testing CALL GET_ENVIRONMENT_VARIABLE("CI_BASEMENT_NUMYEARS", EnvVarNumYearsString, EnvVarNumYearsStringLength, EnvVarNumYearsStatus) SELECT CASE (EnvVarNumYearsStatus) @@ -1026,7 +1026,7 @@ SUBROUTINE GetSimParams(RUNID) SimParams%IYRS = EnvVarNumYears END IF END SELECT - + IF (SimParams%IYRS <= 0.d0) THEN CALL ShowSevereError('GetSimParams: Entered "IYRS: Maximum number of yearly iterations:" '// & 'choice is not valid.'// & @@ -2266,6 +2266,7 @@ SUBROUTINE BasementSimulator(RUNID,NMAT,CVG,XDIM,YDIM,ZDIM,TG) REAL(r64) Elapsed_Time INTEGER IHrStart INTEGER IHrEnd + INTEGER CI_BAIL_EARLY_STATUS CALL CPU_TIME(Time_Start) @@ -2589,6 +2590,12 @@ SUBROUTINE BasementSimulator(RUNID,NMAT,CVG,XDIM,YDIM,ZDIM,TG) !*** Echo input data CALL PrelimOutput(ACEIL,AFLOOR,ARIM,ASILL,AWALL,PERIM,RUNID,TDBH,TDBC) + CALL GET_ENVIRONMENT_VARIABLE("CI_BAIL_EARLY", status=CI_BAIL_EARLY_STATUS) + IF (CI_BAIL_EARLY_STATUS == 0) THEN + print *, 'Exiting early because envionment variable CI_BAIL_EARLY was found' + CALL EXIT(0) + END IF + !*** Initialize temperatures in 3-D domain !*** T(X,Y,Z)=TG(Z) READ (GroundTemp,*) RSKY,HHEAT,HMASS,DODPG,(TG(COUNT1), COUNT1=0,NZBGM1) diff --git a/src/Basement/CMakeLists.txt b/src/Basement/CMakeLists.txt index ba97d163421..6ca2fa3b3d9 100644 --- a/src/Basement/CMakeLists.txt +++ b/src/Basement/CMakeLists.txt @@ -97,7 +97,10 @@ if(BUILD_TESTING) COMMAND $ WORKING_DIRECTORY ${TEST_DIR} ) - set_tests_properties("${TEST_NAME}" PROPERTIES FAIL_REGULAR_EXPRESSION "Terminated;Error(s) Detected") + set_tests_properties("${TEST_NAME}" PROPERTIES + FAIL_REGULAR_EXPRESSION "Terminated;Error(s) Detected" + ENVIRONMENT "CI_BAIL_EARLY=1" + ) endmacro() basement_test(AutoGriddingDepthIsHigh)