/[MITgcm]/MITgcm/verification/front_relax/code_ad/adcommon.h
ViewVC logotype

Diff of /MITgcm/verification/front_relax/code_ad/adcommon.h

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.2 by edhill, Tue Oct 28 22:58:00 2003 UTC revision 1.3 by jmc, Tue Oct 9 02:36:41 2007 UTC
# Line 1  Line 1 
1    C $Header$
2    C $Name$
3    
4  C     These common blocks are extracted from the  C     These common blocks are extracted from the
5  C     automatically created adjoint code.  C     automatically created adjoint code.
6  C     You need to make sure that they are up-to-date  C     You need to make sure that they are up-to-date
7  C     (i.e. in right order), and customize them  C     (i.e. in right order), and customize them
8  C     accordingly.  C     accordingly.
9  C  C
10  C     heimbach@mit.edu 11-Jan-2001  C     heimbach@mit.edu 11-Jan-2001
11    
12  #ifdef ALLOW_AUTODIFF_MONITOR  #ifdef ALLOW_AUTODIFF_MONITOR
13    
14        common /addynvars_r/        common /addynvars_r/
15       &                     adetan,       &                     adetan,
16       &                     aduvel, advvel, adwvel,       &                     aduvel, advvel, adwvel,
17       &                     adtheta, adsalt,       &                     adtheta, adsalt,
18       &                     adgu, adgv, adgt, adgs,       &                     adgu, adgv, adgt, adgs,
19       &                     adgunm1, adgvnm1, adgtnm1, adgsnm1       &                     adgunm1, adgvnm1, adgtnm1, adgsnm1
20        _RL adetan(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)        _RL adetan(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
21        _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)
# Line 30  C     heimbach@mit.edu 11-Jan-2001 Line 33  C     heimbach@mit.edu 11-Jan-2001
33        _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)
34    
35  #ifdef ALLOW_CD_CODE  #ifdef ALLOW_CD_CODE
36        common /addynvars_cd/        common /addynvars_cd/
37       &                      aduveld, advveld,       &                      aduveld, advveld,
38       &                      adetanm1,       &                      adetanm1,
39       &                      adunm1, advnm1,       &                      adunm1, advnm1,
40       &                      adgucd, adgvcd       &                      adgucd, adgvcd
41        _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)
42        _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)
# Line 54  C     heimbach@mit.edu 11-Jan-2001 Line 57  C     heimbach@mit.edu 11-Jan-2001
57        _RL adsss(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)        _RL adsss(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
58    
59  #ifdef ALLOW_TR10_CONTROL  #ifdef ALLOW_TR10_CONTROL
60        common /adtr1_r/        common /adtr1_r/
61       &                 adtr1, adgtr1, adgtr1nm1       &                 adtr1, adgtr1, adgtr1nm1
62        _RL adgtr1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)        _RL adgtr1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
63        _RL adgtr1nm1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)        _RL adgtr1nm1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
# Line 62  C     heimbach@mit.edu 11-Jan-2001 Line 65  C     heimbach@mit.edu 11-Jan-2001
65  #endif  #endif
66    
67  #ifdef ALLOW_DIFFKR_CONTROL  #ifdef ALLOW_DIFFKR_CONTROL
68        common /addynvars_diffkr/        common /addynvars_diffkr/
69       &                          addiffkr       &                          addiffkr
70        _RL addiffkr(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)        _RL addiffkr(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
71  #endif  #endif
72    
73  #ifdef ALLOW_KAPGM_CONTROL  #ifdef ALLOW_KAPGM_CONTROL
74        common /addynvars_kapgm/        common /addynvars_kapgm/
75       &                          adkapgm       &                          adkapgm
76        _RL adkapgm(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)        _RL adkapgm(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
77  #endif  #endif
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22