pkg/grdchk/GRDCHK.h

444da61630 Mart*0001 C     ==================================================================
                0002 C     HEADER GRADIENT_CHECK
                0003 C     ==================================================================
                0004 C
                0005 C     o Header for doing gradient checks with the ECCO ocean state
                0006 C       estimation tool.
                0007 C
                0008 C     started: Christian Eckert eckert@mit.edu  01-Mar-2000
                0009 C
                0010 C     changed: Christian Eckert eckert@mit.edu
                0011 C              heimbach@mit.edu 24-Feb-2003
                0012 C
                0013 C     ==================================================================
                0014 C     HEADER GRADIENT_CHECK
                0015 C     ==================================================================
2091ce7ee7 Patr*0016
444da61630 Mart*0017 C     maxgrdchecks :: maximum number of gradient checks done per tile.
2091ce7ee7 Patr*0018
                0019       integer     maxgrdchecks
                0020       parameter ( maxgrdchecks = 4000 )
                0021
                0022       common /grdchkparms_r/
                0023      &                       grdchk_eps
                0024       _RL     grdchk_eps
                0025
b7ff4d81ac Patr*0026       common /grdchkparms_l/
                0027      &                       useCentralDiff
                0028       logical useCentralDiff
                0029
2091ce7ee7 Patr*0030       common /grdchkparms_i/
                0031      &                       nbeg,
                0032      &                       nend,
                0033      &                       nstep,
78a0e1cce7 Patr*0034      &                       grdchkvarindex,
f81d465bd0 Patr*0035      &                       grdchkwhichproc,
                0036      &                       iGloPos,
                0037      &                       jGloPos,
                0038      &                       kGloPos,
3277dbf476 Jean*0039      &                       iLocTile,
                0040      &                       jLocTile,
ec93986742 Patr*0041      &                       idep,
                0042      &                       jdep,
f81d465bd0 Patr*0043      &                       obcsglo,
27067cb768 Patr*0044      &                       recglo,
                0045      &                       iwetsum
f81d465bd0 Patr*0046
2091ce7ee7 Patr*0047       integer nbeg
                0048       integer nend
                0049       integer nstep
                0050       integer grdchkvarindex
78a0e1cce7 Patr*0051       integer grdchkwhichproc
f81d465bd0 Patr*0052       integer iGloPos
                0053       integer jGloPos
                0054       integer kGloPos
3277dbf476 Jean*0055       integer iLocTile
                0056       integer jLocTile
ec93986742 Patr*0057       integer idep
                0058       integer jdep
f81d465bd0 Patr*0059       integer obcsglo
                0060       integer recglo
444da61630 Mart*0061       integer iwetsum(nSx,nSy,0:Nr)
2091ce7ee7 Patr*0062
                0063       common /grdchk_r/
22f0d78f5f Patr*0064      &                  fcrmem, fcppmem, fcpmmem,
2091ce7ee7 Patr*0065      &                  xxmemref, xxmempert,
22f0d78f5f Patr*0066      &                  gfdmem, adxxmem, ftlxxmem,
                0067      &                  ratioadmem, ratioftlmem
                0068       _RL fcrmem      ( maxgrdchecks )
                0069       _RL fcppmem     ( maxgrdchecks )
                0070       _RL fcpmmem     ( maxgrdchecks )
                0071       _RL xxmemref    ( maxgrdchecks )
                0072       _RL xxmempert   ( maxgrdchecks )
                0073       _RL gfdmem      ( maxgrdchecks )
                0074       _RL adxxmem     ( maxgrdchecks )
                0075       _RL ftlxxmem    ( maxgrdchecks )
                0076       _RL ratioadmem  ( maxgrdchecks )
                0077       _RL ratioftlmem ( maxgrdchecks )
2091ce7ee7 Patr*0078
5cf4364659 Mart*0079       common /grdchk_c/ grdchkvarname
                0080       character*(MAX_LEN_FNAM) grdchkvarname
                0081
2091ce7ee7 Patr*0082       common /grdchk_i/
                0083      &                  ncvarcomp, maxncvarcomps,
                0084      &                  nwettile,
                0085      &                  irecmem,
                0086      &                  bimem, bjmem,
7109a141b2 Patr*0087      &                  ilocmem,jlocmem,klocmem,iobcsmem,
e4b263335d Patr*0088      &                  ichkmem, icompmem, itestmem, ierrmem, icglomem
2091ce7ee7 Patr*0089       integer ncvarcomp
                0090       integer maxncvarcomps
444da61630 Mart*0091 #ifdef ALLOW_OBCS_CONTROL
                0092       integer nwettile( nSx,nSy,Nr,nobcs )
                0093 #else
                0094       integer nwettile( nSx,nSy,Nr,    1 )
                0095 #endif
2091ce7ee7 Patr*0096       integer irecmem ( maxgrdchecks )
                0097       integer bjmem   ( maxgrdchecks )
                0098       integer bimem   ( maxgrdchecks )
                0099       integer klocmem ( maxgrdchecks )
7109a141b2 Patr*0100       integer iobcsmem( maxgrdchecks )
2091ce7ee7 Patr*0101       integer jlocmem ( maxgrdchecks )
                0102       integer ilocmem ( maxgrdchecks )
                0103       integer ichkmem ( maxgrdchecks )
                0104       integer icompmem( maxgrdchecks )
                0105       integer itestmem( maxgrdchecks )
                0106       integer ierrmem ( maxgrdchecks )
e4b263335d Patr*0107       integer icglomem( maxgrdchecks )
2091ce7ee7 Patr*0108
7109a141b2 Patr*0109 #ifdef ALLOW_OBCS_CONTROL
31a64ac75a Patr*0110       common /grdchk_obcs_mask_r/
                0111      &                            grdchk_maskxz, grdchk_maskyz
444da61630 Mart*0112       _RL     grdchk_maskxz(1-OLx:sNx+OLx,Nr,nSx,nSy,nobcs)
                0113       _RL     grdchk_maskyz(1-OLy:sNy+OLy,Nr,nSx,nSy,nobcs)
7109a141b2 Patr*0114 #endif
                0115
444da61630 Mart*0116 C     ==================================================================
                0117 C     END OF HEADER GRADIENT_CHECK
                0118 C     ==================================================================