& ( myiter.EQ.niter0 .OR. debugLevel.GE.debLevB ) ) then
if ( debugLevel .ge. debLevB ) then
INTEGER debLevB
PARAMETER(debLevB=2)
IF (debugLevel.GE.debLevB) WRITE(ioUnit,'(2A)')
IF (debugLevel.GE.debLevB) WRITE(ioUnit,'(A,I3)')
IF (debugLevel.GE.debLevB) WRITE(ioUnit,'(A,I3,A)')
dBugFlag = debugLevel.GT.debLevB
dBugFlag = debugLevel.GT.debLevB .AND. myThid.EQ.1
IF ( debugLevel.GE.debLevB ) THEN
IF ( debugLevel .GE. debLevB )
If ( debugLevel .GE. debLevB ) THEN
IF ( debugLevel .GT. debLevB ) THEN
IF ( debugMode ) debugLevel = debLevB
IF ( debugLevel .GE. debLevB ) THEN
CALL WRITE_0D_I( debLevB, INDEX_NONE,
IF ( OPPSdebugLevel.GE.debLevB ) THEN
if (debugLevel .GE. debLevB) then
if ( debugLevel .GE. debLevB ) then
dBugFlag = debugLevel.GE.debLevB
IF ( debugLevel .GE. debLevB