/[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.13 by heimbach, Mon Sep 12 20:31:53 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    
11     These lines are uncommented on purpose to provoke  #include "PACKAGES_CONFIG.h"
    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.  
12    
13     heimbach@mit.edu 11-Jan-2001  #ifdef ALLOW_EXF
14    # include "EXF_OPTIONS.h"
15    #endif
16    #ifdef ALLOW_SEAICE
17    # include "SEAICE_OPTIONS.h"
18    #endif
19    
20    
21    #ifdef EXACT_CONSERV
22          common /addynvars_r/
23         &                     adetan, adetah,
24         &                     aduvel, advvel, adwvel,
25         &                     adtheta, adsalt,
26         &                     adgu, adgv, adgt, adgs,
27         &                     adgunm1, adgvnm1, adgtnm1, adgsnm1
28    #else
29        common /addynvars_r/        common /addynvars_r/
30       &                     adetan,       &                     adetan,
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    #endif
36        _RL adetan(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)        _RL adetan(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
37          _RL adetah(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
38        _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)
39        _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)
40        _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 33  Line 49 
49        _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)
50        _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)
51    
52    #ifdef ALLOW_CD_CODE
53        common /addynvars_cd/        common /addynvars_cd/
54       &                      aduveld, advveld,       &                      aduveld, advveld,
55       &                       adetanm1,       &                       adetanm1,
56       &                      adunm1, advnm1,       &                      adunm1, advnm1
      &                      adgucd, adgvcd  
57        _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)
58        _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)
59        _RL adetanm1(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)        _RL adetanm1(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
60        _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)
61        _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)
62        _RL adgucd(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)  #endif
       _RL adgvcd(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)  
   
 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)  
63    
64        common /adffields/        common /adffields/
65       &                   adfu, adfv       &                   adfu, adfv
# Line 63  cph     &                 , adsst, adsss Line 72  cph     &                 , adsst, adsss
72  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)
73  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)
74    
75    #ifdef ALLOW_DIFFKR_CONTROL
76          COMMON /ADDYNVARS_DIFFKR/
77         &                       addiffKr
78          _RL  addiffKr (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
79    #endif
80    #if (defined (ALLOW_EDTAUX_CONTROL) || defined (ALLOW_EDTAUY_CONTROL))
81          double precision adeddytaux(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,
82         $nsy)
83          double precision adeddytauy(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,
84         $nsy)
85          common /adedtauffields/ adeddytaux, adeddytauy
86    
87    #endif
88    
89    #ifdef ALLOW_EXF
90          _RL adhflux(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
91          _RL adsflux(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
92          common /adexf_hsflux_r/ adhflux, adsflux
93          _RL adustress(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
94          _RL advstress(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
95          common /adexf_stress_r/ adustress, advstress
96    # ifdef ALLOW_ATM_TEMP
97          _RL adatemp     (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
98          _RL adaqh       (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
99          _RL adlwflux    (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
100          _RL adprecip    (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
101          common /adexf_atm_temp_r/ adatemp, adaqh, adlwflux, adprecip
102    # endif
103    # ifdef ALLOW_ATM_WIND
104          _RL aduwind     (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
105          _RL advwind     (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
106          common /adexf_atm_wind_r/ aduwind, advwind
107    # endif
108    # ifdef ALLOW_DOWNWARD_RADIATION
109          _RL adswdown    (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
110          _RL adlwdown    (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
111          common /adexf_rad_down_r/
112         &     adswdown, adlwdown
113    # endif
114    # ifdef ALLOW_CLIMSST_RELAXATION
115          _RL adclimsst(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
116          common /adexf_clim_sst_r/ adclimsst
117    # endif
118    # ifdef ALLOW_CLIMSSS_RELAXATION
119          _RL adclimsss(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
120          common /adexf_clim_sss_r/ adclimsss
121    # endif
122    #endif
123    
124    #ifdef ALLOW_SEAICE
125          _RL adarea(1-olx:snx+olx,1-oly:sny+oly,3,nsx,nsy)
126          common /adseaice_dynvars_1/ adarea
127    c
128          _RL adheff(1-olx:snx+olx,1-oly:sny+oly,3,nsx,nsy)
129          _RL adhsnow(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
130          common /adseaice_trans/ adheff, adhsnow
131    # ifdef SEAICE_ALLOW_DYNAMICS
132          _RL aduice(1-olx:snx+olx,1-oly:sny+oly,3,nsx,nsy)
133          _RL advice(1-olx:snx+olx,1-oly:sny+oly,3,nsx,nsy)
134          common /adseaice_dynvars_2/ aduice, advice
135    # endif
136    #endif
137    
138  #endif /* ALLOW_AUTODIFF_MONITOR */  #endif /* ALLOW_AUTODIFF_MONITOR */
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.13
  ViewVC Help
Powered by ViewVC 1.1.22