/[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.1.2.2 by heimbach, Mon Apr 8 20:10:37 2002 UTC revision 1.2 by heimbach, Tue Nov 20 23:27:29 2001 UTC
# Line 1  Line 1 
    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.  
1    
2     heimbach@mit.edu 11-Jan-2001  CBOP
3    C     !ROUTINE: adcommon.h
4    C     !INTERFACE:
5    C     include "adcommon.h "
6    C     !DESCRIPTION: \bv
7    C     *==========================================================*
8    C     | CPP_EEMACROS.h                                            
9    C     *==========================================================*
10    C--   | common blocks of adjoint variables extracted from
11    C     | TAMC-/TAF- generated code for use in adjoint support;
12    C     | Make sure that adjoint common blocks below are up-to-date
13    C     | w.r.t. current adjoint code.
14    C     *==========================================================*
15    C     | CPP_EEMACROS.h                                            
16    C     *==========================================================*
17    C     \ev
18    CEOP
19    
20    WARNING:
21    THESE LINES ARE MEANT TO PROVOKE A COMPILER CRASH.
22    THIS IS ONLY A TEMPLATE FILE.
23    YOU NEED TO CUSTOMIZE THIS TO YOUR RESPECTIVE SETUP,
24    E.G. BY PLACING A COPY IN YOUR VERIFICATION DIRECTORY.
25    IT IS IMPORTANT THAT YOU MAKE SURE THAT THE COMMON BLOCKS
26    BELOW CORRESPOND TO THE COMMON BLOCKS IN THE AUTOMATICALLY
27    CREATED ADJOINT CODE.
28    
29        common /addynvars_r/        common /addynvars_r/
30       &                     adetan,       &                     adetan, adetanm1,
31       &                     aduvel, advvel, adwvel,       &                     aduvel, advvel, adwvel,
32       &                     adtheta, adsalt,       &                     adtheta, adsalt,
33       &                     adgu, adgv, adgt, adgs,       &                     adgu, adgv, adgt, adgs,
34       &                     adgunm1, adgvnm1, adgtnm1, adgsnm1       &                     adgunm1, adgvnm1, adgtnm1, adgsnm1
35        _RL adetan(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)        _RL adetan(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
36          _RL adetanm1(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
37        _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)
38        _RL adgsnm1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)        _RL adgsnm1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
39        _RL adgt(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)        _RL adgt(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
# Line 32  Line 50 
50    
51        common /addynvars_cd/        common /addynvars_cd/
52       &                      aduveld, advveld,       &                      aduveld, advveld,
      &                       adetanm1,  
53       &                      adunm1, advnm1,       &                      adunm1, advnm1,
54       &                      adgucd, adgvcd       &                      adgucd, adgvcd
55        _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)
56        _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)
       _RL adetanm1(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)  
57        _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)
58        _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)
59        _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)
60        _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)
61    
 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)  
   
62        common /adffields/        common /adffields/
63       &                   adfu, adfv       &                   adfu, adfv, adqnet, adempmr, adsst, adsss
      &                 , adqnet, adempmr  
 cph     &                 , adsst, adsss  
64        _RL adfu(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)        _RL adfu(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
65        _RL adfv(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)        _RL adfv(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
66        _RL adqnet(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)        _RL adqnet(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
67        _RL adempmr(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)        _RL adempmr(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
68  cph      _RL adsst(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)        _RL adsst(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
69  cph      _RL adsss(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)        _RL adsss(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
70    
71    #ifdef ALLOW_TR10_CONTROL
72          common /adtr1_r/
73         &                 adtr1, adgtr1, adgtr1nm1
74          _RL adgtr1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
75          _RL adgtr1nm1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
76          _RL adtr1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
77    #endif
78    
79    #ifdef ALLOW_DIFFKR_CONTROL
80          common /addynvars_diffkr/
81         &                          addiffkr
82          _RL addiffkr(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
83    #endif
84    
85    #ifdef ALLOW_KAPGM_CONTROL
86          common /addynvars_kapgm/
87         &                          adkapgm
88          _RL adkapgm(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
89    #endif
90    
91    
92    
Legend:
Removed from v.1.1.2.2  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22