CALL BAR2( myThid )
IF ( nthLoop.GT.1 ) CALL BAR2( myThid )
CALL BAR2( myThid)
SUBROUTINE BAR2( myThid )
CALL BAR2(myThid)