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

Contents of /MITgcm/verification/hs94.1x64x5/adcode/adcommon.h

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


Revision 1.1 - (show annotations) (download)
Thu Nov 8 20:47:17 2001 UTC (22 years, 5 months ago) by heimbach
Branch: MAIN
File MIME type: text/plain
Preparing verification exp. for adjoint of Held-Suarez
(in adcode/).

1 C-- copied stuff from _ad.f file
2
3 common /addynvars_r/
4 & adetan, adetanm1,
5 & aduvel, advvel, adwvel,
6 & adtheta, adsalt,
7 & adgu, adgv, adgt, adgs,
8 & adgunm1, adgvnm1, adgtnm1, adgsnm1
9 _RL adetan(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
10 _RL adetanm1(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
11 _RL adgs(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
12 _RL adgsnm1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
13 _RL adgt(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
14 _RL adgtnm1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
15 _RL adgu(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
16 _RL adgunm1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
17 _RL adgv(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
18 _RL adgvnm1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
19 _RL adsalt(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
20 _RL adtheta(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
21 _RL aduvel(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
22 _RL advvel(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
23 _RL adwvel(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
24
25 common /addynvars_cd/
26 & aduveld, advveld,
27 & adunm1, advnm1,
28 & adgucd, adgvcd
29 _RL aduveld(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
30 _RL advveld(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
31 _RL adunm1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
32 _RL advnm1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
33 _RL adgucd(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
34 _RL adgvcd(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
35
36 common /adffields/
37 & adfu, adfv, adqnet, adempmr, adsst, adsss
38 _RL adfu(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
39 _RL adfv(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
40 _RL adqnet(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
41 _RL adempmr(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
42 _RL adsst(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
43 _RL adsss(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
44
45 #ifdef ALLOW_TR10_CONTROL
46 common /adtr1_r/
47 & adtr1, adgtr1, adgtr1nm1
48 _RL adgtr1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
49 _RL adgtr1nm1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
50 _RL adtr1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
51 #endif
52
53 #ifdef ALLOW_DIFFKR_CONTROL
54 common /addynvars_diffkr/
55 & addiffkr
56 _RL addiffkr(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
57 #endif
58
59 #ifdef ALLOW_KAPGM_CONTROL
60 common /addynvars_kapgm/
61 & adkapgm
62 _RL adkapgm(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
63 #endif
64
65
66

  ViewVC Help
Powered by ViewVC 1.1.22