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     \==========================================================/
cadj SUBROUTINE exch_xy_rs INPUT    = 1, 2
cadj SUBROUTINE exch_xy_rs OUTPUT   = 1
cadj SUBROUTINE exch_xy_rs ACTIVE   = 1
cadj SUBROUTINE exch_xy_rs DEPEND   = 2
cadj SUBROUTINE exch_xy_rs ADNAME   = adexch_xy_rs
cadj SUBROUTINE exch_xy_rs FTLNAME  = exch_xy_rs

cadj SUBROUTINE exch_xy_rl INPUT    = 1, 2
cadj SUBROUTINE exch_xy_rl OUTPUT   = 1
cadj SUBROUTINE exch_xy_rl ACTIVE   = 1
cadj SUBROUTINE exch_xy_rl DEPEND   = 2
cadj SUBROUTINE exch_xy_rl ADNAME   = adexch_xy_rl
cadj SUBROUTINE exch_xy_rl FTLNAME  = exch_xy_rl

cadj SUBROUTINE exch_xyz_rs INPUT   = 1, 2
cadj SUBROUTINE exch_xyz_rs OUTPUT  = 1
cadj SUBROUTINE exch_xyz_rs ACTIVE  = 1
cadj SUBROUTINE exch_xyz_rs DEPEND  = 2
cadj SUBROUTINE exch_xyz_rs ADNAME  = adexch_xyz_rs
cadj SUBROUTINE exch_xyz_rs FTLNAME = exch_xyz_rs

cadj SUBROUTINE exch_xyz_rl INPUT   = 1, 2
cadj SUBROUTINE exch_xyz_rl OUTPUT  = 1
cadj SUBROUTINE exch_xyz_rl ACTIVE  = 1
cadj SUBROUTINE exch_xyz_rl DEPEND  = 2
cadj SUBROUTINE exch_xyz_rl ADNAME  = adexch_xyz_rl
cadj SUBROUTINE exch_xyz_rl FTLNAME = exch_xyz_rl

cadj SUBROUTINE exch_xz_rs INPUT   = 1, 2
cadj SUBROUTINE exch_xz_rs OUTPUT  = 1
cadj SUBROUTINE exch_xz_rs ACTIVE  = 1
cadj SUBROUTINE exch_xz_rs DEPEND  = 2
cadj SUBROUTINE exch_xz_rs ADNAME  = adexch_xz_rs
cadj SUBROUTINE exch_xz_rs FTLNAME = exch_xz_rs

cadj SUBROUTINE exch_xz_rl INPUT   = 1, 2
cadj SUBROUTINE exch_xz_rl OUTPUT  = 1
cadj SUBROUTINE exch_xz_rl ACTIVE  = 1
cadj SUBROUTINE exch_xz_rl DEPEND  = 2
cadj SUBROUTINE exch_xz_rl ADNAME  = adexch_xz_rl
cadj SUBROUTINE exch_xz_rl FTLNAME = exch_xz_rl

cadj SUBROUTINE exch_yz_rs INPUT   = 1, 2
cadj SUBROUTINE exch_yz_rs OUTPUT  = 1
cadj SUBROUTINE exch_yz_rs ACTIVE  = 1
cadj SUBROUTINE exch_yz_rs DEPEND  = 2
cadj SUBROUTINE exch_yz_rs ADNAME  = adexch_yz_rs
cadj SUBROUTINE exch_yz_rs FTLNAME = exch_yz_rs

cadj SUBROUTINE exch_yz_rl INPUT   = 1, 2
cadj SUBROUTINE exch_yz_rl OUTPUT  = 1
cadj SUBROUTINE exch_yz_rl ACTIVE  = 1
cadj SUBROUTINE exch_yz_rl DEPEND  = 2
cadj SUBROUTINE exch_yz_rl ADNAME  = adexch_yz_rl
cadj SUBROUTINE exch_yz_rl FTLNAME = exch_yz_rl