INTEGER debLevA
PARAMETER(debLevA=1)
IF ( debugLevel .GE. debLevA ) THEN
IF ( debugLevel.GE.debLevA ) THEN
IF ( debugLevel.GE.debLevA .AND. myThid.EQ.1 ) THEN
IF ( outpSummary .AND. debugLevel.GE.debLevA ) THEN
IF ( debugLevel.GE.debLevA .OR.
IF ( debugLevel.GE.debLevA .AND. myTime.LT.62208000.) THEN
CALL WRITE_0D_I( debLevA, INDEX_NONE,
debugLevel = debLevA
IF ( OPPSdebugLevel.GE.debLevA ) THEN
IF ( OPPSdebugLevel .GE. debLevA ) THEN
if ( debugLevel .GE. debLevA ) then