prtMsg = 1
prtMsg = prtMsg*debugLevel
IF ( prtMsg.GE.debLevC ) THEN
IF ( prtMsg.GE.debLevA ) THEN
INTEGER fp, prtMsg
prtMsg = 0
LOGICAL prtMsg
prtMsg = debugLevel.GE.debLevA .AND. myThid.EQ.1
IF ( prtMsg ) THEN
I prtMsg, myTime, myIter, myThid )
IF ( prtMsg .AND. nPts.GT.prev_nPts ) THEN