5 |
c |
c |
6 |
c created: heimbach@mit.edu 10-Jan-2002 |
c created: heimbach@mit.edu 10-Jan-2002 |
7 |
c |
c |
8 |
|
#ifdef AUTODIFF_USE_OLDSTORE_2D |
9 |
CADJ STORE StoreDynVars3D = tapelev4, key = ilev_4 |
c |
10 |
|
CADJ STORE etan = tapelev4, key = ilev_4 |
11 |
|
CADJ STORE surfaceforcingTice = tapelev4, key = ilev_4 |
12 |
|
CADJ STORE taux0 = tapelev4, key = ilev_4 |
13 |
|
CADJ STORE taux1 = tapelev4, key = ilev_4 |
14 |
|
CADJ STORE tauy0 = tapelev4, key = ilev_4 |
15 |
|
CADJ STORE tauy1 = tapelev4, key = ilev_4 |
16 |
|
CADJ STORE qnet0 = tapelev4, key = ilev_4 |
17 |
|
CADJ STORE qnet1 = tapelev4, key = ilev_4 |
18 |
|
CADJ STORE empmr0 = tapelev4, key = ilev_4 |
19 |
|
CADJ STORE empmr1 = tapelev4, key = ilev_4 |
20 |
|
CADJ STORE sst0 = tapelev4, key = ilev_4 |
21 |
|
CADJ STORE sst1 = tapelev4, key = ilev_4 |
22 |
|
CADJ STORE sss0 = tapelev4, key = ilev_4 |
23 |
|
CADJ STORE sss1 = tapelev4, key = ilev_4 |
24 |
|
CADJ STORE saltflux0 = tapelev4, key = ilev_4 |
25 |
|
CADJ STORE saltflux1 = tapelev4, key = ilev_4 |
26 |
|
#ifdef SHORTWAVE_HEATING |
27 |
|
CADJ STORE qsw0 = tapelev4, key = ilev_4 |
28 |
|
CADJ STORE qsw1 = tapelev4, key = ilev_4 |
29 |
|
#endif |
30 |
|
#ifdef ATMOSPHERIC_LOADING |
31 |
|
CADJ STORE pload0 = tapelev4, key = ilev_4 |
32 |
|
CADJ STORE pload1 = tapelev4, key = ilev_4 |
33 |
|
#endif |
34 |
|
#ifdef EXACT_CONSERV |
35 |
|
CADJ STORE etaH = tapelev4, key = ilev_4 |
36 |
|
CADJ STORE dEtaHdt = tapelev4, key = ilev_4 |
37 |
|
CADJ STORE PmEpR = tapelev4, key = ilev_4 |
38 |
|
#endif |
39 |
|
c |
40 |
|
#else /* ndef AUTODIFF_USE_OLDSTORE_2D */ |
41 |
|
c |
42 |
CADJ STORE StoreDynVars2D = tapelev4, key = ilev_4 |
CADJ STORE StoreDynVars2D = tapelev4, key = ilev_4 |
43 |
|
c |
44 |
|
#endif /* AUTODIFF_USE_OLDSTORE_2D */ |
45 |
|
c |
46 |
|
#ifdef AUTODIFF_USE_OLDSTORE_3D |
47 |
|
c |
48 |
|
CADJ STORE gs = tapelev4, key = ilev_4 |
49 |
|
CADJ STORE gt = tapelev4, key = ilev_4 |
50 |
|
CADJ STORE gtnm1 = tapelev4, key = ilev_4 |
51 |
|
CADJ STORE gsnm1 = tapelev4, key = ilev_4 |
52 |
|
CADJ STORE gunm1 = tapelev4, key = ilev_4 |
53 |
|
CADJ STORE gvnm1 = tapelev4, key = ilev_4 |
54 |
|
CADJ STORE theta = tapelev4, key = ilev_4 |
55 |
|
CADJ STORE salt = tapelev4, key = ilev_4 |
56 |
|
CADJ STORE uvel = tapelev4, key = ilev_4 |
57 |
|
CADJ STORE vvel = tapelev4, key = ilev_4 |
58 |
|
CADJ STORE wvel = tapelev4, key = ilev_4 |
59 |
|
CADJ STORE totphihyd = tapelev4, key = ilev_4 |
60 |
|
c |
61 |
|
#else /* ndef AUTODIFF_USE_OLDSTORE_3D */ |
62 |
|
c |
63 |
|
CADJ STORE StoreDynVars3D = tapelev4, key = ilev_4 |
64 |
|
c |
65 |
|
#endif /* AUTODIFF_USE_OLDSTORE_3D */ |
66 |
|
|
67 |
cnewCADJ STORE ivdconvcount = tapelevx, key = ilev_x |
cnewCADJ STORE ivdconvcount = tapelevx, key = ilev_x |
68 |
|
|
69 |
#ifdef EXACT_CONSERV |
#ifdef EXACT_CONSERV |