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_i/
     &                       nbeg,
     &                       nend,
     &                       nstep,
     &                       grdchkvarindex
      integer nbeg
      integer nend
      integer nstep
      integer grdchkvarindex

      common /grdchk_r/
     &                  fcrmem, fcpmem,   
     &                  xxmemref, xxmempert,
     &                  gfdmem, adxxmem,
     &                  ratiomem
      _RL fcrmem    ( maxgrdchecks )
      _RL fcpmem    ( 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_i/
28	& nbeg,
29	& nend,
30	& nstep,
31	& grdchkvarindex
32	integer nbeg
33	integer nend
34	integer nstep
35	integer grdchkvarindex
36
37	common /grdchk_r/
38	& fcrmem, fcpmem,
39	& xxmemref, xxmempert,
40	& gfdmem, adxxmem,
41	& ratiomem
42	_RL fcrmem ( maxgrdchecks )
43	_RL fcpmem ( maxgrdchecks )
44	_RL xxmemref ( maxgrdchecks )
45	_RL xxmempert ( maxgrdchecks )
46	_RL gfdmem ( maxgrdchecks )
47	_RL adxxmem ( maxgrdchecks )
48	_RL ratiomem ( maxgrdchecks )
49
50	common /grdchk_i/
51	& ncvarcomp, maxncvarcomps,
52	& nwettile,
53	& irecmem,
54	& bimem, bjmem,
55	& ilocmem,jlocmem,klocmem,
56	& ichkmem, icompmem, itestmem, ierrmem
57	integer ncvarcomp
58	integer maxncvarcomps
59	integer nwettile( nsx,nsy,nr )
60	integer irecmem ( maxgrdchecks )
61	integer bjmem ( maxgrdchecks )
62	integer bimem ( maxgrdchecks )
63	integer klocmem ( maxgrdchecks )
64	integer jlocmem ( maxgrdchecks )
65	integer ilocmem ( maxgrdchecks )
66	integer ichkmem ( maxgrdchecks )
67	integer icompmem( maxgrdchecks )
68	integer itestmem( maxgrdchecks )
69	integer ierrmem ( maxgrdchecks )
70
71	c ==================================================================
72	c END OF HEADER GRADIENT_CHECK
73	c ==================================================================
74
75