& monitorSelect, debugLevel
INTEGER debugLevel
IF ( debugLevel.GE.debLevB ) THEN
IF ( debugLevel .GE. debLevB
IF (debugLevel .GT. 0) THEN
IF ( debugLevel .GE. debLevB )
if ( debugLevel .GE. debLevA ) then
IF ( debugLevel.GT.debLevB ) THEN
IF ( debugLevel .GE. debLevA ) THEN
IF ( debugLevel .GE. debLevB ) THEN
IF ( debugLevel.GE.debLevA .AND. IL.GT.0 ) THEN
OBCSprintDiags = debugLevel.GE.debLevB
IF ( debugLevel .GE. debLevZero ) THEN
IF ( debugLevel.GT.debLevB .AND. diagFreq.GT.0. ) THEN
CALL WRITE_0D_I( debugLevel, INDEX_NONE,
IF ( debugLevel.GE.debLevA ) THEN
IF ( debugLevel.GE.debLevB )
dBug = debugLevel.GE.debLevB
If ( debugLevel .GE. debLevB ) THEN
IF ( debugLevel .GT. debLevB ) THEN
IF ( debugLevel.GE.debLevA .AND. myTime.LT.62208000.) THEN
dBugFlag = debugLevel.GE.debLevB
IF ( debugLevel.GE.debLevA .OR.
IF ( debugMode ) debugLevel = debLevB
IF ( debugLevel .GE. debLevB ) debugMode = .TRUE.
& usePickupBeforeC35, usePickupBeforeC54, debugMode, debugLevel,
debugLevel = debLevA
IF ( myIter.EQ.1+nIter0 .AND. debugLevel .GE. debLevA ) THEN
IF ( debugLevel.GE.debLevA .AND. myThid.EQ.1 ) THEN
IF ( debugLevel.GE.debLevA .AND. myProcId.EQ.0 ) THEN
IF ( outpSummary .AND. debugLevel.GE.debLevA ) THEN
dBugFlag = debugLevel.GT.debLevB
dBugFlag = debugLevel.GT.debLevB .AND. myThid.EQ.1
& ( myiter.EQ.niter0 .OR. debugLevel.GE.debLevB ) ) then
if ( debugLevel .ge. debLevB ) then
IF ( debugLevel .GT. debLevA ) THEN