/[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.10 by heimbach, Tue Aug 30 21:38:56 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    
17        common /addynvars_r/        common /addynvars_r/
18       &                     adetan,       &                     adetan, adetah,
19       &                     aduvel, advvel, adwvel,       &                     aduvel, advvel, adwvel,
20       &                     adtheta, adsalt,       &                     adtheta, adsalt,
21       &                     adgu, adgv, adgt, adgs,       &                     adgu, adgv, adgt, adgs,
22       &                     adgunm1, adgvnm1, adgtnm1, adgsnm1       &                     adgunm1, adgvnm1, adgtnm1, adgsnm1
23        _RL adetan(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)        _RL adetan(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
24          _RL adetah(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
25        _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)
26        _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)
27        _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 36 
36        _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)
37        _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)
38    
39    #ifdef ALLOW_CD_CODE
40        common /addynvars_cd/        common /addynvars_cd/
41       &                      aduveld, advveld,       &                      aduveld, advveld,
42       &                       adetanm1,       &                       adetanm1,
43       &                      adunm1, advnm1,       &                      adunm1, advnm1
      &                      adgucd, adgvcd  
44        _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)
45        _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)
46        _RL adetanm1(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)        _RL adetanm1(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
47        _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)
48        _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)
49        _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)  
50    
51        common /adffields/        common /adffields/
52       &                   adfu, adfv       &                   adfu, adfv
# Line 63  cph     &                 , adsst, adsss Line 59  cph     &                 , adsst, adsss
59  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)
60  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)
61    
62    #ifdef ALLOW_DIFFKR_CONTROL
63          COMMON /ADDYNVARS_DIFFKR/
64         &                       addiffKr
65          _RL  addiffKr (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
66    #endif
67    #if (defined (ALLOW_EDTAUX_CONTROL) || defined (ALLOW_EDTAUY_CONTROL))
68          double precision adeddytaux(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,
69         $nsy)
70          double precision adeddytauy(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,
71         $nsy)
72          common /adedtauffields/ adeddytaux, adeddytauy
73    
74    #endif
75    
76    #ifdef ALLOW_EXF
77          _RL adhflux(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
78          _RL adsflux(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
79          common /adexf_hsflux_r/ adhflux, adsflux
80          _RL adustress(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
81          _RL advstress(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
82          common /adexf_stress_r/ adustress, advstress
83    # ifdef ALLOW_ATM_TEMP
84          _RL adatemp     (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
85          _RL adaqh       (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
86          _RL adlwflux    (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
87          _RL adprecip    (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
88          common /adexf_atm_temp_r/ adatemp, adaqh, adlwflux, adprecip
89    # endif
90    # ifdef ALLOW_ATM_WIND
91          _RL aduwind     (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
92          _RL advwind     (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
93          common /adexf_atm_wind_r/ aduwind, advwind
94    # endif
95    # ifdef ALLOW_DOWNWARD_RADIATION
96          _RL adswdown    (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
97          _RL adlwdown    (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
98          common /adexf_rad_down_r/
99         &     adswdown, adlwdown
100    # endif
101    #endif
102    
103  #endif /* ALLOW_AUTODIFF_MONITOR */  #endif /* ALLOW_AUTODIFF_MONITOR */
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22