pkg/grdchk/grdchk.h


c     ==================================================================
c     HEADER GRADIENT_CHECK
c     ==================================================================
c
c     o Header for doing gradient checks with the ECCO ocean state
c       estimation tool.
c
c     started: Christian Eckert eckert@mit.edu  01-Mar-2000
c
c     changed: Christian Eckert eckert@mit.edu
c
c
c     ==================================================================
c     HEADER GRADIENT_CHECK
c     ==================================================================

c     maxgrdchecks - maximum number of gradient checks done per tile.

      integer     maxgrdchecks
      parameter ( maxgrdchecks = 4000 )

      common /grdchkparms_r/
     &                       grdchk_eps
      _RL     grdchk_eps

      common /grdchkparms_l/
     &                       useCentralDiff
      logical useCentralDiff

      common /grdchkparms_i/
     &                       nbeg,
     &                       nend,
     &                       nstep,
     &                       grdchkvarindex
      integer nbeg
      integer nend
      integer nstep
      integer grdchkvarindex

      common /grdchk_r/
&                  fcrmem, fcppmem, fcpmmem,
     &                  xxmemref, xxmempert,
     &                  gfdmem, adxxmem,
     &                  ratiomem
      _RL fcrmem    ( maxgrdchecks )
      _RL fcppmem   ( maxgrdchecks )
      _RL fcpmmem   ( maxgrdchecks )
      _RL xxmemref  ( maxgrdchecks )
      _RL xxmempert ( maxgrdchecks )
      _RL gfdmem    ( maxgrdchecks )
      _RL adxxmem   ( maxgrdchecks )
      _RL ratiomem  ( maxgrdchecks )

      common /grdchk_i/
     &                  ncvarcomp, maxncvarcomps,
     &                  nwettile,
     &                  irecmem,
     &                  bimem, bjmem,
     &                  ilocmem,jlocmem,klocmem,
     &                  ichkmem, icompmem, itestmem, ierrmem
      integer ncvarcomp
      integer maxncvarcomps
      integer nwettile( nsx,nsy,nr )
      integer irecmem ( maxgrdchecks )
      integer bjmem   ( maxgrdchecks )
      integer bimem   ( maxgrdchecks )
      integer klocmem ( maxgrdchecks )
      integer jlocmem ( maxgrdchecks )
      integer ilocmem ( maxgrdchecks )
      integer ichkmem ( maxgrdchecks )
      integer icompmem( maxgrdchecks )
      integer itestmem( maxgrdchecks )
      integer ierrmem ( maxgrdchecks )

c     ==================================================================
c     END OF HEADER GRADIENT_CHECK
c     ==================================================================


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,
45	& ratiomem
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 ratiomem ( maxgrdchecks )
54
55	common /grdchk_i/
56	& ncvarcomp, maxncvarcomps,
57	& nwettile,
58	& irecmem,
59	& bimem, bjmem,
60	& ilocmem,jlocmem,klocmem,
61	& ichkmem, icompmem, itestmem, ierrmem
62	integer ncvarcomp
63	integer maxncvarcomps
64	integer nwettile( nsx,nsy,nr )
65	integer irecmem ( maxgrdchecks )
66	integer bjmem ( maxgrdchecks )
67	integer bimem ( maxgrdchecks )
68	integer klocmem ( maxgrdchecks )
69	integer jlocmem ( maxgrdchecks )
70	integer ilocmem ( maxgrdchecks )
71	integer ichkmem ( maxgrdchecks )
72	integer icompmem( maxgrdchecks )
73	integer itestmem( maxgrdchecks )
74	integer ierrmem ( maxgrdchecks )
75
76	c ==================================================================
77	c END OF HEADER GRADIENT_CHECK
78	c ==================================================================
79
80