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

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

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

revision 1.3 by heimbach, Thu May 30 22:47:26 2002 UTC revision 1.7 by heimbach, Mon Oct 27 22:32:55 2003 UTC
# Line 3  C $Header$ Line 3  C $Header$
3  #include "CPP_OPTIONS.h"  #include "CPP_OPTIONS.h"
4    
5    
6        subroutine grdchk_readparms(        subroutine grdchk_readparms( mythid )
      I                        mythid  
      &                      )  
7    
8  c     ==================================================================  c     ==================================================================
9  c     SUBROUTINE grdchk_readparms  c     SUBROUTINE grdchk_readparms
# Line 34  c     == routine arguments == Line 32  c     == routine arguments ==
32    
33        integer mythid        integer mythid
34    
35  #ifdef ALLOW_GRADIENT_CHECK  #ifdef ALLOW_GRDCHK
36  c     == local variables ==  c     == local variables ==
37    
38        integer i,j,k        integer i,j,k
# Line 63  c--   Optimization parameters. Line 61  c--   Optimization parameters.
61       &                  nstep,       &                  nstep,
62       &                  nend,       &                  nend,
63       &                  grdchkvarindex,       &                  grdchkvarindex,
64       &                  useCentralDiff       &                  useCentralDiff,
65         &                  grdchkwhichproc
66    
67        jtlo = mybylo(mythid)        jtlo = mybylo(mythid)
68        jthi = mybyhi(mythid)        jthi = mybyhi(mythid)
# Line 77  c--   Optimization parameters. Line 76  c--   Optimization parameters.
76        _BEGIN_MASTER( mythid )        _BEGIN_MASTER( mythid )
77    
78  c--     Set default values.  c--     Set default values.
79          grdchk_eps = 1. _d 0          grdchk_eps      = 1. _d 0
80          nbeg       = 1          nbeg            = 1
81          nend       = 1          nend            = 1
82          nstep      = 1          nstep           = 1
83          useCentralDiff = .TRUE.          useCentralDiff  = .TRUE.
84            grdchkwhichproc = 0
85    
86  c--     Check versions.  c--     Check versions.
87    
# Line 114  c--     Summarize the gradient check's s Line 114  c--     Summarize the gradient check's s
114    
115        _BARRIER        _BARRIER
116    
117  #endif /* ALLOW_GRADIENT_CHECK */  #endif /* ALLOW_GRDCHK */
118    
119        end        end
120    
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22