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

Contents of /MITgcm/pkg/grdchk/grdchk.h

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

Revision 1.4 - (show 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
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 common /grdchkparms_l/
28 & useCentralDiff
29 logical useCentralDiff
30
31 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 & fcrmem, fcppmem, fcpmmem,
43 & xxmemref, xxmempert,
44 & 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
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