/[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.13 by heimbach, Mon Feb 23 19:16:16 2004 UTC revision 1.14 by heimbach, Tue Mar 23 19:42:53 2004 UTC
# Line 198  c--   Compute the finite difference appr Line 198  c--   Compute the finite difference appr
198  c--   Cycle through all processes doing NINT(nend-nbeg+1)/nstep  c--   Cycle through all processes doing NINT(nend-nbeg+1)/nstep
199  c--   gradient checks.  c--   gradient checks.
200    
201          if ( nbeg .EQ. 0 ) call grdchk_get_position( mythid )
202    
203        do icomp = nbeg, nend, nstep        do icomp = nbeg, nend, nstep
204    
205           ichknum = (icomp - nbeg)/nstep + 1           ichknum = (icomp - nbeg)/nstep + 1
Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14
  ViewVC Help
Powered by ViewVC 1.1.22