IF ( debugLevel.GE.debLevB ) THEN
exf_debugLev = debugLevel
& monitorSelect, debugLevel
INTEGER debugLevel
IF ( debugLevel .GE. debLevC
IF ( debugLevel.GE.debLevD ) THEN
IF ( debugLevel .GE. debLevC ) THEN
IF ( debugLevel .GE. debLevB ) THEN
if ( debugLevel .GE. debLevB ) then
IF ( debugLevel.GE.debLevC ) THEN
ELSEIF ( debugLevel.GE.debLevA ) THEN
IF ( debugLevel.GE.debLevC .AND.
IF ( debugLevel.GE.debLevA .AND. IL.GT.0 ) THEN
IF ( debugLevel .GE. debLevZero ) THEN
IF ( debugLevel.GE.debLevC .AND. diagFreq.GT.0. ) THEN
IF ( debugLevel.GE.debLevC .AND. areaOB.GT.0. ) THEN
CALL WRITE_0D_I( debugLevel, INDEX_NONE,
IF ( debugLevel.GE.debLevA ) THEN
IF ( debugLevel.GE.debLevZero ) THEN
OBCSprintDiags = debugLevel.GE.debLevC
prtMsg = debugLevel.GE.debLevA .AND. myThid.EQ.1
IF ( debugLevel .GE. debLevD ) THEN
IF ( debugLevel .GE. debLevE ) THEN
dBug = debugLevel.GE.debLevC
IF ( doRidgeAgain .AND. debugLevel .GE. debLevA ) THEN
IF ( debugLevel.GE.debLevA .AND. doLineSearch ) THEN
printResidual = debugLevel.GE.debLevA
printResidual = debugLevel.GE.debLevC
dBugFlag = debugLevel.GE.debLevC
printDomain = debugLevel.GE.debLevB
& usePickupBeforeC35, usePickupBeforeC54, debugMode, debugLevel,
IF ( debugLevel.GE.debLevE ) printResidualFreq = 1
IF ( debugLevel.GE.debLevA .OR. startTime.EQ.baseTime ) THEN
debugLevel = debLevD
debugLevel = debLevB
debugLevel = debLevA
IF ( debugLevel .GE. debLevA ) THEN
IF ( myIter.EQ.1+nIter0 .AND. debugLevel .GE. debLevA ) THEN
I debugLevel, debugMode,
IF ( debugLevel.GE.debLevB ) CFC_monFreq = PTRACERS_monitorFreq
writeDbug = debugLevel.GE.debLevC .AND. diagFreq.GT.0.
IF ( debugLevel.GE.debLevB .AND. nIter0.EQ.0 ) THEN
IF ( debugLevel.GE.debLevC .AND. nIter0.EQ.0 ) THEN
IF ( debugLevel.GE.debLevA .AND. k.EQ.1 ) THEN
IF ( debugLevel.GE.debLevB .AND. myThid.EQ.1 ) THEN
IF ( debugLevel.GE.debLevA .AND. myProcId.EQ.0 ) THEN
IF ( outpSummary .AND. debugLevel.GE.debLevB ) THEN
dBugFlag = debugLevel.GE.debLevE
dBugFlag = debugLevel.GE.debLevE .AND. myThid.EQ.1
IF ( DWNSLP_ioUnit.GT.0 .AND. debugLevel.LT.debLevD ) THEN