& monitorSelect, debugLevel
INTEGER monitorSelect
IF ( monitorSelect.GE.1 ) THEN
IF ( monitorSelect.GE.3 .AND.
IF ( monitorSelect.GE.3 ) THEN
IF ( monitorSelect.GE.2 ) CALL MON_VORT3( myIter, myThid )
IF ( monitorSelect.GE.2 ) CALL MON_SURFCOR( myThid )
CALL WRITE_0D_I( monitorSelect, INDEX_NONE, 'monitorSelect =',
IF ( monitorSelect.EQ.UNSET_I ) THEN
monitorSelect = 2
IF ( fluidIsWater ) monitorSelect = 3
& diagFreq, monitorFreq, adjMonitorFreq, monitorSelect,
monitorSelect = UNSET_I