CALL PTRACERS_FIELDS_BLOCKING_EXCH( myThid )
& CALL PTRACERS_FIELDS_BLOCKING_EXCH(myThid)
SUBROUTINE PTRACERS_FIELDS_BLOCKING_EXCH( myThid )