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

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

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

Revision 1.2 - (show annotations) (download)
Wed Sep 6 18:16:06 2006 UTC (17 years, 8 months ago) by heimbach
Branch: MAIN
CVS Tags: checkpoint59b, checkpoint59e, checkpoint59d, checkpoint59g, checkpoint59f, checkpoint59a, checkpoint59c, checkpoint59h, checkpoint59, checkpoint58r_post, checkpoint58x_post, checkpoint58y_post, checkpoint58v_post, checkpoint58w_post, checkpoint58t_post, checkpoint58s_post, checkpoint58p_post, checkpoint58u_post, checkpoint58q_post
Changes since 1.1: +32 -0 lines 
o Common exch_3d_ad.F and exch_3d_ad.flow file
  for all exch*3d*.F routines (removed old ones).
1 C /==========================================================\
2 C | TAMC flow directives |
3 C | for library subroutines exch_*_3d_rs |
4 C | exch_*_3d_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 | extended to tangent linear code heimbach@mit.edu Jan-02 |
13 C |==========================================================|
14 C | SUBROUTINE EXCH_*_R* is linear |
15 C | only the array argument is active |
16 C | only myThid is required for the adjoint subroutine |
17 C \==========================================================/
18
19 CADJ SUBROUTINE EXCH_3D_RL INPUT = 1, 2, 3
20 CADJ SUBROUTINE EXCH_3D_RL OUTPUT = 1
21 CADJ SUBROUTINE EXCH_3D_RL ACTIVE = 1
22 CADJ SUBROUTINE EXCH_3D_RL DEPEND = 2, 3
23 CADJ SUBROUTINE EXCH_3D_RL ADNAME = ADEXCH_3D_RL
24 CADJ SUBROUTINE EXCH_3D_RL FTLNAME = EXCH_3D_RL
25
26 CADJ SUBROUTINE EXCH_3D_RS INPUT = 1, 2, 3
27 CADJ SUBROUTINE EXCH_3D_RS OUTPUT = 1
28 CADJ SUBROUTINE EXCH_3D_RS ACTIVE = 1
29 CADJ SUBROUTINE EXCH_3D_RS DEPEND = 2, 3
30 CADJ SUBROUTINE EXCH_3D_RS ADNAME = ADEXCH_3D_RS
31 CADJ SUBROUTINE EXCH_3D_RS FTLNAME = EXCH_3D_RS
32
33 CADJ SUBROUTINE EXCH_UV_3D_RL INPUT = 1, 2, 3, 4, 5
34 CADJ SUBROUTINE EXCH_UV_3D_RL OUTPUT = 1, 2
35 CADJ SUBROUTINE EXCH_UV_3D_RL ACTIVE = 1, 2
36 CADJ SUBROUTINE EXCH_UV_3D_RL DEPEND = 3, 4, 5
37 CADJ SUBROUTINE EXCH_UV_3D_RL ADNAME = ADEXCH_UV_3D_RL
38 CADJ SUBROUTINE EXCH_UV_3D_RL FTLNAME = EXCH_UV_3D_RL
39
40 CADJ SUBROUTINE EXCH_UV_3D_RS INPUT = 1, 2, 3, 4, 5
41 CADJ SUBROUTINE EXCH_UV_3D_RS OUTPUT = 1, 2
42 CADJ SUBROUTINE EXCH_UV_3D_RS ACTIVE = 1, 2
43 CADJ SUBROUTINE EXCH_UV_3D_RS DEPEND = 3, 4, 5
44 CADJ SUBROUTINE EXCH_UV_3D_RS ADNAME = ADEXCH_UV_3D_RS
45 CADJ SUBROUTINE EXCH_UV_3D_RS FTLNAME = EXCH_UV_3D_RS
46
47 cadj SUBROUTINE exch_z_3d_rs INPUT = 1, 2, 3
48 cadj SUBROUTINE exch_z_3d_rs OUTPUT = 1
49 cadj SUBROUTINE exch_z_3d_rs ACTIVE = 1
50 cadj SUBROUTINE exch_z_3d_rs DEPEND = 2, 3
51 cadj SUBROUTINE exch_z_3d_rs ADNAME = adexch_z_3d_rs
52 cadj SUBROUTINE exch_z_3d_rs FTLNAME = exch_z_3d_rs
53
54 cadj SUBROUTINE exch_z_3d_rl INPUT = 1, 2, 3
55 cadj SUBROUTINE exch_z_3d_rl OUTPUT = 1
56 cadj SUBROUTINE exch_z_3d_rl ACTIVE = 1
57 cadj SUBROUTINE exch_z_3d_rl DEPEND = 2, 3
58 cadj SUBROUTINE exch_z_3d_rl ADNAME = adexch_z_3d_rl
59 cadj SUBROUTINE exch_z_3d_rl FTLNAME = exch_z_3d_rl
  ViewVC Help
Powered by ViewVC 1.1.22