/[MITgcm]/MITgcm/pkg/grdchk/grdchk.h
ViewVC logotype

Annotation of /MITgcm/pkg/grdchk/grdchk.h

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

Revision 1.4 - (hide annotations) (download)
Mon Sep 16 18:11:58 2002 UTC (21 years, 8 months ago) by heimbach
Branch: MAIN
CVS Tags: checkpoint46n_post, checkpoint47e_post, checkpoint46l_post, checkpoint46g_pre, checkpoint47c_post, checkpoint46f_post, checkpoint48e_post, checkpoint46l_pre, checkpoint48b_post, checkpoint48c_pre, checkpoint47d_pre, checkpoint47a_post, checkpoint48d_pre, checkpoint47i_post, checkpoint47d_post, checkpoint48d_post, checkpoint48f_post, checkpoint46j_pre, checkpoint48h_post, checkpoint47g_post, checkpoint46j_post, checkpoint46k_post, checkpoint48a_post, checkpoint47j_post, branch-exfmods-tag, checkpoint48c_post, checkpoint47b_post, checkpoint46h_pre, checkpoint46m_post, checkpoint46g_post, checkpoint47f_post, checkpoint46i_post, checkpoint47, checkpoint48, checkpoint46h_post, checkpoint48g_post, checkpoint47h_post
Branch point for: branch-exfmods-curt
Changes since 1.3: +13 -11 lines
File MIME type: text/plain 
Enable tangent linear (forward mode) gradient checks:
o extended active file handling to g_... files
o added TANGENT_SIMULATION to theSimulationMode
o extended grdchk package accordingly
1 heimbach 1.2
2     c ==================================================================
3     c HEADER GRADIENT_CHECK
4     c ==================================================================
5     c
6     c o Header for doing gradient checks with the ECCO ocean state
7     c estimation tool.
8     c
9     c started: Christian Eckert eckert@mit.edu 01-Mar-2000
10     c
11     c changed: Christian Eckert eckert@mit.edu
12     c
13     c
14     c ==================================================================
15     c HEADER GRADIENT_CHECK
16     c ==================================================================
17    
18     c maxgrdchecks - maximum number of gradient checks done per tile.
19    
20     integer maxgrdchecks
21     parameter ( maxgrdchecks = 4000 )
22    
23     common /grdchkparms_r/
24     & grdchk_eps
25     _RL grdchk_eps
26    
27 heimbach 1.3 common /grdchkparms_l/
28     & useCentralDiff
29     logical useCentralDiff
30    
31 heimbach 1.2 common /grdchkparms_i/
32     & nbeg,
33     & nend,
34     & nstep,
35     & grdchkvarindex
36     integer nbeg
37     integer nend
38     integer nstep
39     integer grdchkvarindex
40    
41     common /grdchk_r/
42 heimbach 1.4 & fcrmem, fcppmem, fcpmmem,
43 heimbach 1.2 & xxmemref, xxmempert,
44 heimbach 1.4 & gfdmem, adxxmem, ftlxxmem,
45     & ratioadmem, ratioftlmem
46     _RL fcrmem ( maxgrdchecks )
47     _RL fcppmem ( maxgrdchecks )
48     _RL fcpmmem ( maxgrdchecks )
49     _RL xxmemref ( maxgrdchecks )
50     _RL xxmempert ( maxgrdchecks )
51     _RL gfdmem ( maxgrdchecks )
52     _RL adxxmem ( maxgrdchecks )
53     _RL ftlxxmem ( maxgrdchecks )
54     _RL ratioadmem ( maxgrdchecks )
55     _RL ratioftlmem ( maxgrdchecks )
56 heimbach 1.2
57     common /grdchk_i/
58     & ncvarcomp, maxncvarcomps,
59     & nwettile,
60     & irecmem,
61     & bimem, bjmem,
62     & ilocmem,jlocmem,klocmem,
63     & ichkmem, icompmem, itestmem, ierrmem
64     integer ncvarcomp
65     integer maxncvarcomps
66     integer nwettile( nsx,nsy,nr )
67     integer irecmem ( maxgrdchecks )
68     integer bjmem ( maxgrdchecks )
69     integer bimem ( maxgrdchecks )
70     integer klocmem ( maxgrdchecks )
71     integer jlocmem ( maxgrdchecks )
72     integer ilocmem ( maxgrdchecks )
73     integer ichkmem ( maxgrdchecks )
74     integer icompmem( maxgrdchecks )
75     integer itestmem( maxgrdchecks )
76     integer ierrmem ( maxgrdchecks )
77    
78     c ==================================================================
79     c END OF HEADER GRADIENT_CHECK
80     c ==================================================================
81    
82    
  ViewVC Help
Powered by ViewVC 1.1.22