1 |
C $Header: /u/gcmpack/MITgcm/pkg/diagnostics/diagnostics_ad.flow,v 1.11 2009/09/06 15:25:23 jmc Exp $ |
2 |
C $Name: $ |
3 |
|
4 |
C---------------------------------------- |
5 |
C SUBROUTINE DIAGNOSTICS_SWITCH_ONOFF |
6 |
C---------------------------------------- |
7 |
CADJ SUBROUTINE DIAGNOSTICS_SWITCH_ONOFF INPUT = 1,2,3 |
8 |
CADJ SUBROUTINE DIAGNOSTICS_SWITCH_ONOFF OUTPUT = |
9 |
CADJ SUBROUTINE DIAGNOSTICS_SWITCH_ONOFF DEPEND = 1,2,3 |
10 |
CADJ SUBROUTINE DIAGNOSTICS_SWITCH_ONOFF REQUIRED |
11 |
|
12 |
C---------------------------------------- |
13 |
C SUBROUTINE DIAGNOSTICS_COUNT |
14 |
C---------------------------------------- |
15 |
CADJ SUBROUTINE DIAGNOSTICS_COUNT INPUT = 1,2,3,4 |
16 |
CADJ SUBROUTINE DIAGNOSTICS_COUNT OUTPUT = |
17 |
|
18 |
C---------------------------------------- |
19 |
C SUBROUTINE DIAGNOSTICS_INIT_VARIA |
20 |
C---------------------------------------- |
21 |
CADJ SUBROUTINE DIAGNOSTICS_INIT_VARIA INPUT = 1 |
22 |
CADJ SUBROUTINE DIAGNOSTICS_INIT_VARIA OUTPUT = |
23 |
CADJ SUBROUTINE DIAGNOSTICS_INIT_VARIA DEPEND = 1 |
24 |
CADJ SUBROUTINE DIAGNOSTICS_INIT_VARIA REQUIRED |
25 |
|
26 |
C---------------------------------------- |
27 |
C FUNCTION DIAGNOSTICS_IS_ON |
28 |
C---------------------------------------- |
29 |
cphCADJ FUNCTION DIAGNOSTICS_IS_ON INPUT = 1,2 |
30 |
cphCADJ FUNCTION DIAGNOSTICS_IS_ON OUTPUT = |
31 |
|
32 |
C---------------------------------------- |
33 |
C FUNCTION GAD_DIAG_SUFX |
34 |
C---------------------------------------- |
35 |
CADJ FUNCTION GAD_DIAG_SUFX INPUT = 1,2 |
36 |
CADJ FUNCTION GAD_DIAG_SUFX OUTPUT = |
37 |
|
38 |
C---------------------------------------- |
39 |
C SUBROUTINE DIAGS_RHO |
40 |
C---------------------------------------- |
41 |
cphCADJ SUBROUTINE DIAGS_RHO INPUT = 1,2,3,4,5,6,7,8 |
42 |
cphCADJ SUBROUTINE DIAGS_RHO OUTPUT = |
43 |
|
44 |
C---------------------------------------- |
45 |
C SUBROUTINE DIAGS_OCEANIC_SURF_FLUX |
46 |
C---------------------------------------- |
47 |
CADJ SUBROUTINE DIAGS_OCEANIC_SURF_FLUX INPUT = 1,2,3 |
48 |
CADJ SUBROUTINE DIAGS_OCEANIC_SURF_FLUX OUTPUT = |
49 |
CADJ SUBROUTINE DIAGS_OCEANIC_SURF_FLUX DEPEND = 1,2,3 |
50 |
CADJ SUBROUTINE DIAGS_OCEANIC_SURF_FLUX REQUIRED |
51 |
|
52 |
C---------------------------------------- |
53 |
C SUBROUTINE DIAGNOSTICS_FILL |
54 |
C---------------------------------------- |
55 |
CADJ SUBROUTINE DIAGNOSTICS_FILL INPUT = 1,2,3,4,5,6,7,8 |
56 |
CADJ SUBROUTINE DIAGNOSTICS_FILL OUTPUT = |
57 |
cphCADJ SUBROUTINE DIAGNOSTICS_FILL DEPEND = 1,2,3,4,5,6,7,8 |
58 |
cphCADJ SUBROUTINE DIAGNOSTICS_FILL REQUIRED |
59 |
|
60 |
C---------------------------------------- |
61 |
C SUBROUTINE DIAGNOSTICS_FILL_RS |
62 |
C---------------------------------------- |
63 |
CADJ SUBROUTINE DIAGNOSTICS_FILL_RS INPUT = 1,2,3,4,5,6,7,8 |
64 |
CADJ SUBROUTINE DIAGNOSTICS_FILL_RS OUTPUT = |
65 |
|
66 |
C---------------------------------------- |
67 |
C SUBROUTINE DIAGNOSTICS_SCALE_FILL |
68 |
C---------------------------------------- |
69 |
CADJ SUBROUTINE DIAGNOSTICS_SCALE_FILL INPUT = 1,2,3,4,5,6,7,8,9,10 |
70 |
CADJ SUBROUTINE DIAGNOSTICS_SCALE_FILL OUTPUT = |
71 |
|
72 |
C---------------------------------------- |
73 |
C SUBROUTINE DIAGNOSTICS_SCALE_FILL_RS |
74 |
C---------------------------------------- |
75 |
CADJ SUBROUTINE DIAGNOSTICS_SCALE_FILL_RS INPUT = 1,2,3,4,5,6,7,8,9,10 |
76 |
CADJ SUBROUTINE DIAGNOSTICS_SCALE_FILL_RS OUTPUT = |
77 |
|
78 |
C---------------------------------------- |
79 |
C SUBROUTINE DIAGNOSTICS_FRACT_FILL |
80 |
C---------------------------------------- |
81 |
CADJ SUBROUTINE DIAGNOSTICS_FRACT_FILL INPUT = 1,2,3,4,5,6,7,8,9,10,11 |
82 |
CADJ SUBROUTINE DIAGNOSTICS_FRACT_FILL OUTPUT = |