/[MITgcm]/MITgcm/pkg/grdchk/grdchk_main.F
ViewVC logotype

Diff of /MITgcm/pkg/grdchk/grdchk_main.F

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

revision 1.7 by heimbach, Fri Feb 28 02:34:56 2003 UTC revision 1.8 by heimbach, Tue Jun 24 16:08:45 2003 UTC
# Line 100  c     == local variables == Line 100  c     == local variables ==
100        integer jtile        integer jtile
101        integer itile        integer itile
102        integer layer        integer layer
103          integer obcspos
104        integer itilepos        integer itilepos
105        integer jtilepos        integer jtilepos
106        integer itest        integer itest
# Line 198  c--   gradient checks. Line 199  c--   gradient checks.
199  c--         Determine the location of icomp on the grid.  c--         Determine the location of icomp on the grid.
200              if ( myProcId .EQ. grdchkwhichproc ) then              if ( myProcId .EQ. grdchkwhichproc ) then
201                 call grdchk_loc( icomp, ichknum,                 call grdchk_loc( icomp, ichknum,
202       &              icvrec, itile, jtile, layer,       &              icvrec, itile, jtile, layer, obcspos,
203       &              itilepos, jtilepos, itest, ierr,       &              itilepos, jtilepos, itest, ierr,
204       &              mythid )       &              mythid )
205              endif              endif
# Line 381  c*************************************** Line 382  c***************************************
382                 ilocmem   ( ichknum ) = itilepos                 ilocmem   ( ichknum ) = itilepos
383                 jlocmem   ( ichknum ) = jtilepos                 jlocmem   ( ichknum ) = jtilepos
384                 klocmem   ( ichknum ) = layer                 klocmem   ( ichknum ) = layer
385                   iobcsmem  ( ichknum ) = obcspos
386                 icompmem  ( ichknum ) = icomp                 icompmem  ( ichknum ) = icomp
387                 ichkmem   ( ichknum ) = ichknum                 ichkmem   ( ichknum ) = ichknum
388                 itestmem  ( ichknum ) = itest                 itestmem  ( ichknum ) = itest
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22