forked from altMITgcm/MITgcm
-
Notifications
You must be signed in to change notification settings - Fork 0
/
exch1_ad.flow
112 lines (99 loc) · 5.24 KB
/
exch1_ad.flow
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
C $Header: /u/gcmpack/MITgcm/eesupp/src/exch1_ad.flow,v 1.3 2013/08/06 22:29:40 jmc Exp $
C $Name: $
C------------------------------------------
C directives to specify the adjoint names
C of routines called in the original code
C------------------------------------------
c$taf SUBROUTINE exch_3d_rl ADNAME = adexch_3d_rl
c$taf SUBROUTINE exch_3d_rs ADNAME = adexch_3d_rs
c$taf SUBROUTINE exch_uv_3d_rl ADNAME = adexch_uv_3d_rl
c$taf SUBROUTINE exch_uv_3d_rs ADNAME = adexch_uv_3d_rs
c$taf SUBROUTINE exch_uv_xy_rl ADNAME = adexch_uv_xy_rl
c$taf SUBROUTINE exch_uv_xy_rs ADNAME = adexch_uv_xy_rs
c$taf SUBROUTINE exch_uv_xyz_rl ADNAME = adexch_uv_xyz_rl
c$taf SUBROUTINE exch_uv_xyz_rs ADNAME = adexch_uv_xyz_rs
c$taf SUBROUTINE exch_xy_rl ADNAME = adexch_xy_rl
c$taf SUBROUTINE exch_xy_rs ADNAME = adexch_xy_rs
c$taf SUBROUTINE exch_xyz_rl ADNAME = adexch_xyz_rl
c$taf SUBROUTINE exch_xyz_rs ADNAME = adexch_xyz_rs
c$taf SUBROUTINE exch_uv_agrid_3d_rl ADNAME = adexch_uv_agrid_3d_rl
c$taf SUBROUTINE exch_uv_bgrid_3d_rl ADNAME = adexch_uv_agrid_3d_rl
c$taf SUBROUTINE exch_uv_dgrid_3d_rl ADNAME = adexch_uv_dgrid_3d_rl
c$taf SUBROUTINE exch_sm_3d_rl ADNAME = adexch_sm_3d_rl
c$taf SUBROUTINE exch_z_3d_rl ADNAME = adexch_z_3d_rl
C------------------------------------------
C TAF flow directives for exch1_RX
C------------------------------------------
c$taf SUBROUTINE exch1_rl INPUT = 1,2,3,4,5,6,7,8,9,10
c$taf SUBROUTINE exch1_rl OUTPUT = 1
c$taf SUBROUTINE exch1_rl ACTIVE = 1
c$taf SUBROUTINE exch1_rl DEPEND = 2,3,4,5,6,7,8,9,10
c$taf SUBROUTINE exch1_rl ADNAME = exch1_rl_ad
c$taf SUBROUTINE exch1_rl FTLNAME = exch1_rl
c$taf SUBROUTINE exch1_rs INPUT = 1,2,3,4,5,6,7,8,9,10
c$taf SUBROUTINE exch1_rs OUTPUT = 1
c$taf SUBROUTINE exch1_rs ACTIVE = 1
c$taf SUBROUTINE exch1_rs DEPEND = 2,3,4,5,6,7,8,9,10
c$taf SUBROUTINE exch1_rs ADNAME = exch1_rs_ad
c$taf SUBROUTINE exch1_rs FTLNAME = exch1_rs
C------------------------------------------
C TAF flow directives for exch1_RX_cube
C------------------------------------------
c$taf SUBROUTINE exch1_rl_cube INPUT = 1,2,3,4,5,6,7,8,9,10,11
c$taf SUBROUTINE exch1_rl_cube OUTPUT = 1
c$taf SUBROUTINE exch1_rl_cube ACTIVE = 1
c$taf SUBROUTINE exch1_rl_cube DEPEND = 2,3,4,5,6,7,8,9,10,11
c$taf SUBROUTINE exch1_rl_cube ADNAME = exch1_rl_cube_ad
c$taf SUBROUTINE exch1_rl_cube FTLNAME = exch1_rl_cube
c$taf SUBROUTINE exch1_rs_cube INPUT = 1,2,3,4,5,6,7,8,9,10,11
c$taf SUBROUTINE exch1_rs_cube OUTPUT = 1
c$taf SUBROUTINE exch1_rs_cube ACTIVE = 1
c$taf SUBROUTINE exch1_rs_cube DEPEND = 2,3,4,5,6,7,8,9,10,11
c$taf SUBROUTINE exch1_rs_cube ADNAME = exch1_rs_cube_ad
c$taf SUBROUTINE exch1_rs_cube FTLNAME = exch1_rs_cube
C------------------------------------------
C TAF flow directives for exch1_z_RX_cube
C------------------------------------------
c$taf SUBROUTINE exch1_z_rl_cube INPUT = 1,2,3,4,5,6,7,8,9,10,11
c$taf SUBROUTINE exch1_z_rl_cube OUTPUT = 1
c$taf SUBROUTINE exch1_z_rl_cube ACTIVE = 1
c$taf SUBROUTINE exch1_z_rl_cube DEPEND = 2,3,4,5,6,7,8,9,10,11
c$taf SUBROUTINE exch1_z_rl_cube ADNAME = exch1_z_rl_cube_ad
c$taf SUBROUTINE exch1_z_rl_cube FTLNAME = exch1_z_rl_cube
c$taf SUBROUTINE exch1_z_rs_cube INPUT = 1,2,3,4,5,6,7,8,9,10,11
c$taf SUBROUTINE exch1_z_rs_cube OUTPUT = 1
c$taf SUBROUTINE exch1_z_rs_cube ACTIVE = 1
c$taf SUBROUTINE exch1_z_rs_cube DEPEND = 2,3,4,5,6,7,8,9,10,11
c$taf SUBROUTINE exch1_z_rs_cube ADNAME = exch1_z_rs_cube_ad
c$taf SUBROUTINE exch1_z_rs_cube FTLNAME = exch1_z_rs_cube
C------------------------------------------
C TAF flow directives for exch1_uv_RX_cube
C------------------------------------------
c$taf SUBROUTINE exch1_uv_rl_cube INPUT = 1,2,3,4,5,6,7,8,9,10,11,12
c$taf SUBROUTINE exch1_uv_rl_cube OUTPUT = 1,2
c$taf SUBROUTINE exch1_uv_rl_cube ACTIVE = 1,2
c$taf SUBROUTINE exch1_uv_rl_cube DEPEND = 3,4,5,6,7,8,9,10,11,12
c$taf SUBROUTINE exch1_uv_rl_cube ADNAME = exch1_uv_rl_cube_ad
c$taf SUBROUTINE exch1_uv_rl_cube FTLNAME = exch1_uv_rl_cube
c$taf SUBROUTINE exch1_uv_rs_cube INPUT = 1,2,3,4,5,6,7,8,9,10,11,12
c$taf SUBROUTINE exch1_uv_rs_cube OUTPUT = 1,2
c$taf SUBROUTINE exch1_uv_rs_cube ACTIVE = 1,2
c$taf SUBROUTINE exch1_uv_rs_cube DEPEND = 3,4,5,6,7,8,9,10,11,12
c$taf SUBROUTINE exch1_uv_rs_cube ADNAME = exch1_uv_rs_cube_ad
c$taf SUBROUTINE exch1_uv_rs_cube FTLNAME = exch1_uv_rs_cube
C------------------------------------------
C TAF flow directives for exch1_bg_RX_cube
C------------------------------------------
c$taf SUBROUTINE exch1_bg_rl_cube INPUT = 1,2,3,4,5,6,7,8,9,10,11,12
c$taf SUBROUTINE exch1_bg_rl_cube OUTPUT = 1,2
c$taf SUBROUTINE exch1_bg_rl_cube ACTIVE = 1,2
c$taf SUBROUTINE exch1_bg_rl_cube DEPEND = 3,4,5,6,7,8,9,10,11,12
c$taf SUBROUTINE exch1_bg_rl_cube ADNAME = exch1_bg_rl_cube_ad
c$taf SUBROUTINE exch1_bg_rl_cube FTLNAME = exch1_bg_rl_cube
c$taf SUBROUTINE exch1_bg_rs_cube INPUT = 1,2,3,4,5,6,7,8,9,10,11,12
c$taf SUBROUTINE exch1_bg_rs_cube OUTPUT = 1,2
c$taf SUBROUTINE exch1_bg_rs_cube ACTIVE = 1,2
c$taf SUBROUTINE exch1_bg_rs_cube DEPEND = 3,4,5,6,7,8,9,10,11,12
c$taf SUBROUTINE exch1_bg_rs_cube ADNAME = exch1_bg_rs_cube_ad
c$taf SUBROUTINE exch1_bg_rs_cube FTLNAME = exch1_bg_rs_cube
C----------------------------------------------------------------