/[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.14 by heimbach, Thu Nov 24 03:44:50 2005 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)  
   
 cph      common /adtr1_r/  
 cph     &                 adtr1, adgtr1, adgtr1nm1  
 cph      _RL adgtr1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)  
 cph      _RL adgtr1nm1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)  
 cph      _RL adtr1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)  
57    
58        common /adffields/        common /adffields/
59       &                   adfu, adfv       &                   adfu, adfv
# Line 63  cph     &                 , adsst, adsss Line 66  cph     &                 , adsst, adsss
66  cph      _RL adsst(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)  cph      _RL adsst(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
67  cph      _RL adsss(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)  cph      _RL adsss(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
68    
69    #ifdef ALLOW_DIFFKR_CONTROL
70          COMMON /ADDYNVARS_DIFFKR/
71         &                       addiffKr
72          _RL  addiffKr (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
73    #endif
74    #if (defined (ALLOW_EDTAUX_CONTROL) || defined (ALLOW_EDTAUY_CONTROL))
75          double precision adeddytaux(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,
76         $nsy)
77          double precision adeddytauy(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,
78         $nsy)
79          common /adedtauffields/ adeddytaux, adeddytauy
80    
81    #endif
82    
83    #ifdef ALLOW_EXF
84          _RL adhflux(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
85          _RL adsflux(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
86          common /adexf_hsflux_r/ adhflux, adsflux
87          _RL adustress(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
88          _RL advstress(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
89          common /adexf_stress_r/ adustress, advstress
90    # ifdef ALLOW_ATM_TEMP
91          _RL adatemp     (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
92          _RL adaqh       (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
93          _RL adlwflux    (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
94          _RL adprecip    (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
95          common /adexf_atm_temp_r/ adatemp, adaqh, adlwflux, adprecip
96    # endif
97    # ifdef ALLOW_ATM_WIND
98          _RL aduwind     (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
99          _RL advwind     (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
100          common /adexf_atm_wind_r/ aduwind, advwind
101    # endif
102    # ifdef ALLOW_DOWNWARD_RADIATION
103          _RL adswdown    (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
104          _RL adlwdown    (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
105          common /adexf_rad_down_r/
106         &     adswdown, adlwdown
107    # endif
108    # ifdef ALLOW_CLIMSST_RELAXATION
109          _RL adclimsst(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
110          common /adexf_clim_sst_r/ adclimsst
111    # endif
112    # ifdef ALLOW_CLIMSSS_RELAXATION
113          _RL adclimsss(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
114          common /adexf_clim_sss_r/ adclimsss
115    # endif
116    #endif
117    
118    #ifdef ALLOW_SEAICE
119          _RL adarea(1-olx:snx+olx,1-oly:sny+oly,3,nsx,nsy)
120          common /adseaice_dynvars_1/ adarea
121    c
122          _RL adheff(1-olx:snx+olx,1-oly:sny+oly,3,nsx,nsy)
123          _RL adhsnow(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
124          common /adseaice_trans/ adheff, adhsnow
125    # ifdef SEAICE_ALLOW_DYNAMICS
126          _RL aduice(1-olx:snx+olx,1-oly:sny+oly,3,nsx,nsy)
127          _RL advice(1-olx:snx+olx,1-oly:sny+oly,3,nsx,nsy)
128          common /adseaice_dynvars_2/ aduice, advice
129    # endif
130    #endif
131    
132  #endif /* ALLOW_AUTODIFF_MONITOR */  #endif /* ALLOW_AUTODIFF_MONITOR */
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.14
  ViewVC Help
Powered by ViewVC 1.1.22