/[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.24 - (show annotations) (download)
Thu Oct 14 05:22:21 2004 UTC (19 years, 8 months ago) by heimbach
Branch: MAIN
CVS Tags: checkpoint57b_post, checkpoint56b_post, checkpoint57, checkpoint56, checkpoint55i_post, checkpoint57a_post, checkpoint55g_post, checkpoint55j_post, checkpoint55h_post, checkpoint56a_post, checkpoint56c_post, checkpoint57a_pre
Changes since 1.23: +5 -1 lines
File MIME type: text/plain 
o Fixing directives for non-ECCO forward_step, after ECCO directives
  have been fixed to avoid recomp. of do_oceanic_phys
o Works well for global_ocean.90x40x15,
  but recomp. issue remains for carbon
1 C $Header: /u/gcmpack/MITgcm/pkg/autodiff/checkpoint_lev2_directives.h,v 1.23 2004/09/27 18:00:19 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 ALLOW_CD_CODE
37 # include "cd_code_ad_check_lev2_dir.h"
38 #endif /* ALLOW_CD_CODE */
39
40 #ifdef ALLOW_EXF
41 # include "exf_ad_check_lev2_dir.h"
42 #else /* ALLOW_EXF undef */
43
44 CADJ STORE taux0 = tapelev2, key = ilev_2
45 CADJ STORE taux1 = tapelev2, key = ilev_2
46 CADJ STORE tauy0 = tapelev2, key = ilev_2
47 CADJ STORE tauy1 = tapelev2, key = ilev_2
48 CADJ STORE Qnet0 = tapelev2, key = ilev_2
49 CADJ STORE Qnet1 = tapelev2, key = ilev_2
50 CADJ STORE EmPmR0 = tapelev2, key = ilev_2
51 CADJ STORE EmPmR1 = tapelev2, key = ilev_2
52 CADJ STORE SST0 = tapelev2, key = ilev_2
53 CADJ STORE SST1 = tapelev2, key = ilev_2
54 CADJ STORE SSS0 = tapelev2, key = ilev_2
55 CADJ STORE SSS1 = tapelev2, key = ilev_2
56 #ifdef SHORTWAVE_HEATING
57 CADJ STORE Qsw0 = tapelev2, key = ilev_2
58 CADJ STORE Qsw1 = tapelev2, key = ilev_2
59 #endif
60 #ifdef ATMOSPHERIC_LOADING
61 CADJ STORE pload0 = tapelev2, key = ilev_2
62 CADJ STORE pload1 = tapelev2, key = ilev_2
63 #endif
64
65 #endif /* ALLOW_EXF */
66
67 #ifdef ALLOW_PTRACERS
68 # include "ptracers_ad_check_lev2_dir.h"
69 #endif /* ALLOW_PTRACERS */
70
71 #ifdef ALLOW_OBCS
72 # include "obcs_ad_check_lev2_dir.h"
73 #endif /* ALLOW_OBCS */
74
75 #ifdef ALLOW_SEAICE
76 # include "seaice_ad_check_lev2_dir.h"
77 #endif /* ALLOW_SEAICE */
78
79 #ifdef ALLOW_EBM
80 CADJ STORE fu = tapelev2, key = ilev_2
81 CADJ STORE fv = tapelev2, key = ilev_2
82 CADJ STORE qnet = tapelev2, key = ilev_2
83 CADJ STORE qsw = tapelev2, key = ilev_2
84 CADJ STORE sss = tapelev2, key = ilev_2
85 CADJ STORE empmr = tapelev2, key = ilev_2
86 # include "ebm_ad_check_lev2_dir.h"
87 #endif /* ALLOW_ebm */
88
89 #ifdef ALLOW_COST_ATLANTIC_HEAT
90 CADJ STORE cMeanTheta = tapelev2, key = ilev_2
91 CADJ STORE cMeanUVel = tapelev2, key = ilev_2
92 CADJ STORE cMeanVVel = tapelev2, key = ilev_2
93 #endif
94
95 #ifdef ALLOW_COST_TRACER
96 CADJ STORE objf_tracer = tapelev2, key = ilev_2
97 #endif
  ViewVC Help
Powered by ViewVC 1.1.22