/[MITgcm]/MITgcm/pkg/autodiff/checkpoint_lev2_directives.h
ViewVC logotype

Contents of /MITgcm/pkg/autodiff/checkpoint_lev2_directives.h

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

Revision 1.30 - (show annotations) (download)
Wed Jun 7 01:55:13 2006 UTC (18 years ago) by heimbach
Branch: MAIN
CVS Tags: checkpoint58k_post, checkpoint58h_post, checkpoint58j_post, checkpoint58i_post
Changes since 1.29: +5 -1 lines
File MIME type: text/plain 
Modifications for bottom topography control
o replace hFacC by _hFacC at various places
o replace ALLOW_HFACC_CONTROL by ALLOW_DEPTH_CONTROL
o add non-self-adjoint cg2d_nsa
o update autodiff support routines
o re-initialise hfac after ctrl_depth_ini
o works for 5x5 box, doesnt work for global_ocean.90x40x15
1 C $Header: /u/gcmpack/MITgcm/pkg/autodiff/checkpoint_lev2_directives.h,v 1.29 2006/05/03 23:35:38 heimbach Exp $
2 C $Name: $
3 c
4 c store directives for checkpoint level 2
5 c
6 c created: heimbach@mit.edu 10-Jan-2002
7 c
8 CADJ STORE gs = tapelev2, key = ilev_2
9 CADJ STORE gt = tapelev2, key = ilev_2
10 CADJ STORE gsnm1 = tapelev2, key = ilev_2
11 CADJ STORE gtnm1 = tapelev2, key = ilev_2
12 CADJ STORE gunm1 = tapelev2, key = ilev_2
13 CADJ STORE gvnm1 = tapelev2, key = ilev_2
14 CADJ STORE theta = tapelev2, key = ilev_2
15 CADJ STORE salt = tapelev2, key = ilev_2
16 CADJ STORE uvel = tapelev2, key = ilev_2
17 CADJ STORE vvel = tapelev2, key = ilev_2
18 CADJ STORE wvel = tapelev2, key = ilev_2
19 CADJ STORE etan = tapelev2, key = ilev_2
20 CADJ STORE totphihyd = tapelev2, key = ilev_2
21 CADJ STORE surfaceforcingTice = tapelev2, key = ilev_2
22 cnewCADJ STORE ivdconvcount = tapelev2, key = ilev_2
23
24 #ifdef EXACT_CONSERV
25 CADJ STORE etaH = tapelev2, key = ilev_2
26 CADJ STORE dEtaHdt = tapelev2, key = ilev_2
27 CADJ STORE PmEpR = tapelev2, key = ilev_2
28 cphCADJ STORE hDivFlow = tapelev2, key = ilev_2
29 #endif /* EXACT_CONSERV */
30
31 #ifdef ALLOW_PASSIVE_TRACER
32 CADJ STORE tr1 = tapelev2, key = ilev_2
33 CADJ STORE gtr1nm1 = tapelev2, key = ilev_2
34 #endif /* ALLOW_PASSIVE_TRACER */
35
36 #ifdef NONLIN_FRSURF
37 CADJ STORE hfac_surfc = tapelev2, key = ilev_2
38 CADJ STORE hfac_surfs = tapelev2, key = ilev_2
39 CADJ STORE hfac_surfw = tapelev2, key = ilev_2
40 CADJ STORE hfacc = tapelev2, key = ilev_2
41 CADJ STORE hfacs = tapelev2, key = ilev_2
42 CADJ STORE hfacw = tapelev2, key = ilev_2
43 CADJ STORE recip_hfacc = tapelev2, key = ilev_2
44 CADJ STORE recip_hfacs = tapelev2, key = ilev_2
45 CADJ STORE recip_hfacw = tapelev2, key = ilev_2
46 # ifndef DISABLE_RSTAR_CODE
47 CADJ STORE rstarexpc,rstarexps,rstarexpw
48 CADJ & = tapelev2, key = ilev_2
49 CADJ STORE rstarfacc,rstarfacs,rstarfacw
50 CADJ & = tapelev2, key = ilev_2
51 CADJ STORE rstardhcdt,rstardhsdt,rstardhwdt
52 CADJ & = tapelev2, key = ilev_2
53 CADJ STORE h0facc,h0facs,h0facw
54 CADJ & = tapelev2, key = ilev_2
55 # endif
56 #endif /* NONLIN_FRSURF */
57
58 #ifdef ALLOW_CD_CODE
59 # include "cd_code_ad_check_lev2_dir.h"
60 #endif /* ALLOW_CD_CODE */
61
62 #ifdef ALLOW_EXF
63 # include "exf_ad_check_lev2_dir.h"
64 #else /* ALLOW_EXF undef */
65
66 CADJ STORE taux0 = tapelev2, key = ilev_2
67 CADJ STORE taux1 = tapelev2, key = ilev_2
68 CADJ STORE tauy0 = tapelev2, key = ilev_2
69 CADJ STORE tauy1 = tapelev2, key = ilev_2
70 CADJ STORE Qnet0 = tapelev2, key = ilev_2
71 CADJ STORE Qnet1 = tapelev2, key = ilev_2
72 CADJ STORE EmPmR0 = tapelev2, key = ilev_2
73 CADJ STORE EmPmR1 = tapelev2, key = ilev_2
74 CADJ STORE SST0 = tapelev2, key = ilev_2
75 CADJ STORE SST1 = tapelev2, key = ilev_2
76 CADJ STORE SSS0 = tapelev2, key = ilev_2
77 CADJ STORE SSS1 = tapelev2, key = ilev_2
78 CADJ STORE saltFlux0 = tapelev2, key = ilev_2
79 CADJ STORE saltFlux1 = tapelev2, key = ilev_2
80 #ifdef SHORTWAVE_HEATING
81 CADJ STORE Qsw0 = tapelev2, key = ilev_2
82 CADJ STORE Qsw1 = tapelev2, key = ilev_2
83 #endif
84 #ifdef ATMOSPHERIC_LOADING
85 CADJ STORE pload0 = tapelev2, key = ilev_2
86 CADJ STORE pload1 = tapelev2, key = ilev_2
87 #endif
88
89 #endif /* ALLOW_EXF */
90
91 #ifdef ALLOW_PTRACERS
92 # include "ptracers_ad_check_lev2_dir.h"
93 #endif /* ALLOW_PTRACERS */
94
95 #ifdef ALLOW_OBCS
96 # include "obcs_ad_check_lev2_dir.h"
97 #endif /* ALLOW_OBCS */
98
99 #ifdef ALLOW_SEAICE
100 # include "seaice_ad_check_lev2_dir.h"
101 #endif /* ALLOW_SEAICE */
102
103 #ifdef ALLOW_THSICE
104 # include "thsice_ad_check_lev2_dir.h"
105 #endif /* ALLOW_SEAICE */
106
107 #ifdef ALLOW_EBM
108 CADJ STORE fu = tapelev2, key = ilev_2
109 CADJ STORE fv = tapelev2, key = ilev_2
110 CADJ STORE qnet = tapelev2, key = ilev_2
111 CADJ STORE qsw = tapelev2, key = ilev_2
112 CADJ STORE sss = tapelev2, key = ilev_2
113 CADJ STORE empmr = tapelev2, key = ilev_2
114 # include "ebm_ad_check_lev2_dir.h"
115 #endif /* ALLOW_ebm */
116
117 #if (defined (ALLOW_COST_TEST) || defined (ALLOW_COST_ATLANTIC_HEAT))
118 CADJ STORE cMeanTheta = tapelev2, key = ilev_2
119 CADJ STORE cMeanUVel = tapelev2, key = ilev_2
120 CADJ STORE cMeanVVel = tapelev2, key = ilev_2
121 #endif
122
123 #ifdef ALLOW_COST_TRACER
124 CADJ STORE objf_tracer = tapelev2, key = ilev_2
125 #endif
126
127 #ifdef ALLOW_COST_TRANSPORT
128 CADJ STORE objf_transport = tapelev2, key = ilev_2
129 #endif
  ViewVC Help
Powered by ViewVC 1.1.22