IF ( debugLevel .GE. debLevB
IF ( debugLevel.GE.debLevB ) THEN
IF ( debugLevel.GT.debLevB ) THEN
IF ( debugLevel .GE. debLevB ) THEN
OBCSprintDiags = debugLevel.GE.debLevB
IF ( debugLevel.GT.debLevB .AND. diagFreq.GT.0. ) THEN
IF ( OPPSdebugLevel.GE.debLevB ) THEN
CALL WRITE_0D_I( debLevB, INDEX_NONE,
dBug = debugLevel.GE.debLevB
IF ( debugLevel .GT. debLevB ) THEN
dBugFlag = debugLevel.GE.debLevB
IF ( debugMode ) debugLevel = MAX( debugLevel, debLevB )
IF ( debugLevel .GE. debLevB )
if ( debugLevel .GE. debLevB ) then
INTEGER debLevB
PARAMETER ( debLevB=2 )
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