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

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

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

Revision 1.2 - (show annotations) (download)
Thu Sep 27 20:12:11 2001 UTC (22 years, 7 months ago) by heimbach
Branch: MAIN
CVS Tags: checkpoint44e_post, checkpoint46l_post, checkpoint46g_pre, checkpoint46f_post, checkpoint44f_post, checkpoint46b_post, checkpoint43a-release1mods, checkpoint46l_pre, chkpt44d_post, release1_p1, release1_p2, release1_p3, release1_p4, release1_p5, release1_p6, checkpoint44e_pre, release1_b1, checkpoint43, release1_chkpt44d_post, icebear2, checkpoint46d_pre, release1-branch_tutorials, checkpoint45d_post, checkpoint46j_pre, chkpt44a_post, checkpoint44h_pre, checkpoint46a_post, checkpoint46j_post, checkpoint46k_post, chkpt44c_pre, checkpoint45a_post, ecco_c44_e19, ecco_c44_e18, ecco_c44_e17, ecco_c44_e16, checkpoint44g_post, checkpoint46e_pre, checkpoint45b_post, checkpoint46b_pre, release1-branch-end, release1_final_v1, checkpoint46c_pre, checkpoint46, checkpoint44b_post, checkpoint46h_pre, checkpoint46m_post, checkpoint46a_pre, checkpoint45c_post, ecco_ice2, ecco_ice1, checkpoint44h_post, checkpoint46g_post, ecco_c44_e22, ecco_c44_e25, chkpt44a_pre, checkpoint46i_post, ecco_c44_e23, ecco_c44_e20, ecco_c44_e21, ecco_c44_e26, ecco_c44_e24, checkpoint46c_post, ecco-branch-mod1, ecco-branch-mod2, ecco-branch-mod3, ecco-branch-mod4, ecco-branch-mod5, checkpoint46e_post, release1_beta1, checkpoint44b_pre, checkpoint42, checkpoint44, checkpoint45, checkpoint46h_post, chkpt44c_post, checkpoint44f_pre, checkpoint46d_post, release1-branch_branchpoint
Branch point for: c24_e25_ice, release1_final, release1-branch, release1, ecco-branch, release1_coupled
Changes since 1.1: +12 -27 lines
File MIME type: text/plain 
Fixed AD-related problems:
o Store directives up-to-date with re-arranged Adams-Bashforth
  (mainly thermodynamics.F)
o New store directives for multi-dim. advection schemes
  * new CPP flag ALLOW_MULTI_DIM_ADVECTION
  * new common block and key passkey
  (mainly gad_advection.F)
o Modified store directives for split of dynamics/thermodynamics
  for the case ALLOW_KPP
o Cleaned argument list for timestep_tracer.F
1
2 c ================================================================
3 c HEADER TAMC
4 c ================================================================
5 c
6 c o Header for the use of the Tangent Linear and Adjoint Model
7 c Compiler (TAMC).
8 c
9 c started: Christian Eckert eckert@mit.edu 04-Feb-1999
10 c
11 c changed: Patrick Heimbach heimbach@mit.edu 06-Jun-2000
12 c - New parameter nlevchk_0 for dimensionalising
13 c common blocks in the undef ALLOW_TAMC_CHECKPOINTING case
14 c - nhreads_chkpt was declared at the wrong place
15 c
16 c
17 c ================================================================
18 c HEADER TAMC
19 c ================================================================
20
21
22 c TAMC checkpointing parameters:
23 c ==============================
24 c
25 c The checkpointing parameters have to be consistent with other model
26 c parameters and variables. This has to be checked before the model is
27 c run.
28 c
29 c nyears_chkpt - Number of calendar years affected by the assimilation
30 c experiment; nyears_chkpt has to be at least equal to
31 c the result of cal_IntYears(mythid).
32 c nmonths_chkpt - Number of months per year; nmonth_chkpt has to be at
33 c least equal to nmonthyear.
34 c ndays_chkpt - Number of days per month; nday_chkpt has to be at least
35 c equal to nmaxdaymonth.
36 c nsteps_chkpt - Number of steps per day; nsteps_chkpt has to be at
37 c least equal to cal_nStepDay(mythid)
38 c ncheck_chkpt - Number of innermost checkpoints.
39 c
40 c ngeom_chkpt - Geometry factor.
41 c nthreads_chkpt - Number of threads to be used; nth_chkpt .eq. nTx*nTy
42
43 integer nyears_chkpt
44 integer nmonths_chkpt
45 integer ndays_chkpt
46 integer ngeom_chkpt
47 integer ncheck_chkpt
48 integer nthreads_chkpt
49
50 parameter (nyears_chkpt = 1 )
51 parameter (nmonths_chkpt = 12 )
52 parameter (ndays_chkpt = 31 )
53 parameter (ngeom_chkpt = nr*nsx*nsy )
54 parameter (ncheck_chkpt = 6 )
55 parameter ( nthreads_chkpt = 1 )
56
57 #ifdef ALLOW_TAMC_CHECKPOINTING
58
59 integer nchklev_1
60 parameter( nchklev_1 = 36 )
61 integer nchklev_2
62 parameter( nchklev_2 = 30 )
63 integer nchklev_3
64 parameter( nchklev_3 = 60 )
65
66 c-- Note always check for the correct sizes of the common blocks!
67
68 #else /* ALLOW_TAMC_CHECKPOINTING undefined */
69
70 integer nchklev_0
71 parameter( nchklev_0 = 64800 )
72
73 #endif /* ALLOW_TAMC_CHECKPOINTING */
74
75 c TAMC keys:
76 c ==========
77 c
78 c The keys are used for storing and reading data of the reference
79 c trajectory.
80 c
81 c The convention used here is:
82 c ikey_<name>
83 c
84 c which means that this key is used in routine <name> for reading
85 c and writing data.
86
87 common /tamc_keys_i/
88 & ikey_dynamics,
89 & ikey_yearly,
90 & ikey_daily_1,
91 & ikey_daily_2,
92 & iloop_daily
93
94 integer ikey_dynamics
95 integer ikey_yearly
96 integer ikey_daily_1
97 integer ikey_daily_2
98 integer iloop_daily
99
100 INTEGER isbyte
101 PARAMETER( isbyte = 4 )
102 INTEGER maximpl
103 PARAMETER( maximpl = 6 )
104 INTEGER maxpass
105 PARAMETER( maxpass = 3 )
106
107 INTEGER act1, act2, act3, act4
108 INTEGER max1, max2, max3
109 INTEGER iikey, kkey, passkey
110
111 c ================================================================
112 c END OF HEADER TAMC
113 c ================================================================
114
115
  ViewVC Help
Powered by ViewVC 1.1.22