/[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.8 by heimbach, Tue Mar 29 22:04:26 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,
13       &                     aduvel, advvel, adwvel,       &                     aduvel, advvel, adwvel,
# Line 33  Line 29 
29        _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)
30        _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)
31    
32    #ifdef ALLOW_CD_CODE
33        common /addynvars_cd/        common /addynvars_cd/
34       &                      aduveld, advveld,       &                      aduveld, advveld,
35       &                       adetanm1,       &                       adetanm1,
36       &                      adunm1, advnm1,       &                      adunm1, advnm1
      &                      adgucd, adgvcd  
37        _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)
38        _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)
39        _RL adetanm1(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)        _RL adetanm1(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
40        _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)
41        _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)
42        _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)  
43    
44        common /adffields/        common /adffields/
45       &                   adfu, adfv       &                   adfu, adfv
# Line 63  cph     &                 , adsst, adsss Line 52  cph     &                 , adsst, adsss
52  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)
53  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)
54    
55    #ifdef ALLOW_DIFFKR_CONTROL
56          COMMON /ADDYNVARS_DIFFKR/
57         &                       addiffKr
58          _RL  addiffKr (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
59    #endif
60    #if (defined (ALLOW_EDTAUX_CONTROL) || defined (ALLOW_EDTAUY_CONTROL))
61          double precision adeddytaux(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,
62         $nsy)
63          double precision adeddytauy(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,
64         $nsy)
65          common /adedtauffields/ adeddytaux, adeddytauy
66    
67    #endif
68    
69    #ifdef ALLOW_EXF
70          _RL adhflux(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
71          _RL adsflux(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
72          common /adexf_hsflux_r/ adhflux, adsflux
73          _RL adustress(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
74          _RL advstress(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
75          common /adexf_stress_r/ adustress, advstress
76    # ifdef ALLOW_ATEMP
77          _RL adatemp     (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
78          _RL adaqh       (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
79          _RL adlwflux    (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
80          _RL adprecip    (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
81          common /adexf_atm_temp_r/ adatemp, adaqh, adlwflux, adprecip
82    # endif
83    # ifdef ALLOW_ATM_WIND
84          _RL aduwind     (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
85          _RL advwind     (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
86          common /adexf_atm_wind_r/ aduwind, advwind
87    # endif
88    #endif
89    
90  #endif /* ALLOW_AUTODIFF_MONITOR */  #endif /* ALLOW_AUTODIFF_MONITOR */
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22