/[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.3 - (show annotations) (download)
Sun Oct 26 01:53:57 2003 UTC (20 years, 8 months ago) by heimbach
Branch: MAIN
CVS Tags: HEAD
Changes since 1.2: +0 -0 lines
File MIME type: text/plain
FILE REMOVED
moving and updaing adcode to code_ad

1 C-- copied stuff from _ad.f file
2
3 common /addynvars_r/
4 & adetan, adetah,
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 adetah(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 /adffields/
26 & adfu, adfv, adqnet, adempmr, adsst, adsss
27 _RL adfu(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
28 _RL adfv(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
29 _RL adqnet(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
30 _RL adempmr(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
31 _RL adsst(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
32 _RL adsss(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
33
34 #ifdef ALLOW_PASSIVE_TRACER
35 common /adtr1_r/
36 & adtr1, adgtr1, adgtr1nm1
37 _RL adgtr1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
38 _RL adgtr1nm1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
39 _RL adtr1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
40 #endif
41
42 #ifdef ALLOW_DIFFKR_CONTROL
43 common /addynvars_diffkr/
44 & addiffkr
45 _RL addiffkr(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
46 #endif
47
48 #ifdef ALLOW_KAPGM_CONTROL
49 common /addynvars_kapgm/
50 & adkapgm
51 _RL adkapgm(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
52 #endif
53
54
55

  ViewVC Help
Powered by ViewVC 1.1.22