/[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.4 by heimbach, Wed Aug 15 14:12:24 2001 UTC revision 1.5 by heimbach, Fri Jan 11 19:30:46 2002 UTC
# Line 11  C     |   tamc -reverse  .... Line 11  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  |  C     | added new S/R's for _xz_ , _yz_ heimbach@mit.edu May-01  |
14    C     | extended to tangent linear code heimbach@mit.edu Jan-02  |
15  C     |==========================================================|  C     |==========================================================|
16  C     | SUBROUTINE EXCH_*_R* is linear                           |  C     | SUBROUTINE EXCH_*_R* is linear                           |
17  C     | only the array argument is active                        |  C     | only the array argument is active                        |
18  C     | only myThid is required for the adjoint subroutine       |  C     | only myThid is required for the adjoint subroutine       |
19  C     \==========================================================/  C     \==========================================================/
20  cadj SUBROUTINE exch_xy_rs INPUT   = 1, 2  cadj SUBROUTINE exch_xy_rs INPUT    = 1, 2
21  cadj SUBROUTINE exch_xy_rs OUTPUT  = 1  cadj SUBROUTINE exch_xy_rs OUTPUT   = 1
22  cadj SUBROUTINE exch_xy_rs ACTIVE  = 1  cadj SUBROUTINE exch_xy_rs ACTIVE   = 1
23  cadj SUBROUTINE exch_xy_rs DEPEND  = 2  cadj SUBROUTINE exch_xy_rs DEPEND   = 2
24  cadj SUBROUTINE exch_xy_rs ADNAME  = adexch_xy_rs  cadj SUBROUTINE exch_xy_rs ADNAME   = adexch_xy_rs
25  cadj SUBROUTINE exch_xy_rs FTLNAME = exch_xy_rs  cadj SUBROUTINE exch_xy_rs FTLNAME  = exch_xy_rs
26    
27  cadj SUBROUTINE exch_xy_rl INPUT   = 1, 2  cadj SUBROUTINE exch_xy_rl INPUT    = 1, 2
28  cadj SUBROUTINE exch_xy_rl OUTPUT  = 1  cadj SUBROUTINE exch_xy_rl OUTPUT   = 1
29  cadj SUBROUTINE exch_xy_rl ACTIVE  = 1  cadj SUBROUTINE exch_xy_rl ACTIVE   = 1
30  cadj SUBROUTINE exch_xy_rl DEPEND  = 2  cadj SUBROUTINE exch_xy_rl DEPEND   = 2
31  cadj SUBROUTINE exch_xy_rl ADNAME  = adexch_xy_rl  cadj SUBROUTINE exch_xy_rl ADNAME   = adexch_xy_rl
32  cadj SUBROUTINE exch_xy_rl FTLNAME = exch_xy_rl  cadj SUBROUTINE exch_xy_rl FTLNAME  = exch_xy_rl
33    
34  cadj SUBROUTINE exch_xyz_rs INPUT   = 1, 2  cadj SUBROUTINE exch_xyz_rs INPUT   = 1, 2
35  cadj SUBROUTINE exch_xyz_rs OUTPUT  = 1  cadj SUBROUTINE exch_xyz_rs OUTPUT  = 1
# Line 72  cadj SUBROUTINE exch_yz_rl DEPEND  = 2 Line 73  cadj SUBROUTINE exch_yz_rl DEPEND  = 2
73  cadj SUBROUTINE exch_yz_rl ADNAME  = adexch_yz_rl  cadj SUBROUTINE exch_yz_rl ADNAME  = adexch_yz_rl
74  cadj SUBROUTINE exch_yz_rl FTLNAME = exch_yz_rl  cadj SUBROUTINE exch_yz_rl FTLNAME = exch_yz_rl
75    
   
   
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22