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

Diff of /MITgcm/pkg/grdchk/grdchk.h

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

revision 1.1 by heimbach, Fri Jul 13 13:08:17 2001 UTC revision 1.2 by heimbach, Fri Jul 13 14:50:45 2001 UTC
# Line 0  Line 1 
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    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22