/[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.6 by heimbach, Thu Feb 10 03:45:07 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,
# Line 45  Line 42 
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)        _RL adgucd(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
44        _RL adgvcd(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)        _RL adgvcd(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
45    #endif
 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)  
46    
47        common /adffields/        common /adffields/
48       &                   adfu, adfv       &                   adfu, adfv
# Line 63  cph     &                 , adsst, adsss Line 55  cph     &                 , adsst, adsss
55  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)
56  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)
57    
58    #ifdef ALLOW_DIFFKR_CONTROL
59          COMMON /ADDYNVARS_DIFFKR/
60         &                       addiffKr
61          _RL  addiffKr (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
62    #endif
63    
64    #ifdef ALLOW_EXF
65          _RL adhflux(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
66          _RL adsflux(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
67          common /adexf_hsflux_r/ adhflux, adsflux
68          _RL adustress(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
69          _RL advstress(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
70          common /adexf_stress_r/ adustress, advstress
71    # ifdef ALLOW_ATEMP
72          _RL adatemp     (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
73          _RL adaqh       (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
74          _RL adlwflux    (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
75          _RL adprecip    (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
76          common /adexf_atm_temp_r/ adatemp, adaqh, adlwflux, adprecip
77    # endif
78    # ifdef ALLOW_ATM_WIND
79          _RL aduwind     (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
80          _RL advwind     (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
81          common /adexf_atm_wind_r/ aduwind, advwind
82    # endif
83    #endif
84    
85  #endif /* ALLOW_AUTODIFF_MONITOR */  #endif /* ALLOW_AUTODIFF_MONITOR */
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22