CHARACTER*(*) SQUEEZE_BOTH
PARAMETER ( SQUEEZE_BOTH = 'B' )
& SQUEEZE_BOTH , myThid)
IF ( sq .EQ. SQUEEZE_BOTH .OR.
& SQUEEZE_BOTH,myThid)
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,SQUEEZE_BOTH , 1)