/[MITgcm]/MITgcm/pkg/autodiff/exch_ad.flow
ViewVC logotype

Diff of /MITgcm/pkg/autodiff/exch_ad.flow

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.2 by heimbach, Mon May 14 21:34:37 2001 UTC revision 1.3 by heimbach, Fri Jul 13 13:33:49 2001 UTC
# Line 1  Line 1 
1  C     /==========================================================\  C     /==========================================================\
2  C     | TAMC flow directives                                     |  C     | TAMC flow directives                                     |
3  C     | for library subroutines    exch_xy_r4  exch_xyz_r4       |  C     | for library subroutines    exch_xy_rs  exch_xyz_rs       |
4  C     |                            exch_xy_r8  exch_xyz_r8       |  C     |                            exch_xy_rl  exch_xyz_rl       |
5  C     |                            exch_xz_r4 exch_yz_r4         |  C     |                            exch_xz_rs exch_yz_rs         |
6  C     |                            exch_xz_r8 exch_yz_r8         |  C     |                            exch_xz_rl exch_yz_rl         |
7  C     |==========================================================|  C     |==========================================================|
8  C     | These directives are for standard adjoint code           |  C     | These directives are for standard adjoint code           |
9  C     | generation (vector Jacobian product).                    |  C     | generation (vector Jacobian product).                    |
# Line 16  C     | SUBROUTINE EXCH_*_R* is linear Line 16  C     | SUBROUTINE EXCH_*_R* is linear
16  C     | only the array argument is active                        |  C     | only the array argument is active                        |
17  C     | only myThid is required for the adjoint subroutine       |  C     | only myThid is required for the adjoint subroutine       |
18  C     \==========================================================/  C     \==========================================================/
19  cadj SUBROUTINE exch_xy_r4 INPUT   = 1, 2  cadj SUBROUTINE exch_xy_rs INPUT   = 1, 2
20  cadj SUBROUTINE exch_xy_r4 OUTPUT  = 1  cadj SUBROUTINE exch_xy_rs OUTPUT  = 1
21  cadj SUBROUTINE exch_xy_r4 ACTIVE  = 1  cadj SUBROUTINE exch_xy_rs ACTIVE  = 1
22  cadj SUBROUTINE exch_xy_r4 DEPEND  = 2  cadj SUBROUTINE exch_xy_rs DEPEND  = 2
23  cadj SUBROUTINE exch_xy_r4 ADNAME  = adexch_xy_r4  cadj SUBROUTINE exch_xy_rs ADNAME  = adexch_xy_rs
24    
25  cadj SUBROUTINE exch_xy_r8 INPUT   = 1, 2  cadj SUBROUTINE exch_xy_rl INPUT   = 1, 2
26  cadj SUBROUTINE exch_xy_r8 OUTPUT  = 1  cadj SUBROUTINE exch_xy_rl OUTPUT  = 1
27  cadj SUBROUTINE exch_xy_r8 ACTIVE  = 1  cadj SUBROUTINE exch_xy_rl ACTIVE  = 1
28  cadj SUBROUTINE exch_xy_r8 DEPEND  = 2  cadj SUBROUTINE exch_xy_rl DEPEND  = 2
29  cadj SUBROUTINE exch_xy_r8 ADNAME  = adexch_xy_r8  cadj SUBROUTINE exch_xy_rl ADNAME  = adexch_xy_rl
30    
31  cadj SUBROUTINE exch_xyz_r4 INPUT   = 1, 2  cadj SUBROUTINE exch_xyz_rs INPUT   = 1, 2
32  cadj SUBROUTINE exch_xyz_r4 OUTPUT  = 1  cadj SUBROUTINE exch_xyz_rs OUTPUT  = 1
33  cadj SUBROUTINE exch_xyz_r4 ACTIVE  = 1  cadj SUBROUTINE exch_xyz_rs ACTIVE  = 1
34  cadj SUBROUTINE exch_xyz_r4 DEPEND  = 2  cadj SUBROUTINE exch_xyz_rs DEPEND  = 2
35  cadj SUBROUTINE exch_xyz_r4 ADNAME  = adexch_xyz_r4  cadj SUBROUTINE exch_xyz_rs ADNAME  = adexch_xyz_rs
36    
37  cadj SUBROUTINE exch_xyz_r8 INPUT   = 1, 2  cadj SUBROUTINE exch_xyz_rl INPUT   = 1, 2
38  cadj SUBROUTINE exch_xyz_r8 OUTPUT  = 1  cadj SUBROUTINE exch_xyz_rl OUTPUT  = 1
39  cadj SUBROUTINE exch_xyz_r8 ACTIVE  = 1  cadj SUBROUTINE exch_xyz_rl ACTIVE  = 1
40  cadj SUBROUTINE exch_xyz_r8 DEPEND  = 2  cadj SUBROUTINE exch_xyz_rl DEPEND  = 2
41  cadj SUBROUTINE exch_xyz_r8 ADNAME  = adexch_xyz_r8  cadj SUBROUTINE exch_xyz_rl ADNAME  = adexch_xyz_rl
42    
43  cadj SUBROUTINE exch_xz_r4 INPUT   = 1, 2  cadj SUBROUTINE exch_xz_rs INPUT   = 1, 2
44  cadj SUBROUTINE exch_xz_r4 OUTPUT  = 1  cadj SUBROUTINE exch_xz_rs OUTPUT  = 1
45  cadj SUBROUTINE exch_xz_r4 ACTIVE  = 1  cadj SUBROUTINE exch_xz_rs ACTIVE  = 1
46  cadj SUBROUTINE exch_xz_r4 DEPEND  = 2  cadj SUBROUTINE exch_xz_rs DEPEND  = 2
47  cadj SUBROUTINE exch_xz_r4 ADNAME  = adexch_xz_r4  cadj SUBROUTINE exch_xz_rs ADNAME  = adexch_xz_rs
48    
49  cadj SUBROUTINE exch_xz_r8 INPUT   = 1, 2  cadj SUBROUTINE exch_xz_rl INPUT   = 1, 2
50  cadj SUBROUTINE exch_xz_r8 OUTPUT  = 1  cadj SUBROUTINE exch_xz_rl OUTPUT  = 1
51  cadj SUBROUTINE exch_xz_r8 ACTIVE  = 1  cadj SUBROUTINE exch_xz_rl ACTIVE  = 1
52  cadj SUBROUTINE exch_xz_r8 DEPEND  = 2  cadj SUBROUTINE exch_xz_rl DEPEND  = 2
53  cadj SUBROUTINE exch_xz_r8 ADNAME  = adexch_xz_r8  cadj SUBROUTINE exch_xz_rl ADNAME  = adexch_xz_rl
54    
55  cadj SUBROUTINE exch_yz_r4 INPUT   = 1, 2  cadj SUBROUTINE exch_yz_rs INPUT   = 1, 2
56  cadj SUBROUTINE exch_yz_r4 OUTPUT  = 1  cadj SUBROUTINE exch_yz_rs OUTPUT  = 1
57  cadj SUBROUTINE exch_yz_r4 ACTIVE  = 1  cadj SUBROUTINE exch_yz_rs ACTIVE  = 1
58  cadj SUBROUTINE exch_yz_r4 DEPEND  = 2  cadj SUBROUTINE exch_yz_rs DEPEND  = 2
59  cadj SUBROUTINE exch_yz_r4 ADNAME  = adexch_yz_r4  cadj SUBROUTINE exch_yz_rs ADNAME  = adexch_yz_rs
60    
61  cadj SUBROUTINE exch_yz_r8 INPUT   = 1, 2  cadj SUBROUTINE exch_yz_rl INPUT   = 1, 2
62  cadj SUBROUTINE exch_yz_r8 OUTPUT  = 1  cadj SUBROUTINE exch_yz_rl OUTPUT  = 1
63  cadj SUBROUTINE exch_yz_r8 ACTIVE  = 1  cadj SUBROUTINE exch_yz_rl ACTIVE  = 1
64  cadj SUBROUTINE exch_yz_r8 DEPEND  = 2  cadj SUBROUTINE exch_yz_rl DEPEND  = 2
65  cadj SUBROUTINE exch_yz_r8 ADNAME  = adexch_yz_r8  cadj SUBROUTINE exch_yz_rl ADNAME  = adexch_yz_rl
66    
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22