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              heimbach@mit.edu 24-Feb-2003
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,
     &                       grdchkwhichproc
      integer nbeg
      integer nend
      integer nstep
      integer grdchkvarindex
      integer grdchkwhichproc

      common /grdchk_r/
     &                  fcrmem, fcppmem, fcpmmem,
     &                  xxmemref, xxmempert,
     &                  gfdmem, adxxmem, ftlxxmem,
     &                  ratioadmem, ratioftlmem
      _RL fcrmem      ( maxgrdchecks )
      _RL fcppmem     ( maxgrdchecks )
      _RL fcpmmem     ( maxgrdchecks )
      _RL xxmemref    ( maxgrdchecks )
      _RL xxmempert   ( maxgrdchecks )
      _RL gfdmem      ( maxgrdchecks )
      _RL adxxmem     ( maxgrdchecks )
      _RL ftlxxmem    ( maxgrdchecks )
      _RL ratioadmem  ( maxgrdchecks )
      _RL ratioftlmem ( 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	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	heimbach	1.5	c heimbach@mit.edu 24-Feb-2003
13	heimbach	1.2	c
14			c
15			c ==================================================================
16			c HEADER GRADIENT_CHECK
17			c ==================================================================
18
19			c maxgrdchecks - maximum number of gradient checks done per tile.
20
21			integer maxgrdchecks
22			parameter ( maxgrdchecks = 4000 )
23
24			common /grdchkparms_r/
25			& grdchk_eps
26			_RL grdchk_eps
27
28	heimbach	1.3	common /grdchkparms_l/
29			& useCentralDiff
30			logical useCentralDiff
31
32	heimbach	1.2	common /grdchkparms_i/
33			& nbeg,
34			& nend,
35			& nstep,
36	heimbach	1.5	& grdchkvarindex,
37			& grdchkwhichproc
38	heimbach	1.2	integer nbeg
39			integer nend
40			integer nstep
41			integer grdchkvarindex
42	heimbach	1.5	integer grdchkwhichproc
43	heimbach	1.2
44			common /grdchk_r/
45	heimbach	1.4	& fcrmem, fcppmem, fcpmmem,
46	heimbach	1.2	& xxmemref, xxmempert,
47	heimbach	1.4	& gfdmem, adxxmem, ftlxxmem,
48			& ratioadmem, ratioftlmem
49			_RL fcrmem ( maxgrdchecks )
50			_RL fcppmem ( maxgrdchecks )
51			_RL fcpmmem ( maxgrdchecks )
52			_RL xxmemref ( maxgrdchecks )
53			_RL xxmempert ( maxgrdchecks )
54			_RL gfdmem ( maxgrdchecks )
55			_RL adxxmem ( maxgrdchecks )
56			_RL ftlxxmem ( maxgrdchecks )
57			_RL ratioadmem ( maxgrdchecks )
58			_RL ratioftlmem ( maxgrdchecks )
59	heimbach	1.2
60			common /grdchk_i/
61			& ncvarcomp, maxncvarcomps,
62			& nwettile,
63			& irecmem,
64			& bimem, bjmem,
65			& ilocmem,jlocmem,klocmem,
66			& ichkmem, icompmem, itestmem, ierrmem
67			integer ncvarcomp
68			integer maxncvarcomps
69			integer nwettile( nsx,nsy,nr )
70			integer irecmem ( maxgrdchecks )
71			integer bjmem ( maxgrdchecks )
72			integer bimem ( maxgrdchecks )
73			integer klocmem ( maxgrdchecks )
74			integer jlocmem ( maxgrdchecks )
75			integer ilocmem ( maxgrdchecks )
76			integer ichkmem ( maxgrdchecks )
77			integer icompmem( maxgrdchecks )
78			integer itestmem( maxgrdchecks )
79			integer ierrmem ( maxgrdchecks )
80
81			c ==================================================================
82			c END OF HEADER GRADIENT_CHECK
83			c ==================================================================
84
85