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

Diff of /MITgcm/verification/front_relax/code_ad/g_common.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 tangent linear code.  C     automatically created tangent linear 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 /g_dynvars_r/        common /g_dynvars_r/
15       &                     g_etan,       &                     g_etan,
16       &                     g_uvel, g_vvel, g_wvel,       &                     g_uvel, g_vvel, g_wvel,
17       &                     g_theta, g_salt,       &                     g_theta, g_salt,
18       &                     g_gu, g_gv, g_gt, g_gs,       &                     g_gu, g_gv, g_gt, g_gs,
19       &                     g_gunm1, g_gvnm1, g_gtnm1, g_gsnm1       &                     g_gunm1, g_gvnm1, g_gtnm1, g_gsnm1
20        _RL g_etan(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)        _RL g_etan(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
21        _RL g_gs(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)        _RL g_gs(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 g_wvel(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)        _RL g_wvel(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
34    
35  #ifdef ALLOW_CD_CODE  #ifdef ALLOW_CD_CODE
36        common /g_dynvars_cd/        common /g_dynvars_cd/
37       &                      g_uveld, g_vveld,       &                      g_uveld, g_vveld,
38       &                      g_etanm1,       &                      g_etanm1,
39       &                      g_unm1, g_vnm1,       &                      g_unm1, g_vnm1,
40       &                      g_gucd, g_gvcd       &                      g_gucd, g_gvcd
41        _RL g_uveld(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)        _RL g_uveld(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
42        _RL g_vveld(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)        _RL g_vveld(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 g_sss(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)        _RL g_sss(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
58    
59  #ifdef ALLOW_TR10_CONTROL  #ifdef ALLOW_TR10_CONTROL
60        common /g_tr1_r/        common /g_tr1_r/
61       &                 g_tr1, g_gtr1, g_gtr1nm1       &                 g_tr1, g_gtr1, g_gtr1nm1
62        _RL g_gtr1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)        _RL g_gtr1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
63        _RL g_gtr1nm1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)        _RL g_gtr1nm1(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 /g_dynvars_diffkr/        common /g_dynvars_diffkr/
69       &                          g_diffkr       &                          g_diffkr
70        _RL g_diffkr(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)        _RL g_diffkr(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 /g_dynvars_kapgm/        common /g_dynvars_kapgm/
75       &                          g_kapgm       &                          g_kapgm
76        _RL g_kapgm(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)        _RL g_kapgm(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