/[MITgcm]/MITgcm/pkg/autodiff/adcommon.h
ViewVC logotype

Annotation of /MITgcm/pkg/autodiff/adcommon.h

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


Revision 1.34 - (hide annotations) (download)
Wed Apr 30 02:46:16 2014 UTC (10 years, 5 months ago) by heimbach
Branch: MAIN
CVS Tags: checkpoint65p, checkpoint65j, checkpoint65k, checkpoint65h, checkpoint65i, checkpoint65n, checkpoint65l, checkpoint65m, checkpoint65b, checkpoint65c, checkpoint65a, checkpoint65f, checkpoint65g, checkpoint65d, checkpoint65e, checkpoint65, checkpoint65o, checkpoint64y, checkpoint64x, checkpoint64z, checkpoint64w
Changes since 1.33: +4 -4 lines
File MIME type: text/plain
Changes following move of kapgm, kapredi common blocks

1 heimbach 1.34 C $Header: /u/gcmpack/MITgcm/pkg/autodiff/adcommon.h,v 1.33 2013/04/22 02:39:46 jmc Exp $
2 jmc 1.19 C $Name: $
3    
4 heimbach 1.5 C-- These common blocks are extracted from the
5     C-- automatically created tangent linear code.
6     C-- You need to make sure that they are up-to-date
7 jmc 1.31 C-- (i.e. in right order), and customize them accordingly.
8 heimbach 1.5 C--
9     C-- heimbach@mit.edu 11-Jan-2001
10 heimbach 1.4
11     #ifdef ALLOW_AUTODIFF_MONITOR
12    
13 heimbach 1.13 common /addynvars_r/
14 heimbach 1.14 & adetan,
15 heimbach 1.13 & aduvel, advvel, adwvel,
16 jmc 1.19 & adtheta, adsalt,
17     & adgu, adgv, adgt, adgs,
18 gforget 1.24 #ifdef ALLOW_ADAMSBASHFORTH_3
19     & adgunm, adgvnm, adgtnm, adgsnm
20     #else
21 heimbach 1.13 & adgunm1, adgvnm1, adgtnm1, adgsnm1
22 gforget 1.24 #endif
23 heimbach 1.1 _RL adetan(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
24     _RL adgs(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
25     _RL adgt(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
26     _RL adgu(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
27     _RL adgv(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
28     _RL adsalt(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
29     _RL adtheta(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
30     _RL aduvel(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
31     _RL advvel(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
32     _RL adwvel(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
33 jmc 1.30 #ifdef ALLOW_ADAMSBASHFORTH_3
34 gforget 1.24 _RL adgtnm(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy,2)
35     _RL adgsnm(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy,2)
36     _RL adgunm(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy,2)
37     _RL adgvnm(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy,2)
38     #else
39     _RL adgtnm1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
40     _RL adgsnm1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
41     _RL adgunm1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
42     _RL adgvnm1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
43     #endif
44 heimbach 1.1
45 heimbach 1.14 common /addynvars_r_2/
46     & adetah
47     _RL adetah(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
48    
49 heimbach 1.26 #ifdef ALLOW_AUTODIFF_MONITOR_DIAG
50 jmc 1.30 common /addynvars_diag/
51 heimbach 1.26 & adtotphihyd, adrhoinsitu
52     _RL adrhoinsitu(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
53     _RL adtotphihyd(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
54     #endif
55    
56 heimbach 1.5 #ifdef ALLOW_CD_CODE
57 jmc 1.19 common /addynvars_cd/
58 heimbach 1.1 & aduveld, advveld,
59 jmc 1.19 & adetanm1,
60 heimbach 1.8 & adunm1, advnm1
61 heimbach 1.1 _RL aduveld(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
62     _RL advveld(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
63 heimbach 1.3 _RL adetanm1(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
64 heimbach 1.1 _RL adunm1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
65     _RL advnm1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
66 heimbach 1.5 #endif
67 heimbach 1.3
68 heimbach 1.16 COMMON /adffields_fu/ adfu
69     COMMON /adffields_fv/ adfv
70     COMMON /adffields_Qnet/ adQnet
71     COMMON /adffields_Qsw/ adQsw
72     COMMON /adffields_EmPmR/ adEmPmR
73     COMMON /adffields_saltFlux/ adsaltFlux
74     COMMON /adffields_SST/ adSST
75     COMMON /adffields_SSS/ adSSS
76     COMMON /adffields_lambdaThetaClimRelax/ adlambdaThetaClimRelax
77     COMMON /adffields_lambdaSaltClimRelax/ adlambdaSaltClimRelax
78     #ifdef ATMOSPHERIC_LOADING
79     COMMON /adffields_pload/ adpload
80     COMMON /adffields_sIceLoad/ adsIceLoad
81     #endif
82    
83     _RS adfu (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
84     _RS adfv (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
85     _RS adQnet (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
86     _RS adQsw (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
87     _RS adEmPmR (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
88     _RS adsaltFlux (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
89     _RS adSST (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
90     _RS adSSS (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
91     _RS adlambdaThetaClimRelax
92     & (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
93     _RS adlambdaSaltClimRelax
94     & (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
95     #ifdef ATMOSPHERIC_LOADING
96     _RS adpload (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
97     _RS adsIceLoad (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
98     #endif
99 heimbach 1.4
100 heimbach 1.6 #ifdef ALLOW_DIFFKR_CONTROL
101     COMMON /ADDYNVARS_DIFFKR/
102     & addiffKr
103     _RL addiffKr (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
104 jmc 1.19 #endif
105 heimbach 1.17 #ifdef ALLOW_KAPGM_CONTROL
106 heimbach 1.34 COMMON /ADCTRL_FIELDS_KAPGM/
107 heimbach 1.17 & adkapgm
108     _RL adkapgm (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
109     #endif
110 gforget 1.20 #ifdef ALLOW_KAPREDI_CONTROL
111 heimbach 1.34 COMMON /ADCTRL_FIELDS_KAPREDI/
112 gforget 1.20 & adkapredi
113     _RL adkapredi (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
114 jmc 1.30 #endif
115 gforget 1.18 #ifdef ALLOW_BOTTOMDRAG_CONTROL
116 heimbach 1.34 COMMON /ADCTRL_FIELDS_BOTTOMDRAG/
117 gforget 1.18 & adbottomdragfld
118     _RL adbottomdragfld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
119 jmc 1.19 #endif
120 gforget 1.21 #ifdef ALLOW_EDDYPSI_CONTROL
121 jmc 1.30 _RS adEddyPsiX(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
122     _RS adEddyPsiY(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
123 gforget 1.21 common /adeddypsiffields/ adeddypsix, adeddypsiy
124 heimbach 1.7 #endif
125 heimbach 1.6
126 heimbach 1.5 #ifdef ALLOW_EXF
127 heimbach 1.27
128 heimbach 1.5 _RL adhflux(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
129     _RL adsflux(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
130     common /adexf_hsflux_r/ adhflux, adsflux
131 jmc 1.30
132 heimbach 1.5 _RL adustress(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
133     _RL advstress(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
134     common /adexf_stress_r/ adustress, advstress
135 jmc 1.30
136 heimbach 1.27 _RL adwspeed(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
137     common /adexf_wspeed_r/ adwspeed
138    
139 heimbach 1.10 # ifdef ALLOW_ATM_TEMP
140 heimbach 1.5 _RL adatemp (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
141     _RL adaqh (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
142     _RL adlwflux (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
143     _RL adprecip (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
144 jmc 1.30 common /adexf_atm_temp_r/ adatemp, adaqh, adlwflux,
145 heimbach 1.27 & adprecip
146     # ifdef SHORTWAVE_HEATING
147     _RL adswflux (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
148     common /adexf_swflux_r/ adswflux
149     # endif
150 heimbach 1.5 # endif
151 gforget 1.32
152 heimbach 1.5 _RL aduwind (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
153     _RL advwind (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
154     common /adexf_atm_wind_r/ aduwind, advwind
155 gforget 1.32
156 heimbach 1.10 # ifdef ALLOW_DOWNWARD_RADIATION
157     _RL adswdown (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
158     _RL adlwdown (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
159     common /adexf_rad_down_r/
160     & adswdown, adlwdown
161     # endif
162 heimbach 1.12 # ifdef ALLOW_CLIMSST_RELAXATION
163     _RL adclimsst(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
164     common /adexf_clim_sst_r/ adclimsst
165     # endif
166     # ifdef ALLOW_CLIMSSS_RELAXATION
167     _RL adclimsss(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
168     common /adexf_clim_sss_r/ adclimsss
169     # endif
170 heimbach 1.27
171     #endif /* ALLOW_EXF */
172 heimbach 1.5
173 heimbach 1.11 #ifdef ALLOW_SEAICE
174 mlosch 1.23 _RL adarea (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
175     _RL adheff (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
176     _RL adhsnow (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
177     _RL aduice (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
178     _RL advice (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
179 jmc 1.30 common /adseaice_dynvars_1/
180 mlosch 1.23 & adarea, adheff, adhsnow, aduice, advice
181 heimbach 1.27 # ifdef SEAICE_VARIABLE_SALINITY
182     _RL adhsalt (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
183 jmc 1.30 common /seaice_salinity_r/
184 heimbach 1.27 & adhsalt
185     # endif
186     #endif /* ALLOW_SEAICE */
187 heimbach 1.11
188 gforget 1.25 #ifdef ALLOW_GGL90
189     _RL adggl90tke (1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
190     _RL adggl90diffkr (1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
191     common /adggl90_fields/
192     & adggl90tke, adggl90diffkr
193     #endif
194    
195 heimbach 1.15 #ifdef ALLOW_DEPTH_CONTROL
196     _RL adr_low_control(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
197     _RL adhfacc(1-olx:snx+olx,1-oly:sny+oly,1:nr,nsx,nsy)
198     _RL adhfacs(1-olx:snx+olx,1-oly:sny+oly,1:nr,nsx,nsy)
199     _RL adhfacw(1-olx:snx+olx,1-oly:sny+oly,1:nr,nsx,nsy)
200     _RL adrecip_hfacc(1-olx:snx+olx,1-oly:sny+oly,1:nr,nsx,nsy)
201     _RL adrecip_hfacs(1-olx:snx+olx,1-oly:sny+oly,1:nr,nsx,nsy)
202     _RL adrecip_hfacw(1-olx:snx+olx,1-oly:sny+oly,1:nr,nsx,nsy)
203 jmc 1.19 common /adgrid_r/ adr_low_control,
204 heimbach 1.15 & adrecip_hfacc, adrecip_hfacw, adrecip_hfacs
205     common /adgrid_r_c/ adhfacc
206     common /adgrid_r_s/ adhfacs
207     common /adgrid_r_w/ adhfacw
208     #endif /* ALLOW_DEPTH_CONTROL */
209    
210 heimbach 1.4 #endif /* ALLOW_AUTODIFF_MONITOR */

  ViewVC Help
Powered by ViewVC 1.1.22