/[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.21 by heimbach, Fri Apr 20 19:26:43 2007 UTC revision 1.22 by heimbach, Fri Jul 27 22:18:57 2007 UTC
# Line 249  c--   (B): Get gradient component g_fc f Line 249  c--   (B): Get gradient component g_fc f
249  c******************************************************  c******************************************************
250  c--  c--
251  c--   1. perturb control vector component: xx(i)=1.  c--   1. perturb control vector component: xx(i)=1.
252                ftlxxmemo = 0.
253    
254              if ( myProcId .EQ. grdchkwhichproc .AND.              if ( myProcId .EQ. grdchkwhichproc .AND.
255       &           ierr .EQ. 0 ) then       &           ierr .EQ. 0 ) then
Legend:
Removed from v.1.21  
changed lines
  Added in v.1.22
  ViewVC Help
Powered by ViewVC 1.1.22