diff --git a/src/Extensions/hcox_dustdead_mod.F b/src/Extensions/hcox_dustdead_mod.F index e2721553..928411e5 100644 --- a/src/Extensions/hcox_dustdead_mod.F +++ b/src/Extensions/hcox_dustdead_mod.F @@ -5868,7 +5868,7 @@ SUBROUTINE ReadTuningFactor(HcoState, TuningTable, FCT, RC ) FNDLABEL = TRIM(CSLABEL) IF ( .NOT. HcoState%Grid%AREA_M2%Alloc ) THEN MSG = 'Warning: AREA_M2 not found, will use default number' - CALL HCO_WARNING( MSG, RC, 1, LOC ) + CALL HCO_WARNING( MSG, RC, .TRUE., LOC ) ELSE AM2 = SUM(HcoState%Grid%AREA_M2%Val)/(HcoState%NX*HcoState%NY) RES = SQRT(AM2)