/[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.5 by heimbach, Wed Feb 9 21:20:43 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_EXF
59          _RL adhflux(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
60          _RL adsflux(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
61          common /adexf_hsflux_r/ adhflux, adsflux
62          _RL adustress(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
63          _RL advstress(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
64          common /adexf_stress_r/ adustress, advstress
65    # ifdef ALLOW_ATEMP
66          _RL adatemp     (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
67          _RL adaqh       (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
68          _RL adlwflux    (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
69          _RL adprecip    (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
70          common /adexf_atm_temp_r/ adatemp, adaqh, adlwflux, adprecip
71    # endif
72    # ifdef ALLOW_ATM_WIND
73          _RL aduwind     (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
74          _RL advwind     (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
75          common /adexf_atm_wind_r/ aduwind, advwind
76    # endif
77    #endif
78    
79  #endif /* ALLOW_AUTODIFF_MONITOR */  #endif /* ALLOW_AUTODIFF_MONITOR */
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22