/[MITgcm]/MITgcm/verification/hs94.1x64x5/code_ad/adcommon.h
ViewVC logotype

Diff of /MITgcm/verification/hs94.1x64x5/code_ad/adcommon.h

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

revision 1.1 by heimbach, Sun Oct 26 01:58:09 2003 UTC revision 1.3 by dfer, Fri May 9 18:42:27 2008 UTC
# Line 1  Line 1 
1  C--   copied stuff from _ad.f file  C $Header$
2    C $Name$
3    
4        common /addynvars_r/  C--   These common blocks are extracted from the
5       &                     adetan, adetah,  C--   automatically created tangent linear code.
6       &                     aduvel, advvel, adwvel,  C--   You need to make sure that they are up-to-date
7       &                     adtheta, adsalt,  C--   (i.e. in right order), and customize them
8       &                     adgu, adgv, adgt, adgs,  C--   accordingly.
9    C--
10    C--   heimbach@mit.edu 11-Jan-2001
11    
12          common /addynvars_r/
13         &                     adetan,
14         &                     aduvel, advvel, adwvel,
15         &                     adtheta, adsalt,
16         &                     adgu, adgv, adgt, adgs,
17       &                     adgunm1, adgvnm1, adgtnm1, adgsnm1       &                     adgunm1, adgvnm1, adgtnm1, adgsnm1
18        _RL adetan(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)        _RL adetan(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
       _RL adetah(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)  
19        _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)
20        _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)
21        _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 22  C--   copied stuff from _ad.f file Line 30  C--   copied stuff from _ad.f file
30        _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)
31        _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)
32    
33        common /adffields/        common /addynvars_r_2/
34       &                   adfu, adfv, adqnet, adempmr, adsst, adsss       &                     adetah
35        _RL adfu(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)        _RL adetah(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
36        _RL adfv(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)  
37        _RL adqnet(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)        COMMON /adffields_fu/ adfu
38        _RL adempmr(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)        COMMON /adffields_fv/ adfv
39        _RL adsst(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)        COMMON /adffields_Qnet/ adQnet
40        _RL adsss(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)        COMMON /adffields_Qsw/ adQsw
41          COMMON /adffields_dQdT/ addQdT
42  #ifdef ALLOW_PASSIVE_TRACER        COMMON /adffields_EmPmR/ adEmPmR
43        common /adtr1_r/        COMMON /adffields_saltFlux/ adsaltFlux
44       &                 adtr1, adgtr1, adgtr1nm1        COMMON /adffields_SST/ adSST
45        _RL adgtr1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)        COMMON /adffields_SSS/ adSSS
46        _RL adgtr1nm1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)        COMMON /adffields_lambdaThetaClimRelax/ adlambdaThetaClimRelax
47        _RL adtr1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)        COMMON /adffields_lambdaSaltClimRelax/ adlambdaSaltClimRelax
48    #ifdef ATMOSPHERIC_LOADING
49          COMMON /adffields_pload/ adpload
50          COMMON /adffields_sIceLoad/ adsIceLoad
51  #endif  #endif
52    
53  #ifdef ALLOW_DIFFKR_CONTROL        _RS  adfu       (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
54        common /addynvars_diffkr/        _RS  adfv       (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
55       &                          addiffkr        _RS  adQnet     (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
56        _RL addiffkr(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)        _RS  adQsw      (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
57          _RS  addQdT     (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
58          _RS  adEmPmR    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
59          _RS  adsaltFlux (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
60          _RS  adSST      (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
61          _RS  adSSS      (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
62          _RS  adlambdaThetaClimRelax
63         &    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
64          _RS  adlambdaSaltClimRelax
65         &    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
66    #ifdef ATMOSPHERIC_LOADING
67          _RS  adpload    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
68          _RS  adsIceLoad (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
69  #endif  #endif
70    
71    #ifdef ALLOW_DIFFKR_CONTROL
72          COMMON /ADDYNVARS_DIFFKR/
73         &                       addiffKr
74          _RL  addiffKr (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
75    #endif
76  #ifdef ALLOW_KAPGM_CONTROL  #ifdef ALLOW_KAPGM_CONTROL
77        common /addynvars_kapgm/        COMMON /ADDYNVARS_KAPGM/
78       &                          adkapgm       &                       adkapgm
79        _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)
80  #endif  #endif
   
   
   
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22