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

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

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

revision 1.4 by heimbach, Thu Mar 6 23:47:46 2003 UTC revision 1.18 by gforget, Fri Aug 17 21:37:31 2007 UTC
# Line 1  Line 1 
1    C--   These common blocks are extracted from the
2    C--   automatically created tangent linear code.
3    C--   You need to make sure that they are up-to-date
4    C--   (i.e. in right order), and customize them
5    C--   accordingly.
6    C--
7    C--   heimbach@mit.edu 11-Jan-2001
8    
9  #ifdef ALLOW_AUTODIFF_MONITOR  #ifdef ALLOW_AUTODIFF_MONITOR
10    
11     These lines are uncommented on purpose to provoke  #include "PACKAGES_CONFIG.h"
    a model crash. You need to customize this header file  
    to your problem.  
    These common blocks are extracted from the  
    automatically created tangent linear code.  
    You need to make sure that they are up-to-date  
    (i.e. in right order), and customize them  
    accordingly.  
12    
13     heimbach@mit.edu 11-Jan-2001  #ifdef ALLOW_EXF
14    # include "EXF_OPTIONS.h"
15    #endif
16    #ifdef ALLOW_SEAICE
17    # include "SEAICE_OPTIONS.h"
18    #endif
19    
20        common /addynvars_r/  
21          common /addynvars_r/
22       &                     adetan,       &                     adetan,
23       &                     aduvel, advvel, adwvel,       &                     aduvel, advvel, adwvel,
24       &                     adtheta, adsalt,       &                     adtheta, adsalt,
25       &                     adgu, adgv, adgt, adgs,       &                     adgu, adgv, adgt, adgs,
26       &                     adgunm1, adgvnm1, adgtnm1, adgsnm1       &                     adgunm1, adgvnm1, adgtnm1, adgsnm1
# Line 33  Line 39 
39        _RL advvel(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)        _RL advvel(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
40        _RL adwvel(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)        _RL adwvel(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
41    
42          common /addynvars_r_2/
43         &                     adetah
44          _RL adetah(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
45    
46    #ifdef ALLOW_CD_CODE
47        common /addynvars_cd/        common /addynvars_cd/
48       &                      aduveld, advveld,       &                      aduveld, advveld,
49       &                       adetanm1,       &                       adetanm1,
50       &                      adunm1, advnm1,       &                      adunm1, advnm1
      &                      adgucd, adgvcd  
51        _RL aduveld(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)        _RL aduveld(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
52        _RL advveld(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)        _RL advveld(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
53        _RL adetanm1(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)        _RL adetanm1(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
54        _RL adunm1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)        _RL adunm1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
55        _RL advnm1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)        _RL advnm1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
56        _RL adgucd(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)  #endif
       _RL adgvcd(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)  
57    
58  cph      common /adtr1_r/        COMMON /adffields_fu/ adfu
59  cph     &                 adtr1, adgtr1, adgtr1nm1        COMMON /adffields_fv/ adfv
60  cph      _RL adgtr1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)        COMMON /adffields_Qnet/ adQnet
61  cph      _RL adgtr1nm1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)        COMMON /adffields_Qsw/ adQsw
62  cph      _RL adtr1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)        COMMON /adffields_dQdT/ addQdT
63          COMMON /adffields_EmPmR/ adEmPmR
64        common /adffields/        COMMON /adffields_saltFlux/ adsaltFlux
65       &                   adfu, adfv        COMMON /adffields_SST/ adSST
66       &                 , adqnet, adempmr        COMMON /adffields_SSS/ adSSS
67  cph     &                 , adsst, adsss        COMMON /adffields_lambdaThetaClimRelax/ adlambdaThetaClimRelax
68        _RL adfu(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)        COMMON /adffields_lambdaSaltClimRelax/ adlambdaSaltClimRelax
69        _RL adfv(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)  #ifdef ATMOSPHERIC_LOADING
70        _RL adqnet(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)        COMMON /adffields_pload/ adpload
71        _RL adempmr(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)        COMMON /adffields_sIceLoad/ adsIceLoad
72  cph      _RL adsst(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)  #endif
73  cph      _RL adsss(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)  
74          _RS  adfu       (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
75          _RS  adfv       (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
76          _RS  adQnet     (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
77          _RS  adQsw      (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
78          _RS  addQdT     (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
79          _RS  adEmPmR    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
80          _RS  adsaltFlux (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
81          _RS  adSST      (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
82          _RS  adSSS      (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
83          _RS  adlambdaThetaClimRelax
84         &    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
85          _RS  adlambdaSaltClimRelax
86         &    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
87    #ifdef ATMOSPHERIC_LOADING
88          _RS  adpload    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
89          _RS  adsIceLoad (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
90    #endif
91    
92    #ifdef ALLOW_DIFFKR_CONTROL
93          COMMON /ADDYNVARS_DIFFKR/
94         &                       addiffKr
95          _RL  addiffKr (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
96    #endif
97    #ifdef ALLOW_KAPGM_CONTROL
98          COMMON /ADDYNVARS_KAPGM/
99         &                       adkapgm
100          _RL  adkapgm (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
101    #endif
102    #ifdef ALLOW_BOTTOMDRAG_CONTROL
103          COMMON /ADDYNVARS_BOTTOMDRAG/
104         &                adbottomdragfld
105          _RL  adbottomdragfld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
106    #endif                    
107    #if (defined (ALLOW_EDTAUX_CONTROL) || defined (ALLOW_EDTAUY_CONTROL))
108          double precision adeddytaux(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,
109         $nsy)
110          double precision adeddytauy(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,
111         $nsy)
112          common /adedtauffields/ adeddytaux, adeddytauy
113    
114    #endif
115    
116    #ifdef ALLOW_EXF
117          _RL adhflux(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
118          _RL adsflux(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
119          common /adexf_hsflux_r/ adhflux, adsflux
120          _RL adustress(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
121          _RL advstress(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
122          common /adexf_stress_r/ adustress, advstress
123    # ifdef ALLOW_ATM_TEMP
124          _RL adatemp     (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
125          _RL adaqh       (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
126          _RL adlwflux    (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
127          _RL adprecip    (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
128          common /adexf_atm_temp_r/ adatemp, adaqh, adlwflux, adprecip
129    # endif
130    # ifdef ALLOW_ATM_WIND
131          _RL aduwind     (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
132          _RL advwind     (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
133          common /adexf_atm_wind_r/ aduwind, advwind
134    # endif
135    # ifdef ALLOW_DOWNWARD_RADIATION
136          _RL adswdown    (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
137          _RL adlwdown    (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
138          common /adexf_rad_down_r/
139         &     adswdown, adlwdown
140    # endif
141    # ifdef ALLOW_CLIMSST_RELAXATION
142          _RL adclimsst(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
143          common /adexf_clim_sst_r/ adclimsst
144    # endif
145    # ifdef ALLOW_CLIMSSS_RELAXATION
146          _RL adclimsss(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
147          common /adexf_clim_sss_r/ adclimsss
148    # endif
149    #endif
150    
151    #ifdef ALLOW_SEAICE
152          _RL adarea(1-olx:snx+olx,1-oly:sny+oly,3,nsx,nsy)
153          common /adseaice_dynvars_1/ adarea
154    c
155          _RL adheff(1-olx:snx+olx,1-oly:sny+oly,3,nsx,nsy)
156          _RL adhsnow(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
157          common /adseaice_trans/ adheff, adhsnow
158    # ifdef SEAICE_ALLOW_DYNAMICS
159          _RL aduice(1-olx:snx+olx,1-oly:sny+oly,3,nsx,nsy)
160          _RL advice(1-olx:snx+olx,1-oly:sny+oly,3,nsx,nsy)
161          common /adseaice_dynvars_2/ aduice, advice
162    # endif
163    #endif
164    
165    #ifdef ALLOW_DEPTH_CONTROL
166          _RL adr_low_control(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
167          _RL adhfacc(1-olx:snx+olx,1-oly:sny+oly,1:nr,nsx,nsy)
168          _RL adhfacs(1-olx:snx+olx,1-oly:sny+oly,1:nr,nsx,nsy)
169          _RL adhfacw(1-olx:snx+olx,1-oly:sny+oly,1:nr,nsx,nsy)
170          _RL adrecip_hfacc(1-olx:snx+olx,1-oly:sny+oly,1:nr,nsx,nsy)
171          _RL adrecip_hfacs(1-olx:snx+olx,1-oly:sny+oly,1:nr,nsx,nsy)
172          _RL adrecip_hfacw(1-olx:snx+olx,1-oly:sny+oly,1:nr,nsx,nsy)
173          common /adgrid_r/ adr_low_control,
174         &                  adrecip_hfacc, adrecip_hfacw, adrecip_hfacs
175          common /adgrid_r_c/ adhfacc
176          common /adgrid_r_s/ adhfacs
177          common /adgrid_r_w/ adhfacw
178    #endif /* ALLOW_DEPTH_CONTROL */
179    
180  #endif /* ALLOW_AUTODIFF_MONITOR */  #endif /* ALLOW_AUTODIFF_MONITOR */
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.18
  ViewVC Help
Powered by ViewVC 1.1.22