forked from altMITgcm/MITgcm
-
Notifications
You must be signed in to change notification settings - Fork 0
/
zero_adj.flow
30 lines (29 loc) · 1.22 KB
/
zero_adj.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
C $Header: /u/gcmpack/MITgcm/pkg/autodiff/zero_adj.flow,v 1.4 2010/08/06 18:41:03 gforget Exp $
C $Name: $
c----------------------------------------
c subroutine zero_adj_1d
c----------------------------------------
cadj SUBROUTINE zero_adj_1d FTLNAME = g_zero_adj_1d
cadj SUBROUTINE zero_adj_1d ADNAME = adzero_adj_1d
cadj SUBROUTINE zero_adj_1d INPUT = 1, 2, 3
cadj SUBROUTINE zero_adj_1d OUTPUT =
cadj SUBROUTINE zero_adj_1d ACTIVE = 2
cadj SUBROUTINE zero_adj_1d DEPEND = 1, 3
c----------------------------------------
c subroutine zero_adj_loc
c----------------------------------------
cadj SUBROUTINE zero_adj_loc FTLNAME = g_zero_adj_loc
cadj SUBROUTINE zero_adj_loc ADNAME = adzero_adj_loc
cadj SUBROUTINE zero_adj_loc INPUT = 1, 2, 3
cadj SUBROUTINE zero_adj_loc OUTPUT =
cadj SUBROUTINE zero_adj_loc ACTIVE = 2
cadj SUBROUTINE zero_adj_loc DEPEND = 1, 3
c----------------------------------------
c subroutine zero_adj
c----------------------------------------
cadj SUBROUTINE zero_adj FTLNAME = g_zero_adj
cadj SUBROUTINE zero_adj ADNAME = adzero_adj
cadj SUBROUTINE zero_adj INPUT = 1, 2, 3
cadj SUBROUTINE zero_adj OUTPUT =
cadj SUBROUTINE zero_adj ACTIVE = 2
cadj SUBROUTINE zero_adj DEPEND = 1, 3