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