/[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.1 by heimbach, Sun Mar 25 22:33:54 2001 UTC revision 1.2 by heimbach, Mon May 14 21:34:37 2001 UTC
# Line 2  C     /================================= Line 2  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_r4  exch_xyz_r4       |
4  C     |                            exch_xy_r8  exch_xyz_r8       |  C     |                            exch_xy_r8  exch_xyz_r8       |
5    C     |                            exch_xz_r4 exch_yz_r4         |
6    C     |                            exch_xz_r8 exch_yz_r8         |
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).                    |
10  C     |   tamc -reverse  ....                                    |  C     |   tamc -reverse  ....                                    |
11  C     |                                                          |  C     |                                                          |
12  C     | written and tested by Ralf Giering, Jan. 14th 1999       |  C     | written and tested by Ralf Giering, Jan. 14th 1999       |
13    C     | added new S/R's for _xz_ , _yz_ heimbach@mit.edu May-01  |
14  C     |==========================================================|  C     |==========================================================|
15  C     | SUBROUTINE EXCH_*_R* is linear                           |  C     | SUBROUTINE EXCH_*_R* is linear                           |
16  C     | only the array argument is active                        |  C     | only the array argument is active                        |
# Line 37  cadj SUBROUTINE exch_xyz_r8 ACTIVE  = 1 Line 40  cadj SUBROUTINE exch_xyz_r8 ACTIVE  = 1
40  cadj SUBROUTINE exch_xyz_r8 DEPEND  = 2  cadj SUBROUTINE exch_xyz_r8 DEPEND  = 2
41  cadj SUBROUTINE exch_xyz_r8 ADNAME  = adexch_xyz_r8  cadj SUBROUTINE exch_xyz_r8 ADNAME  = adexch_xyz_r8
42    
43    cadj SUBROUTINE exch_xz_r4 INPUT   = 1, 2
44    cadj SUBROUTINE exch_xz_r4 OUTPUT  = 1
45    cadj SUBROUTINE exch_xz_r4 ACTIVE  = 1
46    cadj SUBROUTINE exch_xz_r4 DEPEND  = 2
47    cadj SUBROUTINE exch_xz_r4 ADNAME  = adexch_xz_r4
48    
49    cadj SUBROUTINE exch_xz_r8 INPUT   = 1, 2
50    cadj SUBROUTINE exch_xz_r8 OUTPUT  = 1
51    cadj SUBROUTINE exch_xz_r8 ACTIVE  = 1
52    cadj SUBROUTINE exch_xz_r8 DEPEND  = 2
53    cadj SUBROUTINE exch_xz_r8 ADNAME  = adexch_xz_r8
54    
55    cadj SUBROUTINE exch_yz_r4 INPUT   = 1, 2
56    cadj SUBROUTINE exch_yz_r4 OUTPUT  = 1
57    cadj SUBROUTINE exch_yz_r4 ACTIVE  = 1
58    cadj SUBROUTINE exch_yz_r4 DEPEND  = 2
59    cadj SUBROUTINE exch_yz_r4 ADNAME  = adexch_yz_r4
60    
61    cadj SUBROUTINE exch_yz_r8 INPUT   = 1, 2
62    cadj SUBROUTINE exch_yz_r8 OUTPUT  = 1
63    cadj SUBROUTINE exch_yz_r8 ACTIVE  = 1
64    cadj SUBROUTINE exch_yz_r8 DEPEND  = 2
65    cadj SUBROUTINE exch_yz_r8 ADNAME  = adexch_yz_r8
66    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22