pkg/autodiff/exch_z_ad.flow

C     /==========================================================\
C     | TAMC flow directives                                     |
C     | for library subroutines    exch_z_xy_rs  exch_z_xyz_rs   |
C     |                            exch_z_xy_rl  exch_z_xyz_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     |==========================================================|
C     | SUBROUTINE EXCH_Z_*_R* is linear                         |
C     | only the array argument is active                        |
C     | only myThid is required for the adjoint subroutine       |
C     \==========================================================/
cadj SUBROUTINE exch_z_xy_rs INPUT   = 1, 2
cadj SUBROUTINE exch_z_xy_rs OUTPUT  = 1
cadj SUBROUTINE exch_z_xy_rs ACTIVE  = 1
cadj SUBROUTINE exch_z_xy_rs DEPEND  = 2
cadj SUBROUTINE exch_z_xy_rs ADNAME  = adexch_z_xy_rs

cadj SUBROUTINE exch_z_xy_rl INPUT   = 1, 2
cadj SUBROUTINE exch_z_xy_rl OUTPUT  = 1
cadj SUBROUTINE exch_z_xy_rl ACTIVE  = 1
cadj SUBROUTINE exch_z_xy_rl DEPEND  = 2
cadj SUBROUTINE exch_z_xy_rl ADNAME  = adexch_z_xy_rl

cadj SUBROUTINE exch_z_xyz_rs INPUT   = 1, 2
cadj SUBROUTINE exch_z_xyz_rs OUTPUT  = 1
cadj SUBROUTINE exch_z_xyz_rs ACTIVE  = 1
cadj SUBROUTINE exch_z_xyz_rs DEPEND  = 2
cadj SUBROUTINE exch_z_xyz_rs ADNAME  = adexch_z_xyz_rs

cadj SUBROUTINE exch_z_xyz_rl INPUT   = 1, 2
cadj SUBROUTINE exch_z_xyz_rl OUTPUT  = 1
cadj SUBROUTINE exch_z_xyz_rl ACTIVE  = 1
cadj SUBROUTINE exch_z_xyz_rl DEPEND  = 2
cadj SUBROUTINE exch_z_xyz_rl ADNAME  = adexch_z_xyz_rl
1	heimbach	1.1	C /==========================================================\
2			C \| TAMC flow directives \|
3			C \| for library subroutines exch_z_xy_rs exch_z_xyz_rs \|
4			C \| exch_z_xy_rl exch_z_xyz_rl \|
5			C \|==========================================================\|
6			C \| These directives are for standard adjoint code \|
7			C \| generation (vector Jacobian product). \|
8			C \| tamc -reverse .... \|
9			C \| \|
10			C \| written and tested by Ralf Giering, Jan. 14th 1999 \|
11			C \| added new S/R's for _xz_ , _yz_ heimbach@mit.edu May-01 \|
12			C \|==========================================================\|
13			C \| SUBROUTINE EXCH_Z__R is linear \|
14			C \| only the array argument is active \|
15			C \| only myThid is required for the adjoint subroutine \|
16			C \==========================================================/
17			cadj SUBROUTINE exch_z_xy_rs INPUT = 1, 2
18			cadj SUBROUTINE exch_z_xy_rs OUTPUT = 1
19			cadj SUBROUTINE exch_z_xy_rs ACTIVE = 1
20			cadj SUBROUTINE exch_z_xy_rs DEPEND = 2
21			cadj SUBROUTINE exch_z_xy_rs ADNAME = adexch_z_xy_rs
22
23			cadj SUBROUTINE exch_z_xy_rl INPUT = 1, 2
24			cadj SUBROUTINE exch_z_xy_rl OUTPUT = 1
25			cadj SUBROUTINE exch_z_xy_rl ACTIVE = 1
26			cadj SUBROUTINE exch_z_xy_rl DEPEND = 2
27			cadj SUBROUTINE exch_z_xy_rl ADNAME = adexch_z_xy_rl
28
29			cadj SUBROUTINE exch_z_xyz_rs INPUT = 1, 2
30			cadj SUBROUTINE exch_z_xyz_rs OUTPUT = 1
31			cadj SUBROUTINE exch_z_xyz_rs ACTIVE = 1
32			cadj SUBROUTINE exch_z_xyz_rs DEPEND = 2
33			cadj SUBROUTINE exch_z_xyz_rs ADNAME = adexch_z_xyz_rs
34
35			cadj SUBROUTINE exch_z_xyz_rl INPUT = 1, 2
36			cadj SUBROUTINE exch_z_xyz_rl OUTPUT = 1
37			cadj SUBROUTINE exch_z_xyz_rl ACTIVE = 1
38			cadj SUBROUTINE exch_z_xyz_rl DEPEND = 2
39			cadj SUBROUTINE exch_z_xyz_rl ADNAME = adexch_z_xyz_rl