/[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.17 by heimbach, Wed Feb 7 00:00:32 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    #if (defined (ALLOW_EDTAUX_CONTROL) || defined (ALLOW_EDTAUY_CONTROL))
103          double precision adeddytaux(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,
104         $nsy)
105          double precision adeddytauy(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,
106         $nsy)
107          common /adedtauffields/ adeddytaux, adeddytauy
108    
109    #endif
110    
111    #ifdef ALLOW_EXF
112          _RL adhflux(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
113          _RL adsflux(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
114          common /adexf_hsflux_r/ adhflux, adsflux
115          _RL adustress(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
116          _RL advstress(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
117          common /adexf_stress_r/ adustress, advstress
118    # ifdef ALLOW_ATM_TEMP
119          _RL adatemp     (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
120          _RL adaqh       (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
121          _RL adlwflux    (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
122          _RL adprecip    (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
123          common /adexf_atm_temp_r/ adatemp, adaqh, adlwflux, adprecip
124    # endif
125    # ifdef ALLOW_ATM_WIND
126          _RL aduwind     (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
127          _RL advwind     (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
128          common /adexf_atm_wind_r/ aduwind, advwind
129    # endif
130    # ifdef ALLOW_DOWNWARD_RADIATION
131          _RL adswdown    (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
132          _RL adlwdown    (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
133          common /adexf_rad_down_r/
134         &     adswdown, adlwdown
135    # endif
136    # ifdef ALLOW_CLIMSST_RELAXATION
137          _RL adclimsst(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
138          common /adexf_clim_sst_r/ adclimsst
139    # endif
140    # ifdef ALLOW_CLIMSSS_RELAXATION
141          _RL adclimsss(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
142          common /adexf_clim_sss_r/ adclimsss
143    # endif
144    #endif
145    
146    #ifdef ALLOW_SEAICE
147          _RL adarea(1-olx:snx+olx,1-oly:sny+oly,3,nsx,nsy)
148          common /adseaice_dynvars_1/ adarea
149    c
150          _RL adheff(1-olx:snx+olx,1-oly:sny+oly,3,nsx,nsy)
151          _RL adhsnow(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
152          common /adseaice_trans/ adheff, adhsnow
153    # ifdef SEAICE_ALLOW_DYNAMICS
154          _RL aduice(1-olx:snx+olx,1-oly:sny+oly,3,nsx,nsy)
155          _RL advice(1-olx:snx+olx,1-oly:sny+oly,3,nsx,nsy)
156          common /adseaice_dynvars_2/ aduice, advice
157    # endif
158    #endif
159    
160    #ifdef ALLOW_DEPTH_CONTROL
161          _RL adr_low_control(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
162          _RL adhfacc(1-olx:snx+olx,1-oly:sny+oly,1:nr,nsx,nsy)
163          _RL adhfacs(1-olx:snx+olx,1-oly:sny+oly,1:nr,nsx,nsy)
164          _RL adhfacw(1-olx:snx+olx,1-oly:sny+oly,1:nr,nsx,nsy)
165          _RL adrecip_hfacc(1-olx:snx+olx,1-oly:sny+oly,1:nr,nsx,nsy)
166          _RL adrecip_hfacs(1-olx:snx+olx,1-oly:sny+oly,1:nr,nsx,nsy)
167          _RL adrecip_hfacw(1-olx:snx+olx,1-oly:sny+oly,1:nr,nsx,nsy)
168          common /adgrid_r/ adr_low_control,
169         &                  adrecip_hfacc, adrecip_hfacw, adrecip_hfacs
170          common /adgrid_r_c/ adhfacc
171          common /adgrid_r_s/ adhfacs
172          common /adgrid_r_w/ adhfacw
173    #endif /* ALLOW_DEPTH_CONTROL */
174    
175  #endif /* ALLOW_AUTODIFF_MONITOR */  #endif /* ALLOW_AUTODIFF_MONITOR */
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.17
  ViewVC Help
Powered by ViewVC 1.1.22