/[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.12 by heimbach, Fri Sep 2 23:21:22 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/        common /addynvars_r/
21       &                     adetan,       &                     adetan, adetah,
22       &                     aduvel, advvel, adwvel,       &                     aduvel, advvel, adwvel,
23       &                     adtheta, adsalt,       &                     adtheta, adsalt,
24       &                     adgu, adgv, adgt, adgs,       &                     adgu, adgv, adgt, adgs,
25       &                     adgunm1, adgvnm1, adgtnm1, adgsnm1       &                     adgunm1, adgvnm1, adgtnm1, adgsnm1
26        _RL adetan(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)        _RL adetan(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
27          _RL adetah(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
28        _RL adgs(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)        _RL adgs(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
29        _RL adgsnm1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)        _RL adgsnm1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
30        _RL adgt(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)        _RL adgt(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
# 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    #ifdef ALLOW_CD_CODE
43        common /addynvars_cd/        common /addynvars_cd/
44       &                      aduveld, advveld,       &                      aduveld, advveld,
45       &                       adetanm1,       &                       adetanm1,
46       &                      adunm1, advnm1,       &                      adunm1, advnm1
      &                      adgucd, adgvcd  
47        _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)
48        _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)
49        _RL adetanm1(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)        _RL adetanm1(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
50        _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)
51        _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)
52        _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)  
53    
54        common /adffields/        common /adffields/
55       &                   adfu, adfv       &                   adfu, adfv
# Line 63  cph     &                 , adsst, adsss Line 62  cph     &                 , adsst, adsss
62  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)
63  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)
64    
65    #ifdef ALLOW_DIFFKR_CONTROL
66          COMMON /ADDYNVARS_DIFFKR/
67         &                       addiffKr
68          _RL  addiffKr (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
69    #endif
70    #if (defined (ALLOW_EDTAUX_CONTROL) || defined (ALLOW_EDTAUY_CONTROL))
71          double precision adeddytaux(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,
72         $nsy)
73          double precision adeddytauy(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,
74         $nsy)
75          common /adedtauffields/ adeddytaux, adeddytauy
76    
77    #endif
78    
79    #ifdef ALLOW_EXF
80          _RL adhflux(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
81          _RL adsflux(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
82          common /adexf_hsflux_r/ adhflux, adsflux
83          _RL adustress(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
84          _RL advstress(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
85          common /adexf_stress_r/ adustress, advstress
86    # ifdef ALLOW_ATM_TEMP
87          _RL adatemp     (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
88          _RL adaqh       (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
89          _RL adlwflux    (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
90          _RL adprecip    (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
91          common /adexf_atm_temp_r/ adatemp, adaqh, adlwflux, adprecip
92    # endif
93    # ifdef ALLOW_ATM_WIND
94          _RL aduwind     (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
95          _RL advwind     (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
96          common /adexf_atm_wind_r/ aduwind, advwind
97    # endif
98    # ifdef ALLOW_DOWNWARD_RADIATION
99          _RL adswdown    (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
100          _RL adlwdown    (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
101          common /adexf_rad_down_r/
102         &     adswdown, adlwdown
103    # endif
104    # ifdef ALLOW_CLIMSST_RELAXATION
105          _RL adclimsst(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
106          common /adexf_clim_sst_r/ adclimsst
107    # endif
108    # ifdef ALLOW_CLIMSSS_RELAXATION
109          _RL adclimsss(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
110          common /adexf_clim_sss_r/ adclimsss
111    # endif
112    #endif
113    
114    #ifdef ALLOW_SEAICE
115          _RL adarea(1-olx:snx+olx,1-oly:sny+oly,3,nsx,nsy)
116          common /adseaice_dynvars_1/ adarea
117    c
118          _RL adheff(1-olx:snx+olx,1-oly:sny+oly,3,nsx,nsy)
119          _RL adhsnow(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
120          common /adseaice_trans/ adheff, adhsnow
121    # ifdef SEAICE_ALLOW_DYNAMICS
122          _RL aduice(1-olx:snx+olx,1-oly:sny+oly,3,nsx,nsy)
123          _RL advice(1-olx:snx+olx,1-oly:sny+oly,3,nsx,nsy)
124          common /adseaice_dynvars_2/ aduice, advice
125    # endif
126    #endif
127    
128  #endif /* ALLOW_AUTODIFF_MONITOR */  #endif /* ALLOW_AUTODIFF_MONITOR */
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.12
  ViewVC Help
Powered by ViewVC 1.1.22