/[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.9 by heimbach, Fri Apr 29 20:45:00 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    
    These lines are uncommented on purpose to provoke  
    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.  
   
    heimbach@mit.edu 11-Jan-2001  
   
11        common /addynvars_r/        common /addynvars_r/
12       &                     adetan,       &                     adetan, adetah,
13       &                     aduvel, advvel, adwvel,       &                     aduvel, advvel, adwvel,
14       &                     adtheta, adsalt,       &                     adtheta, adsalt,
15       &                     adgu, adgv, adgt, adgs,       &                     adgu, adgv, adgt, adgs,
16       &                     adgunm1, adgvnm1, adgtnm1, adgsnm1       &                     adgunm1, adgvnm1, adgtnm1, adgsnm1
17        _RL adetan(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)        _RL adetan(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
18          _RL adetah(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
19        _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)
20        _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)
21        _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 30 
30        _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)
31        _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)
32    
33    #ifdef ALLOW_CD_CODE
34        common /addynvars_cd/        common /addynvars_cd/
35       &                      aduveld, advveld,       &                      aduveld, advveld,
36       &                       adetanm1,       &                       adetanm1,
37       &                      adunm1, advnm1,       &                      adunm1, advnm1
      &                      adgucd, adgvcd  
38        _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)
39        _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)
40        _RL adetanm1(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)        _RL adetanm1(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
41        _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)
42        _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)
43        _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)  
44    
45        common /adffields/        common /adffields/
46       &                   adfu, adfv       &                   adfu, adfv
# Line 63  cph     &                 , adsst, adsss Line 53  cph     &                 , adsst, adsss
53  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)
54  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)
55    
56    #ifdef ALLOW_DIFFKR_CONTROL
57          COMMON /ADDYNVARS_DIFFKR/
58         &                       addiffKr
59          _RL  addiffKr (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
60    #endif
61    #if (defined (ALLOW_EDTAUX_CONTROL) || defined (ALLOW_EDTAUY_CONTROL))
62          double precision adeddytaux(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,
63         $nsy)
64          double precision adeddytauy(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,
65         $nsy)
66          common /adedtauffields/ adeddytaux, adeddytauy
67    
68    #endif
69    
70    #ifdef ALLOW_EXF
71          _RL adhflux(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
72          _RL adsflux(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
73          common /adexf_hsflux_r/ adhflux, adsflux
74          _RL adustress(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
75          _RL advstress(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
76          common /adexf_stress_r/ adustress, advstress
77    # ifdef ALLOW_ATEMP
78          _RL adatemp     (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
79          _RL adaqh       (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
80          _RL adlwflux    (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
81          _RL adprecip    (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
82          common /adexf_atm_temp_r/ adatemp, adaqh, adlwflux, adprecip
83    # endif
84    # ifdef ALLOW_ATM_WIND
85          _RL aduwind     (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
86          _RL advwind     (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
87          common /adexf_atm_wind_r/ aduwind, advwind
88    # endif
89    #endif
90    
91  #endif /* ALLOW_AUTODIFF_MONITOR */  #endif /* ALLOW_AUTODIFF_MONITOR */
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22