C     /==========================================================\
C     | TAMC flow directives                                     |
C     | for library subroutines    exch_xy_rs  exch_xyz_rs       |
C     |                            exch_xy_rl  exch_xyz_rl       |
C     |                            exch_xz_rs exch_yz_rs         |
C     |                            exch_xz_rl exch_yz_rl         |
C     |==========================================================|
C     | These directives are for standard adjoint code           |
C     | generation (vector Jacobian product).                    |
C     |   tamc -reverse  ....                                    |
C     |                                                          |
C     | written and tested by Ralf Giering, Jan. 14th 1999       |
C     | added new S/R's for _xz_ , _yz_ heimbach@mit.edu May-01  |
C     | extended to tangent linear code heimbach@mit.edu Jan-02  |
C     |==========================================================|
C     | SUBROUTINE EXCH_*_R* is linear                           |
C     | only the array argument is active                        |
C     | only myThid is required for the adjoint subroutine       |
C     \==========================================================/
cph(
cph Suppress flow directives in conjunction with EXCH2 adjoint
cph Keep this file empty!
cph)