/[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.28 by heimbach, Wed Aug 17 15:01:18 2011 UTC revision 1.39 by jmc, Sat Dec 2 16:46:32 2017 UTC
# Line 4  C $Name$ Line 4  C $Name$
4  C--   These common blocks are extracted from the  C--   These common blocks are extracted from the
5  C--   automatically created tangent linear code.  C--   automatically created tangent linear code.
6  C--   You need to make sure that they are up-to-date  C--   You need to make sure that they are up-to-date
7  C--   (i.e. in right order), and customize them  C--   (i.e. in right order), and customize them accordingly.
 C--   accordingly.  
8  C--  C--
9  C--   heimbach@mit.edu 11-Jan-2001  C--   heimbach@mit.edu 11-Jan-2001
10    
11  #ifdef ALLOW_AUTODIFF_MONITOR  #ifdef ALLOW_AUTODIFF_MONITOR
12    
 #include "PACKAGES_CONFIG.h"  
   
 #ifdef ALLOW_EXF  
 # include "EXF_OPTIONS.h"  
 #endif  
 c#ifdef ALLOW_SEAICE  
 c# include "SEAICE_OPTIONS.h"  
 c#endif  
 #ifdef ALLOW_PTRACERS  
 # include "PTRACERS_OPTIONS.h"  
 #endif  
   
   
13        common /addynvars_r/        common /addynvars_r/
14       &                     adetan,       &                     adetan,
15       &                     aduvel, advvel, adwvel,       &                     aduvel, advvel, adwvel,
16       &                     adtheta, adsalt,       &                     adtheta, adsalt,
17       &                     adgu, adgv, adgt, adgs,       &                     adgu, adgv,
18  #ifdef ALLOW_ADAMSBASHFORTH_3  #ifdef ALLOW_ADAMSBASHFORTH_3
19       &                     adgunm, adgvnm, adgtnm, adgsnm       &                     adgunm, adgvnm, adgtnm, adgsnm
20  #else  #else
# Line 44  c#endif Line 30  c#endif
30        _RL aduvel(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)        _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)        _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)        _RL adwvel(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
33  #ifdef ALLOW_ADAMSBASHFORTH_3      #ifdef ALLOW_ADAMSBASHFORTH_3
34        _RL adgtnm(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy,2)        _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)        _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)        _RL adgunm(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy,2)
# Line 61  c#endif Line 47  c#endif
47        _RL adetah(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)        _RL adetah(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
48    
49  #ifdef ALLOW_AUTODIFF_MONITOR_DIAG  #ifdef ALLOW_AUTODIFF_MONITOR_DIAG
50        common /addynvars_diag/        common /addynvars_diag/
51       &                     adtotphihyd, adrhoinsitu       &                     adtotphihyd, adrhoinsitu
52        _RL adrhoinsitu(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)        _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)        _RL adtotphihyd(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
# Line 83  c#endif Line 69  c#endif
69        COMMON /adffields_fv/ adfv        COMMON /adffields_fv/ adfv
70        COMMON /adffields_Qnet/ adQnet        COMMON /adffields_Qnet/ adQnet
71        COMMON /adffields_Qsw/ adQsw        COMMON /adffields_Qsw/ adQsw
       COMMON /adffields_dQdT/ addQdT  
72        COMMON /adffields_EmPmR/ adEmPmR        COMMON /adffields_EmPmR/ adEmPmR
73        COMMON /adffields_saltFlux/ adsaltFlux        COMMON /adffields_saltFlux/ adsaltFlux
74        COMMON /adffields_SST/ adSST        COMMON /adffields_SST/ adSST
75        COMMON /adffields_SSS/ adSSS        COMMON /adffields_SSS/ adSSS
76        COMMON /adffields_lambdaThetaClimRelax/ adlambdaThetaClimRelax        COMMON /adffields_lambdaThetaClimRelax/ adlambdaThetaClimRelax
77        COMMON /adffields_lambdaSaltClimRelax/ adlambdaSaltClimRelax        COMMON /adffields_lambdaSaltClimRelax/ adlambdaSaltClimRelax
 #ifdef ATMOSPHERIC_LOADING  
       COMMON /adffields_pload/ adpload  
       COMMON /adffields_sIceLoad/ adsIceLoad  
 #endif  
   
78        _RS  adfu       (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS  adfu       (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
79        _RS  adfv       (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS  adfv       (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
80        _RS  adQnet     (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS  adQnet     (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
81        _RS  adQsw      (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS  adQsw      (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
       _RS  addQdT     (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)  
82        _RS  adEmPmR    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS  adEmPmR    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
83        _RS  adsaltFlux (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS  adsaltFlux (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
84        _RS  adSST      (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS  adSST      (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
# Line 108  c#endif Line 87  c#endif
87       &    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)       &    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
88        _RS  adlambdaSaltClimRelax        _RS  adlambdaSaltClimRelax
89       &    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)       &    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
90    
91  #ifdef ATMOSPHERIC_LOADING  #ifdef ATMOSPHERIC_LOADING
92          COMMON /adffields_pload/ adpload
93          COMMON /adffields_sIceLoad/ adsIceLoad
94        _RS  adpload    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS  adpload    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
95        _RS  adsIceLoad (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS  adsIceLoad (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
96  #endif  #endif
# Line 119  c#endif Line 101  c#endif
101        _RL  addiffKr (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)        _RL  addiffKr (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
102  #endif  #endif
103  #ifdef ALLOW_KAPGM_CONTROL  #ifdef ALLOW_KAPGM_CONTROL
104        COMMON /ADDYNVARS_KAPGM/        COMMON /ADCTRL_FIELDS_KAPGM/
105       &                       adkapgm       &                       adkapgm
106        _RL  adkapgm (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)        _RL  adkapgm (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
107  #endif  #endif
108  #ifdef ALLOW_KAPREDI_CONTROL  #ifdef ALLOW_KAPREDI_CONTROL
109        COMMON /ADDYNVARS_KAPREDI/        COMMON /ADCTRL_FIELDS_KAPREDI/
110       &                       adkapredi       &                       adkapredi
111        _RL  adkapredi (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)        _RL  adkapredi (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
112  #endif  #endif
113  #ifdef ALLOW_BOTTOMDRAG_CONTROL  #ifdef ALLOW_BOTTOMDRAG_CONTROL
114        COMMON /ADDYNVARS_BOTTOMDRAG/        COMMON /ADCTRL_FIELDS_BOTTOMDRAG/
115       &                adbottomdragfld       &                adbottomdragfld
116        _RL  adbottomdragfld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL  adbottomdragfld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
117  #endif  #endif
118  #ifdef ALLOW_EDDYPSI_CONTROL  #ifdef ALLOW_EDDYPSI_CONTROL
119        double precision adeddypsix(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,        _RS adEddyPsiX(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
120       $nsy)        _RS adEddyPsiY(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
       double precision adeddypsiy(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,  
      $nsy)  
121        common /adeddypsiffields/ adeddypsix, adeddypsiy        common /adeddypsiffields/ adeddypsix, adeddypsiy
   
122  #endif  #endif
123    
124  #ifdef ALLOW_EXF  #ifdef ALLOW_EXF
# Line 147  c#endif Line 126  c#endif
126        _RL adhflux(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)        _RL adhflux(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
127        _RL adsflux(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)        _RL adsflux(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
128        common /adexf_hsflux_r/ adhflux, adsflux        common /adexf_hsflux_r/ adhflux, adsflux
129  c  
130        _RL adustress(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)        _RL adustress(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
131        _RL advstress(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)        _RL advstress(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
132        common /adexf_stress_r/ adustress, advstress        common /adexf_stress_r/ adustress, advstress
133  c  
134        _RL adwspeed(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)        _RL adwspeed(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
135        common /adexf_wspeed_r/ adwspeed        common /adexf_wspeed_r/ adwspeed
136    
137    # ifdef ALLOW_RUNOFF
138          _RL adrunoff    (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
139          _RL adrunoff0   (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
140          _RL adrunoff1   (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
141          common /exfl_runoff_r_ad/ adrunoff, adrunoff0, adrunoff1
142    # endif
143    
144  # ifdef ALLOW_ATM_TEMP  # ifdef ALLOW_ATM_TEMP
145        _RL adatemp     (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)        _RL adatemp     (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
146        _RL adaqh       (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)        _RL adaqh       (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
147          _RL adhs        (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
148          _RL adhl        (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
149        _RL adlwflux    (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)        _RL adlwflux    (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
150          _RL adevap      (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
151        _RL adprecip    (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)        _RL adprecip    (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
152        common /adexf_atm_temp_r/ adatemp, adaqh, adlwflux,        _RL adsnowprecip(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
153       & adprecip        common /adexf_atm_temp_r/ adatemp, adaqh, adhs, adhl,
154         & adlwflux, adevap, adprecip, adsnowprecip
155  #  ifdef SHORTWAVE_HEATING  #  ifdef SHORTWAVE_HEATING
156        _RL adswflux    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL adswflux    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
157        common /adexf_swflux_r/ adswflux        common /adexf_swflux_r/ adswflux
158  #  endif  #  endif
159  # endif  # endif /* ALLOW_ATM_TEMP */
160  # ifdef ALLOW_ATM_WIND  
161        _RL aduwind     (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)        _RL aduwind     (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
162        _RL advwind     (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)        _RL advwind     (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
163        common /adexf_atm_wind_r/ aduwind, advwind        common /adexf_atm_wind_r/ aduwind, advwind
164  # endif  
165  # ifdef ALLOW_DOWNWARD_RADIATION  # ifdef ALLOW_DOWNWARD_RADIATION
166        _RL adswdown    (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)        _RL adswdown    (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
167        _RL adlwdown    (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)        _RL adlwdown    (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
168        common /adexf_rad_down_r/        common /adexf_rad_down_r/ adswdown, adlwdown
      &     adswdown, adlwdown  
169  # endif  # endif
170  # ifdef ALLOW_CLIMSST_RELAXATION  # ifdef ALLOW_CLIMSST_RELAXATION
171        _RL adclimsst(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)        _RL adclimsst(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
# Line 195  c Line 184  c
184        _RL adhsnow (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)        _RL adhsnow (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
185        _RL aduice  (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)        _RL aduice  (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
186        _RL advice  (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)        _RL advice  (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
187        common /adseaice_dynvars_1/        common /adseaice_dynvars_1/
188       &     adarea, adheff, adhsnow, aduice, advice       &     adarea, adheff, adhsnow, aduice, advice
189  # ifdef SEAICE_VARIABLE_SALINITY  # ifdef SEAICE_VARIABLE_SALINITY
190        _RL adhsalt (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL adhsalt (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
191        common /seaice_salinity_r/        common /seaice_salinity_r/ adhsalt
      &     adhsalt  
192  # endif  # endif
193  #endif /* ALLOW_SEAICE */  #endif /* ALLOW_SEAICE */
194    
195  #ifdef ALLOW_GGL90  #ifdef ALLOW_GGL90
196        _RL adggl90tke     (1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)        _RL adggl90tke     (1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
197        _RL adggl90diffkr  (1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)        _RL adggl90diffkr  (1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
198        common /adggl90_fields/        common /adggl90_fields/ adggl90tke, adggl90diffkr
      &     adggl90tke, adggl90diffkr  
199  #endif  #endif
200    
201  #ifdef ALLOW_DEPTH_CONTROL  #ifdef ALLOW_DEPTH_CONTROL
# Line 226  c Line 213  c
213        common /adgrid_r_w/ adhfacw        common /adgrid_r_w/ adhfacw
214  #endif /* ALLOW_DEPTH_CONTROL */  #endif /* ALLOW_DEPTH_CONTROL */
215    
 #ifdef ALLOW_PTRACERS  
       _RL adgptr(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy,  
      $ptracers_num)  
       _RL adgptrnm1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy,  
      $ptracers_num)  
       _RL adptracer(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy,  
      $ptracers_num)  
       _RL adsurfaceforcingptr(1-olx:snx+olx,1-oly:sny+oly,  
      $nsx,nsy,ptracers_num)  
       common /adptracers_fields/ adptracer, adgptr, adgptrnm1,  
      $adsurfaceforcingptr  
 #endif  
   
216  #endif /* ALLOW_AUTODIFF_MONITOR */  #endif /* ALLOW_AUTODIFF_MONITOR */
Legend:
Removed from v.1.28  
changed lines
  Added in v.1.39
  ViewVC Help
Powered by ViewVC 1.1.22