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

Contents of /MITgcm/pkg/autodiff/exch_z_ad.flow

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

Revision 1.2 - (show annotations) (download)
Wed Aug 15 14:12:24 2001 UTC (22 years, 10 months ago) by heimbach
Branch: MAIN
CVS Tags: release1-branch_tutorials, checkpoint43a-release1mods, release1-branch-end, checkpoint40pre8, release1_b1, checkpoint42, checkpoint43, ecco-branch-mod1, checkpoint40pre9, release1_beta1, release1-branch_branchpoint, checkpoint40, checkpoint41
Branch point for: ecco-branch, release1_coupled, release1-branch, release1
Changes since 1.1: +4 -0 lines 
Updates to generate tangent linear code.
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 cadj SUBROUTINE exch_z_xy_rs FTLNAME = exch_z_xy_rs
23
24 cadj SUBROUTINE exch_z_xy_rl INPUT = 1, 2
25 cadj SUBROUTINE exch_z_xy_rl OUTPUT = 1
26 cadj SUBROUTINE exch_z_xy_rl ACTIVE = 1
27 cadj SUBROUTINE exch_z_xy_rl DEPEND = 2
28 cadj SUBROUTINE exch_z_xy_rl ADNAME = adexch_z_xy_rl
29 cadj SUBROUTINE exch_z_xy_rl FTLNAME = exch_z_xy_rl
30
31 cadj SUBROUTINE exch_z_xyz_rs INPUT = 1, 2
32 cadj SUBROUTINE exch_z_xyz_rs OUTPUT = 1
33 cadj SUBROUTINE exch_z_xyz_rs ACTIVE = 1
34 cadj SUBROUTINE exch_z_xyz_rs DEPEND = 2
35 cadj SUBROUTINE exch_z_xyz_rs ADNAME = adexch_z_xyz_rs
36 cadj SUBROUTINE exch_z_xyz_rs FTLNAME = exch_z_xyz_rs
37
38 cadj SUBROUTINE exch_z_xyz_rl INPUT = 1, 2
39 cadj SUBROUTINE exch_z_xyz_rl OUTPUT = 1
40 cadj SUBROUTINE exch_z_xyz_rl ACTIVE = 1
41 cadj SUBROUTINE exch_z_xyz_rl DEPEND = 2
42 cadj SUBROUTINE exch_z_xyz_rl ADNAME = adexch_z_xyz_rl
43 cadj SUBROUTINE exch_z_xyz_rl FTLNAME = exch_z_xyz_rl
  ViewVC Help
Powered by ViewVC 1.1.22